Bitmap in Stream Speichern

[hedie]

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

[SirThornberry]

du hast vergessen die Position des Streams auf 0 zurück zu setzen.

[hedie]

danke

[Muetze1]

Nochwas: Was soll den der Create Aufruf beim Parameter? MakeScreenShot(bmp.Create);

[hedie]

Keine ahnung aber es funktioniert

[SirThornberry]

funktioniert aber man sollte es nicht machen, denn dadurch entstehen in den meisten Fällen Speicherlecks.