<<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 := '220.127.116.11'; 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