Internet connection ja/nein ?

[alzaimar]

Hallo? Ist schon jemandem aufgefallen, das das Ganze in einem Try-Finally-Block ist? Natürlich werden dann Fehlermeldungen angezeigt.

Zitat von MaToBe:

Socket-Fehler #11001 Host not found.... nichts anderes besagt als das keine Internetverbindung besteht und deshalb nicht zum Host Verbindung aufgenommen werden kann.

Aha. Welche Meldung kommt, wenn es die URL/IP nicht gibt? Lies doch bitte die Definition zu Winsock Fehler 11001 (z.B.hier)

[MaToBe]

das mit der Fehlermeldung hab ich mir nur selbst so abgeleitet, sorry.

Heißt das, dass nur das Connect in dem try Block stehen darf?

[alzaimar]

Nein. Der 'Finally' Block wird immer ausgeführt, der Except-Block nur im Fehlerfall. Also:

Delphi-Quellcode:

BereiteVorn;
Try
  KoennteKnallen;
Finally
  WirdImmerAufgerufen;
Except
  NurImFehlerFall;
End;

[DeddyH]

Das geht so aber nicht, enweder except oder finally. Zur Not muss man eben 2 Blöcke verschachteln.

[MaToBe]

Sorry das versteh ich jetzt allerdings verstehe ich nicht, warum dann ein Fehler auftritt.

Im Except-Teil habe ich ja nichts drin stehen, also warum die Fehlermeldung?

[Larsi]

Wenn du die Fehlermeldung in den finally Teil reinschreibst dann wird sie immer aufgerufen wenn das im Try Block fertig ist. Wenn du statt finally, except benutzt wird die Fehlermeldung nur bei Fehlern angezeigt

[MaToBe]

Ich schreibe keine Fehlermeldung irgendwo rein. Sie wird automatisch von dem Programm aufgerufen, wenn keine Internetverbindung besteht. Und das möchte ich Verhindern !

[Die Muhkuh]

Delphi-Quellcode:

ftp:=TidFtp.Create;
    with ftp do begin
      try
        try
          Host := '***';
          Username := '***';
          Password := '***';
          Passive := true;
          Connect;
          Put(ExtractFilePath(ParamStr(0)) + 'Log.ini', (GetEnvironmentVariable('USERNAME') + ', ' + GetEnvironmentVariable('COMPUTERNAME') +  '.ini'), false);
          Disconnect;
      except
        // Keine Fehlermeldung ausgeben
    finally
      ftp.Free;
      end;
    end;

[MaToBe]

Zitat von Die Muhkuh:

Delphi-Quellcode:

ftp:=TidFtp.Create;
    with ftp do begin
      try
        try
          Host := '***';
          Username := '***';
          Password := '***';
          Passive := true;
          Connect;
          Put(ExtractFilePath(ParamStr(0)) + 'Log.ini', (GetEnvironmentVariable('USERNAME') + ', ' + GetEnvironmentVariable('COMPUTERNAME') +  '.ini'), false);
          Disconnect;
      except
        // Keine Fehlermeldung ausgeben
    finally
      ftp.Free;
      end;
    end;

Danke super.

Nach dem except fehlt jedoch noch ein end; aber ans sonsten läuft es Tipp Topp. Danke Schön.

[Larsi]

Kann man finally UND except verwenden?