流行模式

begin
Tabledoc.edit;
Tabledoc.fieldbyname('aaa').asstring:=ExeSendSms('13963506218','宏达软件','SMS_172888651','{"order_number":"12345","delivery_time":"2020年12月7日"}','');
end.
//服务器端短信发送
ServerExeSendSms('13963506218','宏达软件','SMS_172888651','{"order_number":"12345","delivery_time":"2020年12月7日"}','');

------------------------
无论客户端(或单机)还是服务器端,均需要配置阿里云提供的AccessKey,例如:
[SmsAccessKey]
AccessKeyId=LTAI4G8rWck3LE5
AccessKeySecre=RnovJ591MW3j


公司销售发货短信示例脚本代码:
--------------------
var
ResStr:string;
begin
if not Tabledoc.fieldbyname('短信发送时间').isnull then
begin
ShowMessage('短信不能重复发送!');
exit;
end;
if Trim(Tabledoc.fieldbyname('电话').asstring)='' then
begin
ShowMessage('联系人电话为空,无法发送短信!');
exit;
end;
if Trim(Tabledoc.fieldbyname('快递类型').asstring)='' then
begin
ShowMessage('快递类型空,无法发送短信!');
exit;
end;

if Trim(Tabledoc.fieldbyname('快递单号').asstring)='' then
begin
ShowMessage('快递单号空,无法发送短信!');
exit;
end;

ResStr:=ServerExeSendSms(Tabledoc.fieldbyname('电话').asstring,'宏达软件','SMS_198345665','{"posttype":"'+Tabledoc.fieldbyname('快递类型').asstring+'","postcode":"'+Tabledoc.fieldbyname('快递单号').asstring+'"}','');
if pos('"Code"="OK"',ResStr)>0 then
begin
Tabledoc.edit;
Tabledoc.fieldbyname('短信发送时间').Value:=now();
ShowMessage('短信已经成功发送:'+ResStr);
end
else
begin
ShowMessage('短信发送失败:'+ResStr);
end;
end.


/////////////////////
参数:
电话号码
签名:宏达软件
模板:
*******
模版类型:短信通知
模版名称:发货通知
模版CODE:SMS_198345665
模版内容:尊敬的宏达软件用户,已为您发货,发货方式为${posttype},邮件编号为${postcode}，请注意查收。
申请说明:发货通知短信
****************
参数:与模板内容参数一致.

----------------------
发短信一般用两个函数中的一个:
ExeSendSms:本机发送
ServerExeSendSms:服务器端发送
函数参数决定了发送短信:1.手机号,2.短信模板编号,3.短信内容中的参数值
ExeSendSms('13963506218','宏达软件','SMS_198345665','{"posttype":"顺丰","postcode":"123456"}','');
一般如上调用
上面的'宏达软件'叫短信签名,需要在阿里云预先申请
上面的SMS_198345665是短信模板编号,说明了短信发送的格式内容
对应的是这个:
尊敬的宏达软件用户,已为您发货,发货方式为${posttype},邮件编号为${postcode}，请注意查收。
收到的短信内容为:
[宏达软件]尊敬的宏达软件用户,已为您发货,发货方式为顺丰,邮件编号为123456，请注意查收。