Server sendet - Client emfängt - PeekS() wandelt nicht!
Verfasst: 09.12.2011 17:14
Hallo Board,
mein Problem ist simple zu erklären, aber dennoch finde ich den (Fehler) nicht.
Code vom sendenden Server:
Code vom Client:
Debug vom Server gibt folgendes rauß:
Pro SendTC :: absend.s: Hello!
Pro SendTC :: *STBuffer: 61278160
Pro SendTC :: sendok: 2400
Debug Client:
2400
36767696
Das Problem liegt daran, dass der Client wohl 2400 Byte emfängt aber der Befehl PeekS keinen String herraus gibt =(
Vielleicht hat jemand eine Lösung dafür...
Liebe Grüße
Bernt
mein Problem ist simple zu erklären, aber dennoch finde ich den (Fehler) nicht.
Code vom sendenden Server:
Code: Alles auswählen
Procedure.l SendTC(ClientID, absend.s)
Debug "Pro SendTC :: absend.s: "+absend.s
*STBuffer = AllocateMemory(2400)
PokeS(*STBuffer, absend$, -1, #PB_Ascii)
Debug "Pro SendTC :: *STBuffer: "+Str(*STBuffer)
sendok = SendNetworkData(ClientID, *STBuffer, MemorySize(*STBuffer))
FreeMemory(*STBuffer)
Debug "Pro SendTC :: sendok: "+Str(sendok)
ProcedureReturn sendok
EndProcedure Code: Alles auswählen
Debug ReceiveNetworkData(ConnID, *Buffer, 2401)
Debug *Buffer
bef$ = PeekS(*Buffer, -1, #PB_Ascii)
Debug bef$Pro SendTC :: absend.s: Hello!
Pro SendTC :: *STBuffer: 61278160
Pro SendTC :: sendok: 2400
Debug Client:
2400
36767696
Das Problem liegt daran, dass der Client wohl 2400 Byte emfängt aber der Befehl PeekS keinen String herraus gibt =(
Vielleicht hat jemand eine Lösung dafür...
Liebe Grüße
Bernt
Ich glaubs nicht! Genau daran hat es gelegen! Die Übertragen Byte's mussten ja stimmen wegen PokeS().
