Fehler mit CopyFile?!

[Grolle]

Hallo,
folgender Code kopiert nicht alle Dateien:

Delphi-Quellcode:

          if not (copyfile(PChar(pfad +'\adressen.adt'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\adressen.adt'),false)) and
             not (copyfile(PChar(pfad +'\ab.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\ab.ini'),false)) and
             not (copyfile(PChar(pfad +'\search.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\search.ini'),false)) and
             not (copyfile(PChar(pfad +'\user.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\user.ini'),false)) then
             begin

Wo ist denn da ein Fehler?
Viele Grüße...

[mkinzler]

Welche kopiert er nicht?
Hast du die einzelnen Kopiervorgänge mal unabhängig voneinander ausgeführt?

[Grolle]

Hi, nein einzeln probiert habe ichs noch nicht. Es wird nur die erste Datei kopiert.
//Edit: user.ini (letzter Aufruf) klappt schonmal nicht allein

[Luckie]

Was sagt denn GetLastError?

[Hawkeye219]

Hallo Grolle,

Zitat:

Zitat von Microsoft Platform SDK

If the function succeeds, the return value is nonzero.

Lasse doch einfach mal die NOT-Operatoren weg...

Gruß Hawkeye

[Grolle]

Zitat:

Zitat von Luckie

Was sagt denn GetLastError?

Wird nix angezeigt.

[Sunlight7]

Was heißt nix?

Muß doch mindestens 0 sein, nix geht nicht.

Was steht in der Pfad Variable?
Und ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Edit: Bei ExtractFilePath muß nicht '\daten' geschrieben werden, sonst sinds '\\daten'

[Grolle]

Hi,
habs jetzt nochmal umgeschrieben. Getlasterror sagt: Der Vorgang wurde erfolgreich beendet.
Die Dateien wurden aber nicht kopiert. Hier der relevante Code:

Delphi-Quellcode:

      if SelectDirectory('Bitte Ordner auswählen:', '' ,pfad) then
        begin
          AdsConnection1.IsConnected := false;
          if (copyfile(PChar(pfad +'\adressen.adt'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\adressen.adt'),false)) and
             (copyfile(PChar(pfad +'\ab.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\ab.ini'),false)) and
             (copyfile(PChar(pfad +'\search.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\search.ini'),false)) and
             (copyfile(PChar(pfad +'\user.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\user.ini'),false)) then
            begin
              AdsConnection1.IsConnected := true;
              AdsTable1.Active := true;
              Statusbar1.Panels.Items[1].Text := IntToStr(ADSTable1.recordcount);
              MessageDlg('     Die Wiederherstellung der Datenbank war erfolgreich!     ',mtInformation,[mbOK],0);
            end
          else
            begin
              AdsConnection1.IsConnected := true;
              AdsTable1.Active := true;
              Statusbar1.Panels.Items[1].Text := IntToStr(ADSTable1.recordcount);
              MessageDlg('     Fehler bei der Wiederherstellung der Datenbank!     ',mtError,[mbOK],0);
            end;
        end;

[Sunlight7]

Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Kopiert er 1, 2, keine?
Kopiert er sie woanders hin?

Schon geprüft, was in der Pfad Variable steht?

[Grolle]

Zitat:

Zitat von Sunlight7

Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Wo finde ich diese Option?

[Sunlight7]

Projekt -> Optionen, Reiter Compiler.

Mag sein, das es bei Deiner Delphi Version anders zu finden ist, ggf. in die OH gucken.

Zitat:

Kopiert er 1, 2, keine?
Kopiert er sie woanders hin?

Schon geprüft, was in der Pfad Variable steht?

:gruebel:

[Luckie]

Wo hast du das GetLastError aufgerufen? Mach mal alles einzelN

Delphi-Quellcode:

if not copyfile() then
  ShowMessage(SysErrorMessage(GetLastError));
if not copyfile() then
  ShowMessage(SysErrorMessage(GetLastError));
if not copyfile() then
  ShowMessage(SysErrorMessage(GetLastError));

[Grolle]

Hallo,
die Variable Pfad ist korrekt. 1 wird richtig kopiert. Habe jetzt überall
GetLastError eingefügt. Beim ersten kommt komischerweise:
Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wir.
Bei allen anderen kommt:
Der Vorgang wurde erfolgreich beendet.

[Sunlight7]

Selbsterklärend...

Also mußt Du gucken, wo die Datei geöffnet und nicht geschlossen wird.

[Grolle]

Dito! Danke euch :thumb:

[xaromz]

Hallo,

Zitat:

Zitat von Sunlight7

Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Wozu soll das gut sein? Entweder es werden alle kopiert, dann passt alles, oder eben nicht. Wenn diese Option gesetzt ist, bricht er eben schon nach dem ersten Fehler ab, das ändert aber ja nichts am Ergebnis. Denn die Wiederherstellung ist nur dann vollständig, wenn sämtliche Dateien kopiert wurden. Wozu also nach einem Fehler mit der nächsten Datei fortfahren?

Gruß
xaromz

[Sunlight7]

Wenn das eingeschaltet ist, kann/gibt GetLastError einen falschen Wert zurück (geben), weil nur das Ergebnis des letzten CopyFile angezeigt wird.
Außer man verwendet Luckies Methode.

Jetzt alles klaro?!

Grüßle!

[xaromz]

Hallo,

Zitat:

Zitat von Sunlight7

Wenn das eingeschaltet ist, kann/gibt GetLastError einen falschen Wert zurück (geben), weil nur das Ergebnis des letzten CopyFile angezeigt wird.

Es klang vorhin so, als solle er das einschalten. Jetzt habe ich Dich verstanden.

Gruß
xaromz

[Sunlight7]

Ende gut, alles gut... :mrgreen:

Sorry, wenn's falsch rum rüber kam.

:hi: