Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Компонент TNMFinger

Delphi , Интернет и Сети , Компоненты и Интернет

Компонент 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;

Статья Компонент TNMFinger раздела Интернет и Сети Компоненты и Интернет может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Компоненты и Интернет ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
27.10.2021 09:36:21/0.00097012519836426/0