[semen0000]

Добрый день, нужно написать ФТП клиент который может скачать файл с сервера, при этом не используя готовых компонентов(По типу IdFTP).
Столкнулся сразу же с проблемой, как получить ЛИСТ ?
И не могу понять логику получения файла с сервера.
Пока написал совсем немного:

Код:

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

procedure TForm1.clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket); begin mmo1.Lines.Add(clntsckt1.Socket.ReceiveText()); end;   procedure TForm1.btn1Click(Sender: TObject); begin clntsckt1.Host:=edt1.Text; clntsckt1.Port:=21; clntsckt1.Open; end;     procedure TForm1.btn2Click(Sender: TObject); begin clntsckt1.Socket.SendText('USER '+ edt2.Text + #13#10); clntsckt1.Socket.SendText('PASS '+ edt3.Text + #13#10); end;   procedure TForm1.btn3Click(Sender: TObject); begin  clntsckt1.Socket.SendText('CWD '+ '\' + #13#10); end;   procedure TForm1.btn4Click(Sender: TObject); begin   portA := Random(179);   portB := IntToStr(portA);   clntsckt1.Socket.SendText('PORT '+ '127,0,0,1,8,'+ portB + #13#10);   clntsckt1.Socket.SendText('LIST'+ #13#10); end;   procedure TForm1.btn5Click(Sender: TObject); begin   clntsckt1.Socket.SendText('QUIT'+ #13#10); end;