subir archivo a servidor ftp

[marcoszorrilla]

Puedes utilizar el componente NMFTP de la paleta FastNet:

Código Delphi [-]
Procedure Concectarse_Al_Servidor();
begin
NMFTP.Host :='210.00.120.00';
NMFTP.Port := 21;
NMFTP.Timeout := 5000;
NMFTP.UserID := 'Mi_Nombre_de_Usuario';
NMFTP.Password := 'MiClave';
  try
  NMFTP.Connect;
  except
  On E:Exception do
  writeln(E.message);
  end;
end;


Procedure Subir_Fichero();
Var
cFichero_a_Subir:String;
cFichero_Subido:String;
begin
cFichero_a_Subir:='C:\Vendedores\Clientes.Txt';
cFichero_Subido:='Clientes.Txt';
NMFTP.UploadAppend(cSubirFichero,cFichero_Subido );
end;

Tienes un ejemplo de uso en las Demos que te vienen con Delphi.

Un Saludo.