Multiserver (TCP) mit Basic 4 Android nutzen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Fusseldieb.

    Multiserver (TCP) mit Basic 4 Android nutzen

    Hallo Zusammen,

    Ich habe eine Programm das mit dem Multiserver(tcp) vom Sourcecode Thread Kommuniziert.
    Nun würde ich gerne auch "Nachrichten" von einem Android-Gerät versenden.

    Leider bin ich bis jetzt noch nicht auf eine Lösung gekommen da immer weider Fehler herausgegeben wird.
    Bez. der Text nicht ankommt.

    Hat hier jemand Ahnung :)

    Mein zurzeitiger code in b4a

    Spoiler anzeigen
    Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("praes1")
    Socket1.Initialize("Socket1")
    Socket1.Connect("192.168.61.52",8052,20000)
    End Sub

    Sub Socket1_Connected (Successful As Boolean)
    If Successful = False Then
    Msgbox(LastException.Message, "Error connecting")
    Return
    End If
    End Sub

    Sub Button1_Click
    Dim buffer() As Byte
    buffer = EditText1.Text.GetBytes
    AStreams.Write(buffer)
    EditText1.SelectAll
    End Sub

    Hallo Zusammen,
    Hab es jetzt selber auf die Reihe gekriegt xD...

    Spoiler anzeigen
    Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Socket1 As Socket
    End Sub
    Sub Globals
    Dim Chat As ListView
    Dim sendtext As EditText
    Dim loginname As EditText

    Dim tw As TextWriter
    Dim twinput As TextWriter

    End Sub
    Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("praes1")

    Socket1.Initialize("Socket1")
    Socket1.Connect("192.168.61.52" , 8052, 20000)

    End Sub
    Sub Socket1_Connected (Successful As Boolean)
    If Successful = False Then
    Msgbox(LastException.Message, "Error connecting")
    Return
    End If
    Dim StringIn As String
    tw.Initialize(Socket1.OutputStream)
    tw.WriteLine("Verbunden")
    tw.Flush

    End Sub

    Sub Button1_Click
    tw.WriteLine("hallo")
    tw.Flush
    'Socket1.Close
    End Sub


    Ein kleines Problem habe ich noch, und zwar würde ich auch gerne sachen empfangen :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „schnibli“ ()

    Jah habe ich, ich muss aber in meinem Archiv schauen ob ich dies Gespeichert habe.
    Ich habe mir nun einen Raspberry pi gekauft und da läuft nun der Server (python).
    Aber ich werde demnächst mal kurz nachschauen ob ich das Projekt mit dem VB.net und dem Android (Basic4Android) gespeichert habe.

    Hallo,

    Giebt es da bei Android nicht sowas wie ein TCP-Stack?? Aufjedenfall wird so eit ich weiß bei Android ales in Java Programmiert und TCP ist TCP, d.h. mann muss nur die Verbidnung inplementieren indem man dass Java Predant von tcpClient verwendet.

    LG, Herbrich

    @schnibli
    du musst dir basic4app kaufen als vollversion und ert dann kannst du die ganzen updates und libs benutzen. da gibt es eine lib für tcp. wenn du glück hast hab ich meinen tcpchat noch. müsste allerdings mal nachkucken. (sieht ehr schlecht aus)

    du musst dir aber vorher eine lib dafür runterladen ansonsten geht das nicht!

    Hallo, seid wann muss man sich für Android was kaufen, eine Javainstallation und die Android IDE die es kostenlos irgendwo bei den Google Delveopers (Google Endwicklerseiten) giebt.

    LG, Herbrich

    @zn-gong
    basic4app ist eine ide genauso wie visual studio und b4app kosstet eben was! man kann sie auch (so war es mal) kostenlos benutzen aber dann nur eingeschränkt und ohne erweiterungen. für eine tcp verbindung braucht man aber erweiterungen.
    zumindest war es immer so
    mit basic4app kann man androidapps (mit visual basic (etwas geändert und angepasst)) erstellen und den kompletten googlemarket benutzen.

    Echt geil. Dass wusste ich ja noch nicht, kann man sich die IDE irgendwo herunterladen??

    LG, Herbrich

    Wieso nicht einfach die App in Java programmieren? Es geht nicht darum zu versuchen, überall seine lieblings Sprache einzusetzen, sondern die, die am besten zur der aktuellen Aufgabe passt, und das ist hier eben Java.

    Hallo,

    Übersetzt nicht jede andere IDE den surcecoode für android ja auch in Java weil Java doch defakto Stnadart für Android ist. Wobei da sicherlich auf C / C++ gehen müsste was dann ja eig Nativ auf der SOA-CPU laufen würde.

    LG, Herbrich

    Habe es schon rausgekriegt, wie man lesen und schreiben kann ;)
    Nach langen versuchen xD

    Basic4Android Code:

    Quellcode

    1. #Region Project Attributes
    2. #ApplicationLabel: B4A Example
    3. #VersionCode: 1
    4. #VersionName:
    5. 'SupportedOrientations possible values: unspecified, landscape or portrait.
    6. #SupportedOrientations: unspecified
    7. #CanInstallToExternalStorage: False
    8. #End Region
    10. #Region Activity Attributes
    11. #FullScreen: False
    12. #IncludeTitle: True
    13. #End Region
    15. Sub process_globals
    16. Dim AStreams As AsyncStreams
    17. Dim Socket1 As Socket
    18. End Sub
    20. Sub Globals
    22. Private Label1 As Label
    23. End Sub
    24. Sub Activity_Create(FirstTime As Boolean)
    25. If FirstTime Then
    26. Socket1.Initialize("Socket1")
    27. Socket1.Connect("192.168.2.184",6565,5000)
    28. End If
    29. Activity.LoadLayout("Layout1")
    30. ' Im Layout hat es einen Button und Ein Label...
    31. End Sub
    33. Sub Socket1_Connected(Connected As Boolean)As Boolean
    34. If Connected = True Then
    35. AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
    36. Else
    37. ToastMessageShow("Server not available",True)
    38. End If
    39. End Sub
    41. Sub AStreams_NewData (Buffer() As Byte)
    42. Dim msg As String
    43. msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    44. Label1.Text = msg.SubString2(0, msg.Length-1)
    45. End Sub
    47. Sub Button1_Click
    48. Dim testString As String
    49. testString="Blablablablablabla" & CRLF
    50. Dim buffer() As Byte
    51. buffer=testString.GetBytes("UTF8")
    52. AStreams.Write(buffer)
    54. End Sub


    Am PC sieht es folgedermasen aus (VB.Net) :

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Public Class Form1
    7. Dim stream As NetworkStream
    8. Dim streamw As StreamWriter
    9. Dim streamr As StreamReader
    10. Dim Server As TcpListener
    11. Dim client As New TcpClient
    12. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 6565)
    13. Dim mainthread As Threading.Thread
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. mainthread = New Threading.Thread(AddressOf mainserver)
    17. mainthread.Start()
    18. End Sub
    19. Sub mainserver()
    20. Try
    21. Server = New TcpListener(ipendpoint)
    23. Server.Start()
    24. client = Server.AcceptTcpClient
    25. stream = client.GetStream
    26. streamr = New StreamReader(stream)
    27. streamw = New StreamWriter(stream)
    28. While True
    29. If streamr.ReadLine.Length > 0 Then MsgBox(streamr.ReadLine)
    30. stream.Flush()
    31. End While
    32. Catch
    34. End Try
    35. End Sub
    36. Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    37. Server.Stop()
    38. Try
    39. mainthread.Abort()
    40. Catch
    41. End Try
    42. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    45. Try
    46. streamw.WriteLine("Blablalblablablabla")
    47. streamw.Flush()
    48. Catch ex As Exception
    49. MsgBox("Not connected!")
    50. End Try
    52. End Sub
    53. End Class


    Ich hoffe, ich konnte vielen damit helfen ;)

    mfG Valentino

Facebook
Telefonspende