ich überall gesucht habe eine Antwort auf diese Frage zu finden:TCP-Verbindung zum Senden und Empfangen von Java/Android mit Visual Basic .NET Server
Ich habe einen TCP-Client auf meiner Android-Anwendung, die eine Nachricht an den Server sendet die in Visual Basic .NET Framework geschrieben 4.
Jetzt möchte ich eine Nachricht von meinem Server an das Telefon über 3g senden, es funktioniert auf wiFi und 3G ..
private class startserver extends Thread
{
public void server() throws Exception
{
String clientSentence;
String capitalizedSentence;
ServerSocket welcomeSocket = new ServerSocket(8765);
while(true)
{
Socket connectionSocket = welcomeSocket.accept();
BufferedReader inFromClient =
new BufferedReader(new InputStreamReader(connectionSocket.getInputStream()));
DataOutputStream outToClient = new DataOutputStream(connectionSocket.getOutputStream());
clientSentence = inFromClient.readLine();
System.out.println(clientSentence.substring(1));
msgshower = clientSentence.substring(1);
MainActivity.this.runOnUiThread(new Runnable() {
public void run() {
Toast.makeText(MainActivity.this, "Received: " + msgshower , Toast.LENGTH_LONG).show();
}
});
capitalizedSentence = clientSentence.toUpperCase() + '\n';
outToClient.writeBytes(capitalizedSentence);
}
}
@Override
public void run() {
try {
server();
} catch (Exception e) {
e.printStackTrace();
}
}
ich es starten in die OnCreate-Methode
Jetzt schicke ich eine Nachricht mit (VB.NET)
Private Sub sends(ByVal message As String)
Dim tcp As New TcpClient
tcp.Connect(connectedIP, 8765)
Dim bw As New IO.BinaryWriter(tcp.GetStream)
bw.Write(message)
bw.Close()
tcp.Close()
End Sub
On WiFi wird es ankommen, werden sie nicht auf 3G ... jede Idee ist, wie dies zu tun?
Wie archivieren andere Anwendungen dies?
Wie erhalten Sie die IP-Adresse von VB zu verbinden? – BWitched
die IP, die verbunden war, 'Dim Zuhörer als TcpListener = CType (ar.AsyncState, TcpListener) Dim Clientsocket Wie TcpClient = listener.EndAcceptTcpClient (ar) Dim Daten Dim rcvData As New IO.StreamReader (Clientsocket. GetStream) Data = rcvData.ReadLine connectedIP = clientSocket.Client.RemoteEndPoint.ToString.Split (":") (0) rcvData.Close() clientSocket.Close() ' – Marco