gemotzt wird bei folgendem code aus der JvIDv3Base (Zeile 7210)
Delphi-Quellcode:
procedure TJvID3PictureFrame.AssignTo(Dest: TPersistent);
var
TmpFileName: string;
begin
if (Dest is TPicture) or (Dest is TGraphic) then
begin
if (DataSize > 0) and (MIMEType <> cURLArrow) then
begin
TmpFileName := JclFileUtils.FileGetTempName(cPictureFrameFileNameTemplate);
TmpFileName := ChangeFileExt(TmpFileName, MIMETypeToExt(MIMEType));
SaveToFile(TmpFileName);
try
try
if Dest is TPicture then
TPicture(Dest).LoadFromFile(TmpFileName) //<--!!!HIER
else
if Dest is TGraphic then
TGraphic(Dest).LoadFromFile(TmpFileName);
except
on EInvalidGraphic do
; { Do nothing }
end
finally
SysUtils.DeleteFile(TmpFileName);
end;
end
else
Dest.Assign(nil);
end
else
inherited AssignTo(Dest);
end;
heisst das dass der an der Datei was kaputt is?