这段代码怎么在delphi(bho)中编译,有例程最好(页 1) - Delphi论坛 - 编程论坛

y119977 发表于 2008-2-21 12:15

这段代码怎么在delphi(bho)中编译,有例程最好

[code]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
[/code]

思逸发表于 2008-3-5 17:16

好像不怎么明白你所要表达的问题~~

页: [1]

编程论坛's Archiver

这段代码怎么在delphi(bho)中编译,有例程最好