关于图象显示的问题

Question

有谁在DELPHI里显示过GIF图片,有什么好的见意!

Answer 1

用第三方控件如TGifImage等
用TWebBrowser来显示

Answer 2

用第三个控件，比如说,imagelib之类控件的

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  jpgPic:TJpegImage;
  bitPic:TBitMap;
begin
  jpgPic:=TJpegImage.Create ;
  with jpgPic do
  begin
    LoadFromFile('C:\splash.jpg');
    bitPic:=TBitMap.Create ;
    with bitPic do
    begin
      Width:=jpgPic.Width;
      Height:=jpgPic.Height;
      Canvas.Draw (0,0,jpgPic);
    end;
    Image1.Width :=bitPic.width;
    Image1.Height :=bitPic.Height ;
    Image1.Picture.Assign(bitPic);
    bitPic.Free;
  end;
  jpgPic.Free;
end;

Answer 4

用Twebbrowservar
  TargetFrameName,PostData,Heads,Flags : OleVariant;
  URL ,GIFFileName: widestring;
begin
  GIFFileName:='c:\1.gif';
  TargetFrameName:= '';{指定Frame的空字符串时,则在当前Frame中打开动画文件}
  PostData := false;{不发送数据}
  Heads := '';{Header信息为空}
  Flags := 0;{Flags设为0}
  URL := GIFFileName;
  with WebBrowser1 do{在指定窗口中的IE浏览器控件中显示动画}
  begin
   navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件}
  end;