[求助]我想在WebBrowser控件中通过自定义HTML源让其显示，请问该如何编程呢？ ( 积分: 22 )

我想在WebBrowser控件中通过自定义HTML源让其显示，请问该如何编程呢？各位高手一定要帮忙很急，别外能否给我一个示例源代码?因为没有分了请见谅

我想在WebBrowser控件中通过自定义HTML源让其显示，请问该如何编程呢？各位高手一定要帮忙很急，别外能否给我一个示例源代码?因为没有分了请见谅

用Navigate属性可以访问本地文件

to foundworld:
我是要在程序中生成html，因为要查询数据库然后才给hmtl源赋值，然后再转给WebBrowser.

uses
ActiveX;
//从STRING加载到WEB
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
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;
//从STREAM加载到WEB
function Loadfromstream(AStream:TStream):hresult;
begin
with browser1 do
begin
if not Assigned(Document) then
begin
navigate2('about:blank',0,0,0,0);
while readystate <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages;
end;
AStream.seek(0, 0);
Result := (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
end;
end;

谢谢boy2002cn，我用您的代码已经可以了，非常感谢!