idHTTP.Post

Posted 2022-01-27 railgunman

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了idHTTP.Post相关的知识，希望对你有一定的参考价值。

procedure TForm4.Button2Click(Sender: TObject);
var
 sResponse: string;
 EnvStr : TStringStream;
begin
 EnvStr := TStringStream.Create(Memo.Text, TEncoding.UTF8);
 try
  idHTTP.Request.ContentType := ‘application/json‘;
  try
   sResponse := idHTTP.Post(EditURL.Text, EnvStr);
  except
    on E: Exception do
      ShowMessage(‘Error on request: ‘#13#10 + e.Message);
  end;
finally
  EnvStr.Free;
  MemoRet.Text := sResponse;
end;

以上是关于idHTTP.Post的主要内容，如果未能解决你的问题，请参考以下文章