infno_s:='9101';
s_temp:=now19(D_O_OR_S);
msgid_s:=MAXID();
filename := 'new.zip';
paramStream:=TIdMultiPartFormDataStream.Create;
paramStream.AddFormField('filename', 'new.txt','UTF-8');//.ContentTransfer:=sContentTransferBinary;
paramStream.AddFormField('fixmedins_code', fixmedins_code_s,'UTF-8');//.ContentTransfer:=sContentTransferBinary;
// paramStream.AddFormField('in', '','UTF-8');//.ContentTransfer:=sContentTransferBinary;
paramStream.AddFile('in', filename,GetMIMETypeFromFile(filename)).ContentTransfer:=sContentTransferBinary; //GetMIMETypeFromFile(filename));
paramStream1:=TIdMultiPartFormDataStream.Create;
paramStream1.AddFormField('sign_no',sign_no_s,'UTF-8');
paramStream1.AddFormField('infno',infno_s,'UTF-8');
paramStream1.AddFormField('msgid',msgid_s,'UTF-8');
paramStream1.AddFormField('mdtrtarea_admvs',mdtrtarea_admvs_s,'UTF-8');
paramStream1.AddFormField('insuplc_admdvs',insuplc_admdvs_s,'UTF-8');
paramStream1.AddFormField('recer_sys_code',recer_sys_code_s,'UTF-8');
paramStream1.AddFormField('infver',infver_s,'UTF-8');
paramStream1.AddFormField('opter_type',opter_type_s,'UTF-8');
paramStream1.AddFormField('opter',opter_s,'UTF-8');
paramStream1.AddFormField('opter_name',opter_name_s,'UTF-8');
paramStream1.AddFormField('inf_time',s_temp,'UTF-8');
paramStream1.AddFormField('fixmedins_code',fixmedins_code_S,'UTF-8');
paramStream1.AddFormField('fixmedins_name',fixmedins_name_S,'UTF-8');
paramStream2:=TIdMultiPartFormDataStream.Create;
paramStream2.AddFormField('fsuploadin','application/json','UTF-8',paramStream).ContentTransfer:=sContentTransferBinary;
paramStream1.AddFormField('input','application/json','UTF-8',paramStream2).ContentTransfer:=sContentTransferBinary;
// memo1.Lines.Clear;
// memo1.Lines.Add(paramStream1.ToString);
// showmessage(JSONObject.ToString);
vResponse := TStringStream.Create('',65001);
// try
// paramStream2.Position := 0;
DM_TFYB.IdHTTP1.Post(url_s, paramStream1, vResponse);
查看一下接口的参数要求,应该是与接口要求不一致。