Hallo,
ich habe folgendes Problem:
Ich male ein Bild in einem TImage und speichere es ganz normal:
image1.Picture.SaveToFile(Dateiname.jpg);
Nun will ich alle Bilder aus einem Ordner nacheinander laden und formatieren:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
V:=extractfilepath(paramstr(0));
if not Directoryexists(pchar(V+'\Formatiert')) then createdirectory(pchar(V+'\Formatiert'),0);
if FindFirst(V+'*.jpg', faAnyFile, SR)=0 then
begin
Formatieren(SR.Name);
end;
while Findnext(SR)=0 do
begin
Formatieren(SR.Name);
end;
Delphi-Quellcode:
procedure Tform1.formatieren(S:string);
var
jpg: TJPEGImage;
bmp: TBitmap;
begin
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
jpg.LoadFromFile(V+S);
bmp.Width := strtoint(panel1.caption);
bmp.Height := bmp.Width;
bmp.Canvas.StretchDraw(Rect(0, 0, bmp.Width, bmp.Height), jpg);
jpg.Assign(bmp);
bmp.Free;
jpg.SaveToFile(V+'\Formatiert\'+S);
jpg.Free;
end;
Ich bekomme jedoch beim Laden des Bildes immer die Meldung: JPEG-Fehler #53 (und das Bild wird auch nicht geladen)
Ich habe bisher nichts gefunden was mir weiterhilft und ich bin auch absolut ratlos. Ich habe auch schon probiert die Bilder in das TImage zu laden mit der ich sie erzeugt und gespeichert habe, da bekomme ich aber die selbe Meldung.
Warum kann ich ein Bild, das ich mit einer Delphi-Komponente abgespeichert habe nicht mit der selben Komponente wieder laden?
Alle anderen Programme (Paint, Explorer, Firefox, Vorschau im Ordner) können die Bilder absolut Problemlos anzeigen und bearbeiten.
MfG
Flippo