home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / XLSAdapter / KGlibImport.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-26  |  688 b   |  38 lines
  1. unit KGlibImport;
  2. {$A8}{$Z4}
  3. interface
  4. uses Libc;
  5. const
  6.   libgobject='libgobject-2.0.so.0';
  7.   libglib='libglib-2.0.so';
  8.  
  9. type
  10.   gboolean= LongBool;
  11.   gint32= Longint;
  12.   guint32= LongWord;
  13.   guint8 = byte;
  14.   pguint8 = ^guint8;
  15.   gint = integer;
  16.   gchar=char;
  17.   pgint = ^gint;
  18.   ssize_t = size_t;
  19.  
  20.  
  21.   GError = record
  22.     domain: guint32;
  23.     code: integer;
  24.     message: PChar;
  25.   end;
  26.  
  27.   PGError=^GError;
  28.   PPGError=^PGError;
  29.  
  30.   ////////////////////////////////////////////////////////////////////////
  31.  
  32.   procedure g_error_free(err: PGError);cdecl;external libglib;
  33.   procedure g_object_unref(p: pointer);cdecl;external libgobject;
  34.  
  35. implementation
  36.  
  37. end.
  38.