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