Hallo zusammen

Habe angefangen ein FTP Client zu Programmieren. Dieses FTP Programm Checkt die Dateien nach Nummern ab und lädt sie anschliessend herunter.Die dateinamen auf dem Ftp sind alle nummeriert. Es kann vorkommen das eine dieser Nummern nicht vorkommt z.B. 1,2,3,5 da fehlt nämlich die 4. Und wenn er die jetzt eben ja eine Datei nicht findet zeigt er die Meldung: "file not found" diese soll er aber unterdrücken, also nichts anzeigen und einfach weitermachen.

Versteht ihr ungefähr was ich meine? Könnt ihr mir irgendwelche Codes geben damit diese Meldung nicht mehr kommt?

Schon im Vorraus Danke und viele Grüsse wincompi5

Wie sieht denn der Code aus der für das überprüfen und herunterladen der Dateien zuständig ist?

markieren

Delphi-Quellcode:

try
  // etwas machen
except
  // Fehler behandeln
end;

Hier so sieht das ungefär aus. (Zähler geht momentan nur bis 9)

markieren

Code:

procedure TForm75.Timer1Timer(Sender: TObject);
begin
edit5.Text:=IntToStr(StrToInt(edit5.Text)+1);
FTP.Get(edit5.Text, edit1.text, true);
end;
if edit5.Text = ('9') then
begin
  Timer1.Enabled := False;
end;

LG wincompi5

Hallo ist noch jemand da?

Wieso machst du den Download denn in einem Timer? Eine For-Schleife wäre da geeigneter:

markieren

Delphi-Quellcode:

var
  Current: Integer;
  Max: Integer;
begin
  Max := StrToIntDef(Edit5.Text, 0);

  for Current := 1 to Max do
    FTP.Get(IntToStr(Current), Edit1.Text, True);
end;

Zitat von wincompi5:

Hallo ist noch jemand da?

Immer mit der Ruhe...

Ja ok! wie kann ich jetzt aber die Fehlermeldung unterdrücken?

Zitat von wincompi5:

Ja ok! wie kann ich jetzt aber die Fehlermeldung unterdrücken?

Die Antwort steht in Post #2...

Ja ich weiss. Ich bin noch Anfänger bei Delphi. Ich weiss nicht wo und wie genau setzen.Und was ich da genau hinschreiben muss bei Fehler behandeln! Bitte Hilf mir!

http://www.christian-stelzmann.de/ar....htm#tryexcept

Bei FTP kann man sich eigentlich auch erst eine Liste der Dateien holen