调用动力思维乐信提供的接口,通过post方式进行提交,用asp开发语言实现发送短信功能,以下为asp调用乐信短信接口代码:
procedure btnSendSmsClick(Sender: TObject);
var
ParamLst: TStrings;
ReMsg: WideString;
begin
btnSendSms.Enabled := False;
Screen.Cursor := crHourGlass;
ParamLst := TStringList.Create;
try
if Trim(edtTel.Text) = EmptyStr then Exit;
if Trim(mmoSmsCon.Text) = EmptyStr then Exit;
begin
ParamLst.Add('accName=' + Trim(edtUserName.Text));
ParamLst.Add('accPwd=' + md5(edtPassword.Text));
ParamLst.Add('content=' + Trim(mmoSmsCon.Text));
ParamLst.Add('aimcodes=' + Trim(edtTel.Text));
ParamLst.Add('dataType' + 'string');
ReMsg := UTF8Decode(IdHTTP.Post('https://www.lx598.com/sdk/send', ParamLst));
mmoDisplay.Lines.Add('错误代码:' + ReMsg);
IdHTTP.Disconnect;
IdHTTP.Request.Clear;
edtTel.Clear;
mmoSmsCon.Clear;
end
finally
btnSendSms.Enabled := True;
Screen.Cursor := crDefault;
ParamLst.Free;
end;
end;
相关阅读: