Problem mit Text Datei und Umlauten

[Heinz]

Wollte nur die Feldnamen deiner Tabelle wissen
also die Struktur : Name, Stunden,Preis o.ä.

Dann bräuchte ich nichts umzuschreiben, wenn
ich dir evtl. ein Programm machen kann.

Hab mir schon was kleines in PureBasic gebastelt,
weil ich es auch selber brauchen kann. Es ist viel,
nur eine kleine Datenbank mit editierbarem Listview
und eine Serverfunktion integriert, damit man den
Inhalt des Listview über TCP senden kann.

Das Programm für mein Tablet sieht so aus :

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Serversocket1 As ServerSocket
Dim Socket1 As Socket
Dim Timer1 As Timer
Dim input1 As InputStream
Dim output1 As OutputStream

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 Button1 As Button
Dim ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Button1.Text = "Test"
Listview1.Clear
If FirstTime Then
Timer1.Initialize("Timer1", 200)
End If
If ServerSocket1.IsInitialized = False Then
ServerSocket1.Initialize(6832, "ServerSocket1")
End If
ToastMessageShow("Meine IP : " & ServerSocket1.GetMyIP, True)
End Sub

Sub ServerSocket1_NewConnection(Successfull As Boolean, NewSocket As Socket)
If Successfull Then
Socket1 = NewSocket
Timer1.Enabled = True
Input1 = Socket1.InputStream
ToastMessageShow("Connected !", True)
Else
Msgbox(LastException.Message, "Error connecting !")
End If
ServerSocket1.Listen
End Sub

Sub Activity_Resume
ServerSocket1.Listen
End Sub

Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
Timer1.Enabled = False
Socket1.Close
ServerSocket1.Close
End If
End Sub

Sub Button1_Click

End Sub


Sub Timer1_Tick
If Input1.BytesAvailable > 0 Then
Timer1.Enabled = False
Dim Buffer(100) As Byte
Dim raf As RandomAccessFile
Dim text As String
raf.Initialize3(Buffer, True)
Input1.ReadBytes(Buffer, 0, 100)
text = BytesToString(Buffer, 0, 100, "UTF-8")
Listview1.AddSingleLine(text)
End If
End Sub

Geht aber irgendwie nicht. Als Layout braucht es
nur ein Listview und einen Button.
Kannst du mal drüber schauen, wo es haken könnte ?

[rainerohl]

mit dem Programm von Klaus functioniert es wunderbar.
Vielen Dank

[rainerohl]

So das Problem mit den Umlauten ist mit dem Programmbeispiel von
Klaus gelöst.
Viele Dank an Klaus
mit freundlichen Grüßen Rainer