Hi,
ich würde einfach den Umweg über einen Stream machen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
AStream: TFileStream;
begin
AStream := TFileStream.Create(pfad + '
bild.5', fmOpenRead);
try
if (Image1.Picture.Graphic <>
nil)
then
Image1.Picture.Graphic.LoadFromStream(AStream)
else
raise Exception.Create('
Picture ist noch ohne Grafik');
finally
AStream.Free;
end;
end;
Wenn z. Entwurf ein leeres JPeg geladen wird, ist Graphic auch nicht nil.
Frank