Telnet客户端

开发平台：

Delphi

OpenHosts.pas：源码内容

							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);
  for i:=0 to HostList.Count-1 do begin
    DecodeIP(HostList[i], tmps1, tmps2);
    if frmOpen.cbxHostNames.Items.IndexOf(tmps1)<0
      then frmOpen.cbxHostNames.Items.Add(tmps1);
    if frmOpen.cbxTermTypes.Items.IndexOf(tmps2)<0
      then frmOpen.cbxTermTypes.Items.Add(tmps2);
  end;
  if (HostIP<>'')and(HostIP<>DefaultHostName)
  then frmOpen.cbxHostNames.Text:=HostIP
  else if HostList.Count<>0
       then frmOpen.cbxHostNames.ItemIndex:=0
       else frmOpen.cbxHostNames.Text:=DefaultHostName;
  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.

						