Ver Mensaje Individual
  #4  
Antiguo 22-11-2009
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Pues la sintáxis es correcta, aquí te adjunto un fragmento de código que utilizo yo mismo:

Código Delphi [-]
procedure TfrExpterminales.btDescargarClick(Sender: TObject);
begin
lError:=False;

cAddFechaHora:=FormatDateTime('_yyyymmddhhmm',Now);
  EdFichero.Text:='Ven010'+Vendedor+cAddFechaHora+'.Zip';
  cFichero:='Ven010'+Vendedor+'.Zip';
  pnMensajes.Color:=ClBlack;

  try
  IdFTP.Get( cFichero,  cCaminoTerminales+'Ven010'+Vendedor+cAddFechaHora+'.Zip' , False );
      Try
      Borrar_Pedidos_Vendedor();
      zip.ExtrBaseDir:=cCaminoTerminales;
      Zip.ZipFilename :=cCaminoTerminales+'Ven010'+Vendedor+cAddFechaHora+'.Zip';
      Zip.Extract();
            Try
            Leer_Cabecera_Pedidos();
            except
            lError:=True;
            ShowMessage('Error:Al leer la cabecera de pedidos.');
            end;


Mira a ver si el nombre y tipo del fichero es el que estás intentando descargar.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita