File löschen und umbenennen geht nicht

[Störtebeker]

Danke für eure Tipps und Hinweise, werde mal schauen, wie ich damit weiterkomme.

Das ganze läuft auf Windows XP (vorerst), und beiden Datein, sowohl die Exe, als auch die beiden Inis liegen in ein und dem selben Verzeichnis in einem Ordner innerhalb des "Eigene Datein" Ordner.

EDIT: Ne, bringt leider auch nichts, auch wenn es natürlich schöner aussieht im Code. Aber löscht weder die eine File, noch überschreibt er die andere.

[Störtebeker]

Delphi-Quellcode:

procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := ExtractFilePath(Application.ExeName)+'vers_patch.ini';
  currentfile := ExtractFilePath(Application.ExeName)+'vers_aktuell.ini';
  if not FileExists(patchfile) then
    exit;
  deletefile(currentfile);
  renamefile(patchfile, currentfile);
end;

Ich bin gerade echt am verzweifeln... ...ich weiß nicht, aber es scheint, als würde sich Delphi um diesen Codeschnipsel gar nicht kümmern. Kein Löschen der File, kein Umbenennen der File.

Aufgerufen wird die CheckForPatchFile Procedure etwas später bei einem Timer:

Delphi-Quellcode:

procedure TForm7.Timer2Timer (Sender: TObject);
begin
 Label9.Caption:='Patching...';
 Form7.Caption:='0%';
 begin
 if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then
 CheckForPatchFile;
 Timer3.Enabled:=True;
end;
end;

Timer2 wird im FormShow Ereignis gestartet

Delphi-Quellcode:

procedure TForm7.FormCreate(Sender: TObject);
begin
Label9.Caption:='Loading...';
Timer2.Enabled:=True;
end;

[Helmi]

Hallo,

erstmal: den Code if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then im "Timer2Timer" kannst du dir ersparen, denn
das gleiche, über einen anderen Weg macht dieser Code in der Procedure CheckForPatchFile:  if not FileExists(patchfile) then exit; Lass dir doch erstmal die Rückgabewerte zurückmelden:

Delphi-Quellcode:

procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := ExtractFilePath(Application.ExeName)+'vers_patch.ini';
  currentfile := ExtractFilePath(Application.ExeName)+'vers_aktuell.ini';
  if not FileExists(patchfile) then
    ShowMessage(Format('Datei existiert nicht: %s', [patchfile]));
    exit;
  If not deletefile(currentfile) then
    begin
      ShowMessage('löschen fiel fehl!');
      exit;
    end;
  If not renamefile(patchfile, currentfile) then
    begin
      ShowMessage('Umbenennen fiel fehl!');
      exit;
    end;
  ShowMessage('alles scheint in Ordnung gewesen zu sein!');
end;

Die ShowMessages zeigen dir was los ist, ob das Lösen funktionierte bzw. das Umbenennen.

[Störtebeker]

Tja, irgendwas ist da noch im argen, da ich auch keine Rückmeldungen bekomme. Es passiert einfach nix.

[Helmi]

Setz halt mal beim Aufruf von CheckForPatchFile einen Breakpoint und schau ob das Programm dort überhaupt aufgerufen wird und wenn ja, dann jumpe einfach mit F7 mal weiter.

Was für einen Intervall hast du beim Timer 2?

Ruf halt mal die Procedure CheckForPatchFile über einen Button auf. Um festzustellen ob was geht

[Störtebeker]

Timer 2 hat ein Intervall von 3500 und er scheint die CheckForPatchFile Prozedur nicht aufzurufen. Beim Click auf den Button keine Reaktion.

Wenn ich Breakpoints setze,

Delphi-Quellcode:

procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := ExtractFilePath(Application.ExeName)+'vers_patch.ini';
  currentfile := ExtractFilePath(Application.ExeName)+'vers_aktuell.ini';
  if not FileExists(patchfile) then
    exit;
  deletefile(currentfile);
  renamefile(patchfile, currentfile);
end;

...werden DeleteFile und RenameFile einfach übersprungen, er springt dann auch nach einem weiteren Druck auf F7 sofort zum "end;" von Timer2Timer und dann in die Unit "CostumTimer" hierhin:

Delphi-Quellcode:

procedure TCostumTimer.DoOnTimer;
if Assigned(FOnTimer) then
FOnTimer(Self);
end;

EDIT: Das Löschen funzt jetzt. Habe aus DeleteFile(currentfile); einfach DeleteFile(PChar(currentfile)); gemacht. Jetzt muss ich nur noch am rename knabbern. Da bekomme ich den Fehlercode = 2.

[DeddyH]

Und was heißt Fehlercode 2? http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

[himitsu]

SchowMessage ist ja eher unglücklich, vorallem wenn diese in einem Timer auftauchen ... Exceptions sind doch auch nett?


Und ich würde auch noch SysErrorMessage(GetLastError) in die Messages/Exceptions einbauen.


[edit]
Bist du sicher, diese Methode (Timerereignis) wird aufgerufen?
Nur weil eine Methode Timer2Timer heißt, muß sie nicht mit dem timer2 verknüpft sein und der Timer muß auch nicht unbedingt aktiv sein.

Ich schlage für sowas immer etwas sehr Praktisches vor
und das nennt sich Debuggen.