TDBusMessage

type TDBusMessage = class(TObject)

protected

  class function MessageType; virtual; abstract;

  procedure AllocateMessage; virtual; abstract;

  procedure CheckNotFromSource;

  procedure CheckNotAllocated;

  procedure CheckAllocated;

  function Allocated;

  function Copy;

  procedure Error();

  property Message: PDBusMessage; [r]

  property FromSource: Boolean; [r]

  property Serial: dbus_uint32_t; [r]

  property ReplySerial: dbus_uint32_t; [rw]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Append();

  procedure AppendArgument();

  procedure Get();

  procedure GetArgument();

  function GetNextArgumentType;

  function GetArrayElementType;

  function HasPath(); virtual;

  function HasSender(); virtual;

  function HasSignature(); virtual;

  function IsError(); virtual;

end;

TDBusMessage

TObject