調(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)閱讀: