gif.pas

用IE控件显示GIF动画

unit gif;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, HTTPApp;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    WebDispatcher1: TWebDispatcher;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ShowGIF(GIFFileName: String );

  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
TheText:Pchar;
TheLen:Integer;
begin

TheLen:=GetWindowTextLength(Form1.Handle); //获取当前窗体名称
GetMem(TheText,TheLen); //分配内存
GetWindowText(Form1.Handle,TheText,TheLen+1); //定位窗体 获取窗体标题和长度
Edit1.Text:=string(TheText); //在编辑框中显示
FreeMem(TheText); //释放内存
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowText(Form1.Handle,Pchar(Edit1.text)); //设置窗体名称
 ShowGIF('g:\fsd.gif');
end;

procedure TForm1.ShowGIF( GIFFileName : String );

var

TargetFrameName,PostData,Heads,Flags : OleVariant;

URL : widestring;

begin

TargetFrameName := '';{指定Frame的空字符串时,

则在当前Frame中打开动画文件}

PostData := false;{不发送数据}

Heads := '';{Header信息为空}

Flags := 0;{Flags设为0}

URL := GIFFileName;

with form1.webbrowser1 do{在指定窗口中的

IE浏览器控件中显示动画}

begin

navigate(URL,Flags,TargetFrameName

,PostData,Heads);{显示动画文件}

end;

end;


end.