Programming Forums > Application Development > Delphi

MrFailboat1990 · Mar 7th, 2010, 10:29 PM

hi

i am writing a program for a client to upload files related to his management software to a backup FTP on the local network.

I am using Indy Componenents to make the FTP Connection, i have a TidFTP component on the form with all the FTP connection information in.

The Form succesfully connects/disconnects and uploads single files to the FTP.

i need to know how to write code to perform a search for files with the extension of .RGPJ on Local Drive X:\
and then upload the found files to the server.

i can upload a single RGPJ file using

(Toggle Plain Text)

IDFtp1.Put('LocalFile', 'RemoteFile');

but im stuck for searching for multiple files and uploading them.

anybody out here kind enough to shed some light on the subject?

abdul.gafur · Mar 7th, 2010, 10:45 PM

Please visit :

MrFailboat1990 · Mar 8th, 2010, 10:34 AM

hi

i still dont have exactly what i need but i think im close now, the code im using for the search is below.

(Toggle Plain Text)

procedure FindAll (const Path: String;
                          Attr: Integer;
                          List: TStrings) ;
var
   Res: TSearchRec;
   EOFound: Boolean;
begin
   EOFound:= False;
   if FindFirst(Path, Attr, Res) < 0 then
     exit
   else
     while not EOFound do begin
       List.Add(Res.Name) ;
       EOFound:= FindNext(Res) <> 0;
     end;
   FindClose(Res) ;
end;

and to search im using

(Toggle Plain Text)

FindAll('X:\Test\*.rgpj*',faAnyFile,ListBox1.Items);

however this code i have only seems to list files in the current directory, i need a function that searches the entire drive including subfolders etc, and then lists all the .rgpj files it finds.

http://www.festra.com/eng/snip04.htm

the procedure listed on there i actually cannot get to return any results at all when im testing it.

would somebody mind helping me out with writing my own function to search for the files i need over an entire drive.

abdul.gafur · Mar 8th, 2010, 8:22 PM

 delphi Syntax (Toggle Plain Text) 
// Recursive procedure to build a list of files
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
 
  { Build a list of the files in directory StartDir
     (not the directories!)                         }
 
  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
 
  // Build a list of subdirectories
  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and
         (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
 
  // Scan the list of subdirectories
  for i := 0 to DirList.Count - 1 do
    FindFiles(FilesList, DirList[i], FileMask);
 
  DirList.Free;
end;
 
// Example: how to use FindFiles
procedure TForm1.ButtonFindClick(Sender: TObject);
var
  FilesList: TStringList;
begin
  FilesList := TStringList.Create;
  try
    FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text);
    ListBox1.Items.Assign(FilesList);
    LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count);
  finally 
    FilesList.Free;
  end;
end;
// Recursive procedure to build a list of files
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';

  { Build a list of the files in directory StartDir
     (not the directories!)                         }

  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Build a list of subdirectories
  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and
         (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Scan the list of subdirectories
  for i := 0 to DirList.Count - 1 do
    FindFiles(FilesList, DirList[i], FileMask);

  DirList.Free;
end;

// Example: how to use FindFiles
procedure TForm1.ButtonFindClick(Sender: TObject);
var
  FilesList: TStringList;
begin
  FilesList := TStringList.Create;
  try
    FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text);
    ListBox1.Items.Assign(FilesList);
    LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count);
  finally 
    FilesList.Free;
  end;
end;

source : http://www.festra.com/eng/snip04.htm

FindFiles is recursive. See part of FindFIles' code



 // Scan the list of subdirectories

  for i := 0 to DirList.Count - 1 do

    FindFiles(FilesList, DirList[i], FileMask);

It is for search the entire folders

MrFailboat1990 · Mar 8th, 2010, 10:11 PM

hi

when my application is using the search function i cannot move my application window or interact with any other button.

how can i make my application responsive while it is searching for files in the background.

Mar 7th, 2010, 10:29 PM	#1
MrFailboat1990 Newbie Join Date: Mar 2010 Posts: 4 Rep Power: 0	Performing a file search, and then uploading results to a backup server hi i am writing a program for a client to upload files related to his management software to a backup FTP on the local network. I am using Indy Componenents to make the FTP Connection, i have a TidFTP component on the form with all the FTP connection information in. The Form succesfully connects/disconnects and uploads single files to the FTP. i need to know how to write code to perform a search for files with the extension of .RGPJ on Local Drive X:\ and then upload the found files to the server. i can upload a single RGPJ file using (Toggle Plain Text) IDFtp1.Put('LocalFile', 'RemoteFile'); IDFtp1.Put('LocalFile', 'RemoteFile'); but im stuck for searching for multiple files and uploading them. anybody out here kind enough to shed some light on the subject?

Mar 7th, 2010, 10:45 PM	#2
abdul.gafur Trying to be a Real Coder Join Date: Feb 2010 Location: Salo, Riau, Indonesia Posts: 112 Rep Power: 1	Re: Performing a file search, and then uploading results to a backup server Please visit : http://delphi.about.com/cs/adptips19...ltip1199_5.htm http://www.delphibasics.co.uk/Article.asp?Name=Files http://www.festra.com/eng/snip04.htm __________________ just a drop of dew in the morning

Mar 8th, 2010, 10:34 AM	#3
MrFailboat1990 Newbie Join Date: Mar 2010 Posts: 4 Rep Power: 0	Re: Performing a file search, and then uploading results to a backup server hi i still dont have exactly what i need but i think im close now, the code im using for the search is below. (Toggle Plain Text) procedure FindAll (const Path: String; Attr: Integer; List: TStrings) ; var Res: TSearchRec; EOFound: Boolean; begin EOFound:= False; if FindFirst(Path, Attr, Res) < 0 then exit else while not EOFound do begin List.Add(Res.Name) ; EOFound:= FindNext(Res) <> 0; end; FindClose(Res) ; end; procedure FindAll (const Path: String; Attr: Integer; List: TStrings) ; var Res: TSearchRec; EOFound: Boolean; begin EOFound:= False; if FindFirst(Path, Attr, Res) < 0 then exit else while not EOFound do begin List.Add(Res.Name) ; EOFound:= FindNext(Res) <> 0; end; FindClose(Res) ; end; and to search im using (Toggle Plain Text) FindAll('X:\Test\.rgpj',faAnyFile,ListBox1.Items); FindAll('X:\Test\.rgpj',faAnyFile,ListBox1.Items); however this code i have only seems to list files in the current directory, i need a function that searches the entire drive including subfolders etc, and then lists all the .rgpj files it finds. http://www.festra.com/eng/snip04.htm the procedure listed on there i actually cannot get to return any results at all when im testing it. would somebody mind helping me out with writing my own function to search for the files i need over an entire drive.

Mar 8th, 2010, 8:22 PM	#4
abdul.gafur Trying to be a Real Coder Join Date: Feb 2010 Location: Salo, Riau, Indonesia Posts: 112 Rep Power: 1	Re: Performing a file search, and then uploading results to a backup server delphi Syntax (Toggle Plain Text) // Recursive procedure to build a list of files procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string); var SR: TSearchRec; DirList: TStringList; IsFound: Boolean; i: integer; begin if StartDir[length(StartDir)] <> '\' then StartDir := StartDir + '\'; { Build a list of the files in directory StartDir (not the directories!) } IsFound := FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0; while IsFound do begin FilesList.Add(StartDir + SR.Name); IsFound := FindNext(SR) = 0; end; FindClose(SR); // Build a list of subdirectories DirList := TStringList.Create; IsFound := FindFirst(StartDir+'.', faAnyFile, SR) = 0; while IsFound do begin if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then DirList.Add(StartDir + SR.Name); IsFound := FindNext(SR) = 0; end; FindClose(SR); // Scan the list of subdirectories for i := 0 to DirList.Count - 1 do FindFiles(FilesList, DirList[i], FileMask); DirList.Free; end; // Example: how to use FindFiles procedure TForm1.ButtonFindClick(Sender: TObject); var FilesList: TStringList; begin FilesList := TStringList.Create; try FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text); ListBox1.Items.Assign(FilesList); LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count); finally FilesList.Free; end; end; // Recursive procedure to build a list of files procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string); var SR: TSearchRec; DirList: TStringList; IsFound: Boolean; i: integer; begin if StartDir[length(StartDir)] <> '\' then StartDir := StartDir + '\'; { Build a list of the files in directory StartDir (not the directories!) } IsFound := FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0; while IsFound do begin FilesList.Add(StartDir + SR.Name); IsFound := FindNext(SR) = 0; end; FindClose(SR); // Build a list of subdirectories DirList := TStringList.Create; IsFound := FindFirst(StartDir+'.', faAnyFile, SR) = 0; while IsFound do begin if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then DirList.Add(StartDir + SR.Name); IsFound := FindNext(SR) = 0; end; FindClose(SR); // Scan the list of subdirectories for i := 0 to DirList.Count - 1 do FindFiles(FilesList, DirList[i], FileMask); DirList.Free; end; // Example: how to use FindFiles procedure TForm1.ButtonFindClick(Sender: TObject); var FilesList: TStringList; begin FilesList := TStringList.Create; try FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text); ListBox1.Items.Assign(FilesList); LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count); finally FilesList.Free; end; end; source : http://www.festra.com/eng/snip04.htm FindFiles is recursive. See part of FindFIles' code `// Scan the list of subdirectories for i := 0 to DirList.Count - 1 do FindFiles(FilesList, DirList[i], FileMask);` It is for search the entire folders __________________ just a drop of dew in the morning

Mar 8th, 2010, 10:11 PM	#5
MrFailboat1990 Newbie Join Date: Mar 2010 Posts: 4 Rep Power: 0	Re: Performing a file search, and then uploading results to a backup server hi when my application is using the search function i cannot move my application window or interact with any other button. how can i make my application responsive while it is searching for files in the background.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Delphi

Performing a file search, and then uploading results to a backup server