Delphi10.3模拟读取百度网页，并读取相关头部信息

本文整理自网络，侵删。

 
一、读取网页的如下：

复制代码
uses
  TxHttp,
  Classes,
  TxCommon,
  Frm_WebTool,
  SysUtils;

var
  m_Url: string;
  m_Http: TTxHttp;
  m_PostData: string;
  m_WebSource: string;
  m_Stream: TStringStream;

begin
  m_Http := TTxHttp.Create;
  // 网址
  m_Url := Trim(Form_WebTool.LabeledEdit1.Text);
  if Trim(m_Url) = '' then
  begin
    Exit;
  end;

  // 设置Header
  with m_Http do
  begin
    Accept := 'text/html, application/xhtml+xml, */*';
    //AcceptEncoding := 'gzip, deflate';// 是否以GZIP方式访问网站
    AcceptEncoding := '';
    AcceptLanguage := 'zh-CN';
    ContentType := 'application/x-www-form-urlencoded';
    UserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko';
  end;

  // 设置Cookies
  m_Http.SetCookies(Trim(Form_WebTool.Memo4.Text), m_Url);

  // 设置编码
  if Form_WebTool.ComboBox2.Text = 'GB2312' then
  begin
    m_Http.Encoding := TxGB2312;
  end
  else
  begin
    m_Http.Encoding := TxUTF8;
  end;

  // Get还是POST
  if Form_WebTool.ComboBox1.Text = 'POST' then
  begin
    m_WebSource := m_Http.GetEx(m_Url);
  end
  else
  begin
    m_PostData := Trim(Form_WebTool.Memo3.Text);
    // 网页访问函数
    m_WebSource := m_Http.PosEx(m_Url, m_PostData);
  end;
// 输出网页源码
  Form_WebTool.Memo1.Text := m_WebSource;
  // 取COOKIES
  Form_WebTool.Memo4.Text := m_Http.Cookies;
  // 取Header
  Form_WebTool.Memo5.Text := m_Http.GetHttpHead;
  m_Http.Free;

end.
复制代码
二、设计的界面如下：

三、 左上的编辑框是我们读取的百度访问的头

复制代码
Version: HTTP_1_1
StatusCode: 200
StatusText: OK
Cache-Control: max-age=86400
Connection: Keep-Alive
Date: Wed, 13 Mar 2019 14:05:21 GMT
Content-Length: 15852
Content-Type: text/html
Expires: Thu, 14 Mar 2019 14:05:21 GMT
Last-Modified: Thu, 22 Nov 2018 06:01:50 GMT
Accept-Ranges: bytes
ETag: "3dec-57b3a9a43af80"
Server: Apache
Vary: Accept-Encoding,User-Agent
---发送的header信息---
Accept: text/html, application/xhtml+xml, */*
AcceptCharSet: 
AcceptEncoding: 
AcceptLanguage: zh-CN
ContentType: application/x-www-form-urlencoded
UserAgent: Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko
复制代码
四、中间部分是我们读取的COOKIES

BDSVRTM=0;BAIDUID=374DA209DACE0A2722EAFAFA67AEB84F:FG=1;
五、最下面就是我们读取的百度的页面内容了。

总结：Delphi10.3读取百度页面是非常简单方便的。

来源：https://www.cnblogs.com/tianpan2019/p/10527048.html
 

相关阅读 >>

unigui js操作Delphi控件赋值

用tidftp控件实现ftp协议

Delphi tthread中文注释

Delphi 映像劫持编辑器

Delphi http协议验证访问datasnap rest 服务器

Delphi获取android上的imei

Delphi paramstr的用法

Delphi获取文件创建时间、文件最后修改时间

Delphi idftp连不上ftp服务器的解决方法

Delphi winapi: setvolumelabel - 设置磁盘卷标

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi10.3模拟读取百度网页，并读取相关头部信息