The answer lies in your code :)

ICSFTP.LocalFileName := 'C:\Misc\FilesInHostDir.txt'; <--- Whener you do a 
"Get()", this is the place to look for the downloaded files.

Cheers,
Marcelo Grossi

----- Original Message ----- 
From: "Clay Shannon" <[EMAIL PROTECTED]>
To: "'ICS support mailing'" <twsocket@elists.org>
Sent: Monday, August 21, 2006 5:03 PM
Subject: Re: [twsocket] List() method?


> <<Use FtpTst sample program to better understand what the commands are
> doing.
> You get edit boxes to enter data and a button for most of the commands.>>
>
> Thanks, but what I still don't see is how I can direct the ftp'd files to 
> be
> placed on my local machine. IOW, I know can direct the listing via the
> List() method to be written to the value I assign to the LocalFileName
> property, but when I loop through the file names listed in that file, how 
> do
> I direct the Get() function to place them in a certain location?
>
> IOW, say I end up with a file named "NailFiles.txt" in C:\Misc, which
> contains the following lines/file names:
>
> arg.DAT
> bat.DAT
> cat.DAT
> dog.DAT
> eat.DAT
> fat.DAT
> goo.DAT
> hat.DAT
> ...etc.
>
> and that I want to Get() all the files that match the mask "*at.dat"
>
> How can I direct that the files I choose to ftp get sent to 
> "C:\AtDatFiles\"
> when I call the Get() method?
>
> The code I have so far is below:
>
> procedure TfKDQServer.GetFTPFiles;
> var
>  sFileName: String;
>  sl: TStringList;
>  i: Integer;
>  ICSFTP: TFTPClient;
> begin
>  ICSFTP := TFTPClient.Create(nil);
>  try
>    ICSFTP.UserName := 'nbc';
>    ICSFTP.Password := 'howardCosell';
>    ICSFTP.Binary   := TRUE;  //is this correct/needed?
>    ICSFTP.Passive  := TRUE;  //needed?
>    ICSFTP.LocalAddr := 'localhost';
>    ICSFTP.Port := 'ftp';
>    ICSFTP.SocksPort := '21'; //'ftp';
>    ICSFTP.SocksUserCode := 'nbc';  //needed?
>    ICSFTP.SocksPassword := 'howardCosell'; //needed?
>    ICSFTP.HostDirName := '/FootballSongs/DandyDan/TurnOutTheLights';
>    ICSFTP.HostFileName := '*.DAT';
>    ICSFTP.HostName := '20.96.195.28';
>    ICSFTP.LocalFileName := 'C:\Misc\FilesInHostDir.txt';
>    if not ICSFTP.Connect then
>      Exit;
>    ICSFTP.Cwd;
>    ICSFTP.List;
>    try
>      sl := TStringList.Create;
>      sl.LoadFromFile(ICSFTP.LocalFileName);
>      for i := 0 to Pred(sl.Count) do
>        if IsAWantedFile(sl[i]) then begin
>          ICSFTP.HostFileName := sl[i];
>          ICSFTP.Get;
>        end;
>    finally
>      sl.Free;
>    end;
>  finally
>    ICSFTP.Quit; //needed?
>    ICSFTP.Free;
>  end;
> end;
>
>
>
>


--------------------------------------------------------------------------------


> The information transmitted is intended only for the person or entity to
> which it is addressed and may contain confidential and/or privileged
> material.  If the reader of this message is not the intended recipient,
> you are hereby notified that your access is unauthorized, and any review,
> dissemination, distribution or copying of this message including any
> attachments is strictly prohibited.   If you are not the intended
> recipient, please contact the sender and delete the material from any
> computer.
>


--------------------------------------------------------------------------------


> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be 

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to