SpiderBasic

Code: Select all

DeclareModule Websocket
	Declare Open(Adress.s,*OnMessageCallback,*OnOpenCallback,*OnErrorCallback,*OnCloseCallback)
	Declare Send(message.s)
	Declare Close()
	Declare IsSupported()
	
EndDeclareModule

Module Websocket
	
	; Public Procedures
	Procedure Open(Adress.s,*OnMessageCallback,*OnOpenCallback,*OnErrorCallback,*OnCloseCallback)
		Protected Result
		! websocket = new WebSocket(v_adress);
		! websocket.onopen = function(evt) { p_onopencallback(evt) };
		! websocket.onclose = function(evt) { p_onclosecallback(evt) };
		! websocket.onmessage = function(evt) { p_onmessagecallback(evt) };
		! websocket.onerror = function(evt) { p_onerrorcallback(evt) };
		
		! v_result = websocket;
		ProcedureReturn Result
	EndProcedure
	
	Procedure Send(message.s)
		! websocket.send(v_message);
	EndProcedure
	
	Procedure Close()
		! websocket.close();
	EndProcedure
	
	Procedure IsSupported()
		Protected Result
		!if (window.WebSocket){
		!	v_result=1;
		!};
		ProcedureReturn Result
	EndProcedure
	
EndModule

CompilerIf #PB_Compiler_IsMainFile ; Example
	Procedure onOpen(evt)
		websocket::Send("Ababa")
	EndProcedure
	
	Procedure onClose(evt)
		Debug "onClose"
	EndProcedure
	
	Procedure onMessage(evt)
		Protected MessageFromWs.s
		! v_messagefromws = v_evt.data;
		Debug MessageFromWs
	EndProcedure
	
	Procedure onError(evt)
		Debug "onError()"
	EndProcedure
	
	websocket::Open("ws://127.0.0.1:8765/", @onMessage(),@onOpen(),@onError(),@onClose())
CompilerEndIf