frmdemo.pas

CDMA modem动态链接库的设计与开发

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.