Conexion ftp

[fedelphi]

Hola a todos en el foro, quisiera saber como realizar una conexion FTP. Mi situacion es la siguiente, hay un servidor unix en el cual residen los archivos a obtener, estos son archivos de texto. Actualmente para traerlos se ejecutan unas lineas en dos(Todas las terminales tienen windows98) y mi idea es realizar un cliente ftp para realizarlo. Tengo turbodelphi 2006 e intente conectarme con el componente TClientSocket, pero el server queda en preloguin, ya que no se como ingresarle el usuario, password que pide el server. Realmente necesito una ayuda para conectarme con esto o una sujerencia de como realizarlo de otra manera, ya que nunca lo he realizado y no se para donde encararlo, obte por esto porque fue lo que vi en los componentes de delphi. Muchas gracias.
Fede

[seoane]

Prueba utilizando WinInet:


Uses WinInet;

function Download(LocalFile, RemoteFile, Server: string; Port: Word;
Username, Password: PChar): Boolean;
var
hNet: HINTERNET;
hCon: HINTERNET;
Context: DWORD;
begin
Result := FALSE;
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
Result:= FtpGetFile(hCon,PChar(RemoteFile),PChar(LocalFile),FALSE,
FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, Context);
InternetCloseHandle(hCon);
end;
InternetCloseHandle(hNet);
end;
end;


// Por ejemplo
Download('c:\1.txt','/Carpeta/1.txt','192.168.1.33',21,'Usuario','Password');

[fedelphi]

Muchisimas gracias seoane, funciona de maravilla.
Fede