Компонент TNMFinger

Данный компонент применяется для получения информации о пользователе от сервера 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;