Copying a directory under Linux and Mac

[bastla]

Hi,

I need a function copying a whole directory working under Linux and Mac.
Unhappily I didn't find such a function in the LCL or another library; even Google could not help me

Under Windows I can do:

Code: [Select]

// uses ShellApi, Windows
function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;(Source)

Does somebody has an idea how to copy a whole directory under Linux and Mac?
I would be really perfect if the function returns the progress in percent for a ProgressBar .

Greetings in advance,
bastla

Edit: Thanks to Leledumbo, I found a way to get this working.
I posted my solution here

[Leledumbo]

Use TFileSearcher (I prefer extending the class and assign the events in the constructor, fill the events with directory creation and file copy) in combination with CreateDir (or its UTF8 equivalent in FileUtil) and CopyFile.

[bastla]

Hi Leledumbo,

thank you very much for you answer!

The problem is, I don't know which files are contained in the directory; so I cannot use TFileSearcher, because you have to give the names of the files, don't you?

If it's either possible, can you please give me a short code example (I'm very new in Larzarus-Coding )

Thanks for your answer again and Greetings,
bastla

[Bart]

Maybe a look at the sources form my Stupid Backup Program can help?

Bart

[Leledumbo]

The problem is, I don't know which files are contained in the directory; so I cannot use TFileSearcher, because you have to give the names of the files, don't you?

No, you just have to specify the starting directory and file mask upon calling Search(), then assign OnFileFound and OnDirectoryFound events. Both events have parameter containing the file / directory being processed.

[JuhaManninen]

I need a function copying a whole directory working under Linux and Mac.

There is such function in LCL, made by Takeda. It uses TFileSearcher. I can check the details later today when I get home.

Juha

[Takeda]

Hi,

I need a function copying a whole directory working under Linux and Mac.
Unhappily I didn't find such a function in the LCL or another library; even Google could not help me
..............

Hi, Bastla.
Well, do you have try to use "FileUtil.CopyDirTree" ?? (Available on Trunk of Lazarus)

I thought, It was suitable for Linux & *nix family, since I'm not put any "Windows-API Dependencies" in CopyDirTree, in short it would working properly in any supported Platform by Lazarus.

If you use, Lazarus Stable 1.0.x , unfortunately it's not yet available.

-Takeda-

[Leledumbo]

If you use, Lazarus Stable 1.0.x , unfortunately it's not yet available.

Which is why I can't find it in the current doc...

[bastla]

WOW, thank you very much for all the replies!

I would like to use the methode mentioned by Leledumbo with TFileSearcher, because this seems to be the easiest one

How do I have to define the OnFileFound-Event? This does not work:

Code: [Select]

Search.OnFileFound := ShowMessage('File found:' + sLineBreak + Search.FileName);
@Takeda:
Where can I download Trunk of Lazarus?
I could not find any download-page...

@Bart:
Your backup-tool is very complex, I am confused by the many functions and procedures :S

Thank you for the replies again and Greetings,
bastla

[Leledumbo]

How do I have to define the OnFileFound-Event? This does not work

You have to use procedural variable, e.g. (this is how I would do it):

Code: [Select]

type
  TDirCopier = class(TFileSearcher)
  private
    FToDir: String; // destination directory
    procedure CopyFile(FileIterator: TFileIterator);
    procedure CopyDir(FileIterator: TFileIterator);
  public
    constructor Create; override;
    procedure Copy(const FromDir,ToDir: String);
  end;

...

procedure TDirCopier.CopyFile(FileIterator: TFileIterator);
begin
  // copy the file here
end;

procedure TDirCopier.CopyDir(FileIterator: TFileIterator);
begin
  // create directory here
end;

constructor TDirCopier.Create; override;
begin
  inherited;
  OnFileFound := @CopyFile;
  OnDirectoryFound := @CopyDir;
end;

procedure TDirCopier.Copy(const FromDir,ToDir: String);
begin
  FToDir := IncludeTrailingPathDelimiter(ToDir);
  Search(FromDir,AllFilesMask);
end;


[BigChimp]

@Takeda:
Where can I download Trunk of Lazarus?
I could not find any download-page...

Via subversion.

However, if you're just beginning it may be easier to download a snapshot, which is generated every night (if the compilation works).
See the link on the left of the page.

Note: snapshots/trunk builds are the current development versions and may not be as stable as... ehmmm stable versions. However, they do contain the newest bug fixes and features.

[bastla]

Thanks to Leledumbo, I found a way to get this working.
I posted my solution here

Greetings,
bastla