Witam!
Mam takie pytanie. Jak skopiować fragment ekranu? Tzn. chodzi mi o to, żeby np. zapisać w pliku rysunek.bmp prostokąt z ekranu o współrzędnych wierzchołkow (12,12) i (100,100). Nie wiem jak to wyjanić....
No określony współrzędnymi fragment widocznego ekranu.
Z góry dzięki
Jezeli chodzi ci o fragment ekranu np. zdjecie aktywnego okna to wciskasz na klawiaturze alt+ctrl-print screen. !!!
Mam oczywiscie na mysli bys zastosował te klawisze w swojej aplikacji, poprzez symulacje nacisniecia tych klawiszy !!! ;)
Cześć
Jpeg, //biblioteka do obsługi formatu JPG
//zmienne globalne
NazwaPliku :String;
X :Integer;
{==== Zrzut Ekranu i zapis do pliku w formacie JPG ====}
procedure TForm1.ZrzutEkranu(NazwaPliku :String);
var
can :TCanvas;
obrazekBMP :TBitmap;
obrazekJPG :TJPEGImage;
kl,ln,sz,wy :Integer;
Begin
can:= TCanvas.Create;
can.Handle:= GetWindowDC(GetDesktopWindow); //przechwycenie uchwytu ekranu
obrazekBMP:= TBitmap.Create;
obrazekJPG:= TJPEGImage.Create;
try
//parametry wycinka (okreslone miejsce na ekranie)
kl:= 589; ln:= 187; sz:= 200; wy:= 150;
//parametry wycinka (cały ekran)
//kl:= 0; ln:= 0; sz:= Screen.Width; wy:= Screen.Height;
obrazekBMP.Width:= sz; obrazekBMP.Height:= wy;
obrazekBMP.Canvas.CopyRect(Rect(0,0,sz,wy), Can, Rect(kl,ln, kl+sz,ln+wy));
obrazekJPG.Assign(obrazekBMP);
obrazekJPG.SaveToFile(NazwaPliku);
Beep;
finally
can.Free;
obrazekBMP.Free;
end;
End;
{===============================}
procedure TForm1.Button1Click(Sender: TObject);
var
sciezka :String;
Begin
sciezka:= 'c:\Moje Dokumenty';
//kreuje katalogio podanej ścieżce
if not DirectoryExists(sciezka) then ForceDirectories(sciezka);
Inc(X);
NazwaPliku:= Sciezka+ '\Zrzut '+ IntToStr(x) +'.jpg';
ZrzutEkranu(NazwaPliku);
Image1.Picture.LoadFromFile(NazwaPliku); //wczytuje gotowy zrzut z pliku
End;