AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Fehler mit CopyFile?!

Ein Thema von Grolle · begonnen am 20. Okt 2006 · letzter Beitrag vom 21. Okt 2006
Antwort Antwort
Seite 1 von 2  1 2   
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#1

Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:22
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...

  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.804 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:26
Welche kopiert er nicht?
Hast du die einzelnen Kopiervorgänge mal unabhängig voneinander ausgeführt?
Markus Kinzler
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Fehler mit CopyFile?!

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

  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:42
Was sagt denn MSDN-Library durchsuchenGetLastError?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#5

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:50
Hallo Grolle,

Zitat von Microsoft Platform SDK:
If the function succeeds, the return value is nonzero.
Lasse doch einfach mal die NOT-Operatoren weg...

Gruß Hawkeye
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#6

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:50
Zitat von Luckie:
Was sagt denn MSDN-Library durchsuchenGetLastError?
Wird nix angezeigt.

  Mit Zitat antworten Zitat
Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#7

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 20:58
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'
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#8

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 22:41
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;

  Mit Zitat antworten Zitat
Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#9

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 22:55
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?
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#10

Re: Fehler mit CopyFile?!

  Alt 20. Okt 2006, 23:00
Zitat von Sunlight7:
Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?
Wo finde ich diese Option?

  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf