bmp speichern

[Nisbo]

habe jetzt auch mal

Delphi-Quellcode:

// Screenshot
procedure TForm7.Button3Click(Sender: TObject);
var tempBild: TBitmap;
begin
   WindowState    := wsminimized;
   Image1.picture := nil;
   tempBild       := TBitmap.Create;
   Sleep(1000);
   ScreenShot(tempBild,Edit2.Text,Edit1.Text,Edit3.Text,Edit4.Text);
   Image1.Picture.Assign(tempBild);
   tempBild.SaveToFile('TestBitmap.bmp');
   tempBild.Free;
   WindowState    := wsNormal;
   Form7.BringToFront;
   SetForegroundWindow(FindWindow(nil,'Screenshot'));
end;

versucht, also das

tempBild.SaveToFile('TestBitmap.bmp');

eingefügt, wieder nen schwarzes bild
dein Programm funktioniert, muß also wohl doch an Lazarus liegen

EDIT:

du hast in uses noch das drinn:
, Messages, Variants

hatte das mal mit eingefügt und neu getestet, aber immer noch das selbe