線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:960
推到 Plurk!
推到 Facebook!

網頁的分析

缺席
chjunsen
一般會員


發表:38
回覆:15
積分:10
註冊:2006-10-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-09-11 23:08:45 IP:111.252.xxx.xxx 訂閱
各位大大以下delphi版程式碼
主要的功能是要將網頁原始碼撈出
我是c 新手
下面是我找到的資料.但弄了好久還是不行
大大可否指教
DELPHI
//-------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
var
hd: IHtmlDocument2;
i:Integer;
iall : IHTMLElement;
begin
wb1.Navigate('http://www.wretch.cc/album/e2222503');
hd := Wb1.Document as IHtmlDocument2;
mmo1.Lines.Text := hd.body;

end;

C
//-------------------------------------------------------

IHTMLDocument2 *document;
IHTMLElement *body;
BSTR title,source,content;
WebBrowser1->Navigate("http://tw.yahoo.com/");
(void *)document=WebBrowser1->Document;
document->get_title(&title);
document->get_body(&body);
body->get_outerHTML(&source);
body->get_outerText(&content);
Edit1->Text=title;
Edit2->Text="http://tw.yahoo.com/";//*URL;
Memo1->Text=source;
Memo2->Text=content;
系統時間:2017-12-15 18:12:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!