Проблема с соединением к ФТП. - Работа с сетью в Delphi - Страница 2

Maxs · 18.05.2009, 22:29

После этой:
IdFTP1.Connect;
и перед IdFTP1.Disconnect;
потому что если убрать вот эту
IdFTP1.Get('text.html','C:\Users\Ма кс\Desktop\text.html', True, True);
то все проходит без ошибок.

Квэнди · 19.05.2009, 08:09

Скинь проект, посмотрю

Maxs · 19.05.2009, 15:30

Цитата:

Сообщение от Квэнди

Скинь проект, посмотрю

Вот: FTP.zip

Квэнди · 21.05.2009, 09:09

Код:

uses
.......,IdFTPCommon;
............
procedure TForm2.Button1Click(Sender: TObject);
begin
IdFTP1.Passive:=true;
IdFTP1.TransferType:=ftbinary;
IdFTP1.host := 'ftp.narod.ru';
IdFTP1.username := '';
IdFTP1.password := '';
if not IdFTP1.Connected then IdFTP1.Connect();
IdFTP1.Get('text.txt','C:\text.txt',True);
IdFTP1.Disconnect;
end;

Maxs · 21.05.2009, 15:29

Цитата:

Сообщение от Квэнди

Код:

uses
.......,IdFTPCommon;
............
procedure TForm2.Button1Click(Sender: TObject);
begin
IdFTP1.Passive:=true;
IdFTP1.TransferType:=ftbinary;
IdFTP1.host := 'ftp.narod.ru';
IdFTP1.username := '';
IdFTP1.password := '';
if not IdFTP1.Connected then IdFTP1.Connect();
IdFTP1.Get('text.txt','C:\text.txt',True);
IdFTP1.Disconnect;
end;

Спасобо большое, работает.

19.05.2009, 08:09	#12
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Скинь проект, посмотрю ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создать файл а ФТП	gusluk	Работа с сетью в Delphi	1	14.01.2009 08:49
Проблема с соединением Клиент-Сервер	ImmortalAlexSan	Работа с сетью в Delphi	1	13.01.2009 14:45
Проблема с фтп входом на сайт...помогите	skylight	Безопасность, Шифрование	3	01.11.2008 00:49
Проблема с соединением с БД InterBase	TemposYS	БД в Delphi	1	03.05.2008 12:08

18.05.2009, 22:29	#11
Maxs Заблокирован Регистрация: 06.04.2009 Сообщений: 130	После этой: IdFTP1.Connect; и перед IdFTP1.Disconnect; потому что если убрать вот эту IdFTP1.Get('text.html','C:\Users\Ма кс\Desktop\text.html', True, True); то все проходит без ошибок.