Здравствуйте, вот столкнулся с проблемой, никак не могу отослать данные по протоколу websocket, если с подключением к серверу и приемом данных з горем по палам разобрался, то здесь застрял.
Нашел процедуру:
Код:
Procedure.i Websocket_SendTextFrame(ClientID.i, Text$)
Protected.a Byte
Protected.i Result, Length, i
Protected *Buffer
Protected Dim Key.a(3)
Length = Len(Text$)
Debug Length
If Length < 126
*Buffer = AllocateMemory(Length + 6)
If *Buffer
Byte = %10000000 | #TextFrame
PokeA(*Buffer + 0, Byte)
PokeA(*Buffer + 1, %10000000 | Length)
For i = 0 To 3
Key(i) = Random(255)
PokeA(*Buffer + 2 + i, Key(i))
Next i
For i = 0 To Length - 1
PokeA(*Buffer + 6 + i, PeekA(@Text$ + i) ! Key(i % 4))
Next i
If SendNetworkData(ClientID, *Buffer, MemorySize(*Buffer)) > 0
Result = #True
EndIf
FreeMemory(*Buffer)
EndIf
EndIf
ProcedureReturn Result
EndProcedureНо она наверное не работает, при попытке отправки клиент завершает работу.