Realizar una conexion FTP mediante Delphi

[JuanErasmo]

Como creo una carpeta en el servidor?
Tengo muchas dudas con esto del ftp....es la manera correcta de transferir archivos? o ya va a entrar en desuso??
Gracias

[[seoane]]

Para listar los directorios, otra vez mas, te dejo el codigo en delphi

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
      hFind:= FtpFindFirstFile(hCon,nil,Data,0,Context);
      if hFind <> nil then
      begin
        repeat
          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;

En cuanto a si el ftp esta "de moda" o no, no soy quien para contestarte. Yo lo veo perfectamente valido para subir ficheros a un servidor. Claro que hay otros métodos para transferir archivos (p2p, carpetas compartidas, http ...) todos tienen sus ventajas y sus inconvenientes, eso depende mucho de cada caso.

[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