阿里短信DLL版,自写供Delphi7调用阿里云短信模块
配置文件写入
AccessKeyId=xxx
AccessKeySecret=xx
调用方法
procedure TForm2.Button1Click(Sender: TObject);
var
AHttpResponse:String;
begin
if ALI_SendMSG(edtPhone.Text ,edtParam.Text,edtTemplateCode.Text,edtSign.Text, AHttpResponse) then
Caption := 'ok' else Caption := 'Failed';
mmo_1.Lines.Clear ;
mmo_1.Lines.Add(AHttpResponse) ;
end;
评论0
最新资源