JPEG Error

[EWeiss]

Zitat von p80286:

Dann macht mans so
procedure GetScreenShot(var mybm: TBitmap); Gruß
K-H

P.s.
c&P at ist best

Der sinn hinter deiner procedure erschließt sich mir auch nicht. Sorry.
Ob man das jetzt über eine Function regelt oder über eine Procedure spielt eigentlich keine rolle.
Ist Auslegungssache.
Wichtig ist doch nur das ein Bitmap zurückgegeben wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp :TBitmap;
begin
  bmp := GetScreenShot; // TBitmap das zurückgegeben wird
  SaveShotToStream(bmp)
  bmp.Free;
end;

procedure SaveShotToStream(PIC: TBitmap);
// bla, bla
bmp := PIC;
//hier nix mit bmp.free wird nachher freigegeben.

gruss