На этом шаге мы рассмотрим компонент 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.

Предыдущий шаг Содержание Следующий шаг