#include "FiveWin.ch"
function Main()
local oSocket := TSocket():New( 2000 )
local cIp := oSocket:cIPAddr
?cIp
oSocket:End()
return NIL
FUNCTION MAIN()
LOCAL aHosts
INETINIT()
aHosts = INETGETHOSTS( NETNAME() )
INETCLEANUP()
? aHosts[ 2 ]
RETURN NIL
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 2
#include "fivewin.ch"
function MAIN
msgstop( getip() )
return NIL
Function GetIP()
Local cVar1
WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
return cVar1
FUNCTION MAIN()
LOCAL aHosts
INETINIT()
aHosts = INETGETHOSTS( NETNAME() )
INETCLEANUP()
* ? aHosts[ 2 ]
? valtoprg( aHosts )
M->__ValToPrg_Array := Array(1)
M->__ValToPrg_Array[1] := "192.168.1.101"
driessen wrote:By using the example of Enrico, I got the same error as Antonio.
EnricoMaria wrote:driessen wrote:By using the example of Enrico, I got the same error as Antonio.
I don't understand. Do you want my EXE to test it there?
EMG
FUNCTION MAIN()
LOCAL aHosts
INETINIT()
aHosts = INETGETHOSTS( NETNAME() )
INETCLEANUP()
MsgInfo( aHosts[ 2 ] ) <<<< aqui el cambio
RETURN NIL
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 2
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Silvio.Falconi and 92 guests