Данный компонент применяется для получения информации о пользователе от сервера Finger, используя протокол, описанный в стандарте RFC 1288.
Для того, чтобы получить информацию о пользователе, помещаемую в свойство FingerStr, вам нужно в свойстве Host указать имя сервера Finger. Обычно свойство Port не нужно определять, поскольку большинство рассматриваемых серверов используют 79-ый порт. И, конечно, вам нужно указать интересующее вас имя пользователя в свойстве User. Иногда эта служба используется для получения некоторой информации, например, о спорте, погоде. Обратившись по такому адресу, вы найдёте в свойстве 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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Компонент TNMFinger", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!