在页面的属性发生变化时发生，Property_为属性名称 OnDownloadComplete: TNotifyEvent

在下载页面完成后发生
OnDownloadBegin: TNotifyEvent

在下载页面开始前发生．

 介绍过TwebBrowser控件的属性后，我在给大家介绍一下应用TwebBrowser控件的一些编程技巧。　

1．显示一个GIF动画

如果你找不到显示GIF动画的控件，下面的一个函数可以解决你的燃眉之急

procedure 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 formGIF.webbrowser do{在指定窗口中的

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

  begin

   navigate(URL,Flags,TargetFrameName

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

  end;

end;

2．删除IE的历史记录

很想知道如何实现删除IE的历史记录的吧,下面一段程序事例将介绍如何编写

uses wininet;

procedure TForm1.Button1Click(Sender: TObject);

var

  cache_info:PInternetCacheEntryInfo;

  cbSizeOf_Cache_info:dword;

  hw:hwnd;

  buf:tstrings;

begin

new(cache_info);

  hw:=FindFirstUrlCacheEntryEx(nil,0,NORMAL_CACHE_ENTRY or URLHISTORY_CACHE_ENTRY,0,cache_info,@cbSizeOf_Cache_info,nil,nil,nil);

  if hw<>0 then

  begin

    DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);

    while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do

      DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);

  end;

  FindCloseUrlCache(hw);

  dispose(cache_info);

end;

//方法二

type

  TSTATURL = record

    cbSize: DWORD;

    pwcsUrl: DWORD;

    pwcsTitle: DWORD;

    ftLastVisited: FILETIME;

    ftLastUpdated: FILETIME;

    ftExpires: FILETIME;

    dwFlags: DWORD;

  end;

type

  IEnumSTATURL = interface(IUnknown)

    [''''{3C374A42-BAE4-11CF-BF7D-00AA006946EE}'''']

    function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;

    function Skip(celt: Longint): HRESULT; stdcall;

    function Reset: HResult; stdcall;

    function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;

    function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;

  end;

type

  IUrlHistoryStg = interface(IUnknown)

    [''''{3C374A41-BAE4-11CF-BF7D-00AA006946EE}'''']

    function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;

    function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;

    function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HResult; stdcall;

    function BindToObject(pocsUrl: PWideChar; var riid: TGUID; out ppvOut: Pointer): HResult; stdcall;

    function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;

  end;

type

  IUrlHistoryStg2 = interface(IUrlHistoryStg)

上一页  [1] [2] [3] [4]  下一页