16,472
社区成员
发帖
与我相关
我的任务
分享动态连接库问题
用C++写了个动态连接库,给VB用,VB中用了一个线程,线程中调用DLL中一个RECV(封装WINSOCK而来),阻塞在那,但退出时,程序出错.去掉调用DLL那句后就没事了.其它的导出函数都没问题,就阻塞线程有问题.
函数原型
int __stdcall neRecv(int rSocket, char buff[])
{
char buffer[BUFFER_SIZE_MAX]={0};
struct sockaddr_in Client;
int l = sizeof(Client);
{
if(recvfrom(rSocket, buffer, BUFFER_SIZE_MAX, 0, (struct sockaddr*)&Client, &l) != SOCKET_ERROR)
{
return 0;
}
}
}
return -1;
}
VB线程
dim Buffer as String
Public Sub recvThread(s As Long)'s是socket
nCount = 0
While (1)
nCount = nCount + 1
Dim num As Long
num = neRecv(s, Buffer)
If num = -1 Then Exit Sub
Wend
End Sub
函数原型
int __stdcall neRecv(int rSocket, char buff[])
{
char buffer[BUFFER_SIZE_MAX]={0};
struct sockaddr_in Client;
int l = sizeof(Client);
{
if(recvfrom(rSocket, buffer, BUFFER_SIZE_MAX, 0, (struct sockaddr*)&Client, &l) != SOCKET_ERROR)
{
return 0;
}
}
}
return -1;
}
VB线程
dim Buffer as String
Public Sub recvThread(s As Long)'s是socket
nCount = 0
While (1)
nCount = nCount + 1
Dim num As Long
num = neRecv(s, Buffer)
If num = -1 Then Exit Sub
Wend
End Sub
...全文
请发表友善的回复…
发表回复
sdgzhk 2006-06-16
- 打赏
- 举报
WSACleanup()后问题依然.现在我都迷惘了
hony688 2006-06-15
- 打赏
- 举报
soceket调试容易发生阻塞的现象
seasol 2006-06-15
- 打赏
- 举报
在合适的地方调用closesocket(s)试试。
sdgzhk 2006-06-15
- 打赏
- 举报
其实问题不在recv函数中,因为退出时,主程序已经退出了,但线程没有退出.可能是阻塞的关系,没要响应系统退出吧,其实我想在DLL中写个close,中止DLL中recv的阻塞,但不知道应该怎样写这个close函数.当然我并不确定这样做能行.
gdsdyl 2006-06-15
- 打赏
- 举报
在动态链接库中增加关闭socket的函数.
完成对请求的Socket库的使用后，要调用WSACleanup函数来解除与Socket库的绑定并且释放Socket库所占用的系统资源.
完成对请求的Socket库的使用后，要调用WSACleanup函数来解除与Socket库的绑定并且释放Socket库所占用的系统资源.
tong20037 2006-06-15
- 打赏
- 举报
觉得应该用非阻塞的好点吧
Jarrylogin 2006-06-15
- 打赏
- 举报
在动态连接库的退出函数中加上closesocket(s)就行了
seasol 2006-06-14
- 打赏
- 举报
记不太清了，定义字符串时指定长度是不是dim Buffer as String * 255
你可以试一下。
另外，num = neRecv(s, Buffer) 改为 num = neRecv(s, byVal Buffer)
你可以试一下。
另外，num = neRecv(s, Buffer) 改为 num = neRecv(s, byVal Buffer)
xiangrujian 2006-06-14
- 打赏
- 举报
帮顶！
