15 respuestas en este tema

[Kipow]

Que tal. estoy utilizando las indy 10.2.5 con delphi 2009

el codigo que utilizo es basicamente este

delphi

     FTP := TIdFTP.Create(nil);
     with FTP do
     try
        Host := FHost;
        Username := FUserName;
        Password := FPassword;
        Port := 21;
        try
            Connect;
            case Modo of
               Subir: begin
                   FTP.ChangeDir(FDirectorio);
                   Put(FArchivo,'',True);
                   Inc(FTPCountUP);
               end;
               Bajar: begin
                   FTP.ChangeDir(FDirectorio);
                   Get(FArchivo,FDirectorioDestino+FArchivoDestino,True,False);
                   Inc(FTPCountDOWN);
               end;
            end;
        except
        end;
      finally
          if FTP.Connected then
             FTP.Disconnect;
          FTP.Free;
      end;

El archivo que estoy subiendo es un archivo zip, termina de subir pero no sube completo, por consiguiente al bajarlo no me deja abrirlo.
que puede ser que este pasando que no lo sube todo?

Gracias por su tiempo.

[egostar]

Hola

Seguramente te servirá este código de nuestro amigo seoane

http://delphi.jmrds.com/?q=node/6

Salud OS

[Kipow]

Gracias por el codigo ego lo modifique asi pero igual este sube menos jaja el archivo original tiene 10mb este codigo sube 3mb con mi codigo anterior esta subiendo 11mb.

delphi

function TFTPThread.Upload : Boolean;
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  hFile: HINTERNET;
  Context: DWORD;
  Mem: TMemoryStream;
  Escritos: Cardinal;
begin
  Result := FALSE;
  Context:= 0;
  hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hCon:= InternetConnect(hNet,PChar(Host),21,PChar(Username),PChar(Password),
      INTERNET_SERVICE_FTP,0,Context);
    if (hCon <> nil) then
    begin
      hFile:= FtpOpenFileW(hCon,PChar('KP2.1.0.23.UPD'),GENERIC_WRITE,
        FTP_TRANSFER_TYPE_BINARY,Context);
      if (hFile <> nil) then
      begin
        Mem:= TMemoryStream.Create;
        Mem.LoadFromFile(Archivo);
        try
          try
            if InternetWriteFile(hFile,Mem.Memory,Mem.Size,Escritos) then
              Result:= Mem.Size = Escritos
            else
              Result:= FALSE;
          except end;
        finally
          Mem.Free;
        end;
        InternetCloseHandle(hFile);
      end;
      InternetCloseHandle(hCon);
    end;
    InternetCloseHandle(hNet);
  end;
end;

[egostar]

Hola

Si solo quieres hacer una aplicación FTP y no complicarte la vida puedes hacer uso de los componente AsyncPro, son libres y tienen ejemplos de FTP.

Puedes bajar un DEMO que compile para probar.

Salud OS

Archivos adjuntos

•  351_.zip   347,88KB   6 descargas

[Kipow]

gracias voy a probarlos, queria utilizar los indy para no estar instalando mas componentes pero igual si esa es la solucion "bienvenida"

Muchas gracias.

[seoane]

¿Has comprobado si el problema lo tiene el servidor? Porque me parece raro que falle wininet, son las mismas librerí­as que usa IExplorer, y aunque no sea una maravilla no creo que falle de manera tan estrepitosa. Además tengo un código similar funcionando en varios clientes y me va de maravilla  :^)

Prueba a mandar el archivo en pedazos mas pequeños, algunos servidores tienen la costumbre de cerrar la conexión si no hay actividad en el socket de control (el que se conecta por el puerto 21) y mientras se mandan archivos muy grandes esta conexión permanece inactiva.

[eduarcol]

el codigo de seoane yo tambien lo utilizo y no tiene ningun problema, asi que los tiros deben ir por otro lado

[Kipow]

Gracias por sus comentarios,el problema era el tipo de transferencia, le asigne esta propiedad a binaria y listo.

delphi

TransferType := ftBinary;

segun la ayuda de las indy ese es el valor predeterminado pero igual lo asigne y listo. ya pude subir mis archivos. dejo el link de las ayuda de las indy

http://www.indyproje...ean.html<br />

Ahora con el codigo de Seoane talvez el nos ayuda un poco para predeterminar el tipo de dato a transferir.

[seoane]

Ahora con el codigo de Seoane talvez el nos ayuda un poco para predeterminar el tipo de dato a transferir.

Ejem ...

delphi

FTP_TRANSFER_TYPE_BINARY

[Kipow]

Gracias Seoane, voy a probarlo asi tambien.

Saludos.

Me puse a revisar las fuentes de los Indy y encontre esta linea

delphi

Id_TIdFTP_TransferType = {ftBinary} ftASCII; // RLebeau 1/22/08: per RFC 959

segun la ayuda el valor predeterminado es binary pero ya veo que lo cambio este chatio RLebeau

[Kipow]

Un año después, que joder, estoy probando el mismo codigo en D2010 y nada que sube los archivos completos pero al bajarlos (completos) están corruptos. La unica diferencia es que la version de las Indy es la 10.5.5 la que trae por default el D2010

[enecumene]

wow, ¿un año y aún sin resolver? , pos eso hay que cambiarlo.

[Kipow]

wow, ¿un año y aún sin resolver? , pos eso hay que cambiarlo.

Nop hace un año lo resolvi con D2009, ahora estoy probando D2010 para ver si migro y me da el mismo problema con el codigo que si funciona en D2009

[egostar]

Tal vez persista el problema del tipo de transferencia, porque no miras por ese lado.

Salud OS

[Kipow]

precisamente eso era otravez, problema del tipo a transferir, ahora tuve que modificar las fuentes del idFTP.pas

delphi

Id_TIdFTP_TransferType = {ftBinary} ftASCII; // RLebeau 1/22/08: per RFC 959

por

delphi

Id_TIdFTP_TransferType = ftBinary {ftASCII}; // RLebeau 1/22/08: per RFC 959

[egostar]

Ah vaya que bien. Me alegra que haya sido algo no muy complejo.

Salud OS