OpenEuphoria

Re: dde stuff & winsock.e

• Posted by =?iso-8859-1?Q?JesusC_-_Jes=FAs_Consuegra?= Oct 07, 1998
• 557 views

> Asunto: Re: dde stuff & winsock.e
> If there is, no matter how complicated, i'd *really* appreciate it.

It should be really *easy*...

Add tracing to the code below.

Run the program: Should open a window with a SLE control.
Key in 127.0.0.1 and follow the program.
You will see that winsock does respond as "localhost" (if you have it
defined at the "hosts" file, or if you have a DNS on the net).
Hope this help.
Jesus.
>-----------------------------------------------8x--------------------------
----------------------------------------------------< cut here
--
-- HostInfo
--
with trace

include winsock.ew

integer response
sequence Okay, ProgName
atom errorRtn

constant
    Win     = create( Window, "Host Info", 0, Default, Default, 400, 200,
0 ),
    Sle1    = create( EditText, "", Win, 10, 40, 120, 20, 0 ),
    HostButton = create( PushButton, "Check Host...", Win, 10,100, 120, 20,
0 ),
    List1 = create( List, "", Win, 140, 10, 220, 140, 0 )

    Okay = "Everything in Wsock32 Ok."
    ProgName = "HostInfo.exw"
    SocketTrace = 0 -- Play with 0 or 1

procedure onClick_Button( integer mouseX, integer mouseY )
    integer result
    sequence HostName, IPAddress, HostDescription, Host
        Host = getText(Sle1)
    HostDescription = WsockHostInfo(Host)
--    trace(1)
        addItem(List1,HostDescription[1]&"-"&HostDescription[2])
end procedure

procedure onOpen_Win()

         integer rgbColor

        errorRtn = WsockInit()
        if errorRtn != 0 then
                Say("Error initializing Winsock.",ProgName)
                abort(1)
        end if

    -- get the button face color
    rgbColor = getSysColor( COLOR_BTNFACE )

    -- change the window color
    setWindowBackColor( Win, rgbColor )

end procedure

procedure onUnload_win()
        errorRtn = WsockRelease()
        if errorRtn != 0 then
                Say("Error releasing Winsock.",ProgName)
                abort(1)
        end if
end procedure

onClick[ HostButton ] = routine_id("onClick_Button")
onLoad[ Win ] = routine_id( "onOpen_Win" )
onUnload[ Win ] = routine_id("onUnload_Win")

WinMain( Win )
>-----------------------------------------------8x--------------------------
----------------------------------------------------< cut here