lazarus - fragment ekranu do BMP

lazarus - fragment ekranu do BMP
  • Rejestracja: dni
  • Ostatnio: dni
0

witam.
Jak pobrać fragment ekranu i zapisać go do BMP?
na razie mam takie coś:

Kopiuj
procedure TForm1.Timer1Timer(Sender: TObject);
var
can:TCanvas;
BMP:TBitmap;
R : TRect;
s:string;
begin
//SetWindowPos(h, HWND_TOP, 0, 0, 879, 628,SWP_SHOWWINDOW);
can:= TCanvas.Create;
can.Handle:=GetWindowDC(GetDesktopWindow);
//can.Handle:=GetWindowRect(h, R);    // docelowo będę pobierał fragment okna
BMP:= TBitmap.Create;   // TU BŁĄD
end;  

z następującym błędem:

unit1.pas(461,15) Error: Unknown record field identifier "CREATE"

co z tym fantem zrobić? jak zapisać tego chrzanionego BMP'ka? a może wie ktoś jak od razu zrobić z tego tiff'a i odczytać z niego tekst przez kontrolkę ActiveX? :P

Patryk27
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Wrocław
  • Postów: 13042
0

Jakie masz dodane moduły?
Masz dodany Graphics, lub podobny?

ZTCW, są 2 deklaracje TBitmap.
Jedna bodajże w Windows (ta bez metody Create, itp.) i druga w Graphics (ta z tą metodą).
Oczywiście mogę się mylić ;)

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.