http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26560 上面這篇的方法是將資料寫入到佔存檔內 想請問一下，如果我將上面的方法寫在下面的事件內 void __fastcall TfrmMain::CppWebBrowserProgressChange(TObject *Sender, long Progress, long ProgressMax) { if ( Progress > -1 && ProgressMax > 0 ) { Keep Run ....... } else { 存入暫存檔內 } } 原因是我想當下載結束時時立刻做後續的處理 請問我要該如何做，並且可以將資料存在一個 AnsiString 內 謝謝

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26560 上面這篇的方法是將資料寫入到佔存檔內 想請問一下，如果我將上面的方法寫在下面的事件內 void __fastcall TfrmMain::CppWebBrowserProgressChange(TObject *Sender, long Progress, long ProgressMax) { if ( Progress > -1 && ProgressMax > 0 ) { Keep Run ....... } else { 存入暫存檔內 } } 原因是我想當下載結束時時立刻做後續的處理 請問我要該如何做，並且可以將資料存在一個 AnsiString 內

david629 你好: 請參考以下的做法 < class="code"> CppWebBrowser1->Navigate(WideString("http://tw.yahoo.com/")); while(CppWebBrowser1->ReadyState!=Shdocvw_tlb::READYSTATE_COMPLETE) { Application->ProcessMessages(); } IStream *pIStream; HGLOBAL hGlobal; IPersistStreamInit *psi; const int Size=0x100000; if(CppWebBrowser1->Document==NULL) { ShowMessage("Error"); return; } hGlobal=GlobalAlloc(GPTR, Size); if(hGlobal==0) { ShowMessage("Error"); } OleCheck(CreateStreamOnHGlobal(hGlobal, true, &pIStream)); try { OleCheck(CppWebBrowser1->Document->QueryInterface( __uuidof(IPersistStreamInit), (void**)&psi)); try { OleCheck(psi->Save(pIStream, false)); TMemoryStream *ms=new TMemoryStream; ms->SetSize(Size); CopyMemory(ms->Memory, hGlobal, Size); TStringList *sl=new TStringList; sl->LoadFromStream(ms); //sl->SaveToFile("ms1.htm"); //此行只是要驗證取得的資料是否正確 //你可以在在裡對 sl->Strings[i] 做處理 delete sl; delete ms; } __finally { psi->Release(); } } __finally { delete pIStream; } GlobalFree(hGlobal); -- Enjoy Researching & Developing --

你好，我用了這個方式，但是"有時候"會出現 Access Violation ，爬了漫多文章的，卻不知道要怎麼改 @@"    我欲連續取得數個網頁的原始碼，但是每次發生 Access Violation 的地方都不一樣 @@"    以下是我程式中這個 Function 的內容，麻煩各位先進能否幫我看一下 <(_ _)> ：    String HTML; //取得原始碼 bool __fastcall TForm1::getString(){         while(CppWebBrowser1->ReadyState!=Shdocvw_tlb::READYSTATE_COMPLETE){                 Application->ProcessMessages();         }         IStream *pIStream;         HGLOBAL hGlobal;         IPersistStreamInit *psi;         const int Size=0x100000;         if(CppWebBrowser1->Document==NULL){                 ShowMessage("Error");                 return false;         }         hGlobal=GlobalAlloc(GPTR, Size);         if(hGlobal==0){                 ShowMessage("Error");         }         OleCheck(CreateStreamOnHGlobal(hGlobal, true, &pIStream));         try{                 OleCheck(CppWebBrowser1->Document->QueryInterface(__uuidof(IPersistStreamInit), (void**)&psi));                 try{                         OleCheck(psi->Save(pIStream, false));                         TMemoryStream *ms=new TMemoryStream;                         ms->SetSize(Size);                         CopyMemory(ms->Memory, hGlobal, Size);                         TStringList *sl=new TStringList;                         sl->LoadFromStream(ms);                         //sl->SaveToFile("ms1.htm"); //此行只是要驗證取得的資料是否正確                         //你可以在在裡對 sl->Strings[i] 做處理                         HTML = "";                         for(int i=1;iCount;i ) HTML = sl->Strings[i]; delete sl; delete ms; }__finally{ psi->Release(); } }__finally{ delete pIStream; } GlobalFree(hGlobal); memCode->Lines->Add(HTML); return true; }

你好： 若是我不要讀取KIMO的網頁格式， 而是要讀取自己所編輯的Web內容呢？ 要如何使用呢？ 照你的方法會使自己編輯的內容變成u開頭的編碼， 請問有其他比較好的方式嗎？ 謝謝您的幫忙！