您的位置:首页网络冲浪防范措施 → 将网页读入字符串中的函数

将网页读入字符串中的函数

时间:2009/9/13 0:05:00来源:本站整理作者:我要评论(0)

function UrlGetStr(const URL: string; ShowHeaders: boolean = false): string;
const
   Agent = 'Internet Explorer 6.0';
var
   hFile, HInet: HINTERNET;
   Buffer: array[0..32767] of Char;
   BufRead: Cardinal;
   BufSize: Cardinal;
   TempStream: TStringStream;
   dwIndex: dword;
begin
   HInet := InternetOpen(PChar(Agent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   if Assigned(HInet) then
   try
     if LowerCase(Copy(URL,1,7)) <> 'http://' then
     hFile := InternetOpenUrl(HInet, PChar('http://' + URL), nil, 0, 0, 0)
     else
     hFile := InternetOpenUrl(HInet, PChar(URL), nil, 0, 0, 0);
     TempStream := TStringStream.Create('');
     dwIndex := 0;
     BufSize := SizeOf(Buffer);
     HttpQueryInfo(hfile, HTTP_QUERY_RAW_HEADERS_CRLF, @Buffer, BufSize, dwIndex);
     if ShowHeaders then TempStream.Write(Buffer, BufSize);
     if Assigned(hFile) then
     try
       with TempStream do
       try
         while InternetReadFile(hFile, @Buffer, BufSize, BufRead) and (BufRead > 0) do
           Write(Buffer, BufRead);
         Result := DataString;
       finally
         Free;
       end;
     finally
       InternetCloseHandle(hFile);
     end;
   finally
     InternetCloseHandle(hinet);
   end;
end;
 

相关阅读 我的世界手机版js函数表大全Excel如何绘制函数图像sqlsever函数集合 数学函数,系统函数利用Authorware函数制作钟表xhEditor编辑器的API函数接口列表PlaySound函数在VC++6.0中如何播放音乐及声音?用Excel函数实现分栏打印Windows平台内核级文件访问

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 防止DdoS攻击:通过路解析卡巴斯基特色之漏 网站被sql注入的修复方法Ubuntu破解Windows和防护的三种方法防黑客qq改密码技巧如何保证Foxmail泄露邮箱密码安全

人气排行 路由器被劫持怎么办?路由器DNS被黑客篡改怎防止DdoS攻击:通过路由器绕过DDoS防御攻击如何彻底清除电脑病毒?如何使用无忧隐藏无线路由防蹭网办法车模兽兽激情视频下载暗藏木马使用四款防黑客软件的体会怎么防止木马入侵