[tombender]

Привет
Ребята Я делаю простои FTP клиент вот код. Он прекрасна коннектится к FTP серверу но не смог вывести FTP папку в RzShellList1. Пожалуйста доскажите как это сделать

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

unit Unit2;   interface   uses   Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,   Menus,  SysUtils, Classes, IdIntercept, IdBaseComponent, IdComponent, IdTCPConnection,   IdTCPClient, IdFTP, IdAntiFreezeBase, IdAntiFreeze, IdLogBase, IdLogDebug, IdGlobal,   IdLogEvent, IdFTPCommon, IdFTPList, FileCtrl, IdExplicitTLSClientServerBase, RzListVw, RzShellCtrls,   Unit1;   type   TForm2 = class(TForm)     RzShellList1: TRzShellList;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     Edit5: TEdit;     CheckBox1: TCheckBox;     Button1: TButton;     FTP: TIdFTP;     Button2: TButton;     Timer1: TTimer;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); begin   RzShellList1.Clear;   FTP.Host:=Edit1.Text;   FTP.Port:=StrToInt(Edit2.Text);   FTP.Username:=Edit3.Text;   FTP.Password:=Edit4.Text;   FTP.Passive:=CheckBox1.Checked;   FTP.Connect;     Button1.Enabled:=False;   Button2.Enabled:=True;   end;   procedure TForm2.Button2Click(Sender: TObject); begin FTP.Quit;   Button1.Enabled:=True; Button2.Enabled:=False; end;   end.

[tombender]

Неужели не кто не знает как решит эту проблему пожалуйста помогите.

[NumLock]

что такое TRzShellList я не знаю, а в TMemo так:

Код:

1	IdFTP1.List(Memo2.Lines, '\halmer\', False);