tImage: Unbekannte Bilddateierweiterung

[dataspider]

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