PrintScreen w Delphi

Odpowiedz Nowy wątek
2007-01-04 19:54
xyx
0

siema
jak zapisac ekran do pliku jpg za pomocą Delphi?
[tak jak robi to przycisk printscreen]

Pozostało 580 znaków

2007-01-04 21:14
0
var
 DesktopCanvas:TCanvas;
Bmp:TBitmap;
FJPG:TJpegImage;
begin
Bmp:=TBitmap.Create;
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(0);  //Pobranie uchwytu pulpitu
Bmp.Width:=Screen.Width;     //Pobranie szerokości pulpitu
Bmp.Height:=Screen.Height;  //Pobranie wysokości ekranu
Bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width,bmp.Height),DesktopCanvas,Rect(0,0,Bmp.Width,bmp.Height)); 
//Skopowanie "canvas'a pulpitu" na bitmapę

DesktopCanvas.Free;//zwolnienie zmiennej reprezentującej canvas

FJPG:=TJpegImage.Create;
FJPG.Assign(Bmp);      // konwersja na jpg
Bmp.Free;

FJPG.SaveToFile('c:\Screenshot.jpg');
FJPG.Free;
end;

;-P

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0