setcom.pas

delphi 7.0 开发的cdma手机发短信程序

unit SETCOM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComCtrls,comfun, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    mmoSend: TMemo;
    edtSend: TMemo;
    Timer1: TTimer;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    procedure SetSendButton ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  //Post_Event: THandle;//创建事件同步对象的句柄
  hSend : THandle;//发送串口的句柄
  //hRecv : THandle;//接收串口的句柄
  //Read_os: Toverlapped;//重叠结构的变量
  //Receive: Boolean; //开关变量，代表是否接收
  GeTcomfun:Tcomfun;
  WritingcomThread:TCommThread;
implementation

{$R *.dfm}

//互置发送按钮和输入框的有效性
procedure TForm2.SetSendButton ;
begin
  ComboBox1.Enabled := not ComboBox1.Enabled ;
  ComboBox2.Enabled := not ComboBox2.Enabled ;
  Button1.Enabled := not Button1.Enabled ;
  Button2.Enabled := not Button2.Enabled ;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  //CommName := ComboBox1.Text;
  // 打开发送串口
  //GeTcomfun.OpenConnection(ComboBox1.Text,hSend);
  
  if (not GeTcomfun.Opencom(ComboBox1.Text)) then
   raise Exception.Create('设置'+ComboBox1.text+'错误');
  SetSendButton;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
GeTcomfun:=Tcomfun.Create;
ComboBox1.Text:='COM1';
ComboBox2.Text:='9600';
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
GeTcomfun.closecom();
SetSendButton;
end;

procedure TForm2.Button3Click(Sender: TObject);
var
wirtcomint1:boolean;
begin
//WritingcomThread:=TCommThread.Create();
//Timer1.Enabled:=true;
//GeTcomfun.wirtcom(edtSend.Text);

wirtcomint1:=GeTcomfun.wirtcom(edtSend.Text);
if wirtcomint1=true then
begin
mmoSend.Lines.Add('已发送：');//+intToStr(wirtcomint)+'个字节的数据');
end
else
begin
mmoSend.Lines.Add('发送数据失败');
//Application.MessageBox('发送数据失败','',MB_OK);
//EXIT;
end;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
wirtcomint:boolean;
begin
//wirtcomint:=false;
wirtcomint:=GeTcomfun.wirtcom(edtSend.Text);
if wirtcomint=true then
begin
mmoSend.Lines.Add('已发送：');//+intToStr(wirtcomint)+'个字节的数据');
end
else
begin
mmoSend.Lines.Add('发送数据失败');
//Application.MessageBox('发送数据失败','',MB_OK);
//EXIT;
end;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

end.