Сети ЭВМ и телекоммуникации. Лясин Д.Н - 39 стр.

UptoLike

Составители: 

39
property OnStatus: TOnStatus; возникает при изменении состояния сокета.
Текущий статус передается в обработчик события через параметр Status типа
String.
Если адрес сервера задан в виде DNS, то перед соединением необходимо
сначала определить IP адрес сервера. В результате выполнения этой опера-
ции может возникнуть два события.
property OnHostResolved: TOnHostResolved; возникает при успешном оп-
ределении IP адреса.
property OnInvalidHost: THandlerEvent; возникает, если IP адрес опреде-
лить не удалось. В этом случае можно задать новый адрес сервера и устано-
вить параметр handled в true в обработчике этого события. После чего будет
выполнена повторная попытка определения IP адреса и подключения к сер-
веру. Обработчик этого события может выглядеть следующим образом.
void __fastcall TForm1::NMHTTP1InvalidHost(bool &handled)
{ AnsiString NewHost;
if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
{NMHTTP1->Host = NewHost;
handled = true;
}
}
property OnConnect: TNotifyEvent; возникает при успешном установлении
соединения с сервером.
property OnConnectionFailed: TNotifyEvent; возникает, если соединение
с
сервером установить не удалось.
property OnDisconnect: TNotifyEvent; возникает при разрыве соединения с
сервером.
   property OnStatus: TOnStatus; возникает при изменении состояния сокета.
Текущий статус передается в обработчик события через параметр Status типа
String.
   Если адрес сервера задан в виде DNS, то перед соединением необходимо
сначала определить IP адрес сервера. В результате выполнения этой опера-
ции может возникнуть два события.
   property OnHostResolved: TOnHostResolved; возникает при успешном оп-
ределении IP адреса.
   property OnInvalidHost: THandlerEvent; возникает, если IP адрес опреде-
лить не удалось. В этом случае можно задать новый адрес сервера и устано-
вить параметр handled в true в обработчике этого события. После чего будет
выполнена повторная попытка определения IP адреса и подключения к сер-
веру. Обработчик этого события может выглядеть следующим образом.
   void __fastcall TForm1::NMHTTP1InvalidHost(bool &handled)
   { AnsiString NewHost;
       if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
       {NMHTTP1->Host = NewHost;
           handled = true;
       }
   }
   property OnConnect: TNotifyEvent; возникает при успешном установлении
соединения с сервером.
   property OnConnectionFailed: TNotifyEvent; возникает, если соединение с
сервером установить не удалось.
   property OnDisconnect: TNotifyEvent; возникает при разрыве соединения с
сервером.




                                         39