Ver Mensaje Individual
  #6  
Antiguo 20-06-2025
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.437
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Yo lo tengo configurado de esta forma:

Código Delphi [-]
  IdFTP.Passive := True;
  IdFTP.TransferType := TIdFTPTransferType.ftBinary;
Y con el código que ves más abajo (muy similar al tuyo) me funciona perfectamente.

Código Delphi [-]
var
  items:TIdFTPListItems;
...
begin
...
  try
    // Cargar contenido
    IdFTP.List;
    items := IdFTP.DirectoryListing;
    for i := 0 to (items.Count - 1) do begin
      item := idftp.directorylisting.Items[i];
      if (item.ItemType = ditFile) and AnsiContainsText(AnsiString(Item.FileName), AnsiString(MiFichero)) then begin
        ...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita