从java到vb的不可读符号传入套接字
我制作了一个android应用程序,将socket从java发送到我电脑中的visual basic软件。我工作了,但是vb的传入套接字是一个问题符号“?”。我不知道为什么,但应该是“你好”。 java代码:从java到vb的不可读符号传入套接字,java,android,vb.net,sockets,Java,Android,Vb.net,Sockets,我制作了一个android应用程序,将socket从java发送到我电脑中的visual basic软件。我工作了,但是vb的传入套接字是一个问题符号“?”。我不知道为什么,但应该是“你好”。 java代码: package com.example.clientsocket; import java.io.ObjectInputStream; import java.io.ObjectOutputStream; import java.net.Socket; import android.o
package com.example.clientsocket;
import java.io.ObjectInputStream;
import java.io.ObjectOutputStream;
import java.net.Socket;
import android.os.Bundle;
import android.os.Handler;
import android.os.Message;
import android.app.Activity;
import android.view.Menu;
import android.view.View;
import android.widget.TextView;
public class MainActivity extends Activity {
TextView serverMessage;
Thread m_objThreadClient;
Socket clientSocket;
@Override
public void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
serverMessage=(TextView)findViewById(R.id.textView1);
}
public void Start(View view)
{
m_objThreadClient=new Thread(new Runnable() {
public void run()
{
try
{
clientSocket= new Socket("192.168.100.3",65535);
ObjectOutputStream oos = new ObjectOutputStream(clientSocket.getOutputStream());
oos.writeObject("a");
Message serverMessage= Message.obtain();
ObjectInputStream ois =new ObjectInputStream(clientSocket.getInputStream());
String strMessage = (String)ois.readObject();
serverMessage.obj=strMessage;
mHandler.sendMessage(serverMessage);
oos.close();
ois.close();
}
catch (Exception e)
{
// TODO Auto-generated catch block
e.printStackTrace();
}
}
});
m_objThreadClient.start();
}
Handler mHandler = new Handler() {
@Override
public void handleMessage(Message msg) {
messageDisplay(msg.obj.toString());
}
};
public void messageDisplay(String servermessage)
{
serverMessage.setText(""+servermessage);
}
}
以及visual basic代码:
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim Listener As New TcpListener(65535)
Dim Client As New TcpClient
Dim Message As String = ""
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ListThread As New Thread(New ThreadStart(AddressOf Listening))
ListThread.Start()
End Sub
Private Sub Listening()
Listener.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("You Can't Leave the IP Adresse or the port number empty! ")
Else : Client = New TcpClient(TextBox1.Text, TextBox2.Text)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write(TextBox3.Text)
Writer.Flush()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Listener.Pending = True Then
Message = ""
Client = Listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream())
While Reader.Peek > -1
Message = Message + Convert.ToChar(Reader.Read()).ToString
Label5.Text = Message
End While
MsgBox(Message, MsgBoxStyle.OkOnly, "Incoming Message")
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Listener.Stop()
End Sub
End Class
我希望您能理解我的问题,并感谢您的帮助。和
ObjectOutputStream
用于发送序列化的Java对象,这些对象除了Java程序外,其他任何程序都无法理解。寻找一个BufferedWriter
你的代码看起来非常类似:你有新账户吗?#zapl,谢谢#克朗彻,不,也许我们从同一个源代码。