Zugriffsverletzung

[Fussball-Robby]

Ich könnte mir höchstens vorstellen, dass beim ausführen von

Delphi-Quellcode:

updatenform.show;

updatenform noch nicht erzeugt ist. Setz doch im Projektquelltext mal das CreateForm von updatenform davor.

[Andreas L.]

Zitat:

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:

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 :D

Zitat:

Zitat von ryLIX

Zitat:

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 :D

[mkinzler]

Setze mal vor

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :D

[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