Finde Fehler in Programm nicht

[himitsu]

Connect ist richtig.

Die FTP-Komponenten wird über die DFM erstellt.

Dann gibt es eine Variable Update in der Methode Update.
Und eine nicht verwendete Variable Befehle.

Was mir erstmal auffällt, sind die "bösen" relativen Pfade.
Viele "böse" globale Variablen.
Vergleiche auf True if UpdatingActive=True then .

#10#13 ? Verwende sLineBreak oder zumindestens das Richtige #13#10 (Windows CR+LF).




Entweder du debuggst das Programm mal und schaust wo es knallt oder du baust dir ein Logging ein, was die letzte funktionierende Stelle zeigt, oder halt eine Menge ShowMessages.

Zitat:

...r den Server stimmen, da er die Datei update.txt herunterlädt

Bis zum FTP.Get ist es also noch gekommen.
Wurden die Versions-Labels aktualisiert? (ist er also noch bis zum Vergleich gekommen)




Warum macht die Funktion Update eigentlich nichts?
Außer die Versionen zu laden, zu Vergleichen und den InstallButton zumzufärben?

In FormCreate steht aber sehr viel "böser" Code ... Sicher, daß die update.txt nicht von dort ist?

[nahpets]

Im FormCreate fehlt das Befehl := TStringList.Create; und natürlich auch das Befehl.Free .
Daher scheitert dieser Teil:

Delphi-Quellcode:

 for i := 1 to Update.Count - 1 do
 begin
   Befehl.Clear; <--- hier müsste die Schutzverletzung auftreten!!!
   ExtractStrings([';'],[],PChar(Update[i]),Befehl);

   //Befehl auswerten
   if Befehl[0]='dir' then CreateDir(Befehl[1]);
   if Befehl[0]='del' then DeleteFileDir(Befehl[1]);
   if Befehl[0]='get' then
   begin
    Inc(FileCount);
    FTP.Size(Befehl[1]);
    FTP.Get(Befehl[1],Befehl[2],true);
    pbGesamt.Position:=pbGesamt.Position+1;
   end;
 end;

[Smaraner]

Anscheinend hat

Code:

Befehl := TStringList.Create;

und

Code:

Befehl.Free;

gefehlt, denn hetzt Funktioniert es richtig. Leide beginnt das Update jetzt sofort beim Programmstart und nicht erst, wenn der Button gedrückt wird. Kann man das noch ändern?

Sonst schon einmal vielen Dank für die Hilfe und noch schöne Weihnachten.

[Dalai]

Zitat von Smaraner:

Leide beginnt das Update jetzt sofort beim Programmstart und nicht erst, wenn der Button gedrückt wird. Kann man das noch ändern?

Öhm, das Programm macht genau das, was du ihm gesagt hast. Wann wird denn FormCreate ausgeführt?

MfG Dalai

[himitsu]

Zitat von Smaraner:

Anscheinend hat

Code:

Befehl := TStringList.Create;

und

Code:

Befehl.Free;

gefehlt, denn hetzt Funktioniert es richtig.

Dann solltest du dringend mal das lesen und beachten, was der Compiler dir sagt, denn ich wette daß er dir etwas vonwegen "Variable 'Befehl' ist nicht initialisiert" gensagt.

Zitat von Smaraner:

Leide beginnt das Update jetzt sofort beim Programmstart und nicht erst, wenn der Button gedrückt wird. Kann man das noch ändern?

Wieso "Leider"?
Du hast das genau so programmiert.

Zitat von himitsu:

In FormCreate steht aber sehr viel "böser" Code ... Sicher, daß die update.txt nicht von dort ist?

[Smaraner]

Danke für eure Hilfe, jetzt funktioniert es. Ich hatte den Code für das herunterladen der Dateien schon im OnCreate. Dann führt er das natürlich sofort aus.

[Smaraner]

Ich habe jetzt ein neues Problem. TXT Dateien lädt er problemlos herunter und man kann diese danach noch öffnen. Bei Bildern oder .exe Dateien kommt folgende Meldung:

Unbenannt.PNG

[Andreas L.]

Vielleicht hilft es den Übertragungs-Modus der FTP-Komponente auf "Binär" zu stellen:

  IdFTP1.TransferType := ftBinary;

[Smaraner]

Vielen, vielen Dank. Jetzt klappt es.