Verfasst: 28.06.2008 11:04
@Kiffi
Wollte mal was anderes. Ich war der einzigste mit Realname.
Da bin ich richtig aufgefallen.
Wollte mal was anderes. Ich war der einzigste mit Realname.
Da bin ich richtig aufgefallen.
Code: Alles auswählen
ReceiveNetworkString()
edel hat geschrieben:Gibt es wo ?Code: Alles auswählen
ReceiveNetworkString()
Bitte schön:GreyEvt hat geschrieben:ReceiveNetworkString() gibt es nicht.
Aber wer hat ihn reingestellt?
Ah AND51 hat damit angefangen.
So einen Befehlsneuschöpfer brauchen wir.
Code: Alles auswählen
Procedure.s ReceiveNetworkString(ClientID.l)
Protected Puffergroesse.l, *MemoryID.l, Laenge.l, Temp.s
Puffergroesse = 8192
*MemoryID = AllocateMemory(Puffergroesse)
If *MemoryID
Repeat
Laenge = ReceiveNetworkData(ClientID, *MemoryID, Puffergroesse)
Temp + PeekS(*MemoryID, Puffergroesse)
Until Laenge < Puffergroesse
FreeMemory(*MemoryID)
EndIf
ProcedureReturn Temp
EndProcedure
Code: Alles auswählen
Temp + PeekS(*MemoryID, Laenge)