Jag har ett problem. Jag får felmeddelande 10045 när jag försöker koppla upp min PPC mot en ftp-server. Problemet är att det fungerar bra när jag kör mot vissa servrar tex ftp.tninet.se.
Koden jag kör ser ut enligt följande:
...
Public Function DetectInternet() As Boolean
Dim internetHandle As Long
Dim iSocketHandle As Long
Dim errorNumber As Long
If DETECTINTERNET_BYPASS = False Then 'Do not detect
internetHandle = 0
iSocketHandle = 0
internetHandle = InternetOpen("VBandWinInet/1.0", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
'MsgBox "Returnerar : " & internetHandle & " ERR:" & GetLastError

iSocketHandle = InternetConnect(internetHandle, "ftp.tninet.se", 21, "anonymous", "someone@somewhere.com", 1, 0, 0)
errorNumber = GetLastError
'MsgBox "ER:" & errorNumber

InternetCloseHandle iSocketHandle
InternetCloseHandle internetHandle
If errorNumber = ERROR_INTERNET_CANNOT_CONNECT Then
DetectInternet = False
Else
If errorNumber = ERROR_INTERNET_EXTENDED_ERROR Then
DetectInternet = True
Else
DetectInternet = False
MsgBox "Din internetalslutning är felaktig. Koppla ner och försök igen. FelNR:" & errorNumber, vbCritical, "Detectinternet - Misslyckades"
End If
End If
Else
DetectInternet = True 'bypass
End If
End Function

Som sagt, det funkar med tninet men om jag byter ut till min egen ftp-server så funkar det inte. För övrigt är det långt ifrån alla ftp-servrar ute på nätet som funkar.
Är det någon som vet hur man gör så att det funkar?

Tack på förhand
/Pontus

PS. Jag använder PPC2002. version 3.0.11171 på en IPAQ