Jak zrobić zrzut ekranu z poziomu delphi?

[TheRifler]

Ok jak to zrobić, ale też jak zapisać to do jpg ... :) Istnieje możliwość
skalowania takiego obrazu przed kompresja do jpg?

[this]

Jak zrobić zrzut ekranu z poziomu delphi?

Robiłem to w builderze, ale funkcja jest z winapi więc można i w delphi. To na
pewno nie jest idealne rozwiązanie ale użyłem do tego funcji keybd_event() z
kodem print screena VK_SNAPSHOT (rtfm)
potem się trochę pobawić trzeba z wyciągnięciem tego ze schowka - TClipboard

Ok jak to zrobić, ale też jak zapisać to do jpg ... :)

Jest taka klasa TJPEGImage (używałem w builderze ale pewnie to samo), można z
jej pomocą skompresować bitmapkę do jotpega ;-D

Istnieje możliwość skalowania takiego obrazu przed kompresja do jpg?

TJPEGImage jotpeg;
jotpeg.Scale{blablabla}

pozdr.

[TheRifler]

thx. :) a jakie dokładnie kody były by w Delphi ? :-)

Post by this

Jak zrobić zrzut ekranu z poziomu delphi?

Robiłem to w builderze, ale funkcja jest z winapi więc można i w delphi. To na
pewno nie jest idealne rozwiązanie ale użyłem do tego funcji keybd_event() z
kodem print screena VK_SNAPSHOT (rtfm)
potem się trochę pobawić trzeba z wyciągnięciem tego ze schowka - TClipboard

Ok jak to zrobić, ale też jak zapisać to do jpg ... :)

Jest taka klasa TJPEGImage (używałem w builderze ale pewnie to samo), można z
jej pomocą skompresować bitmapkę do jotpega ;-D

Istnieje możliwość skalowania takiego obrazu przed kompresja do jpg?

TJPEGImage jotpeg;
jotpeg.Scale{blablabla}
pozdr.
--
Wysłano z serwisu Usenet w portalu Gazeta.pl ->

http://www.gazeta.pl/usenet/

[this]

Post by TheRifler
thx. :) a jakie dokładnie kody były by w Delphi ? :-)

hehe dokładnie to mi się nie chce tego tłumaczyć na dlephi ;-D
ale jak ci zależy żeby to zrobić to ci tylko potrzeba trochę helpa poczytać i
popróbować __wszystko__ jest w helpie

a na temat jpg tu: http://www.delphi.qs.pl/faq1.php3#7
opis keybd_event w win32.hlp
powodzenia ;-P

pozdr.

[Silverphoenix]

thx. :) a jakie dokładnie kody były by w Delphi ? :-)

Post by this

Jak zrobić zrzut ekranu z poziomu delphi?

Robiłem to w builderze, ale funkcja jest z winapi więc można i w delphi. To na
pewno nie jest idealne rozwiązanie ale użyłem do tego funcji keybd_event() z
kodem print screena VK_SNAPSHOT (rtfm)
potem się trochę pobawić trzeba z wyciągnięciem tego ze schowka - TClipboard

Ok jak to zrobić, ale też jak zapisać to do jpg ... :)

Jest taka klasa TJPEGImage (używałem w builderze ale pewnie to samo), można z
jej pomocą skompresować bitmapkę do jotpega ;-D

Istnieje możliwość skalowania takiego obrazu przed kompresja do jpg?

TJPEGImage jotpeg;
jotpeg.Scale{blablabla}
pozdr.

[Shadow]

{ Jak zrobić ZRZUT ? }
// ta procedura kopiuje zawartość Panelu. Aby zrobić zrzut
// ekranu, zamiast Panel1 piszemy Screen
var Obraz: TBitmap;
Can : TCanvas;
begin
Obraz:=TBitmap.Create;
Obraz.Height:=Panel1.Height;
Obraz.Width:=Panel1.Width;
Can := TCanvas.Create;
Can.Handle:=GetDC(Panel1.Handle);
// dla ekranu: Can.Handle := GetWindowDC( GetDesktopWindow );
Obraz.Canvas.CopyRect(Rect(Panel1.Left-4,Panel1.Top-4,
Panel1.Width,Panel1.Height),//kopiuj do Obrazu...
Can, Rect(Panel1.Left-4,Panel1.Top-4, Panel1.Width,
Panel1.Height));// ..ze źródła
end;

Przykladowy kod z MultiFaq II. Dziala...
Pozdrawiam Shadow