delphi调用Http接口方法

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;

推荐分享