Zugriffsverletzung

[Fussball-Robby]

Ich könnte mir höchstens vorstellen, dass beim ausführen von updatenform.show; updatenform noch nicht erzeugt ist. Setz doch im Projektquelltext mal das CreateForm von updatenform davor.

[Andreas L.]

Zitat von milos:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
IF FileExists('config_sa.txt') THEN
config2.Lines.LoadFromFile('config_sa.txt');

try
    Datei := 'Link Privat';
    Ziel := 'C:\WINDOWS\system32\Update_sa.txt';
     UrlDownloadToFile(nil, Datei, Ziel, 0, nil);


   IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
   Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');
if (not (updatetext.Lines.Strings[0] = '3.5')) then
updatenform.show;
if (not (updatetext.Lines.Strings[0] = '3.5')) then
MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
if (updatetext.Lines.Strings[0] = '3.5') then
   MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;


end;

end;

end.

IMHO ist config2 (ein Memo?) zu diesem Zeitpunkt noch nicht erstellt. Außerdem solltest du anstatt relativen Pfaden wie z. B. 'config_sa.txt', absolute Pfade benutzen. Schau dir hierzu mal ExtractFilePath und Application.ExeName an.

[ryLIX]

Zitat von milos:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
IF FileExists('config_sa.txt') THEN
config2.Lines.LoadFromFile('config_sa.txt');

try
    Datei := 'Link Privat; //<-- da fehlt ein ' ! 
    Ziel := 'C:\WINDOWS\system32\Update_sa.txt'; // Öhm was hast du im Systemordner von Windows zu suchen? Mißbrauchst du den gerade als Tempordner?
     UrlDownloadToFile(nil, Datei, Ziel, 0, nil);


   IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
   Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');
if (not (updatetext.Lines.Strings[0] = '3.5')) then
updatenform.show;
if (not (updatetext.Lines.Strings[0] = '3.5')) then
MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
if (updatetext.Lines.Strings[0] = '3.5') then
   MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;


end;

end;

end.

[milos]

Doch config2 ist als Komponent auf dem Formular

Zitat von ryLIX:

Zitat von milos:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
IF FileExists('config_sa.txt') THEN
config2.Lines.LoadFromFile('config_sa.txt');

try
    Datei := 'Link Privat; //<-- da fehlt ein ' ! 
    Ziel := 'C:\WINDOWS\system32\Update_sa.txt'; // Öhm was hast du im Systemordner von Windows zu suchen? Mißbrauchst du den gerade als Tempordner?
     UrlDownloadToFile(nil, Datei, Ziel, 0, nil);


   IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
   Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');
if (not (updatetext.Lines.Strings[0] = '3.5')) then
updatenform.show;
if (not (updatetext.Lines.Strings[0] = '3.5')) then
MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
if (updatetext.Lines.Strings[0] = '3.5') then
   MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;


end;

end;

end.

Ja tu ich

[mkinzler]

Setze mal vor
IF FileExists('config_sa.txt') THEN einen BreakPoint und gehe den Code dann Zeile für Zeile durch
Und wie schon geschrieben, sind unvollständige Pfadangaben immer eine Quelle für Fehler und Seiteneffekte

[ryLIX]

1. Wenn du Unbedingt ein temporäres Verzeichnis benötigst dann benutze sowas wie GetTempPath() 2. Hast du das fehlende ' eingesetzt ? Ich denke das dort der Fehler auftaucht.
Hast du das mit dem Breakpoint versucht?

[milos]

Was ist ein Brakpoint

[mkinzler]

Ein Haltepunkt, an dem der Debugger die Ausführung des Codes anhält. Klick vor die Zeile, dann erscheint dort ein roter Punkt, Starte das Programm und es bleibt dann dort stehen. Nun kannst du mit F7/F8 den Code durchsteppen

[milos]

Ein ; das hab ich schon probiert

[milos]

Edit: Wenn ich F7 klicke, bleibt er bei END. stehen! Und end. wird blau