全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1683
推到 Plurk!
推到 Facebook!

請問如何找出google搜尋的結果

答題得分者是:TWY
ralph
初階會員


發表:41
回覆:82
積分:29
註冊:2003-02-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-01-28 07:02:06 IP:65.64.xxx.xxx 未訂閱

各位大大你們好,

我有一個程式要打進去搜尋的關鍵字到google, 將google搜尋的結果, 找出前面3或4個的link(URL).

譬如
在我的程式上, 我打入"htc", google 會顯示一堆搜尋結果, 我的程式要找出前面3個或4個的url.

不知各位是否有範例或vcl?

謝謝.


老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-01-28 11:50:02 IP:59.120.xxx.xxx 未訂閱
請使用WebBrowser~

===================引 用 ralph 文 章===================

各位大大你們好,

我有一個程式要打進去搜尋的關鍵字到google, 將google搜尋的結果, 找出前面3或4個的link(URL).

譬如
在我的程式上, 我打入"htc", google 會顯示一堆搜尋結果, 我的程式要找出前面3個或4個的url.

不知各位是否有範例或vcl?

謝謝.


mephise
高階會員


發表:4
回覆:149
積分:205
註冊:2004-02-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-01-28 15:55:30 IP:60.250.xxx.xxx 訂閱
你可以使用Indy 的 idHTTP 或是 IP*Works 的 ipwHTTP 送出你想查詢的東西
然後解析傳回的結果

使用方式有點類似這樣 Memo1.Text := IdHTTP1.Get(URL);
當然也有 Post, Put 這些方式
如果你是 XE 的 Enterprise 版, 支援全功能的 DataSnap 的話
在你的 Win32 程式上顯示 Google Map 也不是難事

------
Mephise Chen
前興德工程師
ralph
初階會員


發表:41
回覆:82
積分:29
註冊:2003-02-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-01-29 04:58:00 IP:65.64.xxx.xxx 未訂閱
想請問mephise大大,

用Get是會回傳所有page的html, 還是第一頁的html?

因為現在web page會畫分幾個區, 每個區再用不同的html.
就像google, 如果我們選擇儲存他的搜尋後的畫面, 是不會得到我們想要的結果.



===================引 用 mephise 文 章===================

使用方式有點類似這樣 Memo1.Text := IdHTTP1.Get(URL);

ralph
初階會員


發表:41
回覆:82
積分:29
註冊:2003-02-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-01-29 05:10:10 IP:65.64.xxx.xxx 未訂閱

請問大大,

用哪一種SDK可以做出?
是否可以做到像Application 一樣自動化?

謝謝.

===================引 用 老大仔 文 章===================
請使用WebBrowser~


TWY
高階會員


發表:0
回覆:132
積分:151
註冊:2009-09-02

發送簡訊給我
#6 引用回覆 回覆 發表時間:2011-02-01 08:53:51 IP:59.120.xxx.xxx 訂閱
你可以使用 TWebBrowser,或是程式控制外部 IE,對取回的 response HTML 做 DOM 相關解析(取出你要的前幾筆資料),應可以達到你的需求,可全自動化。
以下兩個 URL 你仔細研究一下,完全理解後應該不難實作出你想要的功能
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=95037 如何使用 Delphi 控制 TWebBrower
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=95258 懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo)
(特別感謝 「careychen」之前的分享)
ralph
初階會員


發表:41
回覆:82
積分:29
註冊:2003-02-04

發送簡訊給我
#7 引用回覆 回覆 發表時間:2011-02-07 14:46:23 IP:65.64.xxx.xxx 未訂閱

感謝TWY. 我將先結束此問題. 如果再有問題, 將會向各位詢問. 謝謝各位指點.


系統時間:2017-12-13 11:25:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!