jsonData := '{"name":"John", "age":30, "city":"New York"}'; 设置IDHTTP对象的请求方法为POST: TIdHTTP组件默认支持多种HTTP方法,但你需要明确指定使用POST方法。这通常在发送请求时通过参数指定,而不是直接设置组件的属性。 将JSON数据作为POST请求的正文发送: 使用TIdHTTP的Post方法发送数据。你需...
StringStream.WriteString(Json1.ToString); StringStream.SaveToFile(FileName); 2、通过实践,将Josnk 汉字转成UTF8格式,如:“中文汉字”,可以显示“中文汉字”。说明Post过程中,中文没有以UTF8格式传递。 (1)首先在JSON字符生成时,改成UTF8,也不行。 (2)HTTPEncode(Ansitoutf8(S)),Utf8Encode(s),HttpEncod...
http.Request.ContentType := 'application/json';//设置内容类型为json jsonToSend := TStringStream.Create('{"name":"Peter Pan"}');//创建一个包含JSON数据的变量 jsonToSend.Position := 0;//将流位置置为0 Memo1.Lines.Text := http.Post('http://www.website.com/test.php', jsonToSend);/...
http.Request.ContentType := 'application/json';//设置内容类型为json jsonToSend := TStringStream.Create('{"name":"Peter Pan"}');//创建一个包含JSON数据的变量 jsonToSend.Position := 0;//将流位置置为0 Memo1.Lines.Text := http.Post('http://www.website.com/test.php', jsonToSend);/...
Post请求在网页中多使用List形式提交参数。 不过在一些API中规定了POST的请求格式为 JSON 格式或 XML,这是需要注意发起请求前需要先设置 ContentType 属性,使用Stream方式提交 已上面代码为例: 提交JSON 格式:IdHttp.Request.ContentType :='application/json'; ...
post提交数据可以用一下形式 var pam: TStringList; pam.add('flash_id=86587902'); pam.add('score=75'); idhttp.post(url地址, pam, response); response是服务器返回的数据 这是post提交表单的，但是你要先确定 拟提交的是表单还是json ...
不过在一些API中规定了POST的请求格式为 JSON 格式或 XML，这是需要注意发起请求前需要先设置 ContentType 属性，使用Stream方式提交 已上面代码为例：提交 JSON 格式：IdHttp.Request.ContentType :='application/json';提交 XML 格式： IdHttp.Request.ContentType :='text/xml';如未按要求格式提交，...
// 设置 IdHTTP IdHTTP.Request.Accept := 'application/json'; IdHTTP.Request.ContentType := 'application/json'; // IdHTTP.Request.BasicAuthentication := False; IdHTTP.Request.CustomHeaders.Values['User-Agent'] := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Ge...
DelphiXE10 有ssl的idhttp对https的url地址post一个json串Demo idHttp带json然后post到某个url已经比较普遍,但是如果是https的post就会不太一样,常用的post会报错或不成功,这时需要用到IdSSLIOHandlerSocketOpenSSL控件,和两个关键dll(libeay32.dll,ssleay32.dll)放到exe同级目录或system32(64位exe放systemWOW64)。
实现附件的上传:需要使用TIdMultiPartFormDataStream控件, uses IdMultipartFormData; 例子: procedure TClientForm.Button42Click(Sender: TObject); var paramStream: TIdMultiPartFormDataStream; vResponse: TStringStream; filename, vres: string; vList: TStringList; jsonstr: string; begin paramStream := T...