引用第6楼htyoung于2008-10-25 23:16发表的 :
先看看你往下发时socket连上了吗?
还有你的socket是一直开着,还是开开,断断的.
VBserver连 QSocket 就socket本身肯定不会有问题的.
.......
服务器端的主要代码如下:
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then _
tcpServer.Close '如果上一个没有关闭,则关闭它
txtState = "连接关闭"
tcpServer.Accept requestID '接受具有 requestID 参数的连接。
txtState = "已经连接"
txtIP.Text = tcpServer.RemoteHostIP
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
txtState = "开始接收数据" '更新当前网络状态
Dim strData As String '为进入的数据声明一个变量。
tcpServer.GetData strData, vbString
strData2 = strData2 + strData
Call SaveRealtimeFile(istrXMLPath, strData2)
tcpServer.SendData OKData
txtState = "接收完毕"
End Sub
客户端主要代码为:
void Client::connectToServer()
{
socket->connectToHost( host, port );
}
void Client::sendToServer()
{
// write to the server
QTextStream os(socket);
os<<"something";
}
void Client::socketReadyRead()
{
// read from the server
while ( socket->canReadLine() ) {
QString s="echo "+socket->readLine();
system(s);
printf("\n");
}
}
不好意思最近又在忙了点别的,所以暂停了一段时间,感谢大伙 的回复,麻烦大家继续帮忙看看!
值得一提的是,用Qt做了个服务器是可以互相通信的。