将网页读入字符串中的函数 -pc6资讯

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

将网页读入字符串中的函数 时间：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;

相关视频

文章评论

查看所有0条评论>>

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