DBR Delphi-Ecke

// Mit dem folgenden Code kann man ganz einfach ein GIF-Bild laden,
// allerdings keine Animationen.
// Auch für *.BMP, *.EMF, *.ICO, *.WMF geeignet, selbst
// Jpegs können ohne die Unit "jpeg" geladen werden, leider
// keine *.JP2 und keine *.PNG

// Getestet mit D4 unter XP

uses axctrls; 
 
procedure LoadBild(Datei: string; Picture: TPicture); 
var 
  FStream: TFileStream; 
  OLEBild: TOleGraphic; 
begin 
  OLEBild := TOleGraphic.Create; 
  FStream := TFileStream.Create(Datei, fmOpenRead or fmShareDenyNone); 
  try 
    OLEBild.LoadFromStream(FStream); 
    Picture.Assign(OLEBild); 
  finally 
    FStream.Free; 
    OLEBild.free; 
  end; 
end; 
 
// Beispielaufruf
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  LoadBild('d:\bilder\hexe.gif', Image1.Picture); 
end;