Компонент TNMFinger
|
Коннектится человек к серваку на 28800.
Login: ....
Passwrd: ******
А серв ему выдает:
"Ваш пароль наполовину правильный. Connect 14400".
|
Данный компонент применяется для получения информации о пользователе от сервера Finger, используя протокол, описанный в стандарте RFC 1288.
Для того, чтобы получить информацию о пользователе, помещаемую в свойство FingerStr, вам нужно в свойстве Host указать имя сервера Finger. Обычно свойство Port не нужно определять, поскольку большинство рассматриваемых серверов используют 79-ый порт. И, конечно, вам нужно указать интересующее вас имя пользователя в свойстве User. Иногда эта служба используется для получения некоторой информации, например, о спорте, погоде. Обратившись по такому адресу, вы найдёте в свойстве FingerStr рассылаемую информацию.
Пример:
По нажатию на кнопку напишите такой код:
NMFinger1.User:=Edit2.Text;
NMFinger1.Host:=Edit1.Text;
Memo1.Text:=NMFinger1.FingerStr;
|
Ну вот, казалось бы и всё, но чтобы программа уведомляла вас о каждом событии нужно вынести StatusBar, в свойстве Panels создать 1 панель. И описать все события компонента TNMFinger примерно так:
procedure TForm1.NMFinger1Connect(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Подключились';
end;
procedure TForm1.NMFinger1ConnectionFailed(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Невозможно установить соединение';
end;
procedure TForm1.NMFinger1Disconnect(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Отсоединились';
end;
procedure TForm1.NMFinger1HostResolved(Sender: TComponent);
begin
StatusBar1.Panels[0].Text:='Host найден';
end;
procedure TForm1.NMFinger1InvalidHost(var Handled: Boolean);
begin
StatusBar1.Panels[0].Text:='Host указан неверно';
end;
procedure TForm1.NMFinger1Status(Sender: TComponent; Status: string);
begin
StatusBar1.Panels[0].Text:=Status;
end;
|
|