German TCP-Chat

[MVN050]

moin leute

und zwar folgendes
ich habe mit visual-studio 2010 schon einen komplett funktionierenden tcpchat gebaut. (VB)
der client und der server kommunizieren bereits perfekt miteinander und nun wollte ich mir auch einen android-version dafür bauen

ich bin nun hier auf dieses tutorial gestossen http://www.b4x.com/android/forum/threads/android-network-tutorial.7001/
ich denke das is genau das was ich will (kann nicht sehr gut englisch) im tut sieht man ja wie man eine verbindung aufbaut (noch nicht getestet) allerdings sehe ich da nirgends wie man an den server auch etwas senden? bzw wo drinne steht was man empfängt?

mein server ist schon sehr ausgereift und versendet schon einige sehr komplizierte übertragungen (nur als textform)

als erstes muss man zum server ein password schicken damit der server überhaupt die verbindung zulässt (kleine sicherheit) und erst dan wird der chatname zum server geschickt...

jetzt will ich (ganz einfach gehalten für dne anfang) nur 1 textbox und ein button für die verbindung zum server aufbauen... also man gibt sein namen in dem textfeld ein drückt auf dne button und verbindet sich zum server. (das würde ich warscheinlich noch hinbekommen) aber dan sendet der server direkt einem die serverliste zu und direkt fangen die chatnachrichten auch schon an... und genau da is im mom mein problem...

wie kann ich etwas von einem server empfangen? das empfangene in einzelne teile spliten und diese dan gescheit in eine textbox (ambesten tabelle mit username und text) eintragen lassen?
mit vb kenne ich mich eig recht gut aus allerdings hab ich mit basic4app nochnicht viel gearbeitet und jeder anfang ist schwer
ich hab mir basic4app gekauft (geschenckt bekommen viel mehr) also erweiterungen müssten funktionieren

zurzeit lade ich mir die ganzen sachen da von dme android-sdk runter
danke schonmal für eure hilfe

 

[MVN050]

moin leute
ich hab schon weiter gemacht und die verbindung besteht perfekt...
das senden klappt auch perfekt allerdings hab ich probleme etwas zu empfangen

kann mir da bitte einer weiterhelfen? ich schaffs nich wirklich
mein code sieht bisjetzt so aus

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: false
#End Region

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
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim Chat As ListView
    Dim sendtext As EditText
    Dim loginname As EditText
        'Dim nick As String = loginname.Text
  Dim tw As TextWriter
  Dim twinput As TextWriter
      'Dim tr As TextWriter
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lobbylayout")
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Socket1.Initialize("Socket1")
    Socket1.Connect("stshq.de" , 8000, 20000)
    'Socket1.OutputStream "hi"
    'Socket1.OutputStream("SGN;1Mobil-MVN050")
      ' Private t As New Threading.Thread(AddressOf Listen)
    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("passworxxxx")
 
      tw.WriteLine(module1.clantag & "\" & module1.nick)
  tw.Flush
 
  'Socket1.listen
    Dim tr As TextReader
  ' Socket1.Close
 
'Dim tr As TextReader
  ' tr.Initialize(Socket1.InputStream)
  ' Dim sb As StringBuilder
  ' sb.Initialize
  ' sb.Initialize
  '  sb.Append(tr.ReadLine)
'  Socket1.Close
Chat.AddtwoLines ("name","text")
'Chat.AddTwoLines
    End Sub
Sub Activity_Pause (UserClosed As Boolean)
'Socket1.Close
End Sub
Sub Button1_Click
  tw.Initialize(Socket1.OutputStream)
    ' tw.WriteLine("/botsay |SGN-Bot|Ich bin nur der Bot nicht der Putzmann! ")
      tw.WriteLine("/say |gamer.png|"& module1.clantag & "|" & module1.nick & "|" & sendtext.text)
       
  tw.Flush
  sendtext.Text= ""
End Sub