欢迎来到路由器窝!

Delphi7读取网址内容

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2016-12-03 22:52

文章简介

uses WinInet;function GetWebPage(const Url: string):string;var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeB

  • 正文开始
  • 相关文章
uses WinInet;
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);
  FreeMem(Contents);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := GetWebPage('http://www.baidu.com/');
end;

转载请注明:Delphi7» Delphi7读取网址内容

标签:
  • Delphi7变量赋值控件
    122阅读
    edit2.text:=http://www.baidu.com ;
  • Delphi7打开网址实例
    161阅读
    uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject);begin//用默认浏览器打开ShellExecute(Handle, open, Explorer.exe, http://www.baidu.com, nil, SW_SHOWNORMAL);...
  • Delphi7设置EXE图标
    135阅读
    首先做好ICO图片48*48 然后在工程--选项-应用程序里面把图标直接上传即可
  • Delphi7字符串串联
    118阅读
    begin edit1.text:= dddd + 时间; edit1.text:= edit1.text+dddd + 时间;end;
  • Delphi7读取网址内容
    140阅读
    uses WinInet;function GetWebPage(const Url: string):string;var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DWord; dw...
上一页:Delphi7打开网址实例
下一页:Delphi7字符串串联
最近更新作品
Delphi7设置EXE图标
更新时间:2016-12-03

135人已经看过了!

Delphi7字符串串联
更新时间:2016-12-03

118人已经看过了!

Delphi7读取网址内容
更新时间:2016-12-03

140人已经看过了!

Delphi7打开网址实例
更新时间:2016-12-03

161人已经看过了!

Delphi7变量赋值控件
更新时间:2016-12-03

122人已经看过了!