CopyFile - komme über den Flag nicht weiter...

[AlexII]

Hallo,

irgendwie stehe ich auf dem Schlauch, habe folgendes:

Delphi-Quellcode:

// flags for copy
type
 TCopyFileFlag = (
   cffOverwriteFile,
   cffCreateDestDirectory,
   cffPreserveTime
   );
 TCopyFileFlags = set of TCopyFileFlag;
 

function CopyFile(const SrcFilename, DestFilename: string; Flags: TCopyFileFlags=[cffOverwriteFile]): boolean;


procedure ....
begin
CopyFile('C:\test\test.txt', 'D:\testtest\.txt', cffCreateDestDirectory);
end;

Aber mir kommt die Fehlermeldung

Zitat:

Error: Incompatible type for arg no. 3: Got "TCopyFileFlag", expected "LongBool"

Was mache ich falsch?

Vielen Dank!

[himitsu]

Zitat von AlexII:

Was mache ich falsch?

Nicht auf das hören, was dir der Compiler, Code-Insight und vorallem MSDN sagen?
https://msdn.microsoft.com/en-us/lib.../aa363851.aspx

siehe deine Windows/WinApi-Unit, welche der Compiler an der Stelle bestimmt zuerst findet. (Unitreihenfolge)

Strg+Linksklick auf den CopyFile-Aufruf und den Hint über CopyFile wird bestimmt auch Lazarus beherschen.

[Der schöne Günther]

Deine Methode will TCopyFileFlags, du gibst ihr aber TCopyFileFlag

[AlexII]

Zitat von himitsu:

Zitat von AlexII:

Was mache ich falsch?

Nicht auf das hören, was dir der Compiler, Code-Insight und vorallem MSDN sagen?
https://msdn.microsoft.com/en-us/lib.../aa363851.aspx

siehe deine Windows/WinApi-Unit, welche der Compiler an der Stelle bestimmt zuerst findet. (Unitreihenfolge)

Strg+Linksklick auf den CopyFile-Aufruf und den Hint über CopyFile wird bestimmt auch Lazarus beherschen.

Das ist hier aus der Unit...

Delphi-Quellcode:

// flags for copy
type
  TCopyFileFlag = (
    cffOverwriteFile,
    cffCreateDestDirectory,
    cffPreserveTime
    );
  TCopyFileFlags = set of TCopyFileFlag;

// Copy a file and a whole directory tree
function CopyFile(const SrcFilename, DestFilename: string; Flags: TCopyFileFlags=[cffOverwriteFile]): boolean;

[AlexII]

Zitat von Der schöne Günther:

Deine Methode will TCopyFileFlags, du gibst ihr aber TCopyFileFlag

Eeh... wo? Ich mache da selber nur das:
CopyFile('C:\test\test.txt', 'D:\testtest\.txt', cffCreateDestDirectory);

[himitsu]

Das auch, aber eigentlich will Lazarus hier einen Boolean.

Windows kennt kein CopyDirTree also drängelt es sich nicht vor




Mit Namespace aufrufen oder Uses umsortieren.


[add]
Du gibst Enum und die Signatur will ein Set.

[AlexII]

Zitat von himitsu:

Das auch, aber eigentlich will Lazarus hier einen Boolean.

Windows kennt kein CopyDirTree also drängelt es sich nicht vor




Mit Namespace aufrufen oder Uses umsortieren.

Pardo, war falsch... habs korrigiert. Es ist kein CopyDirTree sondern CopyFile.
Mit dem Namespace läufts, danke!

[idefix2]

Delphi-Quellcode:

function CopyFile(const SrcFilename, DestFilename: string; Flags: TCopyFileFlags=[cffOverwriteFile]): boolean;


procedure ....
begin
CopyFile('C:\test\test.txt', 'D:\testtest\.txt', cffCreateDestDirectory);
end;

Wie das auch mit Angabe des Namespace laufen kann, würde ich gerne wissen.
Kann man denn einer Prozedur an Stelle eines Set ein einzelnes Setelement als Parameter übergeben?
Das müsste doch heissen:
CopyFile('C:\test\test.txt', 'D:\testtest\.txt', [cffCreateDestDirectory]);

[AlexII]

Bei mir läuft es nur wie folgt (Lazarus):

FileUtil.CopyFile(PChar(src), PChar(dest), [cffCreateDestDirectory]);

[DualCoreCpu]

Zitat von AlexII:

Zitat von Der schöne Günther:

Deine Methode will TCopyFileFlags, du gibst ihr aber TCopyFileFlag

Eeh... wo? Ich mache da selber nur das:
CopyFile('C:\test\test.txt', 'D:\testtest\.txt', cffCreateDestDirectory);

Entweder in *.txt kopieren oder den Backslash im Zeildirectory korrekt schreiben.

Statt 'D:\testtext\.txt' -> 'D:\test\test.txt'