помогите с FTP по TLS

[ForenLi]

Сообщение от AppData

прелесть в том что он без порта в файлзиле, мне какой указать тогда?

Потому что в файлзиле, если не указан порт, то берется дефолтный. В TIdFTP берется 21.

Сообщение от AppData

не помог (

Таже ошибка? Проверяли на какой порт стучится файлзила, а на какой ваша прога?

Сообщение от AppData

уважаемые программисты, выручайте

Тут итак телепатируем... В настройках файлзилы какой режим стоит актив или пассив?

[AppData]

ForenLi, указал я 21 порт. в файлзтиле работает в режимах как на актив так и на пассив. хотя стоит по умолчанию. и работает на нем

IDFTP1.Host:='mysite.ru';
IdFTP1.Port := IdPORT_ftps;
IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdFTP1.UseTLS := utUseImplicitTLS;
idFTP1.Passive:= True;
idFtp1.AutoLogin := True;
IdFTP1.Port := 21;
IdFTP1.Connect;
IdFTP1.ChangeDir('/newfolder/');
IdFTP1.Put(ExtractFilePath(ParamStr(0))+'Unit1.dcu','Unit1.dcu', False) ;

вылазиет ошибка

а если так

IDFTP1.Host:='mysite.ru';
IdFTP1.Port := IdPORT_ftps;
IdFTP1.ConnectTimeout := 5000;
IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdFTP1.UseTLS := utUseImplicitTLS;
idFTP1.Passive:= True;
idFtp1.AutoLogin := True;
IdFTP1.Port := 21;
IdFTP1.Connect;
IdFTP1.ChangeDir('/newfolder/');
IdFTP1.Put(ExtractFilePath(ParamStr(0))+'Unit1.dcu','Unit1.dcu', False) ;

[AppData]

есть ли знатоки которые смогут помочь или это бесполезная идея

[AppData]

может это как то поможет?

<?xml version="1.0" encoding="UTF-8"?>
<FileZilla3 version="3.58.0" platform="windows">
	<Servers>
		<Server>
			<Host>mysite.ru</Host>
			<Port>21</Port>
			<Protocol>4</Protocol>
			<Type>1</Type>
			<Logontype>0</Logontype>
			<PasvMode>MODE_DEFAULT</PasvMode>
			<EncodingType>Auto</EncodingType>
			<BypassProxy>0</BypassProxy>
			<Name>Сайт</Name>
			<LocalDir>newfolder</LocalDir>
			<RemoteDir>1 0 3 newfolder</RemoteDir>
			<SyncBrowsing>0</SyncBrowsing>
			<DirectoryComparison>0</DirectoryComparison>
		</Server>
	</Servers>
</FileZilla3>

[AppData]

выручайте

[macomics]

Я не разбирался с этим конкретным компонентом, но на первый взгляд выводы такие. Т.к. для обычного соединения и TLS используется один и тот же порт, то стоит сначала настроить (до подключения) на обычное соединение, а потом проверить поддерживает ли сервер TLS и переходить на него.

IdFTP1.Connect;
IdFTP1.UseTLS := utUseImplicitTLS; {возможно спросит у сервера о поддержке, поэтому нужно использовать обязательно до следующей строки, чтобы не начинать шифровать общение с сервером до переключения}
IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

т.е. в таком порядке попробуйте.

[AppData]

macomics
к сожалению не помогло ((

[macomics]

WSAETIMEDOUT = 10060 ;Connection timed out.
A connection attempt failed because the connected party did not properly respond after a period of time, or the established connection failed because the connected host has failed to respond.

Судя по ошибке соединение установилось, но они не нашли общий язык с сервером. Или вы просто ничего у сервере не попросили из-за чего соединение было разорвано по timeout.

add: Хотя если это вылезло на строчке Connect, то значит это ошибка соединения.
С такими протоколами гораздо легче разбираться когда у вас есть логи сервера. Не думали настроить свой собственный ftp сервер хоть на той же самой машине и экспериментировать на нем.

[DIONISKA]

Сообщение от macomics

Судя по ошибке соединение установилось

неа, это значит что не получен ответ от сервера за время, указанное в IdFTP.ConnectTimeout

Вот не пойму, зачем менять порт дважды? FTPS порт будет скорее всего 990 (Implicit метод) , а не 21, посмотрите в настройках вашего сервера.
В итоге будет что-то вроде такого:

  IDFTP1.Host:='mysite.ru';
  IdFTP1.Port := 990;
  IdFTP1.Username:='Admin';
  IdFTP1.Password:='password';
  IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdFTP1.UseTLS := utUseImplicitTLS;
  IdFTP1.Passive:=True;
  idFtp1.AutoLogin := True;
  IdFTP1.Connect;

[AppData]

DIONISKA, к сожалению не помогло.