DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: a12315
今日帖子: 51
在线用户: 11
导航: 论坛 -> 文档资料 斑竹:liumazi,ruralboy  
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 16:01:20
标题:
XE7+QuickBurro实现的Android短信猫 浏览:3176
加入我的收藏
楼主: 一、引言
    实际项目开发过程中,经常需要在软件里自动发送些手机短信,实现诸如业务催办、催缴费用、订单通知、异常报警等功能,短信的总量可能不多,但功能却是很需要的。
    专门买短信平台?既不经济也有些系统集成上的麻烦。所以,顺理成章地就有来让"破"手机来承担短信猫功能的“Android短信猫”解决方案。


二、实现原理
    在应用服务器上准备短信收发的系统数据表,然后,需要发送的客户端,将短信信息、接收方信息等写入此数据表,而充当短信猫功能的"破"手机,则负责从这个数据表读记录、完成消息的发送。
    采用QuickBurro实现这个小平台非常合适,因为它一方面支持c/s三层桌面、web前端,另一方面也支持移动开发,所以,以它来进行消息中转,很合适,以后的系统集成也非常省事。 所以,方案的关键,就是用Delphi XE7+QuickBurro组件,实现“Android短信猫”软件。


三、软件概貌
    说干就干,一天时间,就搞定了,来看一下界面:
此帖子包含附件:
JPEG 图像
大小:97.9K
----------------------------------------------
樵夫的大马甲
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 16:03:01
1楼: 四、来看一下发送短信的测试程序

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DbAccessor, UserConnection,
  Vcl.StdCtrls, Vcl.ExtCtrls, Entity_SmsMessage;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Memo2: TMemo;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    UserConn: TUserConnection;
    dba: TDBAccessor;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//
// 程序启动时,自动连上应用服务器...
procedure TForm1.FormCreate(Sender: TObject);
begin
   if userconn.Connect then
      begin
         memo1.Lines.Add('连接应用服务器成功!');
         if userconn.Login then
          memo1.Lines.Add('登录应用服务器成功,请继续测试!')
         else
          memo1.Lines.Add('登录应用服务器失败,无法继续测试!');
      end
   else
      memo1.Lines.Add('连接应用服务器失败,无法继续测试!');
end;

//
// 提交短信到服务器,让短信驴去做事!
procedure TForm1.Button1Click(Sender: TObject);
var
   tmpstr: ansistring;
   SmsMsg: TSmsMessage;
begin
   if not dba.GenerateId('smsmessage','MessageId','Substring(MessageId,1,4)='''+formatdatetime('yymm',now)+'''','YYMMXXXX','',tmpstr) then
      begin
         memo1.Lines.add('分配短信号失败,无法继续测试!');
         exit;
      end;
   SmsMsg:=TSmsMessage.Create;
   SmsMsg.f_MessageId:=tmpstr;
   SmsMsg.f_BusinessId:='';
   SmsMsg.f_ReceiverName:=trim(edit1.Text);
   SmsMsg.f_Mobile:=trim(edit2.Text);
   SmsMsg.f_SendMode:=1;
   SmsMsg.f_BeginDateTime:=formatdatetime('yyyymmddhhnnss',now);
   SmsMsg.f_Complete:='';
   SmsMsg.f_CompleteDateTime:='';
   SmsMsg.f_LastDate:='';
   SmsMsg.f_NextDate:='';
   SmsMsg.f_SmsBody:=trim(memo2.Lines.Text);
   SmsMsg.f_SentTimes:=0;
   if SmsMsg.InsertToDB(dba) then
      memo1.Lines.Add('提交短信成功!')
   else
      memo1.Lines.Add('提交短信失败!');
   FreeAndNil(SmsMsg);
end;

//
// 退出程序...
procedure TForm1.Button2Click(Sender: TObject);
begin
   UserConn.Logout;
   close;
end;

end.
此帖子包含附件:
JPEG 图像
大小:71.1K
----------------------------------------------
樵夫的大马甲
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 16:04:19
2楼: 五、看运行效果
此帖子包含附件:
JPEG 图像
大小:54.4K
----------------------------------------------
樵夫的大马甲
作者:
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2014/9/29 16:04:49
2楼: 快驴广告群发器。
快驴短信轰炸机。

恭喜樵夫。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 16:05:48
3楼: 六、收信方
此帖子包含附件:
JPEG 图像
大小:150.4K
----------------------------------------------
樵夫的大马甲
作者:
男 xiucai88 (xiucai) ★☆☆☆☆ -
普通会员
2014/9/29 18:36:18
4楼: 彩信的收发有吗?
----------------------------------------------
-
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 19:12:49
5楼: 哦,这个小玩意,没支持彩信发送
----------------------------------------------
樵夫的大马甲
作者:
男 jopher3 (樵夫的马六甲) ▲▲▲▲▲ -
普通会员
2014/9/29 19:37:57
6楼: 支持断线重连
支持紧急短信、即时发送、定时发送、每天发送四种短信发送方式
支持工作日限定
支持转播时间限定
支持业务单号绑定以便追查
支持转播日志记录
支持短信的详情查看
支持事后重发
--------
使用起来还是很方便的
----------------------------------------------
樵夫的大马甲
作者:
男 tzhxpc (老刘) ★☆☆☆☆ -
盒子活跃会员
2014/9/30 11:51:47
7楼: 支持获得短信发送状态么
比如  发送成功,发送失败,对方成功接收 此类
----------------------------------------------
-
作者:
男 cuit_xiong (熊猫) ★☆☆☆☆ -
普通会员
2014/9/30 13:17:05
8楼: 短信是扣手机本机的?
----------------------------------------------
-
作者:
男 hans (hans) ★☆☆☆☆ -
普通会员
2014/10/1 20:38:09
9楼: 前些年做的短信平台就用短信猫,后来一定限制发送频率和次数,全都废了,或许还有两个短信猫在角落里,手机的也是类似,少量没问题,量大了肯定被限制
----------------------------------------------
Hans
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行164.0625毫秒 RSS