Ver Mensaje Individual
  #3  
Antiguo 02-01-2008
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
Yo utilizo el componente NMTP que viene con Delphi, me conecto al servidor y luego hago:
Código Delphi [-]
    Try
    NMFTP.Rename(cFichero,EdFichero.Text);
    Except
    ShowMessage('Error al cambiar de nombre al fichero.');
    end;


Y me conecto así:
Código Delphi [-]
procedure TfrExpterminales.btConectarClick(Sender: TObject);
begin
btDesconectar.Enabled :=True;
btListar.Enabled :=True;
btEliminar.Enabled:=True;
btSubir.Enabled :=True;
btDescargar.Enabled :=True;

btConectar.Enabled :=False;

pnEstado.Caption:='Servidor Conectado';
pnEstado.Font.Color:=ClGreen;
pnEstado.BevelOuter:=bvRaised;

NMFTP.Host := HostTxt.Text;
NMFTP.Port := StrToInt(PortTxt.Text);
NMFTP.Timeout := 5000;
NMFTP.UserID := UserTxt.Text;
NMFTP.Password := PassTxt.Text;
  try
  NMFTP.Connect;
  except
  On E:Exception do
  writeln(E.message);
  end;
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.

Última edición por marcoszorrilla fecha: 02-01-2008 a las 16:40:13.
Responder Con Cita