На этом шаге мы рассмотрим компонент TNMFinger.
Компонент TNMFinger применяется для получения информации в Интернет о пользователе от сервера finger,
используя протокол, описанный в стандарте RFC 1288.
Для того, чтобы получить информацию о пользователе, помещаемую в свойство FingerStr, вам нужно указать в
свойстве Host имя сервера finger. Обычно свойство Port не нужно переопределять, поскольку
большинство рассматриваемых серверов использует порт 79. И, конечно, вам нужно указать интересующее вас имя
пользователя в свойстве User. Иногда эта служба используется для получения некоторой информации,
например, о спорте, погоде. Обратившись по такому адресу пользователя, вы найдете в свойстве FingerStr
рассылаемую информацию.
Пример. Чтобы создать наш пример, начнем новое приложение Delphi и поместим на его
форму два окна редактирования, которые пометим метками с надписями Сервер и Имя пользователя.
В эти два поля редактирования будет вводиться необходимая информация: имя сервера или его IP-адрес в
первое поле и имя пользователя, информацию о котором мы хотим получить, - во второе поле. Ответ сервера будем
помещать в поле мемо, которое в нашем примере будет озаглавлено при помощи метки Информация о пользователе.
Кроме того добавим на форму командную кнопку Отправить запрос и компонент TNMFinger.
Код, который вам придется добавить в программный модуль, приводится ниже.
procedure TForm1.Button1Click(Sender: TObject); begin NMFinger1.User := Edit2.Text; NMFinger1.Host := Edit1.Text; Memo1.Text := NMFinger1.FingerStr; end;
Внешний вид окна приложения на этапе разработки приведен на рисунке 1.
Рис.1. Приложение на этапе разработки
Листинг примера:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMFngr, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; Memo1: TMemo; Label3: TLabel; NMFinger1: TNMFinger; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin NMFinger1.User := Edit2.Text; NMFinger1.Host := Edit1.Text; Memo1.Text := NMFinger1.FingerStr; end; end.
Текст этого приложения можно взять здесь.
На следующем шаге мы рассмотрим компонент TNMFTP.