print sreen ->file

0

czy da sie zrobic print screena w formacie jpg <ort>Od razu </ort>do pliku ? tak by Timage nie <ort>msualbyc </ort>widoczny (najlepiej bez jego ort!)

// słownik !! - ŁF

0

Jaki znowu TImage, kopiujesz ekran do TBitmap albo TJpeg i tam jest przeciez savetofile.

0

Przeglądnij lepiej faq - tam <ort>durzo </ort>tego na ten temat jest!

0

ok zrobilem tak:
DeskTop := TCanvas.Create;
DeskTop.Handle := GetWindowDC(GetDesktopWindow);
Bmp := TBitmap.Create;
Bmp.Width := Screen.Width;
Bmp.Height := Screen.Height;
bmp.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height),DeskTop,Rect(0,0,screen.Width,screen.Height));
Jpeg := TJpegImage.Create;
Jpeg.assign(bmp);{CopyRect(Rect(0,0,screen.Width,screen.Height),DeskTop,Rect(0,0,screen.Width,screen.Height)); }
Jpeg.CompressionQuality :=kompresja;
Jpeg.Compress;
Jpeg.SaveToFile('c:\screen.jpg');
Jpeg.Free;

da sie jeszce prosciej?

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