各位大大以下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;