Компонент TNMFinger

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



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий