久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

搜索
分享

delphi快速獲取網(wǎng)頁源碼方法

 昵稱25617555 2015-05-20

delphi快速獲取網(wǎng)頁源碼方法
1.用idhttp

const
  URL = 'http://www.baidu.com';
begin
  memo1.lines.text := idhttp1.get(URL);
end;

2.用webbrowser

//只獲取到<html>內(nèi)的源碼
const
  URL = 'http://www.';
begin
  webbrowser1.Navigate(URL);
  while WebBrowser1.Busy do
    Application.ProcessMessages;
  memo1.lines.Text := WebBrowser1.OleObject.document.documentElement; 
end;

//獲取全部源碼
uses ActiveX;
const
  URL = 'http://www.baidu.com';
var
  ms: TMemoryStream;
begin
  WebBrowser1.Navigate(URL);
  while WebBrowser1.Busy do
    Application.ProcessMessages;
  ms := TMemoryStream.Create;
  try
    (WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  finally
    FreeAndNil(ms);
  end;
end;

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,，所有內(nèi)容均由用戶發(fā)布,，不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式,、誘導(dǎo)購買等信息,，謹防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,，請點擊一鍵舉報,。
    轉(zhuǎn)藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多