价格不是我们的优势,品质永远是我们的追求!
当前位置:首页行业快讯 > delphi7调用短信接口实现短信发送功能
delphi7调用短信接口实现短信发送功能
来源:动力思维乐信  时间:2018-11-13 10:27

    调用动力思维乐信提供的接口,通过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('//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;

   相关阅读:

    php短信接口代码示例

    java短信接口代码示例

    C#短信接口代码示例

    asp短信接口代码示例