|
g) of object;
在页面的属性发生变化时发生，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] 下一页
[聊天工具]用Windows98第二版直接共享Internet [系统软件]Internet Explorer 编程简述（繁体版）
[系统软件]单击链接后无法打开新的 Internet Explorer 窗口或… [系统软件]OLE with the internet explorer
[常用软件]Internet Explorer 6 Public Preview 最新出击！！ [常用软件]Internet Explorer中的潘多拉魔盒 作者：江海
[常用软件][网络]Becky Internet Mail 软件评测 [VB.NET程序]VB自动登陆网络站点详解（三）：Internet Explore…
[Delphi程序]DELPHI与INTERNET2 [Delphi程序]谈Delphi下Internet的编程技巧(一)
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
