Results 1 to 3 of 3

Thread: Procedure Internet beschikbaarheid

  1. #1

    Procedure Internet beschikbaarheid

    Hallo allemaal,

    Wat gaat er in deze procedure fout? Het duurt erg lang voor dat deze test is uitgevoerd. (meer dan 30 seconde)'.
    Ik zou het graag wat sneller willen hebben.

    Hartelijke groet, Frans


    Code:
    PROCEDURE Internet_Beschikbaar(ANr : INTEGER);
      // Test of er verbinding met de server gemaakt kan worden
      VAR
        FTPClient:TFTPSend;
        Internet_Verbinding_OK : Boolean;
    
      BEGIN
        FTPClient := TFTPSend.Create;
        CASE ANr OF
          2 :
          BEGIN
            FTPClient.UserName := UserName;
            FTPClient.Password := Password;
          END;
        END;
        FTPClient.TargetHost := Host;
        FTPClient.TargetPort := '21';
    
        WITH FTPClient DO
        BEGIN
          IF NOT LogIn THEN
          BEGIN
            Internet_Verbinding_OK := False;
            LogOut;
            Free;
            Exit; // Test Internet niet beschikbaar
          END;
          Internet_Verbinding_OK := True;
          LogOut;
          Free;
        END;
      END ;

  2. #2
    Duurt het alleen lang als er geen verbinding tot stand kan worden gebracht? Vaak wordt er gewerkt met een (instelbare) timeout. Pas als de time-out periode verstreken is en er geen verbinding gemaakt kan worden krijg je een melding/waarde terug.

  3. #3
    maybe this can help...didn't test it

    http://delphi.cjcsoft.net/viewthread.php?tid=46855

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •