哪个高手会在BCB内使用socket API多线程来做传送文件的例子？

[L·D·N]

哪个高手会在BCB内使用socket多线程来做传送文件的例子？？？可否告知我？？
挺着急的，要做个软件，在LAN内做个类似BT的多点下载的程序，想到使用UDP协议来传送数据。
看了BCB的控件似乎效率很低，因为传送操作很频繁。怎么使用socket API来做呀？哪个高手可否指点一二？谢谢了！

[sxzqlzx]

用组件多好，如Nmudp

[wsb01071054]

我也不会啊，我也是在这里找答案的，不好意思啊！

[L·D·N]

这里高手很多，可是没有人愿意教我们，哪怕是不完整的提示都没有~
哎~！！！！！！！！！。
学个东西还真难。。。。。。。。。。。。。。。。。。。。。。。。。。
通宵的找答案仍然找不到，我不是死找，而是相关的都找了，还是无法做出来，来到这里求助，几天了也没有人说个具体的方法。。。。

[wohow]

调用socket，bind，sendto，recvfrom等几个函数就行了

[RobertSky]

服务器：
void __fastcall TForm_Main::FormCreate(TObject *Sender) //初始化网络
{
WORD wVersionRequested;
WSADATA wsaData;
PHOSTENT hostinfo;
sockaddr_in my_sockaddr;
wVersionRequested=MAKEWORD(2,0);
if(WSAStartup(wVersionRequested,&wsaData)!=0)
{
Application->MessageBoxA("初始化SOCKET失败！","提示",MB_ICONINFORMATION|MB_OK);
}
m_serversocket=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if(m_serversocket==INVALID_SOCKET)
{
Application->MessageBoxA("SOCKET创建失败！","提示",MB_ICONINFORMATION|MB_OK);
closesocket(m_serversocket);
}
my_sockaddr.sin_family=AF_INET;
my_sockaddr.sin_port=4545;
my_sockaddr.sin_addr.S_un.S_addr=INADDR_ANY;
if(bind(m_serversocket,(const sockaddr*)&my_sockaddr,sizeof(my_sockaddr))==SOCKET_ERROR)
{
Application->MessageBoxA("SOCKET绑定失败！","提示",MB_ICONINFORMATION|MB_OK);
}
DWORD dwthread;
NetThread=CreateThread(NULL,0,listenthread,(void*)m_serversocket,0,&dwthread);
}

监听线程函数：
DWORD WINAPI listenthread(void* p)
{
SOCKET m_socket=(SOCKET) p;
if(listen(m_socket,30)==SOCKET_ERROR)
{
Application->MessageBoxA("SOCKET监听失败！","提示",MB_ICONINFORMATION|MB_OK);
closesocket(m_socket);
return 0;
}
while(!Form_Main->Exited)
{
SOCKET s;
s=accept(m_socket,NULL,NULL);
DWORD dwthread;
CreateThread(NULL,0,StartNet,(void*)s,0,&dwthread);
}
closesocket(m_socket);
return 1;

}

文件传输实现：

DWORD WINAPI StartNet(void* p)
{
SOCKET s_client=(SOCKET)p;
char s_buffer[100];
AnsiString s_tmp;
memset(s_buffer,'\0',100);
sprintf(s_buffer,"%s","连接确认");
send(s_client,s_buffer,8,0);
memset(s_buffer,'\0',100);
if(recv(s_client,s_buffer,100,0)==SOCKET_ERROR)
{
closesocket(s_client);
return 0;
}
s_tmp=s_buffer;
if(s_tmp.SubString(1,12)=="请求远程下载")
{
if(!FileExists(s_tmp.SubString(13,23)))
{
send(s_client,"无文件",6,0);
closesocket(s_client);
return 0;
}
else
{
int f_handle=open(s_tmp.SubString(13,23).c_str(),O_RDONLY|O_BINARY,S_IREAD);
if(f_handle==-1)
{
send(s_client,"无文件",6,0);
_close(f_handle);
closesocket(s_client);
return 0;
}
else
{
unsigned long d_fsize;
d_fsize=filelength(f_handle);
DWORD nSize=1024;
PBYTE pBuf=new BYTE [nSize];
DWORD nBlock=d_fsize/nSize;
DWORD nRemain=d_fsize%nSize;
lseek(f_handle,0,SEEK_SET);
AnsiString s_tmp_filelength;
s_tmp_filelength.sprintf("%020d%020d",d_fsize,nRemain);
send(s_client,"有文件",6,0);
send(s_client,s_tmp_filelength.c_str(),40,0);

// send(s_client,"文件尾",6,0);
unsigned long client_i;
for(unsigned long i=0;i<nBlock;i++)
{
if(read(f_handle,(void*)pBuf,1024)==-1)
{
send(s_client,"服务器文件错误",100,0);
_close(f_handle);
closesocket(s_client);
return 0;
}
else
{
send(s_client,pBuf,1024,0);
}
do
{
memset(s_buffer,'\0',100);
if(recv(s_client,s_buffer,20,0)==SOCKET_ERROR)
{
send(s_client,"服务器文件错误",100,0);
_close(f_handle);
closesocket(s_client);
return 0;
}
s_tmp_filelength=s_buffer;
client_i=StrToInt(s_tmp_filelength);
}
while((i+1!=client_i)&&client_i<nBlock);
}
send(s_client,"文件尾",6,0);
if(read(f_handle,(void*)pBuf,nRemain)==-1)
{
send(s_client,"服务器文件错误",100,0);
_close(f_handle);
closesocket(s_client);
return 0;
}
else
{
send(s_client,pBuf,nRemain,0);
_close(f_handle);
closesocket(s_client);
return 0;
}
}
}

}
else
{
closesocket(s_client);
return 0;
}
}

太多了不想贴了，麻烦~

[FengSC]

先必须自己研究研究，有一定基础以后再来提具体问题

[L·D·N]

基础不是很好，但我要用的是UDP协议。
我创建了一个线程函数，在线程函数内接收数据。使用阻塞模式。
接收数据好象是正常的，具体的频繁接收数据我没有测试，问题在于线程内recvfrom阻塞了。
当退出程序的时候，抛出异常，无法正常关闭程序。不知道如何解决。
后来想到使用非阻塞模式，可是非阻塞模式应该是调用recvfrom 之后函数会立即返回，这样以来，
我接收数据使用的是一个循环，那么不是疯狂的循环下去？CPU资源不是都给占完了？我用的是BCB来写程序的。我知道用VC的话可以使用WSASelect来设置发送消息来通知程序收到数据。问题是BCB应该怎么做？程序是用来发送文件接收文件用的，发送接收操作肯定很频繁，这样做可否胜任？
望高手指点一二。谢谢！！

[shadowstar]

不要讲什么VC，BCB，WINAPI是在WINDOWS下开发都可以用的。

[我不懂电脑]

你可以参考一下unix的例子，很多的。

[L·D·N]

。。。。。。。。。。。。。自己再顶吧

[godoli]

#define WM_SOCKETEVENT WM_USER + 1
用API函数
WSAAsyncSelect(Sock, Hwnd, WM_SOCKETEVENT, FD_READ | FD_WRITE | FD_CLOSE);
就能实现这种异步模型。
看一下《WINDOWS网络编程技术》这本书的第8、9章，网上搜一下就有。

[nieshigui]

顶上

[wenyongjie]

up

[yz20050510]

我也想要，帮你顶！！！