ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
the correct FTP, port and login properties.
There is no disconnection in the code below so if you want to disconnect
from the server you have to do this somewhere yourself.
Add the code below to your project
----
function FixPath(path : string) : string;
begin
if IsPathDelimiter(Path,lengt
end;
function AttrDirectory(str : string) : boolean;
begin
str := trim(str);
result := (upcase(str[1]) = 'D');
end;
procedure TForm1.GetAllFiles(remoted
var lp0 : integer;
localfile : string;
begin
if NMFTP1.connected = false then NMFTP1.connect;
if NMFTP1.connected then begin
if DirectoryExists(FixPath(lo
NMFTP1.ChangeDir(remotedir
NMFTP1.ParseList := true;
NMFTP1.List;
for lp0 := 0 to NMFTP1.FTPDirectoryList.na
if not AttrDirectory(NMFTP1.FTPDi
LocalFile := FixPath(localdir)+'\'+NMFT
FFtp.Download(NMFTP1.FTPDirectoryList.name.Strings[lp0],LocalFile);
end;
end:
end;
end;
end;
end;