|
[推荐]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;
| 网游盗号木马实现手记 | 01-09 |
| 黑色技术蠕虫下载者[完整源码] | 11-01 |
| 利用BCB自己打造QQ炸弹 | 10-23 |
| 从内存中加载并启动一个exe(delp | 09-27 |
| 开启和关闭Windows xp 防火墙(de | 09-27 |
| 让你的程序通过XP防火墙(delphi编 | 09-27 |
| 如何让你的程序安全通过windows防 | 08-20 |
| 如何透过程序来控制 Windows (XP | 08-20 |
| 动易2005-2006算号器的源代码 | 08-11 |
| API对注册表进行操作(Delphi编程 | 07-30 |
| 一段隐藏注册表项的代码 | 07-26 |
| 了解VB编写病毒的大体方法 | 07-02 |
您现在的位置：