hi,
in meinem code möchte ich eine jpeg datei in eine bmp datei umwandeln. dazu habe ich folgenden code verwendet:
Delphi-Quellcode:
uses jpeg;
procedure JpegToBmp(const Filename: String);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg:=TJPEGImage.Create;
try
jpeg.LoadFromFile(Filename);
bmp:=TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveToFile(ChangeFileExt(Filename, '.bmp'));
finally
bmp.free;
end;
finally
jpeg.free;
end;
end;
Delphi-Quellcode:
if radiobutton1.checked = true then begin
JpegToBmp(ExtractFilePath(Application.ExeName) + '\Image' + inttostr(i) + '.jpg');
end;
Aber immer wenn der Code ausgeführt werden soll, kommt die Fehlermeldung "Jpeg Fehler oder Error #53"!!!
Hoffe ihr könnt mir bei diesem problem helfen!
MFG Lars Wiltfang