調(diào)用動力思維樂信提供的接口,通過post方式進(jìn)行提交,用asp開發(fā)語言實現(xiàn)發(fā)送短信功能,以下為asp調(diào)用樂信短信接口代碼:
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('http://www.iium.cn/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;
相關(guān)閱讀: