關於CppWebBrowser問題 |
答題得分者是:RaynorPao
|
OldHawk
一般會員 發表:7 回覆:1 積分:1 註冊:2003-09-05 發送簡訊給我 |
我在寫一個程式,代碼如下:
void __fastcall TfrmMain::FormCreate(TObject *Sender) { if(!CppWebBrowser->Document) { CppWebBrowser->Navigate(WideString("about:blank")); while(!CppWebBrowser->Document) Application->ProcessMessages(); } Variant Doc = CppWebBrowser->Document; Variant Tag_all = Doc.OlePropertyGet("body"); Tag_all.OleFunction("insertAdjacentHTML","beforeEnd","大家好 "); }執行的時候總是提示 isBound() @ .... 錯誤,但是如果把上面的代碼分在兩開就可以執行,如下: void __fastcall TfrmMain::FormCreate(TObject *Sender) { if(!CppWebBrowser->Document) { CppWebBrowser->Navigate(WideString("about:blank")); while(!CppWebBrowser->Document) Application->ProcessMessages(); } } void __fastcall TfrmMain::Button1Click(TObject *Sender) { Variant Doc = CppWebBrowser->Document; Variant Tag_all = Doc.OlePropertyGet("body"); Tag_all.OleFunction("insertAdjacentHTML","beforeEnd",MemoHtmlSource->Text.c_str()); }爲什麽第一種方法有錯誤,第二種方法就可以呢? 還有,當我把HTML內容加到browser之後,怎麽用程式滾動document到最下方,讓最近输出的文字顯示出來? 謝謝,請大家一定幫幫我。 |
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我在寫一個程式,代碼如下:OldHawk 你好: 試試看把 while 那一行改成以下這個樣子,看看可不可以呢?? < class="code"> while(CppWebBrowser1->ReadyState!=Shdocvw_tlb::READYSTATE_COMPLETE) -- Enjoy Researching & Developing --void __fastcall TfrmMain::FormCreate(TObject *Sender) { if(!CppWebBrowser->Document) { CppWebBrowser->Navigate(WideString("about:blank")); while(!CppWebBrowser->Document) Application->ProcessMessages(); } Variant Doc = CppWebBrowser->Document; Variant Tag_all = Doc.OlePropertyGet("body"); Tag_all.OleFunction("insertAdjacentHTML","beforeEnd","大家好 "); }執行的時候總是提示 isBound() @ .... 錯誤,但是如果把上面的代碼分在兩開就可以執行,如下:void __fastcall TfrmMain::FormCreate(TObject *Sender) { if(!CppWebBrowser->Document) { CppWebBrowser->Navigate(WideString("about:blank")); while(!CppWebBrowser->Document) Application->ProcessMessages(); } } void __fastcall TfrmMain::Button1Click(TObject *Sender) { Variant Doc = CppWebBrowser->Document; Variant Tag_all = Doc.OlePropertyGet("body"); Tag_all.OleFunction("insertAdjacentHTML","beforeEnd",MemoHtmlSource->Text.c_str()); }爲什麽第一種方法有錯誤,第二種方法就可以呢? 還有,當我把HTML內容加到browser之後,怎麽用程式滾動document到最下方,讓最近输出的文字顯示出來? 謝謝,請大家一定幫幫我。
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
在程式中用ShowMessage();
再用一個timer把ShowMessage()關掉,
就可以讓程式順利執行,
如:
< class="code">
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if(!CppWebBrowser->Document)
{
CppWebBrowser->Navigate(WideString("about:blank"));
while(!CppWebBrowser->Document)
Application->ProcessMessages();
}
Timer1->Enabled = true;
ShowMessage("Open");
Variant Doc = CppWebBrowser->Document;
Variant Tag_all = Doc.OlePropertyGet("body");
Tag_all.OleFunction("insertAdjacentHTML","beforeEnd","大家好"); }
//-----------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
SendMessage(GetActiveWindow(), WM_CLOSE, 0, 0);
Timer1->Enabled = false;
}
國泰平安 發表人 - Gemi0305 於 2003/09/05 10:28:26 發表人 - Gemi0305 於 2003/09/05 10:29:29
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |