关于网络程序设计的问题(socket编程)

发布网友 发布时间：2022-04-20 10:14

我来回答

共1个回答

热心网友 时间：2023-07-19 06:41

下面是我程序中的片断，我的程序侦听UDP6789端口，并接收和显示数据，如果你需要留言我发给你。

wsstatus:=wsastartup(ver,rece);//初始化winsock;在windows下是必须的过程
if wsstatus<>0 then Panic('初始化winsock失败');
hSocket:=socket(af_inet,sock_dgram,0);
//第一步,建立的socket,大于0表示成功
if hSocket<0 then Panic('建立socket失败');
wsstatus := WSAASyncSelect(hSocket, hWnd, WM_ASYNCSELECT,
FD_READ or FD_WRITE or FD_CLOSE or FD_CONNECT);
if wsstatus<>0 then Panic('WSAASyncSelect Error');
server.sin_family := af_inet;
server.sin_port := htons(9876);
server.sin_addr.s_addr := inaddr_any;
wsstatus:=bind(hSocket,server,sizeof(server));
//第二步,绑定,0表示成功
if wsstatus<>0 then Panic('绑定socket失败');