Finde Fehler in Programm nicht

[Klaus01]

Guten Abend,

versuche mal aus connect ein ftp.connect zu machen.

Delphi-Quellcode:

procedure TFormMain.FormCreate(Sender: TObject);
var Update, Befehl, BefehlText:TStringList;
i:Integer;
begin
 FTP.Connect; // <---

 Update:=TStringList.Create;

 CreateDir('tmp');
 FTP.Get('updates.txt','tmp\updates.txt',true);
 Update.LoadFromFile('version.txt');
 VersionAk:=Update[0];
 Update.Clear;
 Update.LoadFromFile('tmp\updates.txt');

und dann auch in der Methode update.

connect ist hier die methode von TForm und nicht von tidFtp daher scheint der Aufruf connect in Ordnung zu sein.

Warum rufst Du die Methode update nicht im form.create auf?
Don't repeat yourself (DRY)

Grüße
Klaus

[Dalai]

Zitat von Klaus01:

connect ist hier die methode von TForm und nicht von tidFtp daher scheint der Aufruf connect in Ordnung zu sein.

Nö, du lagst schon richtig:

Delphi-Quellcode:

type
  TFormMain = class(TForm)
    FTP: TIdFTP;

Zumal danach in der Methode auch FTP.Get() ausgeführt wird.
Ich denke, da fehlt sogar ein FTP:= TidFTP.Create; , auch wenn ich das mangels Kenntnis der Klasse nicht mit Bestimmtheit sagen kann.

MfG Dalai

[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;