?? frmdemo.pas
字號:
unit frmDemo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Button2: TButton;
ComboBox1: TComboBox;
Button3: TButton;
Label1: TLabel;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Memo1: TMemo;
StatusBar1: TStatusBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses HRHGSMD;
{$R *.DFM}
Procedure DoReiceveText(phone,msg: PWideChar; Data:Pointer; nData: Integer); stdcall ;
var
s1,s2 : WideString ;
begin
s1 := phone ;
s2 := msg ;
Form1.Memo1.Lines.Add(Format('接收[%s]:%s',[s1,s2]));
end;
Procedure DoReiceveData(msg: PWideChar; Data:Pointer; nData: Integer); stdcall;
var
s1,s2 : WideString ;
begin
// s1 := phone ;
s2 := msg ;
Form1.Memo1.Lines.Add('狀態信息:'+s2);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2 : WideString ;
begin
s1 := Trim(Edit1.Text) ;
s2 := Trim(Edit2.Text) ;
if Length(s1)<>11 then raise exception.create('接收手機號碼不對!') ;
if s2='' then raise exception.create('發送內容不能為空!') ;
if SendSMSText(PWideChar(s1),PWideChar(s2))then
begin
Memo1.Lines.Add(Format('發送[%s]:%s',[s1,s2]));
ShowMessage('短消息發送成功!')
end
else
ShowMessage('短消息發送失??!') ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=-1 then ShowMessage('請選擇端口') ;
if GSMConnect(ComboBox1.ItemIndex+1) then ShowMessage('GSM連接成功!!') else ShowMessage('GSM連接失?。?!') ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GSMStartUp ;
HookSMSText(DoReiceveText) ;
HookSMSNotify(DoReiceveData) ;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
GSMCleanUp ;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
GSMDisConnect ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -