Set a timeout for _FTP_Connect()

[AndyS01 0]

We have several servers and I'm writing a server status monitor. I am trying to quickly determine if I can FTP to each of our local servers. When I successfully do an _FTP_Open(), then call _FTP_Connect(), the _FTP_Connect takes around 45 seconds to time out.

I want to make the 'FTP-ability' test to take no more than 1 or 2 seconds.

Is there a way to change the _FTP_Connect() timeout? Perhaps there is another call I could use?

Here is my sample code (with my server credentials removed).

#include <FTPEx.au3>
#include <array.au3>
_Main()
Exit (0)
Func _Main()
Local $server, $uname, $pwd, $hSession, $iID, $bRet
$server = "xxxxx"
$uname = "xxxxx"
$pwd = "xxxx"
$hSession = _FTP_Open('MyFTP')
If $hSession <> 0 Then
$iID = _FTP_Connect($hSession, $server, $uname, $pwd, 1, 21)
ConsoleWrite("Can connect OK" & @CRLF)
If ($iID <> 0) Then
Else
ConsoleWrite("Connect FAILED" & @CRLF)
EndIf
_FTP_Close($hSession)
Else
ConsoleWrite("+++: Openfailed" & @CRLF)
EndIf
EndFunc ;==>_Main

[Nessie 29]

Take a look to this post:

Hi!

[AndyS01 0]

Thanks, that fixed my problem.

Here's my working test code:

expandcollapse popup

#include

Const $INTERNET_OPTION_CONNECT_TIMEOUT = 2

_Main()
Exit (0)
Func _Main()
Local $server, $uname, $pwd, $hSession, $iID, $bRet
$server = "xxxxx"
$uname = "xxxxx"
$pwd = "xxxx"

$hSession = _FTP_Open('MyFTP')
If $hSession <> 0 Then

_InternetSetOptions($hSession, $INTERNET_OPTION_CONNECT_TIMEOUT, 1 * 1000)

$iID = _FTP_Connect($hSession, $server, $uname, $pwd, 1, 21)
ConsoleWrite("Can connect OK" & @CRLF)
If ($iID <> 0) Then
Else
ConsoleWrite("Connect FAILED" & @CRLF)
EndIf
_FTP_Close($hSession)
Else
ConsoleWrite("+++: Openfailed" & @CRLF)
EndIf
EndFunc ;==>_Main

Func _InternetSetOptions($hInternet, $iOption, $iValue)

Local $tBuffer = DllStructCreate('int Value')
Local $WININET_HANDLE = DllOpen('wininet.dll')

DllStructSetData($tBuffer, 'Value', $iValue)

DllCall($WININET_HANDLE, _
'int', 'InternetSetOptionW', _
'hwnd', $hInternet, _ ; Handle on which to set information.
'int', $iOption, _ ; Internet option to be set.
'ptr', DllStructGetPtr($tBuffer), _ ; Pointer to a buffer that contains the option setting.
'int', DllStructGetSize($tBuffer)) ; Size of the lpBuffer buffer.

$tBuffer = 0
If (@error) Or (_WinAPI_GetLastError() > 0) Then
Return SetError(1, 0, 0)
EndIf

Return SetError(0, 0, 1)
EndFunc ;==>_InternetSetOptions

Edited April 15, 2013 by AndyS01

[Nessie 29]

Glad to help you