我有一个客户端/服务器应用程序,其中Server在java中,Client在Vb.net中。
当我从客户端向服务器发送大字符串时,我没有收到完整的文本。 请帮忙。
下面附带的代码。
客户端 - VB.net -
Try
Dim clientSocket As New System.Net.Sockets.TcpClient()
' msg("Client Started")
clientSocket.Connect(StrIP_Add, intPort)
clientSocket.SendBufferSize=104857600
'6511 6522
' Label1.Text = "Client Socket Program - Server Connected ..."
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream(104857600) As Byte
' MsgBox(strValidator.Trim.Length)
outStream = System.Text.Encoding.ASCII.GetBytes(strValidator.Trim)
' Dim outStream As Byte() = "sdsfd"
System.Threading.Thread.Sleep(2000)
serverStream.Write(outStream, 0, outStream.Length)
System.Threading.Thread.Sleep(2000)
serverStream.Flush()
Dim inStream(104857600) As Byte
serverStream.Read(inStream, 0, outStream.Length) '104857600) ' CInt(clientSocket.ReceiveBufferSize))
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
' msg("Data from Server : " + returndata)
clientSocket.Close()
Catch ex As Exception
' VikUcMsg.AddMessage("<b><u>" & Page.Title & "</u></b><br><br>" & "No Connectivity on the port :" & intPort, enmMessageType.Error)
End Try
server-- Java
BufferedInputStream RecievedBuffer = new BufferedInputStream(
TCPIP_Client_SOCKET.getInputStream());
InputStreamReader RecievedInputStreamReader = new InputStreamReader(
RecievedBuffer);
System.out.println(RecievedBuffer.toString().length());
//char[] RecievedChars = new char[TCPIP_Client_SOCKET
//.getReceiveBufferSize()];
char[] RecievedChars = new char[100000];
//Thread.sleep(5000);
RecievedInputStreamReader.read(RecievedChars);
//Thread.sleep(5000);
String strRecievedData=null;
//Thread.sleep(5000);
strRecievedData = new String( RecievedChars ).trim();
//strRecievedData = RecievedChars.;
Thread.sleep(5000);
if (strRecievedData!=null)
{
System.out.println(strRecievedData);
}
strRecievedData始终只有8192。
答案 0 :(得分:1)
简而言之,你必须在从套接字读取时循环,因为无法保证每次尝试读取时会收到多少字节。
伪代码:
while (!msgCompleted && !overallTimeout)
{
bytesRead = netstream.Read(readBuffer);
if (bytesRead > 0)
{
// here append readBuffer to msgBuffer from offset to offset+bytesRead
offset += bytesRead // update offset so you can keep appending
// inspect the msgBuffer to see if the message is completed
}
}
总而言之,你的代码中还有其他许多问题。例如......
您在此处分配104857601(而不是104857600)字节缓冲区:
Dim outStream(104857600) As Byte
然后丢弃并用从strValidator重新包含的任何内容替换该缓冲区:
outStream = System.Text.Encoding.ASCII.GetBytes(strValidator.Trim)
预先分配它只是为了替换它没有意义。
另一个......
您分配一定长度的输入缓冲区:
Dim inStream(104857600) As Byte
然后使用不同缓冲区的长度读入缓冲区:
serverStream.Read(inStream, 0, outStream.Length)
根据长度的不同,这很容易出错。
您还需要循环使用此VB读取,就像Java读取一样。