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防御攻击如何彻底清除电脑病毒？如何使用无忧隐藏无线路由防蹭网办法车模兽兽激情视频下载暗藏木马使用四款防黑客软件的体会怎么防止木马入侵
查看所有0条评论>>