Memory Inhalt löschen?

[GreyEnt]

@Kiffi
Wollte mal was anderes. Ich war der einzigste mit Realname.
Da bin ich richtig aufgefallen.

[AND51]

Deswegen kam mir dein Avatar merkwürdig bekannt vor...
ich hab mich die ganze zeit schon gefragt, bei welchem User ich den heir schon mal gesehen hatte...

[edel]

Code: Alles auswählen

ReceiveNetworkString()

Gibt es wo ?

[GreyEnt]

@Edel.
Gibt es bei Dir den Befehl nicht?
Oder wie darf ich Dich verstehen?

@AND51
das Avatar wird auch neu. Bin nur zu faul was zu kopieren.
Möchtest Du mein Altes haben?

[edel]

Glaube kaum das den jemand hat.

[GreyEnt]

@Edel
Oh ja.
ReceiveNetworkString() gibt es nicht.
Aber wer hat ihn reingestellt?
Ah AND51 hat damit angefangen.
So einen Befehlsneuschöpfer brauchen wir.

[AND51]

Code: Alles auswählen

ReceiveNetworkString()

Gibt es wo ?

ReceiveNetworkString() gibt es nicht.
Aber wer hat ihn reingestellt?
Ah AND51 hat damit angefangen.
So einen Befehlsneuschöpfer brauchen wir.

Bitte schön:

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

Aus dem alten Thread, den ich 14 Tage nach meiner Registrierung in diesem Forum eröffnet habe:
http://www.purebasic.fr/german/viewtopi ... highlight=



P.S.: Ich hatte mich verschrieben, gemeint war eigentlich ReceiveNetworkData().

[HeX0R]

Wenn schon, dann:

Code: Alles auswählen

Temp + PeekS(*MemoryID, Laenge)