Results 1 to 4 of 4

Thread: Internet_Beschikbaar testen met FTPClient

  1. #1

    Internet_Beschikbaar testen met FTPClient

    Hallo,

    Wat is er fout aan deze procedure? Ik kijg steeds de melding : ínternet niet beschikbaar (False). Voorheen werkte het wel op poort 21 en ftp.xs4all.nl, maar XS4All heeft deze mogelijkheid geblokkeerd.

    Met een vriendelijke groet, Frans Dubbeld


    Code:
    PROCEDURE Internet_Beschikbaar;
      // Test of er verbinding met de server gemaakt kan worden
      VAR
        FTPClient:TFTPSend;
    
      BEGIN
        FTPClient := TFTPSend.Create;
        WITH FTPClient DO
        BEGIN
          TargetPort:= '22';
          TargetHost:= 'sftp.xs4all.nl';
          UserName:='xxxxxxxx';
          Password:='********';
          Timeout:=500;
          IF NOT LogIn THEN
          BEGIN
            Internet_Verbinding_OK := False;
            Free;
            Exit; // Test Internet niet beschikbaar
          END;
          Internet_Verbinding_OK := True;
          LogOut;
        END;
        FTPClient.Free;
      END ;

  2. #2
    Ik zou dan niet de sftp van xs4all gaan checken.
    Er zijn toch wel betere methodes om te controleren of internet beschikbaar is.

    https://stackoverflow.com/questions/...net-connection

    http://www.thesoftwareanswer.com/cod...et-connection/

    http://delphidabbler.com/tips/223

    https://mycodemyadv.blogspot.com/201...on-delphi.html

    ALLES is beter dan een gebruikersnaam en wachtwoord te verwerken in je programma om zo via sftp een verbinding te checken

  3. #3
    Rik,

    Het gaat niet om het checken van het internet maar om de verbinding met Xs4All. Het geheel is noodzakelijk voor het downloaden van bestanden welke op de server staan. Dat heeft altijd goed gewerkt totdat Xs4All de beveiliging aanpaste en van port 21 naar port 22 ging. Hoe krijg ik dat werkend?


    H.G. Frans

  4. #4
    Ah, dat kwam niet zo duidelijk uit de vraag.

    SFTP is heel wat moeilijker. Je zult daar ook CryptLib voor moeten gebruiken.

    Ik heb dit in combinatie met Synapse en Lazarus wel eens voor elkaar gekregen (lang geleden).

    Hier is de post daarover op het Lazarus forum.
    https://forum.lazarus.freepascal.org...html#msg174915

    Edit: verder in het topic staat ook dat ik het voor elkaar had gekregen met libssh2. Dat zou misschien een beter oplossing zijn.
    Last edited by rvk; 16-Feb-19 at 00:20.

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
  •