openhosts.pas

Delphi 网络通信协议代码,是多种网络协议的实现代码

unit OpenHosts;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TfrmOpen = class(TForm)
    Label1: TLabel;
    cbxHostNames: TComboBox;
    Label2: TLabel;
    cbxPortName: TComboBox;
    Label3: TLabel;
    cbxTermTypes: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure cbxHostNamesChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ConnectToHost(var HostIP, TermType: string):Integer;

var
  frmOpen: TfrmOpen;

implementation

{$R *.DFM}

uses Main;

function ConnectToHost(var HostIP, TermType: string):Integer;
var i: Integer;
    tmps1, tmps2: string;
begin
  Application.CreateForm(TfrmOpen, frmOpen);
  HostIP:=Trim(HostIP);
  TermType:=Trim(TermType);
  if (HostIP<>'')and(HostIP<>DefaultHostName)
  then frmOpen.cbxHostNames.Text:=HostIP;
  frmOpen.cbxPortName.ItemIndex:=0;
  if TermType<>'' then frmOpen.cbxTermTypes.Text:=TermType
  else if frmOpen.cbxTermTypes.Items.IndexOf(TermType)<0
       then frmOpen.cbxTermTypes.ItemIndex:=0
       else frmOpen.cbxTermTypes.ItemIndex:=frmOpen.cbxTermTypes.Items.IndexOf(TermType);
  Result:=frmOpen.ShowModal;
  HostIP:=Trim(frmOpen.cbxHostNames.Text);
  TermType:=Trim(frmOpen.cbxTermTypes.Text);
end;

procedure TfrmOpen.cbxHostNamesChange(Sender: TObject);
begin
  Button1.Enabled:=(Trim(cbxHostNames.Text)<>'')and(Trim(cbxTermTypes.Text)<>'');
end;

end.