'Servicemodul
Sub Process_Globals
UKSP_length=0
Dim UKSP_Puffer_Bytes(100) As Byte
Dim UKSP_Puffer(100) As Int
Dim Bytes_wandeln As RandomAccessFile
Dim filestreamAusgang As AsyncStreams
...
...
Sub filestreamAusgang_NewData (Buffer() As Byte)
UKSP_length=buffer.Length
UKSP_Puffer_Bytes=buffer
End Sub
Sub Timer_Tick
If UKSP_length<>0 Then collect_data
end sub
Sub collect_data
Bytes_wandeln.Initialize3(UKSP_Puffer_Bytes,False)
For Trennposition=0 To UKSP_length
...
....