exam.~pas

短信开发

unit exam;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Comm, OleCtrls, SMS1_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Button3: TButton;
    Button4: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     if (thisform.SMS.SmsEnabled()=1)
   
            MessageBox("COM 已经打开!",64)
            return
     ENDIF
     THISFORM.SMS.DeviceName = "Com1"
     THISFORM.SMS.SmsOpen()
     
     if (THISFORM.SMS.SmsEnabled()=1)
     	THISFORM.Command3.Enabled=.T.
		THISFORM.Command5.Enabled=.T.
		THISFORM.Command2.Enabled=.F.
		THISFORM.Timer1.interval=100
    
     else
             MessagebOX("COM 打开错误!",64)
     ENDIF



//        Comm1->TP_MT=10
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

   if (thisform.sms.TP_recSMSv = .t. )
	?"is id:"
	?thisform.sms.TP_ID
	wait
	*MessageBox("收到新的短信："+Int(thisform.sms.SMS_ID),64)
	endif


   if (thisform.sms.TP_SMSReturnFlagv = .f. )

        *  Messagebox("发送短信测试，正确完成！",64)
        return
endif


  if (flag=1)

   if (thisform.sms.TP_Flag = 0 )
          Messagebox("发送短信测试......正确完成！",64)

   endif
   return

  endif

  if (flag=2)

        *i=thisform.sms.ReceiveSMS(buf)
        i=0
        if (i=0)

                thisform.text3.value=thisform.sms.TP_SCT
                thisform.text2.value=thisform.sms.OA
                buf=thisform.sms.smstext
          *?buf
          *wait
          *Messagebox("发送短信测试，正确完成！",64)

                thisform.edit1.value=buf
                Messagebox("接收短信测试....完成！",64)
                flag=0
        endif
        if (i=1)

                Messagebox("该存储区没有短信！",64)
                flag=0
        endif
  endif

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
	public i3
	*THISFORM.SMS.onCreate()
       * flag=2
       * z=THISFORM.SMS.StartSMS(1)
       *         return
        
        *z=THISFORM.SMS.SendBmp(i)
        *z=THISFORM.SMS.SendAT(i)
        flag=2
        i=THISFORM.Text4.value

        z=THISFORM.SMS.StartSMS(val(i))
        *z=THISFORM.SMS.SendBmp(i)
        *z=THISFORM.SMS.SendAT(i)

end;

end.