function GetPJData(APage: Integer): string;
var
IdHTTP: TIdHTTP;
url: string;
paramsList: TStringList;
StrStream: TStringStream;
const
C_URL = 'https://www.tcpjw.com/OrderList/TradingCenter';//?pageIdx=%d';
begin
IdHTTP := TIdHTTP.Create(nil);
try
IdHTTP.Request.Accept := '*/*';
// IdHTTP.Request.AcceptEncoding := 'gzip, deflate, br';
IdHTTP.Request.AcceptLanguage := 'zh-CN,zh;q=0.9';
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.77 Safari/537.36';
IdHTTP.Request.Referer := 'https://www.tcpjw.com/OrderList/TradingCenter';
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; url := C_URL;// Format(C_URL, [APage]);
OutputDebugString(pchar(url));
paramsList := TStringList.Create;
try
paramsList.Add('pt_keywords=');
paramsList.Add('pt_pricestart=');
paramsList.Add('pt_priceend=');
paramsList.Add('sy_starttime=');
paramsList.Add('sy_endtime=');
paramsList.Add('pt_laststarttime=');
paramsList.Add('pt_lastendtime=');
paramsList.Add('pt_rate=');
paramsList.Add('pt_mswsxf=');
paramsList.Add('pt_mswstart=');
paramsList.Add('pt_mswend=');
paramsList.Add('pt_tradestatus=');
paramsList.Add('pt_bid=');
paramsList.Add('pt_lasttime=');
paramsList.Add('pt_flawstatus=');
paramsList.Add('pt_price=');
paramsList.Add('orderstatus=1');
paramsList.Add('pageIdx_client='+APage.ToString);
paramsList.Add('ordercolumn=');
paramsList.Add('ordertype=');
paramsList.Add('ttype=');
paramsList.Add('X-Requested-With=XMLHttpRequest'); StrStream := TStringStream.Create('', TEncoding.UTF8);
try
try
IdHTTP.Post(url, paramsList, StrStream); if IdHTTP.ResponseCode = then
Result := StrStream.DataString
else
Result := '';
except
on e: Exception do
SendLog(TDataCollector.MainHandle, 'GetPJData: ' + e.Message, True);
end;
finally
StrStream.Free;
end;
finally
paramsList.Free;
end;
finally
IdHTTP.Free;
end;
end;

GetPJData - uGetHttpData.pas的更多相关文章

  1. update20181214 - uGetHttpData.pas

    function DecodePJItem(sText: string): TList<TDataItem>; var reg: TRegEx; mc: TMatchCollection; ...

  2. Delphi项目构成之单元文件PAS

    单元文件是Pascal源文件,扩展名为.pas. 有三种类型的单元文件: 窗体/数据模块和框架的单元文件(form/data module and frame units),一般由Delphi自动生成 ...

  3. Delphi 包的设计思想及它与PAS、BPL、DCU、DLL、OXC的关系。

    DCP ,BPL分别是什么文件,起什么作用?你在DELPHI中建立一个package然后保存一下,看看. bpl和Dll比较相似.只是BPL是BORLAND自己弄出来的东西!!!调用也和调用DLL相似 ...

  4. 5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas 改进版

    用到临界区 保护写日志的函数: 递归函数 删除目录下的所有文件: 循环创建或判断FTP的目录: 可改进的地方:循环压缩深层次目录的所以文件: 实现断点续传,或断点下载: {************** ...

  5. F2063 Could not compile used unit 'tt.pas'

    install packge error F2063 Could not compile used unit 'tt.pas' 有可能是工程的pas文件相对路径不对.在工程管理看是否能打开文件,如果打 ...

  6. Android问题-XE5提示"[DCC Fatal Error] Project1.dpr(1): F1027 Unit not found: 'System.pas' or binary equivalents (.dcu/.o)"

    问题现象:Checking project dependencies...Compiling Project1.dproj (Debug, Android)dcc command line for & ...

  7. Messages.pas里的消息

    一.Windows 消息大全 这张表拷贝自万一兄的帖子:http://www.cnblogs.com/del/archive/2008/02/25/1079970.html 但是我希望自己能把这些消息 ...

  8. 问题-RZ安装后报错“RzBorder.pas”

    错误象现:[Error] RzBorder.pas(1429): Number of elements differs from declaration [Fatal Error] RzEdit.pa ...

  9. 问题-[致命错误] Project1.dpr(1): Unit not found: 'System.pas' or binary equivalents (DCU,DPU)

    问题现象:[致命错误] Project1.dpr(1): Unit not found: 'System.pas' or binary equivalents (DCU,DPU) 问题原因:由于删除D ...

随机推荐

  1. 关于Grid Layout

    .wrapper {     display: grid;/*产生一个块级的网格*/     grid-template-columns: repeat(3, 1fr);/*利用空格分隔的值定义网格的 ...

  2. 石头的Xcode学习列表

    http://www.cnblogs.com/JangoJing/tag/xcode/

  3. SDN 软件定义网络----学习1

    原文地址https://www.infoq.cn/article/sdn-and-cloud-network 1.1,什么是 SDN? 什么是 SDN?SDN 的官方解释上提出了 SDN 的三个特性: ...

  4. 关于Hibernate级联更新插入信息时提示主键不为空的问题“org.hibernate.StaleStateException: Batch update returned unexpected row count from update: 0 actual row count: 0 expected: 1 ”

    org.hibernate.StaleStateException: Batch update returned unexpected row count from update: 0 actual ...

  5. DNS学习笔记

    一.域名的层级结构 主机名.次级域名.顶级域名.根域名 # 即 host.sld.tld.root 比如,域名math.stackexchange.com显示为math.stackexchange.c ...

  6. Android连接服务器端的Socket

    package com.example.esp8266; import java.io.IOException;import java.io.InputStream;import java.io.Ou ...

  7. 如何在Linux上设置SSH密码以进行无密码登录(转)

    ssh(secure shell)广泛用于远程登录Linux服务器.当我们使用ssh登录到远程系统时,它会提示输入密码,然后只允许我们登录到服务器.有时我们需要配置应用程序或脚本(主要是shell脚本 ...

  8. DG_Check检测

    DG_Check检测 1) all 查询备库角色(确认主备关系)set linesize 140 col dbid for 9999999999 col name for a10 col databa ...

  9. mysql 唯一索引与null.md

    mysql 的唯一索引要求所有参与的列都不能够为 null 值,如果唯一索引中的任何一个元素含有 null 值,则唯一约束将不起作用. 示例代码 create table tb ( a int, b ...

  10. excel 格式化姓名

                在做excel时,难免会遇到输入姓名对齐这种情况,如果数据少时我们可以手动敲空格来进行对齐,但数据量大时,手动调整就不是好办法了.     此时我们可以通过excel自带公式对 ...