调用动力思维乐信提供的接口,通过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;
相关阅读: