Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Error en componente IdFTP con delphi 7 (https://www.clubdelphi.com/foros/showthread.php?t=79725)

kurono 04-08-2012 06:44:33

Error en componente IdFTP con delphi 7
 
hola amigos les cuento que tengo un codigo para conectarme a un ftp el cual me da el siguiente error List index out of bounds (0) lo currioso del caso es que ese mismo codigo lo tengo en otro proyecto y no me da error funciona perfectamente que podra ser, intente actualizando a las indy 10 y me da el mismo error, una cosa mas el componente IdFTP es el que viene por defecto con delphi 7

este es el codigo

Código Delphi [-]
var
  TS:TStrings;       // TStringList creada para leer el fichero
begin
     try
        with IdFTP1 do
        begin
           Host :=txt_servidor.Text ; //direccion ftp: ftp.mydominio.com o IP
           Username :=txt_usuario.Text;   //nombre de usuario
           Password :=txt_password.Text;   //contraseña
           Port :=StrToInt(txt_puerto.Text);   //normalmente el 21
           ReadTimeout:=StrToInt(txt_tiempo.Text);
           Connect;
           if (Connected) then
          try
             txt_Barra.Panels[0].Text:='Estado :Conectado';
             txt_Usuario.Enabled:=False;
             txt_Password.Enabled:=False;
             btn_conectar.Enabled:=False;
             except
             txt_Barra.Panels[0].Text:='Error a Conectar';
             txt_Usuario.Enabled:=true;
             txt_Password.Enabled:=true;
             btn_conectar.Enabled:=True;
           end;
         end;
     except
        on e:Exception do
        try
           {Escribo un log de errores}
           ts := TStringList.Create;
           ts.Add('FTP - '+DateTimeToStr(Now));
           ts.Add(e.Message);
           ts.SaveToFile('FTP.log');
        finally
           ts.Free;
           Application.MessageBox('Contraseña o Usuario Incorrecto','Advertencia',MB_ICONWARNING);
        end;
     end;
  end;
end.

roman 04-08-2012 15:46:49

¿En qué línea te da el error?

// Saludos

kurono 04-08-2012 18:57:54

en ninguna linea cuando compilo y hago clic en el boton para conectar es que me lanza el error fuera de delphi el ejecutable me lansa la execpcion que e declarado en el codigo pero nuca llega a conectarse lo que me inquieta mas es que ese mismo codigo lo tengo en un proyecto viejo y funciona perfectamente

roman 04-08-2012 19:03:45

¿Tienes desactivada la opción Stop on delphi Exceptions? Sí es así, actívala para que la ejecución se detenga dentro de delphi.

// Saludos

kurono 04-08-2012 19:35:51

en donde se encuentra esa opcion no lo veo por ningun lado

roman 04-08-2012 19:40:45

En Tools|Debugger Options|Language Exceptions

// Saludos

kurono 04-08-2012 19:45:23

ya la encontre pero esta activada

kurono 04-08-2012 20:08:45

amigo roman e compilado el proyecto de nuevo y ahora me sale este error Socket Error # 11004 que podra esta pasando

roman 04-08-2012 20:28:40

Ese ya es otro tipo de error. Está raro. Aquí dan algunos tips, verifica que no sea algo así.

// Saludos

kurono 16-08-2012 01:33:06

amigo roman e retomado el proyecto ya que estaba ocupado y no tenia tiempo para analizar como resolver mi problema pero hasta ahora no e podido conectarme me gustaria que vieras el proyecto completo y lo compilara para ver si te sale el mismo error.

se muy bien que en este foro no se acepta hacer tarea pero no es lo que pido sino simplemente que lo compile ya que es la unica manera para comprobar que es lo que pasa

roman 16-08-2012 06:28:05

Trataré de probarlo mañana.

// Saludos

kurono 16-08-2012 07:54:19

ok espero solucionar este problema ya que no puedo avanzar este proyecto hasta que no logre conectarme al FTP

kurono 20-08-2012 05:55:29

me gustaria saber si alguien a probado el codigo que e puesto ya que no he podido avanzar en este proyecto

olbeup 20-08-2012 15:36:44

He cogido tú código y no me ha funcionado.
He realizado un formulario nuevo y he pegado IdFTP he puesto manualmente los datos de mi FTP y funciona correctamente.

Es posible que tú FTP: pc-master_99k.org tenga que poner algo más en el nombre de usuario.

Un saludo.

kurono 21-08-2012 03:26:07

no creo que hay que poner algo mas ya que tengo ese mismo codigo en otro proyecto y funciona perfectamente pero te cuento que e hecho lo mismo que tu de crear un nuevo proyecto y pegar el codigo pero a diferencia de ti a mi no me funciona

ademas lo e probado con otro ftp y tampoco funciona ya no se que hacer pues e desintalado el delphi y lo e vuelto a instalar y da lo mismo incluso formatie la pc y aun asi no funciona, debo decir que instalo delphi desde una particion de mi disco duro no desde un cd aunque eso no tiene que ver porque siempre lo e hecho asi pero ya no se que creer

Casimiro Notevi 21-08-2012 10:29:10

¿Y estás seguro de que en el otro pc (en el que funciona) tienes la misma configuración que en el que no funciona?

kurono 22-08-2012 01:21:47

amigo casimiro dije que lo tengo en otro proyecto no en otro pc lo e probado en otro pc y tampoco funciona, esto es algo raro porque e hecho de todo para que funcione desde desativar el firewall hasta instalar de nuevo el windows y nada lo unico que me falta por hacer es compilarlo en otra pc a ver que pasa

kurono 22-08-2012 02:50:05

amigos les cuento que instale el delphi en otra maquina exactamente con todos los componentes tercero que tengo en mi pc y compile el proyecto y tampoco funciono por lo visto lo mas viable que encuentro es modificar el viejo proyecto el cual si funciona y adaptarlo a la nueva necesidad que tengo


La franja horaria es GMT +2. Ahora son las 18:44:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi