Gesucht: FileCopy...

[Quit]

Tag.

Ich suche wieder etwas.. Dieses mal FileCopy() (oder auch FileOperation()), es scheint ja nicht in ShellAPI zu sein, wie ich mit Google gelesen hätte. Es scheint irgendwie überhaupt nichts zu gehen, was ich irgendwie gefunden hätte. Wo ist FileCopy drin, wenn nicht in ShellApi?

[Christian]

Nimm doch einfach CopyFile ?! glaub in FileUtil

[Quit]

Der Compiler sagt mir, dass er kein FileUtil kenne.. FileUtils ebenfalls nicht

[Christian]

FileUtil ist in der LCL enthalten hast die als abhängigkeit in deinem projekt ?

darin ist deklariert
function CopyFile(const SrcFilename, DestFilename: string): boolean;
function CopyFile(const SrcFilename, DestFilename: string; PreserveTime: boolean): boolean;

[pluto]

eine einfache kopier funktion kannst du auch selbst machen:

Code: Alles auswählen

procedure CopyFile(DateiNamen1, Dateinamen2:String);
var
  s1,s2:TFileStream;
begin
  s1:=TFileStream.Create(Dateinamen1.fmOpenRead);
  s2:=TFileStream.Create(Dateinamen2.fmCreate);
  // Da bin ich mir nicht so sicher ob sie nur copy hiße die funktion
  s2.copy(s1,0);
  s2.free;
  s1.free;
end;

müste klappen(habe ich jetzt nicht getestet, ist nur aus dem kopf geschrieben) !

[creed steiger]

Hilft das?

http://www.freepascal.org/docs-html/lcl ... yfile.html" onclick="window.open(this.href);return false;

[Christian]

Hilft das?

wo ist der unterschied zu dem was ich geschrieben hab ?

[pluto]

Du hast kein link angeben

[Christian]

werd ab jetz immer irgendwelche links in meine beiträge einbaun

[Quit]

Nein, LCL war nicht dabei da ich das ganze als Konsolenprogramm machte. Es wird ein Programm welches mir automatisch Dateien sortiert quasi, wenn ich sie mit dem Programm öffne. Ich danke euch vielmals!


Edit: Wa! Es geht gar nicht. Er liefert mir zwar true zurück doch die Datei wird nicht kopiert.. Was ist da los?

[Christian]

Was hast du denn jetzt benutzt ?
Und du kannst ruhig die LCL als Abhängigkeit in dein Projekt übernehmen um die Pfade zu haben solang du nicht die schweren units benutzt wird das widgetset nicht mit eincompiliert.

[Quit]

Ich benutzte

Code: Alles auswählen

CopyFile('foo.txt', 'bar.txt');

foo.txt ist vorhanden, enthält text ('Foobar') und ist nicht schreibgeschützt. Wie ich das eingefügt habe: Komponenten->Geladenes Package laden->LCL->[Öffnen]->Rechtsklick auf "Dateien"->Dem Projekt hinzufügen


keine Compilerfehler, er kopiert die Datei einfach nicht

[Edit] Ups - hatte FileCopy statt CopyFile geschrieben. Es steht natürlich CopyFile im Code, hatte das hier aus dem Gedächtnis geschrieben

[pluto]

was hälst du denn von meiner funktion ?

du musst evlt. noch den pfad angeben ?

[Quit]

Der Fehler dürfte tiefer liegen - Mit GetLastError krieg ich die Meldung, dass das Handle ungültig sei (wtf)

Deine Funktion probier ich mal.. verlieren kann ich nichts ^^


Edit: Welche Units braucht deine Funktion denn?

[pluto]

die unit "Classes" wegen TFileStream !