1. Routin_address
- Posted by Kondor Attila <konel at DPG.HU>
Mar 28, 2000
-
Last edited Mar 29, 2000
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 Kondor
2. Re: Routin_address
> -----Original Message-----
> Kondor Attila
> 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
You need to use call_back( routine_id("Read_Ok") )
See the manual for more specifics on using call_back..
> fresult=c_func(xReadFileEx,{handle, lpRBuf, BytesToRead, lpBytesRead,
> lpOVERLAPPED,
> lpComplett}) -- the routin_address
> --------------------------------------------------
-- Matt
3. Re: Routin_address
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
