OpenEuphoria

Re: Routin_address

• Posted by Bernie Ryan <xotron at BUFFNET.NET> Mar 28, 2000
• 534 views

On Tue, 28 Mar 2000 19:27:45 +0100, Kondor Attila <konel at DPG.HU> wrote:

>Hi All,
>
>How can I know an address of routin?
>How can I pass on an address of routin?
>for example:
>
>procedure Read_Ok(integer lpRBuf)
>--.........
>end procedure
>
>--lpComplett=routine_id("Read_Ok") <--- it is not suitable
>
>fresult=c_func(xReadFileEx,{handle, lpRBuf, BytesToRead, lpBytesRead,
>lpOVERLAPPED,
>                 lpComplett})   -- the routin_address
>--------------------------------------------------
>I'd like make an event at the reading_end.
>
>Please help me.
>
Attila:

   -- Do this to convert the ROUTINE ID into a CALLBACK ADDRESS

   lpComplett = call_back(routine_id("Read_Ok"))

Bernie