read all files in a folder

[xinyiman]

Question: What are the commands to read all files in a folder and the subfolders too? I might do crossplatform an example? Thanks

[Leledumbo]

By using TFileSearcher:

Code: [Select]

uses
  FileUtil;
...

type
  TFileReader = class(TFileSearcher)
  public
    procedure OnFileFound(FileIterator: TFileIterator);
  end;

...
procedure TFileReader.OnFileFound(FileIterator: TFileIterator);
begin
  // Read the file here
end;
...
var
  Searcher: TFileReader;
begin
  Searcher := TFileReader.Create;
  Searcher.OnFileFound := @Searcher.OnFileFound;
  // search the files on C:\Files directory
  // search only on .txt and .html files
  // recursive
  // use ; as mask separator (to separate *.txt and *.html)
  Searcher.Search('C:\Files','*.txt;*.html',true,';');
end;
...


[xinyiman]

Thank you. But get an error!


Hint: Start of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling project1.lpr
Compiling unit1.pas
Compiling unit1.pas
unit1.pas(35,26) Error: Wrong number of parameters specified for call to "OnFileFound"
ricercafile.pas(54,23) Hint: Found declaration: TFileReader.OnFileFound(TFileIterator);
unit1.pas(48) Fatal: There were 1 errors compiling module, stopping

[Leledumbo]

Sorry, it's an untested code. What mode are you in? This should work in the default objfpc mode.
What does line 35 contain?

Let's see...try changing the code:

Code: [Select]

type
  TFileReader = class(TFileSearcher)
  public
    constructor Create;
    procedure OnFileFound(FileIterator: TFileIterator);
  end;
...
constructor TFileReader.Create;
begin
  inherited Create;
  FOnFileFound := @OnFileFound;
end;
...
And remove this line:

Code: [Select]

Searcher.OnFileFound := @Searcher.OnFileFound;


[xinyiman]

ricercafile.pas(62,17) Error: Identifier not found "FOnFileFound"

[xinyiman]

Resolved!


unit RicercaFile;

{$mode objfpc}{$H+}


{ TForm1 }


{

type
  TFileReader = class(TFileSearcher)
  public
    constructor Create;
    procedure OnFileFound(FileIterator: TFileIterator);
  end;
...
constructor TFileReader.Create;
begin
  inherited Create;
  FOnFileFound := @OnFileFound;
end;
...
var
  Searcher: TFileReader;
begin
  Searcher := TFileReader.Create;
  Searcher.OnFileFound := @Searcher.OnFileFound;
  // search the files on C:\Files directory
  // search only on .txt and .html files
  // recursive
  // use ; as mask separator (to separate *.txt and *.html)
  Searcher.Search('C:\Files','*.txt;*.html',true,';');
end;
}


interface

uses
  Classes, SysUtils,
  FileUtil //aggiunto per leggere i file
  ;

type
  TFileReader = class(TFileSearcher)
  public
    constructor Create;
    procedure OnFileFoundNew(FileIterator: TFileIterator);
  end;

implementation
uses unit1;


constructor TFileReader.Create;
begin
  inherited Create;
   OnFileFound := @OnFileFoundNew;
end;

procedure TFileReader.OnFileFoundNew(FileIterator: TFileIterator);
begin
   Form1.Lista_File.Items.Add(FileIterator.Path + '-->' + FileIterator.FileInfo.Name + '(' + IntToStr(FileIterator.FileInfo.Attr) + ')');
end;

end.


//--------------------------------------------------------------------------------

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls,RicercaFile;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Lista_File: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
   Searcher: TFileReader;
begin
     Searcher := TFileReader.Create;
     // search the files on C:\Files directory
     // search only on .txt and .html files
     // recursive
     // use ; as mask separator (to separate *.txt and *.html)
      Searcher.Search('C:\Lavoro','*.mdb;*.html',true,';');
end;

initialization
  {$I unit1.lrs}

end.
       

         

[xinyiman]

How do I know which drives are available and what not?

If instead of commands TFileReader had the lowest level where I can see the drive connected, view files and folders would be better. Anybody know these commands?

[Leledumbo]

ricercafile.pas(62,17) Error: Identifier not found "FOnFileFound"

It was a guess actually since usually instance variables are prefixed with F.

How do I know which drives are available and what not?

I'm not sure, I don't think we have that in cross platform manner.

[xinyiman]

Thank you

[xinyiman]

RESOLVED, seample example

//to write file and directory into ListBox

procedure TForm1.Button1Click(Sender: TObject);
var
//   Searcher: TFileReader;
  Info : TSearchRec;
  Count : Longint;
  app: string;
begin
     Count:=0;
     //se volessi leggere la cartella corrente basterebbe *
     If FindFirst ('c:\*',faAnyFile and faDirectory,Info)=0 then
       begin
       Repeat
         Inc(Count);
         With Info do
           begin
           If (Attr and faDirectory) = faDirectory then
             Form1.Lista_File.Items.Add('Dir : ' + Name + ' dimensione: ' + IntToStr(Size))
           else
            Form1.Lista_File.Items.Add('File : ' + Name + ' dimensione: ' + IntToStr(Size));
         end;
       Until FindNext(info)<>0;
       end;
     FindClose(Info);
     //Writeln ('Finished search. Found ',Count,' matches');
     Form1.Lista_File.Items.Add('Finished search. Found ' + IntToStr(Count) + ' matches');
end;


//to control the drive

procedure TForm1.Button2Click(Sender: TObject);
begin
     if DirectoryExists('C:')=TRUE then
     begin
          ShowMessage('Il drive C: esiste!');
     end;

     if DirectoryExists('E:')=TRUE then
     begin
          ShowMessage('Il drive E: esiste!');
     end;
end;