Hallo
Ich möchte ein screenshot machen mit dieser funktion
Delphi-Quellcode:
procedure MakeScreenShot(const ATarget: TBitmap);
var
DesktopDC: HDC;
begin
DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
try
ATarget.PixelFormat := pfDevice;
ATarget.Width := Screen.Width;
ATarget.Height := Screen.Height;
BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
finally
DeleteDC(DesktopDC);
end;
end;
Dieses bmp soll mitels diesem Code in einen Stream geschrieben werden
Delphi-Quellcode:
ds := TMemoryStream.Create;
bmp := TBitmap.Create;
MakeScreenShot(bmp.Create);
bmp.SaveToStream(ds);
rc.Put(ds,cn+'.bmp',true);
ds.Free;
rc ist ein
FTP Client
bmp habe ich als TBitMap deklariert
Das problem dabei ist, das die dateien die raufgeladen werden 0Bytes gross sind
ich finde den fehler nicht
bitte hilfe
grüsschen