Code : Tout sélectionner
Structure ws_sockaddr
Family.w
Port.w
IPLong.l
zeros.l[8]
EndStructure
Procedure.l IsConnected(Connection.l)
Protected length.l, IP.ws_sockaddr, res.l
length = SizeOf(IP)
res = getsockname_(Connection,@IP,@length)
Debug res ;<---------------- ICI
If res = 0
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
InitNetwork()
res = OpenNetworkConnection("www.google.com",80)
IsConnected(res)
CloseNetworkConnection(res)
Le plus étrange c'est que le même code donne bien zéro avec la 3.94.