CSocket.GetRaw 方法

 VIRTUAL METHOD GetRaw() AS STRING

public virtual string GetRaw()

 1FUNCTION ServerTest3() AS VOID PASCAL
 2    LOCAL oSocket AS CSocket
 3    LOCAL oSockMsg AS CSocket
 4    LOCAL cData AS STRING
 5    LOCAL cFrom AS STRING
 6    LOCAL nPort AS INT
 7
 8    oSocket := CSocket{SOCK_STREAM}
 9
10    IF oSocket:bind(7, NULL_STRING, AF_INET)
11        oSocket:listen(1)
12        oSockMsg := oSocket:accept()
13
14        IF oSockMsg != NULL_OBJECT
15            cData := oSockMsg:GetRaw()
16            oSockMsg:GetPeerName(@cFrom, @nPort)
17            ? "Data received from ", cFrom, ", Client port: ", NTrim(nPort)
18            ? "Received data: ", cData
19        ENDIF
20
21        oSockMsg:Close()
22    ENDIF
23
24    oSocket:Close()
25
26    RETURN