Realizar una conexion FTP mediante Delphi

[JuanErasmo]

Ya convertí a C++ Builder y me funciono perfecto, pero solo me muestra los archivos y carpetas que estan en la "carpeta de entrada", no me muestra los archivos que estan en subcarpetas y demas....como hago que me muestre las subcarpetas?
Gracias!

[JuanErasmo]

Hola otra vez....este codigo funciona para la lista del directorio root, pero si yo quiero "navegar" por ese listado...como hago para obtener la lista pero dentro de los subdirectorios? ya se como cambiar de directorio con FTPSetCurrentDirectory, pero no se como ejecutar para obtener el listado...
Gracias..si sabes como hacerlo te lo agradeceria.

[[seoane]]

El código tal cual te lo puse lista el contenido del directorio actual, así que si cambias el directorio actual, listara el contenido del nuevo directorio actual. De todas formas puedes especificar la ruta a listar:

Código Delphi [-]
procedure Listar(Server: string; Port: Word;Username, Password: PChar);
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  hFind: HINTERNET;
  Context: DWORD;
  Data: WIN32_FIND_DATA;
begin
  Context:= 0;
  hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hCon:= InternetConnect(hNet,PChar(Server),Port,Username,Password,
      INTERNET_SERVICE_FTP,0,Context);
    if (hCon <> nil) then
    begin
      //FtpSetCurrentDirectory(hCon,'/123'); // Con esto cambiariamos el directorio actual
      hFind:= FtpFindFirstFile(hCon,'/123/*',Data,0,Context); // < -- Fijate que digo que liste el directorio /123
      if hFind <> nil then
      begin
        repeat
          // Si quieres listar archivos ademas de directorio basta con eliminar esta linea
          //if (Data.dwFileAttributes and faDirectory) = faDirectory then
          //begin
            // Aqui muestro el nombre del directorio, tu puede hacer lo que quieras con el
            ShowMessage(Data.cFileName);
          //end;
        until not InternetFindNextFile(hFind,@Data);
        InternetCloseHandle(hFind);
      end;
      InternetCloseHandle(hCon);
    end;
    InternetCloseHandle(hNet);
  end;
end;

[JuanErasmo]

hola otra vez...
soy yo, de nuevo con el ftp, ya subo un archivo a mi servidor, pero ahora quiero crear un directorio en mi servidor ftp...
como se hace? que instruccion le aplico?
Gracias!

[[seoane]]

Empezado por JuanErasmo

que instruccion le aplico?

FtpCreateDirectory

[JuanErasmo]

Hola amigos,
En este hilo se envia un archivo ftp, perooooooooooo si el archivo se interrumpe en la subida, y la creacion no es completa, como verificar si el archivo llego?

Lo que pasa es que estoy enviando una serie de archivos y tengo que verificar que todos leguen a su destino....alguna idea de como hacerlo?
Gracias!