delphi7 post 如何多参数传递

[yinsoft1978]

{info:{"access_token":"430501ee7a824ec79415b79e0653ca54"}basicInfo:{"vehicleplatenumber":"e001a","companyname":"eeee","vin":"2321","repairdate":"20181020","repairmileage":"20000","settledate":"20181023","faultdescription":"3333","costlistcode":"e20410"}}


比如这个字符，怎么用?
Param.Add('info="access_token":"430501ee7a824ec79415b79e0653ca54"');
Param.Add('basicInfo="vehicleplatenumber":"e001a","companyname":"eeee","vin":"2321","repairdate":"20181020","repairmileage":"20000","settledate":"20181023","faultdescription":"3333","costlistcode":"e20410"');
这样吗？高手能解答吗

[yinsoft1978]

send是什么类型的数据？怎么定义？

[qtc26]

sendrecord=record
ord:integer;
num:string;
url:string;
host:string;
refer:string;
useragent:string;
accept:string;
myheader:string;
cookie:string;
postdata:string;
acceptencoding:string;
contenttype:string;
ProxyServer:string;
ProxyPort:integer;
image:tmemorystream;
yzm:string;
tag:string;
end;
var
send:sendrecord;
你这里没必要用记录，直接url和postdata两个参数就可以了。

[p47655255]

按json格式提交不行吗？

[qtc26]

send.postdata:='{info:{"access_token":"430501ee7a824ec79415b79e0653ca54"}basicInfo:{"vehicleplatenumber":"e001a","companyname":"eeee","vin":"2321","repairdate":"20181020","repairmileage":"20000","settledate":"20181023","faultdescription":"3333","costlistcode":"e20410"}}';
postd:=tstringstream.Create('');
try
postd.WriteString(send.postdata);
http.Request.ContentLength:=postd.Size;
http.post(send.url,postd,response);
finally
postd.Free;
end;