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