Fehler beim ausführen eine Update-Funktion

[Bernhard Geyer]

Und wo genau (Quellcodezeile)?

[NickelM]

Also ich vermute einfach mal dass es an der function GetEnvVarValue Funktion liegt. Ich bin mir nicht sicher, ob dies so richtig funktioniert. Mach die Funktion mal so, das ist auch sicherer.

Delphi-Quellcode:

function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer; // buffer size required for value
  Buffer : PChar;
begin
  //BuffSize ist nur die Textlänge, ohne nullterminiert.
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    //Speicher setzen
    GetMem(Buffer, (BufSize + 1)*SizeOf(Char)); //BufSize ist ohne nullterminierte, deshalb BufSize +1;
    GetEnvironmentVariable(PChar(VarName),
      Buffer, BufSize);
    Result := Buffer;
    FreeMem(Buffer);
  end
  else
    // No such environment variable
    Result := '';
end;

[DeddyH]

Hier könnte der Hase auch im Pfeffer liegen, wenn die Datei nicht existiert oder leer ist. Im ersten Fall schlägt das LoadFromFile fehl und im zweiten der Zugriff auf die erste Zeile des Memos.

Zitat:

Delphi-Quellcode:

UpDialog.Memo1.Lines.LoadFromFile((nn + '\versionneu.txt'));
    //vergleicht programmversion mit ermittelter version
    if UpDialog.Memo1.Lines[0] <> version then

[himitsu]

Das wirft aber keine Zugriffsverletzung.
Eine TStringList wirft einen EStringListError und TMemoStrings (die interne Klasse für TMemo.Lines) gibt einfach nur einen Leerstring raus, wenn der Index nicht paßt.

Hier sieht es eher so aus, also wenn irgendwo ein Objekt nicht existiert und auf NIL zugegriffen wird.

GetEnvVarValue ist eigentlich OK und sicher, auch wenn es nicht Unicodetauglich ist.
Ein Bufferoferun ist auch nicht zu erwarten. (höchstens daß der String falsch, also nur zur Hälfte, beschrieben wird)

Solange hier aber nicht die Fehlerstelle genannt wird, hat es wenig sinn hier weiterzusuchen.
Tipp: Es gibt auch ein [DELPHI]-Tag, denn so ist der Code nicht wirklich lesbar.

PS: Warum wandert die Datei eigentlich nach AppData und nicht nach Temp? Es ist wunderschön, wenn AppData mit solchen wunderschönen Dateien vollgemüllt wird, welche man nirgends zuordnen kann.

[ol1uw]

wer/was/wo/wann ruft den Funktion updatesuch auf?
Das Formular UpDialog zu diesem Zeitpunkt schon erzeugt?

Uwe

[gelberkaktus]

der Fehler tritt hier zwischen diesen beiden zeilen auf

Delphi-Quellcode:

    UpDialog.Memo1.Lines.LoadFromFile((nn + '\versionneu.txt'));
    if UpDialog.Memo1.Lines[0] <> version then

Nach der ersten zeile stockt der complier und spuckt den error aus (hatte ich das wirklich so undeutlich angegegeben)

Zitat von ol1uw:

wer/was/wo/wann ruft den Funktion updatesuch auf?
Das Formular UpDialog zu diesem Zeitpunkt schon erzeugt?

Uwe

Die Funktion updatesuch wird mit der Form1 aufgerufen (der hauptform) also startet mit dem Programm. (via FormCreate)

Das Formular UpDialog wird automatisch mit erzeugt.
...Nach der Form1....

[daywalker9]

Zitat von gelberkaktus:

der Fehler tritt hier zwischen diesen beiden zeilen auf

Delphi-Quellcode:

    UpDialog.Memo1.Lines.LoadFromFile((nn + '\versionneu.txt'));
    if UpDialog.Memo1.Lines[0] <> version then

Nach der ersten zeile stockt der complier und spuckt den error aus (hatte ich das wirklich so undeutlich angegegeben)

Du hattest es gar nicht angegeben.