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