Fórum D2006 com IdFTP e com proxy na rede - Não funciona a conexão #449287

    IdFTPEnviarXML.Host := XmlConf.ReadString('FTP', 'Host', '');
    IdFTPEnviarXML.Username := XmlConf.ReadString('FTP', 'User', '');
    IdFTPEnviarXML.Password := XmlConf.ReadString('FTP', 'Password', '');
    IdFTPEnviarXML.Port := XmlConf.ReadInteger('FTP', 'Port', 21);
    IdFTPEnviarXML.ProxySettings.ProxyType := fpcmNone;

    if XmlConf.ReadString('OPCOES', 'UsarProxy', '') = 'SIM' then
    begin
      IdFTPEnviarXML.ProxySettings.ProxyType := fpcmHttpProxyWithFtp;
      IdFTPEnviarXML.ProxySettings.Host := XmlConf.ReadString('Proxy', 'Host', '');
      IdFTPEnviarXML.ProxySettings.UserName := XmlConf.ReadString('Proxy', 'User', '');
      IdFTPEnviarXML.ProxySettings.Password := XmlConf.ReadString('Proxy', 'Password', '');
      IdFTPEnviarXML.ProxySettings.Port := XmlConf.ReadInteger('Proxy', 'Porta', 3128);
      IdFTPEnviarXML.UseExtensionDataPort := True;
      //IdFTPEnviarXML.UseMLIS := True;
      //IdFTPEnviarXML.UseTLS := True;

      ShowMessage('Host ' + IdFTPEnviarXML.ProxySettings.Host + #13 +
      'UserName' + IdFTPEnviarXML.ProxySettings.UserName + #13 +
      'Password' + IdFTPEnviarXML.ProxySettings.Password + #13 +
      'Port' + inttostr(IdFTPEnviarXML.ProxySettings.Port));

      IdFTPEnviarXML.Passive := True;
    end else
    begin
      IdFTPEnviarXML.Passive := False; { usa modo ativo }
    end;
  end;

  try
    try
      ShowMessage('Antes de conectar');

      { Espera até 10 segundos pela conexão }
      IdFTPEnviarXML.ConnectTimeout := 10000;
      IdFTPEnviarXML.Connect();

      //IdFTPEnviarXML.Connect(IdFTPEnviarXML.Host, IdFTPEnviarXML.ProxySettings.Port);
      ShowMessage('conectou');
      // ShowMessage('cam ' + Caminho + ' nom ' + Nome);

      IdFTPEnviarXML.Put(Caminho, Nome + '.xml', False);