在

Delphi7 中，制作如下图所示的界面。 

说明：

SocketConnection 控件与服务器连接主要需要三个参数：Address(IP 地址)或 Host

（主机名），端口号（默认是

211，在服务器端可通过 Borland Socket Server(scktsrvr.exe)程

序设置监听的端口号），

LoginPrompt（登录是否提示输入用户名和密码属性）。通过让用

户输入的方式，可提高程序的灵活性。

 

2．程序实现中所用的公共函数和方法 
//检验 IP 地址是否合法的函数
function IsLegalIp(Str: string): Boolean;
var
  I, K, DotCnt : Integer;
  Num: string;
  Arr: Array [1..4] of string;
begin
  Result := False;
  DotCnt := 0;
  //由'0'..'9', '.'组成
  For I := 1 to Length(Str) do
  begin
    if Not (Str[I] in ['0'..'9', '.']) then
      Exit
    else
    if Str[I] = '.' then
      inc(DotCnt);
  end;
  //点分隔符号数量应该=3
  if DotCnt <> 3 then Exit;
  For K := 1 to 3 do
  begin