CSocket.SendRawText 方法

 VIRTUAL METHOD SendRawText(
	cData AS STRING
) AS LOGIC

public virtual bool SendRawText(
	string cData
)

 1FUNCTION ClientTest2() AS LOGIC PASCAL
 2    LOCAL oSocket AS CSocket
 3    LOCAL cTo AS STRING
 4    LOCAL cData AS STRING
 5    LOCAL nSize AS INT
 6    LOCAL nPort AS INT
 7
 8    CLS
 9    oSocket := CSocket{SOCK_STREAM}
10
11    IF oSocket:connect( HostName(), 7)
12        cData := MemoRead("Test.txt")
13        nSize := SLen(cData)
14
15        IF oSocket:SendRaw(PTR(_CAST, cData), nSize)
16            oSocket:GetPeerName(@cTo, @nPort)
17            ? "Data sent to ", cTo, ", port: ", NTrim(nPort)
18        ENDIF
19    ENDIF
20
21    oSocket:Close()
22
23    RETURN