unit2.pas

Source code Delphi FTP-server

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Label4: TLabel;
    Label5: TLabel;
    Button3: TButton;
    ListBox1: TListBox;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Name : string;
    Index : integer;
  end;

var
  Form2: TForm2;

implementation

uses Unit1, Unit5;

{$R *.DFM}

procedure TForm2.FormActivate(Sender: TObject);
var
 s : string;
 j : integer;
begin
edit1.setfocus;
if Name = '' then
  begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
  ListBox1.Items.Clear;
  Edit5.text:='';
  CheckBox1.Checked:=false;
  Index:=-1;
  end
else
  begin
  Index:=Form1.FtpSrvr1.UserList.IndexOf(Name);
  if (Index >= 0) and (Index < Form1.FtpSrvr1.UserList.Count) then
    begin
    Edit1.text:=Name;
    str(Form1.FtpSrvr1.UserList.UID[Index],s);
    Edit2.text:=s;
    Edit3.text:=Form1.FtpSrvr1.UserList.Password[Index];
    ListBox1.Items.Clear;
    for j:=1 to 20 do
      if Form1.FtpSrvr1.GrpList.NameByGID[Form1.FtpSrvr1.UserList.GID[Index,j]] <> '' then
        ListBox1.Items.add(Form1.FtpSrvr1.GrpList.NameByGID[Form1.FtpSrvr1.UserList.GID[Index,j]]);
    Edit5.text:=Form1.FtpSrvr1.UserList.Home[Index];
    CheckBox1.Checked:=Form1.FtpSrvr1.UserList.Root[Index];
    end
  else
    begin
    Edit1.text:='';
    Edit2.text:='';
    Edit3.text:='';
    ListBox1.Items.Clear;
    Edit5.text:='';
    CheckBox1.Checked:=false;
    Index:=-1;
    end;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 i,j,k : integer;
 l : TGroupList;
begin
if name = '' then name:=edit1.text;
for i:=1 to 20 do
  l[i]:=$ffff;
k:=1;
for i:=0 to ListBox1.Items.Count-1 do
  begin
  j:=Form1.FtpSrvr1.GrpList.GIDByName(ListBox1.Items[i]);
  if j <> $FFFF then
    begin
    l[k]:=j;
    inc(k);
    end;
  end;
Form1.FtpSrvr1.UserList.AddUser(trim(Name),l,trim(edit3.text),CheckBox1.Checked,trim(edit5.text));
Form1.Reload;
close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
if Name = '' then Name:=edit1.text;
if Name = '' then
  MessageBox(0,'Enter the user name first','Error',16)
else
  begin
  Form5.Name:=Name;
  Form5.ShowModal;
  end;
end;

end.