OpenEuphoria

RichEdit Winsock

• Posted by eucoder <eucoder at hotpop.com> May 06, 2005
• 399 views

Hi All
The Senario win32lib.ew and winsock.ew.

-- client
procedure onEvent_Win(integer self, integer event, sequence params)
-- client
integer fdvent, fd_hi
if params[1] = conevent then
	    fdevent = params[3]
	    fd_hi = hi_word(fdevent)
	if fd_hi >= WSABASEERR then
	    setFocus(Report)
	    setFont(Report, {255,"Arial"}, 10, Normal)
	    appendText(RichEd, WsockTellError(fd_hi)&"\r")
	    
	end if
end if
end procedure

if fd_hi = WSAECONNREFUSED works ok
if fd_hi = WSAECONNABORTED reset RichEd attribs
Not a big issue but if someone has an idea how to fix this problem?

Tj