unit6.~pas

tcp/ip通讯程序

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, OleCtrls, MSCommLib_TLB, DB, ADODB,
  Grids, DBGrids;

type
  TPort_Set = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Port_Name: TComboBox;
    Label2: TLabel;
    Baud_Rate: TComboBox;
    Label3: TLabel;
    Data_Bit: TComboBox;
    Label4: TLabel;
    Check_Bit: TComboBox;
    Label5: TLabel;
    Stop_Bit: TComboBox;
    PANEL1: TPanel;
    procedure BitBtn1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Port_Set: TPort_Set;

implementation
    uses MyFunction, Unit1;
{$R *.dfm}

procedure TPort_Set.BitBtn1Click(Sender: TObject);
begin
      Port := Port_Name.Text;
      Speed:=Baud_Rate.Text;
      DataBit:=Data_Bit.Text;
      CheckBit:=Check_Bit.Text;
      StopBit:=Stop_Bit.Text;

   
end;
end.