BitBlt

[daniel8520]

Eigentlich wollte ich ja nur ein Bild ainer PaintBox als BMP speichern. Im Bereich mUltimedia hat mir dann gesagt, dass ich ein TBitmap nehemen soll, und das Canavas über BitBlt kopieren soll. Also hab ich folgendes probiert:

Delphi-Quellcode:

procedure TMainForm.Button3Click(Sender: TObject);
var
    Test: TBitmap;
begin
   Test := TBitmap.Create;
   Test.Height := 400;
   Test.Width := 400;
   BitBlt(Test.Handle,0,0,400,400,PaintBox.Canvas.Handle,0,0,SRCCOPY);
   Test.SaveToFile('C:\test.bmp');

end;

Es wurde aber nur ein weißes Bild gepeichert. Natürlich war im Canavas der PaintBox etwas drin. Könnte mir jemdand sagen, wie ich das anstellen muss!?