Code: Alles auswählen
DataBuffer = AllocateMemory(1024)
FillMemory(DataBuffer, 1024)
port=5000
port1=50001
InitNetwork()
Repeat
EventID = WaitWindowEvent(5)
Select EventID
Case #PB_Event_CloseWindow
Quit = 1
Select EventGadget()
Case #b_ende
Quit = 1
Case #b_connect
If Not status
conID = OpenNetworkConnection("127.0.0.1", Port,#PB_Network_TCP,2000)
If conID
status = 1
SetGadgetText(#str_netzwerk,"Connected" + #CR$)
EndIf
EndIf
Case #b_disconnect
If status <> 0
CloseNetworkConnection(conID)
status = 0
SetGadgetText(#str_netzwerk,"Connection closed" + #CR$)
EndIf
EndSelect
EndSelect
If status
cEvent = NetworkClientEvent(conID)
Select cEvent
Case #PB_NetworkEvent_Data
datatext=""
FillMemory(DataBuffer, 1024)
Result = ReceiveNetworkData(ConID, DataBuffer, 1024)
EndSelect
EndIf
Until Quit = 1 Or EventID = #PB_Event_CloseWindow
FreeMemory(DataBuffer)
End
Gruss