要如何擷取IE頁面的文字??(非原始碼) >< |
|
答題得分者是：Clarinet
|
|
ddddd688
一般會員   發表：8 回覆：8 積分：3 註冊：2007-01-30 發送簡訊給我 |
function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var hInst: HWND; lRes: Cardinal; MSG: Integer; pDoc: IHTMLDocument2; ObjectFromLresult: TObjectFromLresult; begin hInst := LoadLibrary('Oleacc.dll'); @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult'); if @ObjectFromLresult <> nil then begin try MSG := RegisterWindowMessage('WM_HTML_GETOBJECT'); SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes); Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc); if Result = S_OK then (pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE); finally FreeLibrary(hInst); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var Wnd: HWND; IE: IWebBrowser2; WndChild: HWND; URL: Olevariant; begin Wnd := FindWindow('IEFrame', nil); if Wnd = 0 then begin MessageDlg ('No Running instance of Internet Explorer!',mtError, [mbOK], 0); end; WndChild := FindWindowEX(Wnd, 0, 'Shell DocObject View', nil); if WndChild <> 0 then begin WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil); if WndChild <> 0 then begin GetIEFromHWnd(WndChild, IE); //Get Iwebbrowser2 from Handle end; end; end; end. 寫到這了，接下來要如何取得IE的文字?(非原始碼) 例如 擷取 www.google.com 會擷取到 登入 台灣 所有網頁 圖片 新聞 網上論壇 更多 ? 進階搜尋 使用偏好 語言選項 搜尋： 所有網站 所有中文網頁 繁體中文網頁 台灣的網頁 編輯記錄
dllee 重新編輯於 2007-04-21 19:10:17， 註解 修改文章分類由 無 -> 問題, 提問時, 請記得選擇 [問題] 分類, 才能把分數給辛苦答題的會員, 謝謝您的配合‧‧
|
|
Clarinet
高階會員  發表：9 回覆：97 積分：126 註冊：2002-05-08 發送簡訊給我 |
|
|
ddddd688
一般會員 發表：8 回覆：8 積分：3 註冊：2007-01-30 發送簡訊給我 |
發表時間：2007-04-13 22:39:46
IP:220.139.xxx.xxx 訂閱
系統時間：2024-05-04 22:58:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |