随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 143120
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

工程中加:
  Memo1: TMemo;
    Button1: TButton;两个
在uses中加入wininet,windows;

implementation

{$R *.dfm}

function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
form1.Memo1.Lines.Add(Contents);
FreeMem(Contents);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   GetWebPage(pchar('http://www.baidu.com'));

end;

posted on 2009-02-09 03:36 小叶子 阅读(1366) 评论(2)  编辑 收藏 引用 所属分类: windows API函数

FeedBack:
# re: API获取网页源文件 2010-08-22 22:55 neugls
不知道你自己试过没有,我在线程里调用该函数取不到网页内容!不知道是为什么!  回复  更多评论
  
# re: API获取网页源文件 2010-08-23 01:21 neugls
像这样写只能读取一部分!  回复  更多评论
  
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅