delphi的例子，是webbroswer組件讀取MemoryStream里面的內容的例子，這一句不會用，請懂行的幫忙翻譯成BCB。
ms就是TMemoryStream *ms；
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
uj5u.com熱心網友回復：
應該是這個例子了http://comeoffbest.blog.163.com/blog/static/918935652009928454263/
OleCheck( WebBrowser->Document->QueryInterface( __uuidof(IPersistStreamInit), (void **)&psi ) );
OleCheck( psi->Load(Stream) );
uj5u.com熱心網友回復：
不是這個，不過可以參考下，東東差不多，我把代碼貼上來。procedure WBLoadHTML(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;
procedure TForm1.FormCreate(Sender: TObject) ;
var
sHTML : string;
begin
sHTML := '<a href="http://delphi.about.com">GOTO</a>' +
'<b>About Delphi Programming</b>';
WBLoadHTML(WebBrowser1,sHTML) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
uj5u.com熱心網友回復：
兔恙兔森破,撒姆泰姆耐烏.Google "site:csdn.net ccrun IPersistStreamInit IHTMLDocument2"
有驚喜.
uj5u.com熱心網友回復：
看了兩個妖哥的帖子了，例程代碼運行成功。不過和我說的原理不一樣，其實我就是想知道webbrowser怎么顯示記憶體里面的內容的這一點點代碼。還有這個CPPweb...和webbrowser到底嘛區別？
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/146017.html
標籤：VCL組件使用和開發