CSocket.GetRawText 方法

 VIRTUAL METHOD GetRawText(
	 lLineMode AS LOGIC,
	 lNext AS LOGIC,
	 dwByteCount AS DWORD
) AS STRING

public virtual string GetRawText(
	[DefaultParameterValueAttribute(false, 0)] bool lLineMode,
	[DefaultParameterValueAttribute(false, 0)] bool lNext,
	[DefaultParameterValueAttribute(0, 0)] uint dwByteCount
)

 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