Delphi调用Http接口方法

最新推荐文章于 2026-01-06 11:52:25 发布

原创最新推荐文章于 2026-01-06 11:52:25 发布 · 1.5w 阅读

7 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi 专栏收录该内容

43 篇文章

订阅专栏

本文介绍了使用HTTP POST方法向指定URL发送包含登录名、密码、短信类型、发送号码、期望ID和消息上下文参数的请求，实现短信服务的发送过程。

    uses  IdHTTP; 
    
    SS := TStringStream.Create('', TEncoding.UTF8);
    HttpClient := TIdHttp.Create();
    ParamList := TStringList.Create;
    try
      ParamList.Add('LoginName=xx');
      ParamList.Add('Password=xx');
      ParamList.Add('SmsKind=808');
      ParamList.Add('SendSim=' + edtSendSim.Text);
      ParamList.Add('ExpSmsId=888');
      ParamList.Add('MsgContext=' + memoMsgContext.Text);
      HttpClient.Post('http://xxxxxxxxxx/SmsService.asmx/SendEx', ParamList, SS);
      MemoResult.Text := SS.DataString;
    finally
      SS.Free;
      HttpClient.Free;
      ParamList.Free;
    end;

注：（1）若要进行url中文编解码改为 ParamList.Add('MsgContext=' + HTTPEncode(UTF8Encode(memoMsgContext.Text)));

（2）如出现中文乱码可使用TStringStream