[fpc-pascal] D-Bus. Non blocking listening for signals

[dibo20 at wp.pl]

W dniu 13.01.2011 15:17, michael.vancanneyt at wisa.be pisze:
>
>
> On Thu, 13 Jan 2011, dibo20 at wp.pl wrote:
>
>> This code work too:
>>
>> TMyObj = class
>> private
>> procedure EventProc(AData: PtrInt; AFlags: dword);
>> end;
>>
>> var
>> Sock: cint;
>> p: PEventHandler;
>>
>> const
>> GLIB_SYSDEF_POLLIN = 1;
>> GLIB_SYSDEF_POLLOUT = 4;
>> GLIB_SYSDEF_POLLPRI = 2;
>> GLIB_SYSDEF_POLLERR = 8;
>> GLIB_SYSDEF_POLLHUP = 16;
>> GLIB_SYSDEF_POLLNVAL = 32;
>>
>> ALL_FLAGS = GLIB_SYSDEF_POLLIN or GLIB_SYSDEF_POLLPRI or
>> GLIB_SYSDEF_POLLERR or GLIB_SYSDEF_POLLHUP or GLIB_SYSDEF_POLLNVAL;
>>
>> implementation
>>
>> { TMyObj }
>>
>> procedure TMyObj.EventProc(AData: PtrInt; AFlags: dword);
>> begin
>> BusReceive;
>> end;
>>
>> ....
>> begin
>> dbus_connection_get_socket(conn, @Sock);
>> p := AddEventHandler(Sock, ALL_FLAGS, @EventProc, 0);
>> end;
>
> If you refer here to TMyObj.EventProc, then that code is wrong:
> the stack will get confused. I'm surprised it compiles at all.
>
> Michael.
> _______________________________________________
> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
This is only example fragment. Of course I refer to the object method by 
MyObj.EventProc, not to the class. I just wanted to show you how I get 
socket handle.