http://www.purebasic.com
https://www.purebasic.fr/english/
See what you can do with itblueb wrote: Tue Sep 12, 2023 2:20 pm Thanks Idle.
I hadn't noticed this before.
My favorite Flight Simulator allows UDP connections, so I now have my work cut out for me.
Code: Select all
Debug enet_host_service(clients(1)\host, @sevent, 0);
Code: Select all
XIncludeFile "enetpb.pbi"
Define version
Structure Client
*host.ENetHost
*peer.ENetPeer
EndStructure
Procedure CBPacketDestroy(*packet.ENetPacket)
Debug "free "
EndProcedure
Procedure CBpacketCreate(*data,dataLength.i,flags.l);
Debug "create"
EndProcedure
OpenConsole()
Global CB.ENetCallbacks
cb\packet_destroy = @CBPacketDestroy()
cb\packet_create = @CBpacketCreate()
version = enet_linked_version()
Debug ENET_VERSION_GET_MAJOR(version)
Debug ENET_VERSION_GET_MINOR(version)
Debug ENET_VERSION_GET_PATCH(version)
If enet_initialize_with_callbacks(version,@cb) = 0
Global *server.ENetHost;
Global sevent.ENetEvent
Global Dim clients.client(1)
Global address.ENetAddress ;
Global taddress.ENetAddress;
address\host\h = 0
address\host\l = 0
address\port = 7777; /* Bind the server to port 7777. */
enet_address_set_host_new(@address, "127.0.0.1");
clients(1)\host = enet_host_create(0, 1, 2, 0, 0);
clients(1)\peer = enet_host_connect(clients(1)\host, @address, 2, 0);
If (clients(1)\peer = #Null)
PrintN("coundlnt connect");
End
EndIf
Repeat
Debug enet_host_service(clients(1)\host, @sevent, 0);
ForEver
enet_peer_disconnect_now(clients(1)\peer,0);
enet_host_destroy(clients(1)\host) ;
enet_deinitialize()
EndIf
Input()
Code: Select all
XIncludeFile "enetpb.pbi"
Define version
Procedure host_server(server)
Protected event.ENetEvent
Protected *peer.ENetPeer
Protected *address.enetaddress
Static ct1
While enet_host_service(server, @event, 1) > 0
Select event\type
Case #ENET_EVENT_TYPE_CONNECT
PrintN("A new client connected from " + Str(event\peer\address\port));
enet_peer_set_data(event\peer,ct1);
ct1+1
Case #ENET_EVENT_TYPE_RECEIVE
PrintN("A packet of length " + Str(event\packet\dataLength))
Case #ENET_EVENT_TYPE_DISCONNECT
PrintN("disconnected " + Str(event\peer\Data));
Debug enet_peer_get_data(event\peer)
Case #ENET_EVENT_TYPE_DISCONNECT_TIMEOUT
PrintN("timeout" + Str(event\peer))
EndSelect
Wend
EndProcedure
Procedure CBPacketDestroy(*packet.ENetPacket)
Debug "free "
EndProcedure
Procedure CBpacketCreate(*data,dataLength.i,flags.l);
Debug "create"
EndProcedure
OpenConsole("Enet Server 7777")
Global CB.ENetCallbacks
cb\packet_destroy = @CBPacketDestroy()
cb\packet_create = @CBpacketCreate()
version = enet_linked_version()
Debug ENET_VERSION_GET_MAJOR(version)
Debug ENET_VERSION_GET_MINOR(version)
Debug ENET_VERSION_GET_PATCH(version)
If enet_initialize_with_callbacks(version,@cb) = 0
#MAX_CLIENTS = 4095
Global *server.ENetHost;
Global sevent.ENetEvent
Global address.ENetAddress ;
Global taddress.ENetAddress;
address\host\h = 0
address\host\l = 0
address\port = 7777; /* Bind the server to port 7777. */
server = enet_host_create(@address, #MAX_CLIENTS, 2, 0, 0);
If (server = #Null)
MessageRequester("","An error occurred While trying To create an ENet server host.\n");
End
EndIf
PrintN("Started a server...\n");
Repeat
host_server(server);
ForEver
host_server(server);
enet_host_destroy(server);
enet_deinitialize()
Input()
EndIf