Сетевые технологии. Баканов В.М. - 32 стр.

  HostResponse.Clear; { очистка Response (тип Tmemo ) }
  HostResponse.Lines.Add ('Looking Up Host Address'); { вывод в Response }
  NetSocket.GetHostAddress (Handle,
             UWM_SOCKETEVENT, { при окончании возбудить это событие }
             HostName.text, SKT_GETHOSTADDR);
 end
 else
  HostResponse.Lines.Add('Input InterNet Address, Please...');
end; { конец ConnectClick }

  Процедура ProcessHostLookup индицирует состояние поиска, выводит най-
денный IP-адрес (в виде строки) в поле Address, создает сокет и соединяет
его с портом сервера времени:

procedure TForm1.ProcessHostLookup;
begin
if (NetSocket.ProcessHostAddress = TRUE) then { удачно определен IP-адрес }
  begin
   HostResponse.Lines.Add('Attempt Connecting To Host');
   HostAddress.text := NetSocket.GetHostAddressString; { вывод IP в Address }
    isConnectionSocket := NetSocket.OpenSocketConnection(Handle,
                 UWM_SOCKETEVENT, { при окончании возбудить это событие }
                 SKT_CONNECTTOHOST,
                 IPPORT_TIMESERVER);
  end
   else
     HostResponse.Lines.Add('Cannot Find Host Address');
end; { конец ProcessHostLookup }

  После соединения с host-компьютером ничего посылать ему не нужно;
следует индицировать состояние программы и отправить сообщение о собы-
тии гнезда:

procedure TForm1.ProcessHostConnect;
var IsErrorString: String;
begin
 HostResponse.Lines.Add('Sending To Host');
 NetSocket.SetSocketState(SKT_SENDPACKET);
 ProcessHostSend;
end; { конец ProcessHostConnect }

  Также надо настроить состояние программы на получения любых посту-
пающих пакетов:

procedure TForm1.ProcessHostSend;
var liBytesReceived: Integer;
begin
 HostResponse.Lines.Add('Receiving From Host');


                                      - 32 -