|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.09.2011, 19:40 | #1 |
Новичок
Джуниор
Регистрация: 08.09.2011
Сообщений: 1
|
Socks ftp indy
Пытаюсь передать фаил через сокс по фтп используя indy. Гуру подскажите что в коде не так, а то я токо 2й день в программировании. Ругается вот так socket error #10061, но скорей всего код карявый.
PHP код:
|
08.09.2011, 23:08 | #2 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
uses
.... IdFTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase; procedure TForm1.Button1Click(Sender: TObject); var ftp: TIdFTP; ms: TMemoryStream; begin ftp:=TIdFTP.Create(Application); ms:=TMemoryStream.Create; try try ftp.Host:='xxx.xxx.xxx.xxx';// ftp адрес сервера ftp.Port:=21; ftp.Username:='xxxxxx';//логин ftp.Password:='xxx';//Пароль ftp.Connect; AssErt(ftp.Connected); ftp.ChangeDir('/');//Установить папку на сервере ftp.Put('c:\file.txt','file.txt',fa lse); //Файл Откуда-Куда ShowMessage('Отправлено'); finally ms.Free; ftp.Free; end; except ShowMessage('Неудачная попытка отправки файла на сервер'); end; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VPN? SOCKS? | Volfram | Свободное общение | 12 | 10.03.2011 12:44 |
Socks | Astron | Работа с сетью в Delphi | 0 | 11.03.2010 12:20 |
Создание чата с через FTP Server с помощью компонентов INDY 9 | dani92 | Работа с сетью в Delphi | 1 | 04.08.2009 05:22 |
socks checker | newmister | Работа с сетью в Delphi | 1 | 20.07.2009 22:27 |
socks 5 server | Don Pedro | Общие вопросы Delphi | 0 | 30.12.2006 16:14 |