idhttp模拟浏览器的文件头header

{
关键字=idhttp模拟浏览器的文件头header
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 13:55:44
数字签名=CEA3FA4D4C6E20C38C0E70C58A167060
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,
IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

procedure TForm1.Button3Click(Sender: TObject);
var
shtml: string;
begin
{idhttp模拟浏览器的文件头header}
IdHTTP1.Request.Connection := ‘Keep-Alive’;
IdHTTP1.Request.UserAgent :=
‘Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)’;
IdHTTP1.Request.ContentType := ‘application/x-www-form-urlencoded’;
IdHTTP1.Request.Referer := ‘http://www.xxx.com’;
IdHTTP1.Request.Accept :=
‘image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, /’;
IdHTTP1.Request.AcceptLanguage := ‘zh-cn’;
IdHTTP1.Request.AcceptEncoding := ‘gzip, deflate’;
IdHTTP1.Request.CacheControl := ‘no-cache’;
IdHTTP1.ReadTimeout := 60000;
IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions + [hoKeepOrigProtocol]; // 关键这行
IdHTTP1.ProtocolVersion := pv1_1;
shtml := IdHTTP1.Get(‘https://www.lalameiju.com/play/1939-0-2.html’);
Memo1.Lines.Text := shtml;
end;