setport.pas

来自「短信二次开发控件SMSComm」· PAS 代码 · 共 63 行

unit SetPort;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, SmartSMS;

type
  TSetPortFrm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;

var
  SetPortFrm: TSetPortFrm;

implementation

uses Unit1, GlobalPara1;

{$R *.DFM}

procedure TSetPortFrm.FormCreate(Sender: TObject);
var
  i: integer;
begin
   EnumComPorts(ComboBox1.Items);
   if ComboBox1.Items.Count>0 then ComboBox1.ItemIndex := 0;
   for i:=0 to ComboBox1.Items.Count-1 do 
     if ComboBox1.Items[i] = MainFrm.SMSComm1.ComPort.Port then
        ComboBox1.ItemIndex := i;
end;

procedure TSetPortFrm.BitBtn1Click(Sender: TObject);
begin
  if MainFrm.SMSComm1.Active then begin
     if MainFrm.SMSComm1.ComPort.Port <> ComboBox1.Text then begin
        MainFrm.SMSComm1.Active := False;
        MainFrm.SMSComm1.ComPort.Port := ComboBox1.Text;
        Hide;
        MainFrm.GSMIni;
     end;
  end
  else begin
     MainFrm.SMSComm1.ComPort.Port := ComboBox1.Text;
     Hide;
     MainFrm.GSMIni;
  end;
  Close;
end;

end.