您的位置:首页 > 理论基础 > 计算机网络

Delphi调用Http接口方法

2014-12-26 09:50 295 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: