mit theos OpBitmap ist das sehr einfach:
Code: Alles auswählen
procedure BmpSave(bitmap:TBitmap; const aFilename:String);
var
op:TOPPicture;
begin
op:=TOpPicture.Create;
AssignBitmapToOpBitmap(bitmap,op.Bitmap);
op.SaveToFile(aFilename);
op.free;
end;
Müsste so Funktionieren.
Außer dem müssen folgende Units noch eingebunden werden:
lazbridge, opbitmapformats
Das Format in das gespeichert wird, wird auto. durch die Datei Endung gewählt !
OpBitMap ist hier zu finden:
viewtopic.php?t=434&start=0