Hi,

nach langer Zeit plagt mich mal wieder ein Problem, bei dem ich zur Zeit etwas auf dem Schlauch stehe, weil es einfach nicht funktioniert. Womöglich ist die Lösung auch viel einfacher, als ich momentan glaube. Es geht darum, dass ich mir eine Art Launcher gebastelt habe, der unter anderem auch die aktuelle Programmversion anzeigt, die ich in einer .Ini vermerkt habe. Nun ist es so, dass zum Beispiel mit einem Update auch eine neue Versionsnummer kommt, die ich in einer .Ini dem gedownloadeten Update gerne mitgeben möchte:

Folgender Codeausschnitt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm7.FormShow(Sender: TObject);
 var Ini : TIniFile;
 begin
  if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then begin
   Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'vers__patch.ini');
  try
     deletefile(ExtractFilePath(Application.ExeName)+'vers_aktuell.ini');
     renamefile(ExtractFilePath(Application.ExeName)+'vers_patch.ini',(ExtractFilePath(Application.ExeName)+'vers_aktuell.ini'));
  finally
     FreeAndNil(Ini);
  end;
 end;

Wie wahrscheinlich aus dem Codeschnipsel ersichtlich soll, sofern es eine Ini "vers_patch" gibt, die Ini "vers_aktuell" gelöscht werden und die "vers_patch" Ini dann in "vers_aktuell" umbenannt werden. Wenn ich jedoch das Programm starte, ändert sich nichts. Die Versionsnummer ist immernoch die alte und die Datei "vers_patch.ini" ist auch noch vorhanden.

Abgefragt wird das ganze etwas weiter unten im Text:

zusammenfalten · markieren

Delphi-Quellcode:

var Ini : TIniFile;
begin
  if FileExists(ExtractFilePath(Application.ExeName)+'vers_aktuell.ini') then begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'vers_aktuell.ini');
   try
    Image7.Width:=240;
    Label9.Caption:=Ini.ReadString('verstitle','title',''); //Auslesen und Anzeigen der Versionsnummer
  finally
    FreeAndNil(Ini);
  end;
end;

Wäre sehr dankbar, wenn ihr mir ein bisschen auf die Sprünge helfen könntet, was ich verändern könnte, um das Problem zu lösen.

Hallo Störtebeker,

warum öffnest Du die Ini-Datei ohne etwas damit zu machen, und führst dann die Delete/Rename Aktionen auf dieser geöffneten Ini-Datei durch ?
Außerdem fehlt bei Dir irgendwie in beiden Codeschnipseln ein "end"......?!
Kein Fehler, aber warum verwendest Du mal Application.ExeName und dann wieder ParamStr(0) ?
Noch ein Tip zur Lesbarkeit: wenn Du z.B. "ExtractFilePath(Application.ExeName)+'vers_patch. ini'" mehrfach brauchst, dann belege 1 mal ein stringvariable damit.
Last but not least würde ich eine Extra-Methode zum umbenennen der Datei machen, und diese Methode im FormShow aufrufen (also nicht Code direkt im FormShow).

Versuche mal statt

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm7.FormShow(Sender: TObject);
 var Ini : TIniFile;
 begin
  if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then begin
   Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'vers__patch.ini');
  try
     deletefile(ExtractFilePath(Application.ExeName)+'vers_aktuell.ini');
     renamefile(ExtractFilePath(Application.ExeName)+'vers_patch.ini',(ExtractFilePath(Application.ExeName)+'vers_aktuell.ini'));
  finally
     FreeAndNil(Ini);
  end;
 end;

einfach nur dieses:

zusammenfalten · markieren

Delphi-Quellcode:

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

procedure TForm7.FormShow(Sender: TObject);
begin
  CheckForPatchFile;
end;

Grüsse,
blauweiss

Moin,
und hast du Schreibrechte in den Ordner?

MfG
Fabian

Hallo,

Zitat:

Wenn ich jedoch das Programm starte, ändert sich nichts.

Wo genau befindet sich deine Exe- und Ini-Datei, welches Betriebssystem.

Lege mal ein c:\temp oder falls mehrere Laufwerke vorhanden sind,
z.B. ein e:\temp an
und starte die Exe von dort.
Klappt es dort, hast du deine Exe wohl im Programme-Verzeichnis stehen,
dort hast du keine Schreibrechte.
Die Ini gehört dort nicht hin
Suche hier nach "Special Folders".


So am Rande:
Warum steht x-mal ExtractFilePath im Code statt
zwei String-Variablen zu nehmen und die Dateinamen einmal zuzuweisen.


Heiko

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.

zusammenfalten · markieren

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:

markieren

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

markieren

Delphi-Quellcode:

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