I am testing the TmySqlServer
If I compile this function
with xHArbour nSocket = 3678264
with FW nSocket = -2
Many thanks
MAurizio
Function MAin()
oServer := TMySQLServer():Ne("www.freesql.org", "myuser", "mypass")
if oServer:NetErr()
quit
endif
? oServer:nSocket
Return nil