Пример использования компонента TNMURL

   
На этом шаге мы рассмотрим пример использования компонента TNMURL.

   
Добавим на форму нового приложения три поля редактирования. В первое поле будем вводить строку, которую
нужно закодировать или декодировать. Две результирующие строки будут помещаться в остальных полях
редактирования. Потребуется еще одна командная кнопка и на этом все. Форма приложения изображена на
рисунке 1.


Рис.1. Внешний вид приложения

   
Текст приложения:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NMURL, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    NMURL1: TNMURL;
    procedure Button1Click(Sender: TObject);
    procedure NMURL1Error(Sender: TObject; Operation, ErrMsg: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMURL1.InputString := Edit1.Text;
  Edit2.Text := NMURL1.Encode;
  Edit3.Text := NMURL1.Decode;
end;

procedure TForm1.NMURL1Error(Sender: TObject; Operation, ErrMsg: String);
begin
   ShowMessage(ErrMsg);
end;

end.

Текст этого приложения можно взять здесь.

   
На следующем шаге мы рассмотрим компонент TNMUUProcessor.



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

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