1,183
社区成员
发帖
与我相关
我的任务
分享
var
ErrorCode : integer;
SockAdd_In : TSockAddrIn;
begin
SockAdd_In.sin_family := PF_INET;
SockAdd_In.sin_port := htons(FPort);//端口
SockAdd_In.sin_addr.S_addr := htonl(INADDR_ANY);//監聽本機所有地址的端口
ErrorCode := bind(FSock,SockAdd_In,sizeof(SockAdd_In));//返回錯誤WSAEADDRINUSE 表示使用中