Fórum Salvar TImage em GIF #325211

{
I´ve found in the axCtrls-Unit the TOLEGraphic Object. Now it´s easy
to display (all ?) many kinds of graphics at a TImage.
For this example you have to create a form with a button and a TImage
(I´ve named SampleImage). Now implement to following Code.
(Don´t forget to Replace ´C:\...\test.gif´ at the TFileStream.Create event)
}

uses axCtrls
    ...procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs         := TFileStream.Create(´C:\...\test.gif´, fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    SampleImage.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;