www.pudn.com > Delphi-sms.rar > Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, EDISONSMSGWLib_TLB, StdCtrls, ComCtrls, Buttons,
ExtCtrls;
type
TForm1 = class(TForm)
GroupBox3: TGroupBox;
Label3: TLabel;
Label5: TLabel;
ComboBox3: TComboBox;
ComboBox2: TComboBox;
GroupBox1: TGroupBox;
Label4: TLabel;
Label7: TLabel;
Memo2: TMemo;
Panel3: TPanel;
Label2: TLabel;
ProgressBar1: TProgressBar;
Memo1: TMemo;
Memo3: TMemo;
StatusBar1: TStatusBar;
Button3: TButton;
Label9: TLabel;
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
SysWinNt:Boolean;
AppPath:String;
public
{ Public declarations }
EdisonSmsGw: TEdisonSmsGw;
procedure EdisonSmsGwOnRecvsms(Sender: TObject; const strPhoneNumber, strSmsContent: WideString; nYear, nMonth, nDay, nHour, nMinute, nSecond: Smallint);
procedure EdisonSmsGwOnConnectStatus(Sender: TObject; nStatus: Integer);
procedure EdisonSmsGwOnSendSmsResult(Sender: TObject; nResult: Smallint; nIndex: Integer; const strPhoneNumber, strSmsContent: WideString);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{******************手机事件 Begin *********************}
procedure TForm1.EdisonSmsGwOnConnectStatus(Sender: TObject; nStatus: Integer);
begin
label9.Caption:='';
if nStatus=1 then showmessage('串口打开成功') else showmessage('串口打开失败！请检查串口号、波特率是否正确；以及是否正确联接了手机。');
if nStatus=1 then Button1.Enabled:=False;
Button2.Enabled:=not Button1.Enabled;
Button3.Enabled:=not Button1.Enabled;
end;
procedure TForm1.EdisonSmsGwOnRecvsms(Sender: TObject; const strPhoneNumber, strSmsContent: WideString; nYear, nMonth, nDay, nHour, nMinute, nSecond: Smallint);
var
RevDateTime:String;
begin
RevDateTime:=inttostr(nYear)+'-'+inttostr(nMonth)+'-'+inttostr(nDay)+' '+inttostr(nHour)+':'+inttostr(nMinute)+':'+inttostr(nSecond);
Memo3.Lines.Add('来自：'+strPhoneNumber+' 接收时间：'+RevDateTime);
Memo3.Lines.Add('内容：'+strSmsContent);
Memo3.Lines.Add('---------------------------------------------------------------------------------');
//if EdisonSmsGw.GetRecvFlag then//查看是否设置为接收允许状态
{提示音psWhisle}If SysWinNt Then begin Windows.Beep (523,80); Windows.Beep (698,80); Windows.Beep (784,80); Windows.Beep (1046,80); end;
end;
procedure TForm1.EdisonSmsGwOnSendSmsResult(Sender: TObject; nResult: Smallint; nIndex: Integer; const strPhoneNumber, strSmsContent: WideString);
var
NextNumber:string;
begin
if nResult=1 then
Memo1.Lines.Strings[nIndex]:= strPhoneNumber+':成功['+strSmsContent+']'
else
Memo1.Lines.Strings[nIndex]:= strPhoneNumber+':失败['+strSmsContent+']';
{提示音bError}If (SysWinNt=true)and(nResult<>1) Then begin Windows.Beep (100,100); Windows.Beep (50,100); end;
NextNumber:=Memo1.Lines.Strings[nIndex+1];
if NextNumber<>'' then
begin
{|} if pos(':',NextNumber)>0 then NextNumber:=copy(NextNumber,1,pos(':',NextNumber)-1);
{|} EdisonSmsGw.SendSms(NextNumber,Memo2.Text,nIndex+1);
end else
begin
{|} Button3.Enabled:=True;
{|} Button3.Caption:='开始发送'
end;
end;
{******************手机事件 End *********************}
procedure TForm1.FormCreate(Sender: TObject);
var
VersionInfo : TOSVersionInfo;
begin
AppPath:=ExtractFilePath(Application.EXEName);
if copy(AppPath, length(AppPath), 1) <> '\' then AppPath := AppPath + '\';
VersionInfo.dwOSVersionInfoSize:=SizeOf (VersionInfo);
GetVersionEx(VersionInfo);
SysWinNt:=VersionInfo.dwPlatformID=VER_PLATFORM_WIN32_NT;
Winexec(Pchar('regsvr32.exe SMSControl.ocx -s'),0);
Button1.Enabled:=True;
Button2.Enabled:=not Button1.Enabled;
Button3.Enabled:=not Button1.Enabled;
EdisonSmsGw := TEdisonSmsGw.Create(Form1);
EdisonSmsGw.Parent := Form1;
EdisonSmsGw.Top := 1;
EdisonSmsGw.Left := 470;
EdisonSmsGw.height := 10;
EdisonSmsGw.width := 10;
EdisonSmsGw.Tag := 0;
EdisonSmsGw.Name := 'EdisonSmsGw1';
EdisonSmsGw.OnConnectStatus := EdisonSmsGwOnConnectStatus; //设备连接返回结果
EdisonSmsGw.OnRecvsms := EdisonSmsGwOnRecvsms; //新短信到达
EdisonSmsGw.OnSendSmsResult := EdisonSmsGwOnSendSmsResult //短信发送返回结果
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Label9.Caption:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ComPort:String;
begin
ComPort:='com'+inttostr(ComboBox2.ItemIndex+1);
EdisonSmsGw.SetModemType(1); //EdisonSmsGw.SetModemType(ComboBox1.ItemIndex); //0为手机设备, 1为工业GSM Modem
EdisonSmsGw.ComRate:=strtoint(ComboBox3.Text);
EdisonSmsGw.SetSendRate(0); //设置短信发送速度,两条短信发送间的间隔空闲（单位为0.1秒）
if EdisonSmsGw.ConnectModem(ComPort,EdisonSmsGw.ComRate,0)=1 then label9.Caption:='正在连接设备,请稍候...';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EdisonSmsGw.DisconnectModem;
Button1.Enabled:=True;
Button2.Enabled:=not Button1.Enabled;
Button3.Enabled:=not Button1.Enabled;
Button3.Caption:='开始发送'
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
mobile:String;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
{|} if (pos('成功',Memo1.Lines.Strings[i])<=0)and(pos('失败',Memo1.Lines.Strings[i])<=0) then
{|} begin
{|} {|} if pos(':',Memo1.Lines.Strings[i])>0 then
{|} {|} mobile:=copy(Memo1.Lines.Strings[i],1,pos(':',Memo1.Lines.Strings[i])-1)
{|} {|} else
{|} {|} mobile:=Memo1.Lines.Strings[i];
{|} {|} EdisonSmsGw.SendSms(mobile,Memo2.Text,i);
{|} {|} Button3.Enabled:=False;
{|} {|} Button3.Caption:='正在发送...';
{|} {|} break;
{|} end;
end;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if(ComboBox1.ItemIndex=0)or(ComboBox1.ItemIndex=1)or(ComboBox1.ItemIndex=2) then
ComboBox3.ItemIndex:=3
else
ComboBox3.ItemIndex:=2;
end;
end.