TCP communication

[konijn]

Hello,

End off last year I post here some questions (old forum) and you helped me a lot!! Special tenochtitlanuk helped me a lot to read data in LB.
I am working on a system: We have a farm with cows. In the milk stable there are 16 cows, 8 cows left and 8 cows right. Above each cow I made a arduino display. If the cow is recognized by a transponder, Liberty Basic sends the data off the cow to the regarding display by UDP. It works great, but I have had some problems with electric that gives failure in the arduino.
Now I am busy to get the recognizing automatically. For that I have a PCB (circuit, I dont know in english, sorry for that) on that PCB are 16 antenna's who can read the transponders on the collar off the cow.
The pcb send the transpondercode to a TCP server. I was thinking to use Liberty Basic for TCP server. I have to sends a few commands to the PCB and receive some back.
I found not much on internet for that. What I found is below, but that is for a TCP client.
I hope someone can help.
Thanks!!

open "mesock32.dll" for dll as #me


th = TCPOpen("192.168.2.1", 25)
print "TCP Handle Opened: ";th
txt$="test"
lret = TCPPrint(th, txt$)
print lret
close #me





''''Function TCPOpen()''''''''''
Function TCPOpen(address$,Port)
Timeout=1000
calldll #me, "Open", address$ As ptr,_
Port As Long,_
Timeout As Long, re As Long
TCPOpen=re
End Function

''''Function TCPReceive$()''''''''''
Function TCPReceive$(handle)
buffer=4096
all=0
calldll #me, "ReceiveA" ,handle As Long,_
buffer As Long,_
all As Long, re As long
if re<>0 then TCPReceive$ = winstring(re)
End Function

''''Function TCPPrint()''''''''''
Function TCPPrint(handle,text$)
calldll #me, "PrintA", handle As Long,_
text$ As ptr,re As Long
TCPPrint=re
End Function

''''Function TCPClose()''''''''''
Function TCPClose(handle)
calldll #me, "CloseA",handle As Long,_
TCPClose As Long
End Function