[推荐]DELPHI如何利用BHO更改网页内容?//第一个例程
//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB;ID:integer);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
tmpStr,tmpfilepath:string;0D
begin
//直接写到浏览器里。
vv := VarArrayCreate([0,0],varVariant);
vv[0] := '<base href="'+LocalPath+'"/>'+ src+ tmpStr;
try
ieBrw.Navigate('about:blank'); //这里必须要
HTMLDocument := iebrw.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.charset:3D 'gb2312';
HTMLDocument.close;
except
statusbar1.Panels[0].Text:='写浏览器出错';
end;
HtmlDocument:=nil;
end;
//第二个例程
procedure WB_LoadHTML(webBrowser: TwebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
webBrowser.Navigate('about:blank');
if Assigned(webBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(webBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(webBrowser1,'<html><body bgcolor="#0099FF">SwissdelphiCenter</html>');
end;
| Visual C++编程窃取QQ密码 | 12-08 | |
| 编程实现重起网卡等设备 | 12-07 | |
| 一个邮件群发的Delphi代码! | 12-06 | |
| Delphi下Internet的编程技巧 | 11-20 | |
| Delphi黑客编程－如何映射虚拟盘 | 11-15 | |
| 用DETOURS库获取NT管理员权限 | 11-08 | |
| 一篇关于vb代码质量提高的文章 | 10-30 | |
| 解析Asp.net木马文件操作 | 10-04 | |
| 盗QQ源码 | 10-01 | |
| 如何映射肉鸡磁盘(Delphi黑客编程 | 09-24 | |
| 打造无DLL版穿墙Downloader(Delp | 09-22 | |
| 调用指定的Windows程序(Delphi编 | 09-19 | |
您现在的位置：