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