DBus Signale empfangen

[Christian]

Hallo,

Ich bin mit meinem Lateil gerad am ende, sieht vllt jmd. warum das nicht klappt ?

Code: Alles auswählen

{ Initializes the errors }
   dbus_error_init(@err);
   { Connection }
   conn := dbus_bus_get(DBUS_BUS_SYSTEM, @err);
   if dbus_error_is_set(@err) <> 0 then
   begin
     //error
     dbus_error_free(@err);
   end;
   if conn = nil then Exit;
   dbus_bus_add_match(conn,PChar('type=''signal'',interface=''org.freedesktop.UPower'''), @err);
   if dbus_error_is_set(@err) <> 0 then
   begin
     //error
     dbus_error_free(@err);
   end;
   if dbus_connection_add_filter (conn, @VTableFunc, nil, nil) = 0 then
     debugln('register upower conn failed');