home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / 602 / WBPERSON / data1.cab / SDK_Files / Delp_Pas / WINBASE.PAS < prev   
Pascal/Delphi Source File  |  1999-06-09  |  73KB  |  1,415 lines
  1. {***************************************************************************
  2.  * KomunikaΦnφ jednotka mezi aplikaΦnφm programem v Turbo Pascalu (ci      *
  3.  * Delphi) a WinBase602                                                    *
  4.  * (C) Janus Drozd, 1992, 93, 94, 95, 96, 97, 98, 99                       *
  5.  * Verze 6.0 ze dne: 19.1.1999                                             *
  6.  ***************************************************************************}
  7. {$X+,A-,F+}
  8. unit WinBase;
  9.  
  10. interface
  11.  
  12. const
  13.       OBJ_NAME_LEN = 31; { max. delka jmena databazovych objektu }
  14.  
  15. type uns32 = Cardinal;     { zakladni typy WinBase }
  16.      sig32 = LongInt;
  17.      uns16 = Word;
  18.      sig16 = SmallInt;
  19.      uns8  = Byte;
  20.      sig8  = ShortInt;
  21.  
  22.      sigfl = Integer;     { genericke typy WinBase }
  23.      unsfl = Cardinal;
  24.      ttablenum = sig16;   { typy databazoveho serveru }
  25.      tobjnum   = sig16;
  26.      trecnum   = sig32;
  27.      tcursnum  = sig16;
  28.      tcurstab  = sig16;
  29.      tattrib   = uns8;
  30.      tcateg    = uns8;
  31.      tright    = uns8;    { zastaraly typ }
  32.      tdright   = uns16;   { zastaraly typ }
  33.  
  34.      tobjname  = array[0..OBJ_NAME_LEN] of char;  { jmeno objektu }
  35.      WBUUID    = array[0..11] of uns8;
  36.  
  37.      window_id = Integer;                         { handle okna }
  38.  
  39. {************************* typ parametru t_oper ***************************}
  40. type t_oper    = (OPER_SET, OPER_GET, OPER_GETEFF);
  41. type t_valtype = (VT_OBJNUM, VT_NAME, VT_UUID, VT_NAME3);
  42.  
  43. {********************** Cisla systemovych tabulek *************************}
  44. const
  45.       TAB_TABLENUM  = 0;  { cislo tabulky tabulek }
  46.       OBJ_TABLENUM  = 1;  { cislo tabulky objektu }
  47.       USER_TABLENUM = 2;  { cislo tabulky uzivatelu }
  48.       SRV_TABLENUM  = 3;  { cislo tabulky serveru }
  49.       REPL_TABLENUM = 4;  { cislo tabulky replikacnich pravidel }
  50.       KEY_TABLENUM  = 5;  { cislo tabulky klicu }
  51.  
  52.       DEL_ATTR_NUM = 0;  { cislo atributu "DELETED" }
  53.       NOT_DELETED  = 0;  { hodnoty atributu: zaznam neni zruseny }
  54.       DELETED      = 1;  {                   zaznam je zruseny}
  55.       RECORD_EMPTY = 2;  {                   zaznam je uvolneny }
  56.  
  57. {************** Atributy systemovych tabulek TABTAB A OBJTAB **************}
  58.       OBJ_NAME_ATR  = 3; { Jmeno objektu, STRING delky 31 znaku }
  59.       OBJ_CATEG_ATR = 4; { Kategorie objektu, atribut typu CHAR }
  60.       APPL_ID_ATR   = 5; { Id aplikace, k niz objekt patri, BINARY delky 12 bajtu }
  61.       OBJ_DEF_ATR   = 6; { Definice objektu, atribut typu TEXT }
  62.       OBJ_FLAGS_ATR = 7; { Priznaky objektu, atribut typu SHORT }
  63.  
  64. {****************************** Kategorie: ********************************}
  65. const CATEG_TABLE     = 0;
  66.       CATEG_USER      = 1;
  67.       CATEG_VIEW      = 2;
  68.       CATEG_CURSOR    = 3;
  69.       CATEG_PGMSRC    = 4;
  70.       CATEG_PGMEXE    = 5;
  71.       CATEG_MENU      = 6;
  72.       CATEG_APPL      = 7;
  73.       CATEG_PICT      = 8;
  74.       CATEG_GROUP     = 9;
  75.       CATEG_ROLE      = 10;
  76.       CATEG_CONNECTION= 11;
  77.       CATEG_RELATION  = 12;
  78.       CATEG_DRAWING   = 13;
  79.       CATEG_GRAPH     = 14;
  80.       CATEG_REPLREL   = 15;
  81.       CATEG_PROC      = 16;
  82.       CATEG_TRIGGER   = 17;
  83.       CATEG_WWW       = 18;
  84.       CATEG_SEQ       = 20;
  85.       CATEG_SERVER    = 26;
  86.       CATEG_MASK      = $7f;
  87.       IS_LINK         = $80; { spojovaci objekt }
  88.       CATEG_DIRCUR    = 27;
  89.  
  90. {************************** struktura kernel_info *************************}
  91. type kernel_info = record
  92.   version : array[0..5] of char; { ASCIIZ oznaceni verze serveru }
  93.   logged : uns16;                { pocet prihlasenych uzivatelu }
  94.   blocksize : uns16;             { velikost clusteru }
  95.   freeblocks : uns32;            { pocet volnych clusteru v alokacni tabulce }
  96.   frames : uns16;                { pocet pametovych ramu }
  97.   fixed_pages : uns8;            { pocet ramu s fixovanym obsahem }
  98.   max_users : uns8;              { maximalni pocet pripojenych uzivatelu }
  99.   rtp : uns8;                    { provozni parametry }
  100.   diskspace : uns32;             { mnozstvi volneho mista na disku }
  101.   server_name : tobjname;        { ASCIIZ jmeno serveru }
  102.   local_free_memory : uns32;     { volna pamet u klienta }
  103.   remote_free_memory : uns32;    { volna pamet na serveru }
  104.   networking : integer;          { sitova prace klienta }
  105.   owned_cursors : uns16;         { pocet otevrenych kurzoru klientem }
  106.                    end;
  107.  
  108. cd_t = array[0..5000] of char;
  109. cdp_t = ^cd_t;
  110. Puns32 = ^uns32;
  111. {************* Hodnoty slozky "modtype" v zaznamu "modifrec" **************}
  112. const MODSTOP    = 0;
  113.       MODLEN     = 2;
  114.       MODIND     = 3;
  115.       MODINT     = 4;
  116.       MODPTR     = 5;
  117.       MODINDPTR  = 6;
  118.  
  119. type modifrec = record
  120.         modtype : uns8;
  121.         case Integer of
  122.           MODSTOP   : ( );
  123.           MODLEN    : ( );
  124.           MODIND    : (index  : uns16);
  125.           MODINT    : (start  : uns32;  size : uns16);
  126.           MODPTR    : (attr   : uns8);
  127.           MODINDPTR : (index2 : uns16;  attr2 : uns8)
  128.         end;
  129.  
  130. const NULL_ACCESS : modifrec = (modtype : MODSTOP);
  131. {************************** hodnota typu money ****************************}
  132. type monstr = record
  133.        money_lo2 : uns16;
  134.        money_hi4 : sig32;
  135.               end;
  136. {************************ Pristupova prava: *******************************}
  137. const RIGHT_APPEND   = $04;  { pravo vkladat nove zaznamy }
  138.       RIGHT_INSERT   = $04;  { dtto }
  139.       RIGHT_DEL      = $08;  { pravo zrusit zaznam }
  140.       RIGHT_NEW_READ = $10;  { pridelovat k novym zaznamum pravo cist    }
  141.       RIGHT_NEW_WRITE= $20;  { pridelovat k novym zaznamum pravo prepsat }
  142.       RIGHT_NEW_DEL  = $40;  { pridelovat k novym zaznamum pravo zrusit  }
  143.       RIGHT_GRANT    = $80;  { universalni pravo poskytovat sva prava    }
  144.  
  145. {******************** Hodnoty "NONE" ruznych typu: ************************}
  146. const NONEBOOLEAN  = -128;
  147.       NONECHAR     = 0;
  148.       NONEDATE     = $80000000;
  149.       NONETIME     = $80000000;
  150.       NONETIMESTAMP= $80000000;
  151. {     NONEMONEY    =  nelze takto definovat, ma hodnotu 0,0,0,0,0,$80 }
  152.       NONEINTEGER  = $80000000;
  153.       NONESHORT    = -32768;
  154.       NONEREAL     = -1.7001e308;
  155.       NONESTRING   = '';
  156.       NONEPTR      = -1;
  157.  
  158. {********************* Parametry funkce Set_sql_option ********************}
  159. const SQLOPT_NULLEQNULL       = 1; { hodnota NULL se rovna NULL }
  160.       SQLOPT_NULLCOMP         = 2; { NULL se porovnavat s ne-NULL hodnotami }
  161.       SQLOPT_RD_PRIVIL_VIOL   = 4; { hodnota bez prava cteni se jevi najo NULL }
  162.       SQLOPT_MASK_NUM_RANGE   = 8; { preteceni ciselneho typu pri konverzi vrati NULL }
  163.       SQLOPT_MASK_INV_CHAR    =16; { nekonvertovatelny retezec znaku vrati NULL }
  164.       SQLOPT_MASK_RIGHT_TRUNC =32; { zkraceni retezce pri konverzi se maskuje }
  165.       SQLOPT_EXPLIC_FREE      =64; { zrusene zaznamy se uvolni az pri explicitnim Free_deleted }
  166.  
  167. {****************************** Cisla chyb: *******************************}
  168. const NO_ERROR                 = 0;
  169.       ANS_OK                   = 0;
  170.       NOT_ANSWERED             = $ff;
  171.       BAD_MODIF                = $80;
  172.       NO_RIGHT                 = $81;
  173.       BAD_ELEM_NUM             = $82;
  174.       OUT_OF_TABLE             = $83;
  175.       TABLE_FULL               = $84;
  176.       CURSOR_MISUSE            = $85;
  177.       BAD_OPCODE               = $86;
  178.       CANNOT_APPEND            = $87;
  179.       NOT_LOCKED               = $88;
  180.       NO_DESTINATION_TAB       = $89;
  181.       INDEX_OUT_OF_RANGE       = $8a;
  182.       NOT_A_RECORD             = $8b;
  183.       EMPTY                    = $8c;
  184.       NO_OBJECT                = $8d;
  185.       BAD_PASSWORD             = $8e;
  186.       PTR_TO_DELETED           = $8f;
  187.       NIL_PTR                  = $90;
  188.       OUT_OF_KERNEL_MEMORY     = $91;
  189.       TOO_MANY_CURSORS         = $92;
  190.       IS_DELETED               = $93;
  191.       INDEX_NOT_FOUND          = $94;
  192.       OBJECT_NOT_FOUND         = $95;
  193.       OUT_OF_APPL_MEMORY       = $96;
  194.       BAD_DATA_SIZE            = $97;
  195.       UNREADABLE_BLOCK         = $98;
  196.       DEMO_VERSION             = $99;
  197.       OUT_OF_BLOCKS            = $9a;
  198.       REQUEST_BREAKED          = $9b;
  199.       OS_FILE_ERROR            = $9d;
  200.       INCOMPATIBLE_VERSION     = $9e;
  201.       REJECTED_BY_KERNEL       = $9f;
  202.       MUST_NOT_BE_NULL         = $a0;
  203.       NO_BITAB                 = $a1;
  204.       NO_MY_RIGHT              = $a2;
  205.       IE_OUT_OF_DWORM          = $a3;  { interni chyba }
  206.       IE_FRAME_OVERRUN         = $a4;  { interni chyba }
  207.       IE_PAGING                = $a5;  { interni chyba }
  208.       IE_DOUBLE_PAGE           = $a6;  { interni chyba }
  209.       IE_OUT_OF_BSTACK         = $a7;  { interni chyba }
  210.       TABLE_DAMAGED            = $a8;
  211.       CANNOT_LOCK_KERNEL       = $a9;
  212.       END_OF_VOLUME_SPACE      = $aa;  { interni zprava }
  213.       DEADLOCK                 = $ab;
  214.       KEY_DUPLICITY            = $ac;
  215.       BAD_VERSION              = $ad;
  216.       CHECK_CONSTRAIN          = $ae;
  217.       REFERENTIAL_CONSTRAIN    = $af;
  218.       UNPROPER_TYPE            = $b0;
  219.       OUTER_JOIN_TOO_COMPLEX   = $b1;
  220.       REQUEST_NESTING          = $b2;
  221.       CANNOT_FOR_ODBC          = $b3;
  222.       ERROR_IN_FUNCTION_ARG    = $b4;
  223.       ODBC_CURSOR_NOT_OPEN     = $b5;
  224.       DRIVER_NOT_CAPABLE       = $b6;
  225.       TOO_COMPLEX_TRANS        = $b7;
  226.       INTERNAL_SIGNAL          = $b8;
  227.       PRIV_KEY_NOT_FOUND       = $b9;
  228.       NO_WRITE_TOKEN           = $ba;
  229.       WAITING_FOR_ACKN         = $bb;
  230.       REPL_BLOCKED             = $bc;
  231.       BAD_TOKEN_STATE          = $bd;
  232.       BAD_TABLE_PROPERTIES     = $be;
  233.       INDEX_DAMAGED            = $bf;
  234.       PASSWORD_EXPIRED         = $c0;
  235.       NO_KEY_FOUND             = $c1;
  236.       DIFFERENT_KEY            = $c2;
  237.       ASSERTION_FAILED         = $c3;
  238.       SQ_INVALID_CURSOR_STATE  = $c4;  { 24000 }
  239.       SQ_SAVEPOINT_INVAL_SPEC  = $c5;  { 3B001 }
  240.       SQ_SAVEPOINT_TOO_MANY    = $c6;  { 3B002 }
  241.       SQ_TRANS_STATE_ACTIVE    = $c7;  { 25001 }
  242.       SQ_INVAL_TRANS_TERM      = $c8;  { 2D000 }
  243.       SQ_TRANS_STATE_RDONLY    = $c9;  { 25006 }
  244.       SQ_NUM_VAL_OUT_OF_RANGE  = $ca;  { 22003 }
  245.       SQ_INV_CHAR_VAL_FOR_CAST = $cb;  { 22018 }
  246.       SQ_STRING_DATA_RIGHT_TRU = $cc;  { 22001 }
  247.       SQ_DIVISION_BY_ZERO      = $cd;  { 22012 }
  248.       SQ_CARDINALITY_VIOLATION = $ce;  { 21000 }
  249.       SQ_INVALID_ESCAPE_CHAR   = $cf;  { 22019 }
  250.       SQ_CASE_NOT_FOUND_STMT   = $d0;  { 20000 }
  251.       SQ_UNHANDLED_USER_EXCEPT = $d1;  { 45000 }
  252.       SQ_RESIGNAL_HND_NOT_ACT  = $d2;  { 0K000 }
  253.       SQ_EXT_ROUT_NOT_AVAIL    = $d3;  { 38001 }
  254.       SQ_NO_RETURN_IN_FNC      = $d4;  { 2F001 }
  255.       COLUMN_NOT_EDITABLE      = $d5;
  256.       SQ_TRIGGERED_ACTION      = $d6;  { 09000 }
  257.       REPLICATION_NOT_RUNNING  = $d7;
  258.       REPL_MAIL_ERROR          = $d8;
  259.       SQ_INVALID_CURSOR_NAME   = $d9;  { 34000 }
  260.       ROLE_FROM_DIFF_APPL      = $da;
  261.       SEQUENCE_EXHAUSTED       = $db;
  262.       NO_CURRENT_VAL           = $dc;
  263.  
  264. { Cisla varovani: }
  265. const NO_WARNING      = 0;
  266.       WAS_IN_TRANS    = 1;
  267.       NOT_IN_TRANS    = 2;
  268.       ERROR_IN_CONSTRS= 3;
  269.       IS_NOT_DEL      = 4;
  270.       IS_DEL          = 8;
  271.       IS_EMPTY        = 16;
  272.       NO_BIPTR        = 32;
  273.       INDEX_OOR       = 64;
  274.       DUPL_KEY        = 96;
  275.       IS_ERROR        = 128;
  276.  
  277. { Hodnoty vracene funkci link_kernel a interf_init }
  278. const KSE_OK             = 0;   { bez chyby }
  279.       KSE_WINDOWS        = 1;   { zahlcene Windows }
  280.       KSE_INSTAL_PRESENT = 2;   { pracuje program WBINSTAL }
  281.       KSE_ZALOHA_PRESENT = 3;   { pracuje program ZALOHA }
  282.       KSE_WINEXEC        = 4;   { nelze spustit WBADMIN }
  283.       KSE_NO_MEMORY      = 5;   { neni dost pameti }
  284.       KSE_NO_CONFIG      = 6;   { nenalezen kofiguracni soubor WB.CNF }
  285.       KSE_NO_FIL         = 7;   { jmeno serveru neni registrovano }
  286.       KSE_DAMAGED        = 8;   { databaze je vazne poskozena }
  287.       KSE_NO_ACCESS      = 9;   { zahlceno databazove jadro }
  288.       KSE_SERVER_CLOSED  = 10;  { server zamcen }
  289.       KSE_BAD_VERSION    = 11;  { chybna verze jadra }
  290.       KSE_NETWORK_INIT   = 12;  { nedari se inicializovat sit }
  291.       KSE_QUIT           = 13;  { nevybran zadny server }
  292.       KSE_NOSERVER       = 14;  { nenalezen zadny server }
  293.       KSE_CONNECTION     = 15;  { nenavazano spojeni se serverem }
  294.       KSE_NOTASK         = 16;  { nelze vytvorit dalsi instanci }
  295.       KSE_WBNETMEM       = 17;  { nelze spustit program WBNETMEM }
  296.       KSE_MAXCLIENTS     = 18;  { prekrocen maximalni pocet klientu }
  297.       KSE_SPXNOTINSTALLED= 19;  { pouzite IPX nepodporuje SPX, pravdepodobne IPXODI /A }
  298.       KSE_MAXCONNECTION  = 20;  { prekrocen pocet relaci (connections) SPX, nastavte v shell.cfg }
  299.       KSE_MAXSESSION     = 21;  { vycerpany relace (sessions) NetBIOSu, viz manual NetBIOSu }
  300.       KSE_MAXNCB         = 22;  { vycerpany ridici bloky NetBIOSu, viz manual NetBIOSu }
  301.       KSE_DBASE_OPEN     = 23;  { databaze je jiz otevrena jinym serverem }
  302.       KSE_SERVER_NAME_USED=24;  { v siti jiz bezi databazovy server stejneho jmena }
  303.       KSE_START_THREAD    =25;  { nelze spustit dalsi vlakno }
  304.       KSE_SYNCHRO_OBJ     =26;  { nelze vytvorit synchronizacni objekt }
  305.       KSE_MAPPING         =27;  { nelze mapovat pametovy soubor }
  306.       KSE_CREATE_THREAD   =28;  { nelze vytvorit vlakno pro obsluhu klienta }
  307.       KSE_TIMEOUT         =29;  { primo dostupny server neodpovida }
  308.       KSE_NO_WINSOCK      =30;  { knihovna winsock neni instalovana }
  309.       KSE_WINSOCK_ERROR   =31;  { chyba pri praci se socketem }
  310.       KSE_SERVER_NOT_KNOWN=32;  { jmeno serveru neni registrovano }
  311.       KSE_SERVER_PATH_NOT_SPECIF=33; { cesta k databazi serveru neni registrovana }
  312.       KSE_NETBIOS_NAME    =34;  { nemohu pridat jmeno pro NetBIOS }
  313.       KSE_FWNOTFOUND      =35;  { nenalezen firewall }
  314.       KSE_FWCOMM          =36;  { nelze komunikovat s firewallem }
  315.       KSE_FWDENIED        =37;  { firewall odmitl vytvorit propojeni }
  316.       KSE_BAD_PASSWORD    =38;  { chyba hesla k databazovemu souboru }
  317.       KSE_ESCAPED         =39;  { upusteno od startu serveru }
  318.       KSE_NO_IPX          =40;  { protokol IPX neni k dispozici }
  319.       KSE_EXPIRED          =41; { skoncila pouzitelnost produktu }
  320.       KSE_CANNOT_CREATE_FIL=42; { nelze vytvorit databazovy soubor }
  321.       KSE_CANNOT_OPEN_FIL  =43; { nelze otevrit databazovy soubor }
  322.       KSE_CANNOT_OPEN_TRANS=44; { nelze otevrit transakcni soubor }
  323.  
  324. const NOINDEX = $ffff;   { hodnota parametru index, nejde-li o multiatribut }
  325.       MAX_PACKAGED_REQS  = 25;  { max. pocet pozadavku v baliku }
  326.  
  327. {******* Typy atributu (vyuziji se pri volani funkce Enum_attributes) ******}
  328. const ATT_BOOLEAN   = 1;            { Boolean }
  329.       ATT_CHAR      = 2;            { Char }
  330.       ATT_INT16     = 3;            { Short }
  331.       ATT_INT32     = 4;            { Integer }
  332.       ATT_MONEY     = 5;            { Money }
  333.       ATT_FLOAT     = 6;            { Real }
  334.       ATT_STRING    = 7;            { String }
  335.       ATT_CSSTRING  = 8;            { CSString }
  336.       ATT_CSISTRING = 9;            { CSIString }
  337.       ATT_BINARY    =10;            { Binary }
  338.       ATT_DATE      =11;            { Date }
  339.       ATT_TIME      =12;            { Time }
  340.       ATT_TIMESTAMP =13;            { Timestamp }
  341.       ATT_PTR       =14;            { Pointer }
  342.       ATT_BIPTR     =15;            { Bipointer }
  343.       ATT_AUTOR     =16;            { sledovaci atribut: Autorizace }
  344.       ATT_DATIM     =17;            { sledovaci atribut: Datumovka }
  345.       ATT_HIST      =18;            { sledovaci atribut: Historie }
  346.       ATT_RASTER    =19;            { Raster }
  347.       ATT_TEXT      =20;            { Text }
  348.       ATT_NOSPEC    =21;            { Nospec }
  349.       ATT_SIGNAT    =22;            { Signature }
  350.  
  351. {******************** Izolace transakci ***********************************}
  352. const READ_UNCOMMITTED = 0; 
  353.       READ_COMMITTED   = 1;
  354.       REPEATABLE_READ  = 2;
  355.       SERIALIZABLE     = 3;
  356.  
  357. {******************** Parametr hlavniho okna WinBase **********************}
  358. { Cisla zprav pro okenni funkci pohledu a filtrovaci funkci }
  359.       WM_SZM_BASE        = 1524;
  360.       SZM_IS_VISIBLE     = WM_SZM_BASE+50;
  361.       SZM_IS_ENABLED     = WM_SZM_BASE+51;
  362.       SZM_GET_ACCESS     = WM_SZM_BASE+54;
  363.       SZM_RECORD_ENTER   = WM_SZM_BASE+56;
  364.       SZM_NEXTREC        = WM_SZM_BASE+60;
  365.       SZM_PREVREC        = WM_SZM_BASE+61;
  366.       SZM_FIRSTREC       = WM_SZM_BASE+62;
  367.       SZM_LASTREC        = WM_SZM_BASE+63;
  368.       SZM_NEXTPAGE       = WM_SZM_BASE+64;
  369.       SZM_PREVPAGE       = WM_SZM_BASE+65;
  370.       SZM_FIRSTITEM      = WM_SZM_BASE+66;
  371.       SZM_LASTITEM       = WM_SZM_BASE+67;
  372.       SZM_NEXTTAB        = WM_SZM_BASE+68;
  373.       SZM_PREVTAB        = WM_SZM_BASE+69;
  374.       SZM_DOWNITEM       = WM_SZM_BASE+70;
  375.       SZM_UPITEM         = WM_SZM_BASE+71;
  376.       SZM_INDEX          = WM_SZM_BASE+72;
  377.       SZM_QBE            = WM_SZM_BASE+74;
  378.       SZM_UNLIMIT        = WM_SZM_BASE+75;
  379.       SZM_BIND           = WM_SZM_BASE+76;
  380.       SZM_SETIPOS        = WM_SZM_BASE+77;
  381.       SZM_INSERT         = WM_SZM_BASE+78;
  382.       SZM_DELREC         = WM_SZM_BASE+79;
  383.       SZM_DELALL         = WM_SZM_BASE+80;
  384.       SZM_REC_STATUS     = WM_SZM_BASE+82;
  385.       SZM_DELASK         = WM_SZM_BASE+83;
  386.       SZM_DO_ACTION      = WM_SZM_BASE+84;
  387.       SZM_SETEPOS        = WM_SZM_BASE+85;
  388.       SZM_HELP           = WM_SZM_BASE+86;
  389.       SZM_RESET           =WM_SZM_BASE+87;
  390.       SZM_ORDER          = WM_SZM_BASE+88;
  391.       SZM_PRINT          = WM_SZM_BASE+89;
  392.       SZM_ACCEPT_Q       = WM_SZM_BASE+90;
  393.       SZM_UNBINDDEL      = WM_SZM_BASE+91;
  394.       SZM_GET_NAME       = WM_SZM_BASE+93;
  395.       SZM_GET_TEXT_VAL   = WM_SZM_BASE+94;
  396.       SZM_PUT_TEXT_VAL   = WM_SZM_BASE+95;
  397.       SZM_GET_REF_VAL    = WM_SZM_BASE+96;
  398.       SZM_GET_FEATURES   = WM_SZM_BASE+97;
  399.       SZM_GET_ROW_HEADER = WM_SZM_BASE+98;
  400.       SZM_DELETE_COLUMN  = WM_SZM_BASE+99;
  401.       SZM_ALT_TEXT_VAL   = WM_SZM_BASE+100;
  402.       SZM_INSERT_COLUMN  = WM_SZM_BASE+101;
  403.       SZM_GET_TOOLBAR    = WM_SZM_BASE+102;
  404.       SZM_SELECT_ME      = WM_SZM_BASE+103;
  405.       SZM_LOCKS          = WM_SZM_BASE+104;
  406.       SZM_DROP           = WM_SZM_BASE+105;
  407.       SZM_SET_EDIT_POS   = WM_SZM_BASE+106;
  408.       SZM_EXPORTRQ       = WM_SZM_BASE+107;
  409.       SZM_IMPORTRQ       = WM_SZM_BASE+108;
  410.       SZM_SETSTATUSTEXT  = WM_SZM_BASE+212;
  411.       SZM_SETTOOLBAR     = WM_SZM_BASE+213;
  412.  
  413. {************** parametry zpravy WM_COMMAND okna editoru ********************}
  414.  
  415.       MI_FSED_SAVE        = 501;    { 500 - Text popup }
  416.       MI_FSED_CLOSE       = 502;
  417.  
  418.       MI_FSED_PRINT_TEXT  = 505;    { 504 - Print popup }
  419.       MI_FSED_PRINT_BLOCK = 506;
  420.       MI_FSED_SELPRINTER  = 507;
  421.  
  422.       MI_FSED_CUT         = 511;    { 510 - Edit Popup }
  423.       MI_FSED_COPY        = 512;
  424.       MI_FSED_PASTE       = 513;
  425.       MI_FSED_DELETE      = 514;
  426.       MI_FSED_HIDE        = 515;
  427.       MI_FSED_BSAVE       = 516;
  428.       MI_FSED_BLOAD       = 517;
  429.       MI_FSED_ABSAVE      = 518;
  430.       MI_FSED_SELALL      = 519;
  431.       MI_FSED_DOSSAVE     = 520;
  432.       MI_FSED_DOSLOAD     = 521;
  433.  
  434.       MI_FSED_WRAP        = 526;    { 525 - Format popup }
  435.       MI_FSED_ALIGN       = 527;
  436.       MI_FSED_FORMAT      = 528;
  437.  
  438.       MI_FSED_FIND        = 551;    { 550 - Search popup }
  439.       MI_FSED_REPLACE     = 552;
  440.       MI_FSED_REFIND      = 553;
  441.  
  442. {***** Priznaky "flags" pro Open_view, Select_records a Bind_records: *****}
  443. const NO_EDIT      = $01;    { zakaz editace v pohledu }
  444.       NO_INSERT    = $02;    { zakaz vkladani zaznamu }
  445.       NO_MOVE      = $04;    { zakaz prechodu mezi zaznamy }
  446.       NO_DELETE    = $08;    { zakaz ruseni zaznamu }
  447.       DEL_RECS     = $10;    { zobrazovat i zrusene zaznamy }
  448.       AUTO_CURSOR  = $40;    { uzavrit cursor pri zavirani pohledu }
  449.       COUNT_RECS   = $80;    { spocitat zaznamy pri otevreni pohledu }
  450.       MODAL_VIEW   = $100;   { otevrit pohled jako modalni popup okno }
  451.       QUERY_VIEW   = $10000; { otevrit pohled pro zadavani dotazu }
  452.       PARENT_CURSOR= $80000; { pouzit kurzor z parent-pohledu }
  453.       MODELESS_VIEW= $100000;{ otevrit pohled jako popup okno }
  454.  
  455. { Hodnota "base" pro Open_view, Print_view, Bind_records a Select_records *}
  456.       NO_REDIR    = -1;
  457.  
  458. { Cislo okna MDI-Client v aplikacich WinBase (neni-li okno vytvoreno aplikaci) }
  459.       CLIENT_ID   = 1;
  460.  
  461. { Parametr typu WPARAM zpravy WM_COMMAND pozadujici otevreni stranky napovedy
  462.    cislo LOWORD(lParam) }
  463.       IDM_HELP_GENERIC  = 239;
  464.  
  465. { Parametry funkce Reset_view }
  466.       RESET_VISIBLILITY = 0;     { nastaveni viditelnosti a aktivity slozek }
  467.       RESET_CONTROLS    = 1;     { nastaveni obsahu slozek }
  468.       RESET_DELETIONS   = 5;     { odstraneni zrusenych a pridani vlozenych zaznamu }
  469.       RESET_CACHE       = $100;  { nove naplneni cache }
  470.       RESET_CURSOR      = $200;  { nove otevreni kurzoru }
  471.       RESET_SYNCHRO     = $400;  { resynchronizace subpohledu }
  472.       RESET_COMBOS      = $800;  { nove naplneni comb }
  473.  
  474. { Mozny posledni parametr funkci Open_view, Select_records }
  475.       NULL_WINDOW_ID : window_id = 0;
  476.  
  477. { Oznaceni formatu dat }
  478.       IMPEXP_FORMAT_WINBASE      = 0;
  479.       IMPEXP_FORMAT_TEXT_COLUMNS = 1;
  480.       IMPEXP_FORMAT_TEXT_CSV     = 2;
  481.       IMPEXP_FORMAT_DBASE        = 3;
  482.       IMPEXP_FORMAT_FOXPRO       = 4;
  483.       IMPEXP_FORMAT_ODBC         = 5;
  484.       IMPEXP_FORMAT_CURSOR       = 6;
  485.       IMPEXP_FORMAT_TABLE        =10;
  486.       IMPEXP_FORMAT_TABLE_REIND  =11;
  487.  
  488. { Predavani peska }
  489.       TOKEN_HOLD   = 0;
  490.       TOKEN_FREE   = 1;
  491.       TOKEN_REQ    = 2;
  492.       TOKEN_INVAL  = 3;
  493.       TOKEN_HAVE_I = 4;
  494.       TOKEN_HOLD_I = 5;
  495.  
  496. {******************* Automaticky generovane zpravy: ***********************}
  497. const NOTIF_CREATE            =  1; { pohled byl otevren }
  498.       NOTIF_DESTROY           =  2; { pohled byl uzavren }
  499.       NOTIF_RECENTER          =  3; { vybran novy zaznam v pohledu }
  500.       NOTIF_CHANGE            =  4; { zmenena slozka pohledu }
  501.       NOTIF_RESET_RECORD      =  5; { vybrany zaznam se prekresluje }
  502.       NOTIF_RESET_VIEW        =  6; { cely pohled se prekresluje }
  503.       NOTIF_SUBCURSOR         =  7; { pohled prechazi k subkurzoru QBE }
  504.       NOTIF_SUPERCURSOR       =  8; { pohled se vraci k superkurzoru }
  505.       NOTIF_CREATE_DEPENDENT  =  9; { otevren zavisly pohled }
  506.       NOTIF_DESTROY_DEPENDENT = 10; { uzavren zavisly pohled }
  507.       NOTIF_CREATE_EDITOR     = 11; { otevren textovy editor }
  508.       NOTIF_DESTROY_EDITOR    = 12; { uzavren textovy editor }
  509.       NOTIF_CREATE_VIEWER     = 13; { otevreno okno s obrazkem }
  510.       NOTIF_DESTROY_VIEWER    = 14; { uzavreno okno s obrazkem }
  511. {******************** Otevreni okna aplikace ******************************}
  512. type WBFramePars = record
  513.                      WinMenu : integer;
  514.                      Flags   : uns16;
  515.                    end;
  516.  
  517. const WBF_NO_TOOLBAR   = 1;
  518.         WBF_NO_STATUSBAR = 2;
  519.  
  520.       WB_TB_UNKNOWN    = 0; { typy toolbaru pro SZM_SETTOOLBAR }
  521.       WB_TB_DEFAULT    = 1;
  522.       WB_TB_VIEW       = 2;
  523.       WB_TB_VIEWNOMOVE = 3;
  524.       WB_TB_VIEWPROJ   = 4;
  525.       WB_TB_VIEWQUERY  = 5;
  526.       WB_TB_HIST       = 6;
  527.       WB_TB_INDEX      = 7;
  528.       WB_TB_EDITTEXT   = 8;
  529.       WB_TB_PREVIEW    = 9;
  530.  
  531. {** Konstanty pro property ViewSrcCateg a DataSrcCateg OLE objektu a ActiveX **}
  532. const CTG_TABLE       = 1;
  533.       CTG_CURSOR      = 2;
  534.       CTG_SELECT      = 3;
  535.  
  536.       CTG_VIEWNAME    = 1;
  537.       CTG_VIEWSRC     = 2;
  538.  
  539. {************************ Dispatch ID properties ActiveX **********************}
  540.       DID_SERVER      = 1;
  541.       DID_SERVERIP    = 2;
  542.       DID_USERNAME    = 3;
  543.       DID_PASSWORD    = 4;
  544.       DID_APPLICATION = 5;
  545.       DID_VIEWSRC     = 6;
  546.       DID_DATASRC     = 7;
  547.       DID_TOPREC      = 101;
  548.       DID_VIEWSRCTG   = 106;
  549.       DID_DATASRCTG   = 107;
  550. {*************************** Dispatch ID metods ActiveX ***********************}
  551.       DID_QBE         = 201;
  552.       DID_SORT        = 202;
  553.       DID_ACCEPTQ     = 203;
  554.       DID_CANCELQ     = 204;
  555.       DID_FIRSTREC    = 205;
  556.       DID_PREVPAGE    = 206;
  557.       DID_PREVREC     = 207;
  558.       DID_NEXTREC     = 208;
  559.       DID_NEXTPAGE    = 209;
  560.       DID_LASTREC     = 210;
  561.       DID_FIRSTITEM   = 211;
  562.       DID_LASTITEM    = 212;
  563.       DID_NEXTTAB     = 213;
  564.       DID_PREVTAB     = 214;
  565.       DID_UPITEM      = 215;
  566.       DID_DOWNITEM    = 216;
  567.       DID_CUT         = 217;
  568.       DID_COPY        = 218;
  569.       DID_PASTE       = 219;
  570.       DID_INSERT      = 220;
  571.       DID_DELREC      = 221;
  572.       DID_DELASK      = 222;
  573.       DID_UNBINDDEL   = 223;
  574.       DID_PRINT       = 224;
  575.       DID_INDEX       = 225;
  576.       DID_LOCKS       = 226;
  577.       DID_HELP        = 227;
  578.       DID_ED_SAVE     = 228;
  579.       DID_ED_FIND     = 229;
  580.       DID_ED_REPLACE  = 230;
  581.       DID_ED_REFIND   = 231;
  582.       DID_ED_FORMAT   = 232;
  583.       DID_RESET       = 301;
  584.       DID_COMMIT      = 302;
  585.       DID_ROLLBACK    = 303;
  586.       DID_GETCURITEM  = 304;
  587.       DID_GETCURPOS   = 305;
  588.       DID_SETCURPOS   = 306;
  589.       DID_GETITEMVAL  = 307;
  590.       DID_SETITEMVAL  = 308;
  591.       DID_PRINTOPT    = 309;
  592.       DID_PRINTOPTDLG = 310;
  593.       DID_PRINTSEL    = 311;
  594.       DID_PRINTSELDLG = 312;
  595.       DID_QBESTATE    = 313;
  596.       DID_EDITTEXT    = 314;
  597.       DID_OPENPICTURE = 315;
  598.       DID_PICKAPPL    = 316;
  599.       DID_EXECSTTMNTS = 317;
  600.  
  601.  
  602. {************************ funkce a procedury ******************************}
  603. type enum_attr = function (attrname : PChar;  attrtype, attrmult : uns8;
  604.                            attrspecif : uns16) : Boolean; stdcall;
  605.      fltproc = function : LongInt;
  606.  
  607. function Acreate_user(cdp : cdp_t;  hParent : window_id) : Boolean; stdcall;
  608. function Active_view : window_id; stdcall;
  609. function Add_record(curs : tcursnum;  var recs;
  610.     numofrecs : Integer) : Boolean; stdcall;
  611. function Alogin(parent : window_id) : Boolean; stdcall;
  612. function Amodify_user(cdp : cdp_t;  hParent : window_id; objnum : tobjnum) :
  613.     Boolean; stdcall;
  614. function AReplicate(cdp : cdp_t; hParent : window_id; pull : Boolean) : Boolean;
  615.     stdcall;
  616. function Am_I_db_admin : Boolean; stdcall;
  617. function cd_Am_I_db_admin(cdp : cdp_t) : Boolean; stdcall;
  618. function answered : Boolean; stdcall;
  619. function cd_answered(cdp : cdp_t) : Boolean; stdcall;
  620. function Append(curs : tcurstab) : trecnum; stdcall;
  621. function cd_Append(cdp : cdp_t; curs : tcurstab) : trecnum; stdcall;
  622. function Appl_inst_count(var count : uns32) : Boolean; stdcall;
  623. function cd_Appl_inst_count(cdp : cdp_t; var count : uns32) : Boolean; stdcall;
  624. function Aset_password(cdp : cdp_t;  hParent : window_id) : Boolean; stdcall;
  625. function AToken_control(cdp : cdp_t;  hParent : window_id;
  626.     curstab : tcurstab;  recnum : trecnum) : Boolean; stdcall;
  627. function Attribute_info(table : ttablenum;  attrname : PChar;
  628.     var attrnum : tattrib;  var attrtype : uns8;  var attrmult : uns8;
  629.     var attrspecif : uns16) : Boolean; stdcall;
  630. function cd_Attribute_info(cdp : cdp_t; table : ttablenum;  attrname : PChar;
  631.     var attrnum : tattrib;  var attrtype : uns8;  var attrmult : uns8;
  632.     var attrspecif : uns16) : Boolean; stdcall;
  633. function Available_memory(local : Boolean) : LongInt; stdcall;
  634. function cd_Available_memory(cdp : cdp_t; local : Boolean) : LongInt; stdcall;
  635. function Break : Boolean; stdcall;
  636. function cd_Break(cdp : cdp_t) : Boolean; stdcall;
  637. function C_avg(curs : tcurstab;  attrname, condition : PChar;  var res) :
  638.     Boolean; stdcall;
  639. function cd_C_avg(cdp : cdp_t; curs : tcurstab;  attrname, condition : PChar;  var res) :
  640.     Boolean; stdcall;
  641. function C_count(curs : tcurstab;  attrname, condition : PChar;
  642.     var res : trecnum) : Boolean; stdcall;
  643. function cd_C_count(cdp : cdp_t; curs : tcurstab;  attrname, condition : PChar;
  644.     var res : trecnum) : Boolean; stdcall;
  645. function C_max(curs : tcurstab;  attrname, condition : PChar;  var res) :
  646.     Boolean; stdcall;
  647. function cd_C_max(cdp : cdp_t; curs : tcurstab;  attrname, condition : PChar;  var res) :
  648.     Boolean; stdcall;
  649. function C_min(curs : tcurstab;  attrname, condition : PChar;  var res) :
  650.     Boolean; stdcall;
  651. function cd_C_min(cdp : cdp_t; curs : tcurstab;  attrname, condition : PChar;  var res) :
  652.     Boolean; stdcall;
  653. function C_sum(curs : tcurstab;  attrname, condition : PChar;  var res) :
  654.     Boolean; stdcall;
  655. function cd_C_sum(cdp : cdp_t; curs : tcurstab;  attrname, condition : PChar;  var res) :
  656.     Boolean; stdcall;
  657. function cdp_alloc : cdp_t; stdcall;
  658. function cdp_size : sig32; stdcall;
  659. function Chng_component_flag(cdp : cdp_t;  cat : tcateg;  var name : PChar;
  660.    mask, setbit : Integer) : Boolean; stdcall;
  661. function Close_cursor(curs : tcursnum) : Boolean; stdcall;
  662. function cd_Close_cursor(cdp : cdp_t; curs : tcursnum) : Boolean; stdcall;
  663. function Commit : Boolean; stdcall;
  664. function cd_Commit(cdp : cdp_t) : Boolean; stdcall;
  665. function Commit_view(hView : window_id;  can_ask, report_error : Boolean) :
  666.     Boolean; stdcall;
  667. function Compact_database(margin : integer) : Boolean; stdcall;
  668. function cd_Compact_database(cdp : cdp_t; margin : integer) : Boolean; stdcall;
  669. function Compact_table(table : ttablenum) : Boolean; stdcall;
  670. function cd_Compact_table(cdp : cdp_t; table : ttablenum) : Boolean; stdcall;
  671. function Connection_speed_test(var requests, kbytes : integer) : Boolean; stdcall;
  672. function cd_Connection_speed_test(cdp : cdp_t; var requests, kbytes : integer) : Boolean; stdcall;
  673. function Create_group(name : PChar) : Boolean; stdcall;
  674. function Create_link(sourcename, sourceappl : PChar;  category : tcateg;
  675.     linkname : PChar) : Boolean; stdcall;
  676. function cd_Create_link(cdp : cdp_t; sourcename, sourceappl : PChar;  category : tcateg;
  677.     linkname : PChar) : Boolean; stdcall;
  678. function Create2_link(sourcename : PChar;  var sourceapplid : WBUUID;
  679.     category : tcateg;  linkname : PChar) : Boolean; stdcall;
  680. function cd_Create2_link(cdp : cdp_t; sourcename : PChar;  var sourceapplid : WBUUID;
  681.     category : tcateg;  linkname : PChar) : Boolean; stdcall;
  682. function Create_user(logname, name1, name2, name3, identif : PChar;
  683.     var homesrv : WBUUID;  password : PChar;  var objnum : tobjnum)
  684.     : Boolean; stdcall;
  685. function cd_Create_user(cdp : cdp_t; logname, name1, name2, name3, identif : PChar;
  686.     var homesrv : WBUUID;  password : PChar;  var objnum : tobjnum)
  687.     : Boolean; stdcall;
  688. function Current_item(hView : window_id) : integer; stdcall;
  689. function Database_integrity(repair : Boolean;  var lost_blocks, lost_dheap,
  690.     nonex_blocks, cross_link, damaged_tabdef : uns32) : Boolean; stdcall;
  691. function cd_Database_integrity(cdp : cdp_t; repair : Boolean;  var lost_blocks, lost_dheap,
  692.     nonex_blocks, cross_link, damaged_tabdef : uns32) : Boolean; stdcall;
  693. function Data_export(objnum : tobjnum;  categ : tcateg;
  694.     fname : PChar;  format, recode : Integer) : Boolean; stdcall;
  695. function Data_import(tabname : PChar;  index_past : Boolean;
  696.     fname : PChar;  format, recode : Integer) : Boolean; stdcall;
  697. function datetime2timestamp(dt, tm : uns32) : uns32; stdcall;
  698. function Day(dt : uns32) : integer; stdcall;
  699. function Day_of_week(dt : uns32) : integer; stdcall;
  700. function DefWinBaseFrameProc(hWnd : window_id;  uMsg : Integer;  wParam : Integer;
  701.     lParam : LongInt) : LongInt; stdcall;
  702. function WinBaseFrameProc(hWnd : window_id;  uMsg : Integer;  wParam : Integer;
  703.     lParam : LongInt) : LongInt; stdcall;
  704. function Define_table(name, description : PChar) : Boolean; stdcall;
  705. function Delete(curs : tcurstab;  position : trecnum) : Boolean; stdcall;
  706. function cd_Delete(cdp : cdp_t; curs : tcurstab;  position : trecnum) : Boolean; stdcall;
  707. function Delete_all_records(curs : tcurstab) : Boolean; stdcall;
  708. function cd_Delete_all_records(cdp : cdp_t; curs : tcurstab) : Boolean; stdcall;
  709. function Edit_impexp(cdp : cdp_t; name : PChar) : Boolean; stdcall;
  710. function Edit_privils(cdp : cdp_t;  hParent : window_id;
  711.     var tbs : ttablenum; var recnums : trecnum;  multioper : Integer)
  712.     : Boolean; stdcall;
  713. function Edit_query(cdp : cdp_t; name : PChar) : Boolean; stdcall;
  714. function Edit_relation(cdp : cdp_t;  hParent : window_id; subject1 : tcateg;
  715.     subjnum : tobjnum;  subject2 : tcateg) : Boolean; stdcall;
  716. function Edit_table(cdp : cdp_t; hParent : window_id; name : PChar; objnum : tobjnum) : Boolean; stdcall;
  717. function Edit_view(cdp : cdp_t;  name : PChar) : Boolean; stdcall;
  718. function Enable_index(table : ttablenum;  which : integer;
  719.     enable : Boolean) : Boolean; stdcall;
  720. function cd_Enable_index(cdp : cdp_t; table : ttablenum;  which : integer;
  721.     enable : Boolean) : Boolean; stdcall;
  722. function Enum_attributes(table : ttablenum;
  723.     callback : enum_attr) : Boolean; stdcall;
  724. function cd_Enum_attributes(cdp : cdp_t; table : ttablenum;
  725.     callback : enum_attr) : Boolean; stdcall;
  726. function Exec_statements(cdp : cdp_t;  statements : PChar) : Integer; stdcall;
  727. function Export_appl(cdp : cdp_t;  hParent : window_id;
  728.    with_data, with_role_privils, with_usergrp : Boolean) : Boolean; stdcall;
  729. function Export_appl_ex(cdp : cdp_t;  hParent : window_id;
  730.    with_data, with_role_privils, with_usergrp, exp_locked, back_end : Boolean) : Boolean; stdcall;
  731. function Find_object(name : PChar;  category : tcateg;
  732.     var position : tobjnum) : Boolean; stdcall;
  733. function cd_Find_object(cdp : cdp_t; name : PChar;  category : tcateg;
  734.     var position : tobjnum) : Boolean; stdcall;
  735. function Find_object_by_id(var uuid : WBUUID;  category : tcateg;
  736.     var position : tobjnum) : Boolean; stdcall;
  737. function cd_Find_object_by_id(cdp : cdp_t; var uuid : WBUUID;  category : tcateg;
  738.     var position : tobjnum) : Boolean; stdcall;
  739. function Find2_object(name : PChar;  var appl_id : WBUUID;
  740.     category : tcateg;  var position : tobjnum) : Boolean; stdcall;
  741. function cd_Find2_object(cdp : cdp_t; name : PChar;  var appl_id : WBUUID;
  742.     category : tcateg;  var position : tobjnum) : Boolean; stdcall;
  743. function Free_deleted(table : ttablenum) : Boolean; stdcall;
  744. function cd_Free_deleted(cdp : cdp_t; table : ttablenum) : Boolean; stdcall;
  745. function From_xbase(tablename : PChar;  filename : PChar;
  746.     dBase : Boolean;  filecode : Integer) : Boolean; stdcall;
  747. function GetClient(hFrame : window_id) : window_id; stdcall;
  748. function GetSet_fil_blocks(operation : t_oper;  var blsize : uns32) : Boolean; stdcall;
  749. function cd_GetSet_fil_blocks(cdp : cdp_t; operation : t_oper;  var blsize : uns32) : Boolean; stdcall;
  750. function GetSet_fil_size(operation : t_oper;  var size : uns32) : Boolean; stdcall;
  751. function cd_GetSet_fil_size(cdp : cdp_t; operation : t_oper;  var size : uns32) : Boolean; stdcall;
  752. function GetSet_group_role(user_or_group : tobjnum;  group_or_role : tobjnum;
  753.     subject2 : tcateg;  operation : t_oper;
  754.     var relation : uns32) : Boolean; stdcall;
  755. function cd_GetSet_group_role(cdp : cdp_t; user_or_group : tobjnum;  group_or_role : tobjnum;
  756.     subject2 : tcateg;  operation : t_oper;
  757.     var relation : uns32) : Boolean; stdcall;
  758. function GetSet_next_user(curs : tcurstab;  position:trecnum;  attr:tattrib;
  759.     operation:t_oper;  valtype:t_valtype;  var value) : Boolean; stdcall;
  760. function cd_GetSet_next_user(cdp : cdp_t; curs : tcurstab;  position:trecnum;  attr:tattrib;
  761.     operation:t_oper;  valtype:t_valtype;  var value) : Boolean; stdcall;
  762. function GetSet_privils(user_group_role : tobjnum;  subject_categ : tcateg;
  763.     table : ttablenum;  recnum : trecnum;  operation : t_oper;
  764.     var privils) : Boolean; stdcall;
  765. function cd_GetSet_privils(cdp : cdp_t; user_group_role : tobjnum;  subject_categ : tcateg;
  766.     table : ttablenum;  recnum : trecnum;  operation : t_oper;
  767.     var privils) : Boolean; stdcall;
  768. function Get_data_rights(table : ttablenum;  username : PChar;
  769.     var rights : tright;  var rd_ri : tdright;
  770.     var wr_ri : tdright) : Boolean; stdcall;
  771. function Get_fcursor(hView : window_id;  var curs : tcursnum;
  772.     var flags : uns16) : Boolean; stdcall;
  773. function Get_info(var kinf : kernel_info) : Boolean; stdcall;
  774. function cd_Get_info(cdp : cdp_t; var kinf : kernel_info) : Boolean; stdcall;
  775. function Get_item_value(hView : window_id;  intrec : trecnum;
  776.     itemid : Integer;  value : PChar) : Boolean; stdcall;
  777. function Get_logged_user(index : integer; username, applname : PChar;  var state : integer) : Boolean; stdcall;
  778. function cd_Get_logged_user(cdp : cdp_t; index : integer; username, applname : PChar;  var state : integer) : Boolean; stdcall;
  779. function Get_object_rights(objname : PChar;  category : tcateg;
  780.     username : PChar;  var rights : tright) : Boolean; stdcall;
  781. function Get_var_address(name : PChar) : Pointer; stdcall;
  782. function Get_view_pos(hView : window_id;
  783.     var irec, erec : trecnum) : Boolean; stdcall;
  784. function Hours(tm : uns32) : integer; stdcall;
  785. function Import_appl(cdp : cdp_t; hParent : window_id; fname : PChar) : Boolean; stdcall;
  786. function InitWBMail(Profile, PassWord : PChar) : Boolean; stdcall;
  787. function InitWBMail602(EmiPath, UserID, PassWord : PChar) : Boolean; stdcall;
  788. function Init_non_mdi_env(cdp : cdp_t; hMainWindow : window_id) : Boolean; stdcall;
  789. function Init_window_env(hFrame, hClient : window_id;
  790.     winsub_pos, Flags : Integer) : Boolean; stdcall;
  791. function Input_box(caption, text : PChar;  maxlen : Integer) : Boolean; stdcall;
  792. function Insert(curs : tcurstab) : trecnum; stdcall;
  793. function cd_Insert(cdp : cdp_t; curs : tcurstab) : trecnum; stdcall;
  794. function Insert_object(name : PChar;  category : tcateg;
  795.     var objnum : tobjnum) : Boolean; stdcall;
  796. function cd_Insert_object(cdp : cdp_t; name : PChar;  category : tcateg;
  797.     var objnum : tobjnum) : Boolean; stdcall;
  798. function interf_init(cdp : cdp_t;  kernel : integer) : integer; stdcall;
  799. function LetterAddAddr(Letter : uns32; Addr, aType : PChar; CC : Boolean) : Boolean; stdcall;
  800. function LetterAddFile(Letter : uns32; fName : PChar) : Boolean; stdcall;
  801. function LetterCreate(Subj, Msg : PChar; Flags : Cardinal; var lpLetter : uns32) : Boolean; stdcall;
  802. function LetterSend(Letter : uns32) : Boolean; stdcall;
  803. function Like(s1, s2 : PChar) : Boolean; stdcall;
  804. function link_kernel(path : PChar;  display : integer) : integer; stdcall;
  805. function Log_write(text : PChar) : Boolean; stdcall;
  806. function cd_Log_write(cdp : cdp_t; text : PChar) : Boolean; stdcall;
  807. function Login(username, password : PChar) : Boolean; stdcall;
  808. function cd_Login(cdp : cdp_t; username, password : PChar) : Boolean; stdcall;
  809. function Logout : Boolean; stdcall;
  810. function cd_Logout(cdp : cdp_t) : Boolean; stdcall;
  811. function Look_up(curs : tcurstab;  attrname : PChar;  var res) : trecnum; stdcall;
  812. function cd_Look_up(cdp : cdp_t; curs : tcurstab;  attrname : PChar;  var res) : trecnum; stdcall;
  813. function Mail_parameters(hParent : window_id;  parstring : PChar;
  814.     buflen : Integer) : Boolean; stdcall;
  815. function Main_menu(menudef : PChar) : Boolean; stdcall;
  816. function Make_date(day, month, year : integer) : uns32; stdcall;
  817. function Make_time(hours, minutes, seconds, sec1000 : integer) : uns32; stdcall;
  818. function Message_to_clients(msg : PChar) : Boolean; stdcall;
  819. function cd_Message_to_clients(cdp : cdp_t; msg : PChar) : Boolean; stdcall;
  820. function Minutes(tm : uns32) : integer; stdcall;
  821. function money2real(var m : monstr) : double; stdcall;
  822. function Month(dt : uns32) : integer; stdcall;
  823. function Move_data(cdp : cdp_t;  move_descr_obj : tobjnum;
  824.    inpname : PChar;  inpobj : tobjnum;  outname : PChar;
  825.    inpformat, outformat, inpcode, outcode: Integer;  silent : Boolean) : Boolean; stdcall;
  826. function Next_user_name(cdp : cdp_t;  hView : window_id;  erec : trecnum) : PChar; stdcall;
  827. function Now : uns32; stdcall;
  828. function ODBC_create_connection(dsn_name : PChar) : uns32; stdcall;
  829. function cd_ODBC_create_connection(cdp : cdp_t; dsn_name : PChar) : uns32; stdcall;
  830. function ODBC_direct_connection(conn_string : PChar) : uns32; stdcall;
  831. function cd_ODBC_direct_connection(cdp : cdp_t; conn_string : PChar) : uns32; stdcall;
  832. function ODBC_find_connection(dsn_name : PChar) : uns32; stdcall;
  833. function cd_ODBC_find_connection(cdp : cdp_t; dsn_name : PChar) : uns32; stdcall;
  834. function ODBC_open_cursor(connection : uns32;  var curs : tcursnum;  query : PChar) : Boolean; stdcall;
  835. function cd_ODBC_open_cursor(cdp : cdp_t; connection : uns32;  var curs : tcursnum;  query : PChar) : Boolean; stdcall;
  836. function Open_cursor(cursdef : tobjnum; var curs : tcursnum) : Boolean; stdcall;
  837. function cd_Open_cursor(cdp : cdp_t; cursdef : tobjnum; var curs : tcursnum) : Boolean; stdcall;
  838. function Open_cursor_direct(query : PChar;
  839.     var curs : tcursnum) : Boolean; stdcall;
  840. function cd_Open_cursor_direct(cdp : cdp_t; query : PChar;
  841.     var curs : tcursnum) : Boolean; stdcall;
  842. function Open_project(projname : PChar) : Boolean; stdcall;
  843. function Open_subcursor(supercurs : tcursnum;  subcurdef : PChar;
  844.     var subcurs : tcursnum) : Boolean; stdcall;
  845. function cd_Open_subcursor(cdp : cdp_t; supercurs : tcursnum;  subcurdef : PChar;
  846.     var subcurs : tcursnum) : Boolean; stdcall;
  847. function Open_view(viewdef : PChar;  base : tcursnum;
  848.     flags : uns32;  position : trecnum;  var reserved;
  849.     hParent : window_id;  var hView : window_id) : window_id; stdcall;
  850. function Owned_cursors : integer; stdcall;
  851. function cd_Owned_cursors(cdp : cdp_t) : integer; stdcall;
  852. function Page_setup(hParent : window_id) : Boolean; stdcall;
  853. function Print_copies(copies : integer;  collate : Boolean) : Boolean; stdcall;
  854. function Print_opt(hParent : window_id) : Boolean; stdcall;
  855. function Print_view(viewdef : PChar;  base : tcursnum;
  856.     firstrec, lastrec : trecnum;  var reserved) : Boolean; stdcall;
  857. function Printer_dialog(hParent : window_id) : Boolean; stdcall;
  858. function Printer_select(printer_name, port_name : PChar;
  859.     orientation, papersize, paperbin, quality,
  860.     duplex, color, truetype : Integer) : Boolean; stdcall;
  861. function QBE_state(hView : window_id) : Integer; stdcall;
  862. function Quarter(dt : uns32) : integer; stdcall;
  863. function Read(curs : tcurstab; position : trecnum;
  864.     attr : tattrib; var access; var buffer) : Boolean; stdcall;
  865. function cd_Read(cdp : cdp_t; curs : tcurstab; position : trecnum;
  866.     attr : tattrib; var access; var buffer) : Boolean; stdcall;
  867. function Read_ind(curs : tcurstab;  position : trecnum;  attr : tattrib;
  868.     index : uns16;  var buffer) : Boolean; stdcall;
  869. function cd_Read_ind(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  870.     index : uns16;  var buffer) : Boolean; stdcall;
  871. function Read_ind_cnt(curs : tcurstab;  position : trecnum;  attr : tattrib;
  872.     var count : uns16) : Boolean; stdcall;
  873. function cd_Read_ind_cnt(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  874.     var count : uns16) : Boolean; stdcall;
  875. function Read_len(curs : tcurstab;  position : trecnum;  attr : tattrib;
  876.     index : uns16;  var size : uns32) : Boolean; stdcall;
  877. function cd_Read_len(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  878.     index : uns16;  var size : uns32) : Boolean; stdcall;
  879. function Read_lock_record(curs : tcurstab;
  880.     position : trecnum) : Boolean; stdcall;
  881. function cd_Read_lock_record(cdp : cdp_t; curs : tcurstab;
  882.     position : trecnum) : Boolean; stdcall;
  883. function Read_lock_table(curs : tcurstab) : Boolean; stdcall;
  884. function cd_Read_lock_table(cdp : cdp_t; curs : tcurstab) : Boolean; stdcall;
  885. function Read_record(curs : tcurstab;  position : trecnum;  var buffer;
  886.     datasize : uns16) : Boolean; stdcall;
  887. function cd_Read_record(cdp : cdp_t; curs : tcurstab;  position : trecnum;  var buffer;
  888.     datasize : uns16) : Boolean; stdcall;
  889. function Read_unlock_record(curs : tcurstab;
  890.     position : trecnum) : Boolean; stdcall;
  891. function cd_Read_unlock_record(cdp : cdp_t; curs : tcurstab;
  892.     position : trecnum) : Boolean; stdcall;
  893. function Read_unlock_table(curs : tcurstab) : Boolean; stdcall;
  894. function cd_Read_unlock_table(cdp : cdp_t; curs : tcurstab) : Boolean; stdcall;
  895. function Read_var(curs : tcurstab;  position : trecnum;  attr : tattrib;
  896.     index : uns16;  start, size : uns32;  var buffer;  var psize : uns32) : Boolean; stdcall;
  897. function cd_Read_var(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  898.     index : uns16;  start, size : uns32;  var buffer;  var psize : uns32) : Boolean; stdcall;
  899. function real2money(d : double;  var m : monstr) : Boolean; stdcall;
  900. function Rec_cnt(curs : tcurstab; var recnum : trecnum) : Boolean; stdcall;
  901. function cd_Rec_cnt(cdp : cdp_t; curs : tcurstab; var recnum : trecnum) : Boolean; stdcall;
  902. function Register_rec_syn(hWnd1, hWnd2 : window_id) : Boolean; stdcall;
  903. function Relate_record(relation1, viewdef : PChar;  base : tcursnum;
  904.     flags : uns32;  var reserved;  var hView : window_id;
  905.     relation2 : PChar) : window_id; stdcall;
  906. function Relist_objects : Boolean; stdcall;
  907. function cd_Relist_objects(cdp : cdp_t) : Boolean; stdcall;
  908. function Replicate(ServerName, ApplName : PChar; pull : Boolean) : Boolean; stdcall;
  909. function cd_Replicate(cdp : cdp_t; ServerName, ApplName : PChar; pull : Boolean) : Boolean; stdcall;
  910. function Repl_control(optype, opparsize : integer;  var opparam) : Boolean; stdcall;
  911. function cd_Repl_control(cdp : cdp_t;  optype, opparsize : integer;  var opparam) : Boolean; stdcall;
  912. function Restore_table(table : ttablenum;  filename : PChar) : Boolean; stdcall;
  913. function Roll_back : Boolean; stdcall;
  914. function cd_Roll_back(cdp : cdp_t) : Boolean; stdcall;
  915. function Save_table(table : ttablenum;  filename : PChar) : Boolean; stdcall;
  916. function Sec1000(tm : uns32) : integer; stdcall;
  917. function Seconds(tm : uns32) : integer; stdcall;
  918. function Select_directory(hParent : window_id;  dirname : PChar) : Boolean; stdcall;
  919. function Select_file(hParent : window_id;  filename : PChar) : Boolean; stdcall;
  920. function Select_records(viewdef : PChar;  base : tcursnum;
  921.     flags : uns32;  limit : Integer;  var bindl;
  922.     var reserved;  hParent : window_id;
  923.     var hView : window_id) : window_id; stdcall;
  924. function send_package : Boolean; stdcall;
  925. function cd_send_package(cdp : cdp_t) : Boolean; stdcall;
  926. function Set_application(applname : PChar) : Boolean; stdcall;
  927. function cd_Set_application(cdp : cdp_t; applname : PChar) : Boolean; stdcall;
  928. function cd_Set_application_ex(cdp : cdp_t; applname : PChar; extended : Boolean) : Boolean; stdcall;
  929. function Set_appl_starter(categ : tcateg; objname : PChar) : Boolean; stdcall;
  930. function cd_Set_appl_starter(cdp : cdp_t; categ : tcateg; objname : PChar) : Boolean; stdcall;
  931. function Set_data_rights(table : ttablenum; username : PChar;
  932.     rights : tright; rd_ri : tdright; wr_ri : tdright) : Boolean; stdcall;
  933. function Set_ext_pos(hView : window_id;  pos : trecnum;
  934.     itemnum : Integer) : Boolean; stdcall;
  935. function Set_fcursor(hView : window_id;  curs : tcursnum;
  936.     flags : uns32) : Boolean; stdcall;
  937. function Set_int_pos(hView : window_id;  pos : trecnum;
  938.     itemnum : Integer) : Boolean; stdcall;
  939. function Set_item_value(hView : window_id;  intrec : trecnum;
  940.     itemid : Integer;  value : PChar) : Boolean; stdcall;
  941. function Set_object_rights(objname : PChar;  category : tcateg;
  942.     username : PChar;  rights : tright) : Boolean; stdcall;
  943. function Set_password(reserved, password : PChar) : Boolean; stdcall;
  944. function cd_Set_password(cdp : cdp_t; reserved, password : PChar) : Boolean; stdcall;
  945. function Set_progress_report_modulus(modulus : Integer) : Boolean; stdcall;
  946. function cd_Set_progress_report_modulus(cdp : cdp_t; modulus : Integer) : Boolean; stdcall;
  947. function Set_sql_option(mask, value : uns32) : Boolean; stdcall;
  948. function cd_Set_sql_option(cdp : cdp_t; mask, value : uns32) : Boolean; stdcall;
  949. function Set_transaction_isolation_level(level : integer) : Boolean; stdcall;
  950. function cd_Set_transaction_isolation_level(cdp : cdp_t; level : integer) : Boolean; stdcall;
  951. function Signalize : Boolean; stdcall;
  952. function Signature_state(hView : window_id; recnum : trecnum; signattr : PChar)
  953.     : integer; stdcall;
  954. function SQL_drop(handle : uns32) : Boolean; stdcall;
  955. function cd_SQL_drop(cdp : cdp_t; handle : uns32) : Boolean; stdcall;
  956. function SQL_execute(statement : PChar;  var results) : Boolean; stdcall;
  957. function cd_SQL_execute(cdp : cdp_t; statement : PChar;  var results) : Boolean; stdcall;
  958. function SQL_exec_prepared(handle : uns32; var results; var count : integer) : Boolean; stdcall;
  959. function cd_SQL_exec_prepared(cdp : cdp_t; handle : uns32; var results; var count : integer) : Boolean; stdcall;
  960. function SQL_prepare(statement : PChar; var handle : uns32) : Boolean;
  961.     stdcall;
  962. function cd_SQL_prepare(cdp : cdp_t; statement : PChar; var handle : uns32)
  963.     : Boolean; stdcall;
  964. function Start_transaction : Boolean; stdcall;
  965. function cd_Start_transaction(cdp : cdp_t) : Boolean; stdcall;
  966. function Super_recnum(subcursor, supercursor : tcursnum;
  967.     subrecnum : trecnum;  var superrecnum : trecnum) : Boolean; stdcall;
  968. function cd_Super_recnum(cdp : cdp_t; subcursor, supercursor : tcursnum;
  969.     subrecnum : trecnum;  var superrecnum : trecnum) : Boolean; stdcall;
  970. function Sz_error : Integer; stdcall;
  971. function cd_Sz_error(cdp : cdp_t) : Integer; stdcall;
  972. function Sz_warning : Integer; stdcall;
  973. function cd_Sz_warning(cdp : cdp_t) : Integer; stdcall;
  974. function Tab_page(hView : window_id;  ID : Integer) : Integer; stdcall;
  975. function TakeMailToRemOffice : Boolean; stdcall;
  976. function timestamp2date(dtm : uns32) : uns32; stdcall;
  977. function timestamp2time(dtm : uns32) : uns32; stdcall;
  978. function To_xbase(tablename : PChar;  filename : PChar;
  979.     dBase : Boolean;  filecode : Integer) : Boolean; stdcall;
  980. function Today : uns32; stdcall;
  981. function Token_control(cdp : cdp_t;  curstab : tcurstab;  recnum : trecnum;
  982.     oper : Integer) : Boolean; stdcall;
  983. function Translate(curs : tcursnum;  crec : trecnum;
  984.     tbord : Integer;  var trec : trecnum) : Boolean; stdcall;
  985. function cd_Translate(cdp : cdp_t; curs : tcursnum;  crec : trecnum;
  986.     tbord : Integer;  var trec : trecnum) : Boolean; stdcall;
  987. function Undelete(table : ttablenum;  position : trecnum) : Boolean; stdcall;
  988. function cd_Undelete(cdp : cdp_t; table : ttablenum;  position : trecnum) : Boolean; stdcall;
  989. function Uninst_table(table : ttablenum) : Boolean; stdcall;
  990. function Used_memory(local : Boolean) : Integer; stdcall;
  991. function cd_Used_memory(cdp : cdp_t; local : Boolean) : Integer; stdcall;
  992. function User_in_group(user, group : tobjnum;  var state : Boolean) : Boolean; stdcall;
  993. function User_to_group(user, group : tobjnum;  state : Boolean) : Boolean; stdcall;
  994. function waiting(timeout : sig32) : Boolean; stdcall;
  995. function cd_waiting(cdp : cdp_t; timeout : sig32) : Boolean; stdcall;
  996. function Who_am_I : PChar; stdcall;
  997. function cd_Who_am_I(cdp : cdp_t) : PChar; stdcall;
  998. function WinBase602_version : sig32; stdcall;
  999. function cd_WinBase602_version(cdp : cdp_t) : sig32; stdcall;
  1000. function Write(curs : tcurstab;  position : trecnum;
  1001.     attr : tattrib; var access; var buffer;
  1002.     datasize : uns16) : Boolean; stdcall;
  1003. function cd_Write(cdp : cdp_t; curs : tcurstab;  position : trecnum;
  1004.     attr : tattrib; var access; var buffer;
  1005.     datasize : uns16) : Boolean; stdcall;
  1006. function Write_ind(curs : tcurstab;  position : trecnum;  attr : tattrib;
  1007.     index : uns16;  var buffer;  datasize : uns16) : Boolean; stdcall;
  1008. function cd_Write_ind(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  1009.     index : uns16;  var buffer;  datasize : uns16) : Boolean; stdcall;
  1010. function Write_ind_cnt(curs : tcurstab;  position : trecnum;
  1011.     attr : tattrib;  count : uns16) : Boolean; stdcall;
  1012. function cd_Write_ind_cnt(cdp : cdp_t; curs : tcurstab;  position : trecnum;
  1013.     attr : tattrib;  count : uns16) : Boolean; stdcall;
  1014. function Write_len(curs : tcurstab;  position : trecnum;
  1015.     attr : tattrib;  index : uns16;  size : uns32) : Boolean; stdcall;
  1016. function cd_Write_len(cdp : cdp_t; curs : tcurstab;  position : trecnum;
  1017.     attr : tattrib;  index : uns16;  size : uns32) : Boolean; stdcall;
  1018. function Write_lock_record(curs : tcurstab;
  1019.     position : trecnum) : Boolean; stdcall;
  1020. function cd_Write_lock_record(cdp : cdp_t; curs : tcurstab;
  1021.     position : trecnum) : Boolean; stdcall;
  1022. function Write_lock_table(curs : tcurstab) : Boolean; stdcall;
  1023. function cd_Write_lock_table(cdp : cdp_t; curs : tcurstab) : Boolean; stdcall;
  1024. function Write_record(curs : tcurstab;  position : trecnum;  var buffer;
  1025.     datasize : uns16) : Boolean; stdcall;
  1026. function cd_Write_record(cdp : cdp_t; curs : tcurstab;  position : trecnum;  var buffer;
  1027.     datasize : uns16) : Boolean; stdcall;
  1028. function Write_unlock_record(curs : tcurstab;
  1029.     position : trecnum) : Boolean; stdcall;
  1030. function cd_Write_unlock_record(cdp : cdp_t; curs : tcurstab;
  1031.     position : trecnum) : Boolean; stdcall;
  1032. function Write_unlock_table(curs : tcurstab) : Boolean; stdcall;
  1033. function cd_Write_unlock_table(cdp : cdp_t; curs : tcurstab) : Boolean; stdcall;
  1034. function Write_var(curs : tcurstab;  position : trecnum;  attr : tattrib;
  1035.     index : uns16;  start, size : uns32;  var buffer) : Boolean; stdcall;
  1036. function cd_Write_var(cdp : cdp_t; curs : tcurstab;  position : trecnum;  attr : tattrib;
  1037.     index : uns16;  start, size : uns32;  var buffer) : Boolean; stdcall;
  1038. function Year(dt : uns32) : integer; stdcall;
  1039. function Yesno_box(caption, text : PChar) : Boolean; stdcall;
  1040.  
  1041. procedure cdp_init(cdp : cdp_t); stdcall;
  1042. procedure cdp_free(cdp : cdp_t); stdcall;
  1043. procedure CloseWBMail; stdcall;
  1044. procedure Close_all_views; stdcall;
  1045. procedure Close_view(hView : window_id); stdcall;
  1046. procedure concurrent(state : Boolean); stdcall;
  1047. procedure Draw_line(hView : window_id; x1, y1, x2, y2 : Integer;  colour : Integer); stdcall;
  1048. procedure Enable_task_switch(enable : Boolean);  stdcall;
  1049. procedure cd_Enable_task_switch(cdp : cdp_t; enable : Boolean);  stdcall;
  1050. procedure Help_file(filename : PChar); stdcall;
  1051. procedure Info_box(caption, text : PChar); stdcall;
  1052. procedure interf_close; stdcall;
  1053. procedure cd_interf_close(cdp : cdp_t); stdcall;
  1054. procedure Kernel_error_box(errnum : integer); stdcall;
  1055. procedure LetterCancel(Letter : uns32); stdcall;
  1056. procedure Pick_window(hView : window_id); stdcall;
  1057. procedure Print_margins(leftmargin, rightmargin, topmargin,
  1058.                bottommargin : Integer); stdcall;
  1059. procedure Put_pixel(hView : window_id;  x, y, colour : Integer); stdcall;
  1060. procedure Register_ext_menu(hFrame : window_id;  hHlMenu, hWinsubMenu : cardinal ); stdcall;
  1061. procedure Reset_view(hView : window_id;  intrec : trecnum;  extent : Integer); stdcall;
  1062. procedure Roll_back_view(hView : window_id); stdcall;
  1063. procedure Set_first_label(posX, posY : Integer); stdcall;
  1064. procedure Set_printer(firstrec, lastrec : trecnum;
  1065.                firstpage, lastpage, direction : Integer;  outfile : PChar;
  1066.                leftmargin : Integer); stdcall;
  1067. procedure Set_status_nums(num0, num1 : trecnum); stdcall;
  1068. procedure Set_status_text(text : PChar); stdcall;
  1069. procedure Show_help(topic : Integer); stdcall;
  1070. procedure Show_help_popup(topic : Integer); stdcall;
  1071. procedure start_package; stdcall;
  1072. procedure cd_start_package(cdp : cdp_t); stdcall;
  1073. procedure unlink_kernel; stdcall;
  1074. procedure Upcase(str : PChar); stdcall;
  1075. procedure View_pattern(viewobj : tobjnum); stdcall;
  1076.  
  1077. {**************************************************************************}
  1078.  
  1079. implementation   { Odkazy do knihoven WBKERNEL.DLL a WBPREZEN.DLL }
  1080.  
  1081. function Acreate_user ; external 'WBPREZEN.DLL';
  1082. function Active_view ; external 'WBPREZEN.DLL';
  1083. function Add_record ; external 'WBKERNEL.DLL';
  1084. function Alogin ; external 'WBPREZEN.DLL';
  1085. function Amodify_user ; external 'WBPREZEN.DLL';
  1086. function Am_I_db_admin ; external 'WBKERNEL.DLL';
  1087. function cd_Am_I_db_admin ; external 'WBKERNEL.DLL';
  1088. function Aset_password ; external 'WBPREZEN.DLL';
  1089. function AToken_control ; external 'WBPREZEN.DLL';
  1090. function answered ; external 'WBKERNEL.DLL';
  1091. function cd_answered ; external 'WBKERNEL.DLL';
  1092. function Append ; external 'WBKERNEL.DLL';
  1093. function cd_Append ; external 'WBKERNEL.DLL';
  1094. function Appl_inst_count ; external 'WBKERNEL.DLL';
  1095. function cd_Appl_inst_count ; external 'WBKERNEL.DLL';
  1096. function AReplicate ; external 'WBPREZEN.DLL';
  1097. function Attribute_info ; external 'WBKERNEL.DLL';
  1098. function cd_Attribute_info ; external 'WBKERNEL.DLL';
  1099. function Available_memory ; external 'WBKERNEL.DLL';
  1100. function cd_Available_memory ; external 'WBKERNEL.DLL';
  1101. function Break ; external 'WBKERNEL.DLL';
  1102. function cd_Break ; external 'WBKERNEL.DLL';
  1103. function C_avg ; external 'WBKERNEL.DLL';
  1104. function cd_C_avg ; external 'WBKERNEL.DLL';
  1105. function C_count ; external 'WBKERNEL.DLL';
  1106. function cd_C_count ; external 'WBKERNEL.DLL';
  1107. function C_max ; external 'WBKERNEL.DLL';
  1108. function cd_C_max ; external 'WBKERNEL.DLL';
  1109. function C_min ; external 'WBKERNEL.DLL';
  1110. function cd_C_min ; external 'WBKERNEL.DLL';
  1111. function C_sum ; external 'WBKERNEL.DLL';
  1112. function cd_C_sum ; external 'WBKERNEL.DLL';
  1113. function cdp_size ; external 'WBKERNEL.DLL';
  1114. function cdp_alloc ; external 'WBKERNEL.DLL';
  1115. function Chng_component_flag ; external 'WBPREZEN.DLL';
  1116. function Close_cursor ; external 'WBKERNEL.DLL';
  1117. function cd_Close_cursor ; external 'WBKERNEL.DLL';
  1118. function Commit; external 'WBKERNEL.DLL';
  1119. function cd_Commit; external 'WBKERNEL.DLL';
  1120. function Commit_view ; external 'WBPREZEN.DLL';
  1121. function Compact_database ; external 'WBKERNEL.DLL';
  1122. function cd_Compact_database ; external 'WBKERNEL.DLL';
  1123. function Compact_table ; external 'WBKERNEL.DLL';
  1124. function cd_Compact_table ; external 'WBKERNEL.DLL';
  1125. function Create_group ; external 'WBKERNEL.DLL';
  1126. function Create_link ; external 'WBKERNEL.DLL';
  1127. function Connection_speed_test ; external 'WBKERNEL.DLL';
  1128. function cd_Connection_speed_test ; external 'WBKERNEL.DLL';
  1129. function cd_Create_link ; external 'WBKERNEL.DLL';
  1130. function Create2_link ; external 'WBKERNEL.DLL';
  1131. function cd_Create2_link ; external 'WBKERNEL.DLL';
  1132. function Create_user ; external 'WBKERNEL.DLL';
  1133. function cd_Create_user ; external 'WBKERNEL.DLL';
  1134. function Current_item ; external 'WBPREZEN.DLL';
  1135. function Data_export ; external 'WBPREZEN.DLL';
  1136. function Data_import ; external 'WBPREZEN.DLL';
  1137. function Database_integrity; external 'WBKERNEL.DLL';
  1138. function cd_Database_integrity; external 'WBKERNEL.DLL';
  1139. function datetime2timestamp; external 'WBKERNEL.DLL';
  1140. function Day ; external 'WBKERNEL.DLL';
  1141. function Day_of_week ; external 'WBKERNEL.DLL';
  1142. function DefWinBaseFrameProc ; external 'WBPREZEN.DLL';
  1143. function WinBaseFrameProc ; external 'WBPREZEN.DLL';
  1144. function Define_table ; external 'WBKERNEL.DLL';
  1145. function Delete ; external 'WBKERNEL.DLL';
  1146. function cd_Delete ; external 'WBKERNEL.DLL';
  1147. function Delete_all_records ; external 'WBKERNEL.DLL';
  1148. function cd_Delete_all_records ; external 'WBKERNEL.DLL';
  1149. function Edit_impexp ; external 'WBPREZEN.DLL';
  1150. function Edit_privils ; external 'WBPREZEN.DLL';
  1151. function Edit_query ; external 'WBVIEWED.DLL';
  1152. function Edit_relation ; external 'WBPREZEN.DLL';
  1153. function Edit_table ; external 'WBVIEWED.DLL';
  1154. function Edit_view ; external 'WBVIEWED.DLL';
  1155. function Enable_index ; external 'WBKERNEL.DLL';
  1156. function cd_Enable_index ; external 'WBKERNEL.DLL';
  1157. function Enum_attributes ; external 'WBKERNEL.DLL';
  1158. function cd_Enum_attributes ; external 'WBKERNEL.DLL';
  1159. function Exec_statements ; external 'WBPREZEN.DLL';
  1160. function Export_appl ; external 'WBVIEWED.DLL';
  1161. function Export_appl_ex ; external 'WBVIEWED.DLL';
  1162. function Find_object ; external 'WBKERNEL.DLL';
  1163. function cd_Find_object ; external 'WBKERNEL.DLL';
  1164. function Find_object_by_id ; external 'WBKERNEL.DLL';
  1165. function cd_Find_object_by_id ; external 'WBKERNEL.DLL';
  1166. function Find2_object ; external 'WBKERNEL.DLL';
  1167. function cd_Find2_object ; external 'WBKERNEL.DLL';
  1168. function Free_deleted ; external 'WBKERNEL.DLL';
  1169. function cd_Free_deleted ; external 'WBKERNEL.DLL';
  1170. function From_xbase ; external 'WBKERNEL.DLL';
  1171. function GetClient ; external 'WBPREZEN.DLL';
  1172. function GetSet_fil_blocks ; external 'WBKERNEL.DLL';
  1173. function cd_GetSet_fil_blocks ; external 'WBKERNEL.DLL';
  1174. function GetSet_fil_size ; external 'WBKERNEL.DLL';
  1175. function cd_GetSet_fil_size ; external 'WBKERNEL.DLL';
  1176. function GetSet_group_role ; external 'WBKERNEL.DLL';
  1177. function cd_GetSet_group_role ; external 'WBKERNEL.DLL';
  1178. function GetSet_next_user ; external 'WBKERNEL.DLL';
  1179. function cd_GetSet_next_user ; external 'WBKERNEL.DLL';
  1180. function GetSet_privils ; external 'WBKERNEL.DLL';
  1181. function cd_GetSet_privils ; external 'WBKERNEL.DLL';
  1182. function Get_data_rights ; external 'WBKERNEL.DLL';
  1183. function Get_fcursor ; external 'WBPREZEN.DLL';
  1184. function Get_info ; external 'WBKERNEL.DLL';
  1185. function cd_Get_info ; external 'WBKERNEL.DLL';
  1186. function Get_item_value ; external 'WBPREZEN.DLL';
  1187. function Get_logged_user ; external 'WBKERNEL.DLL';
  1188. function cd_Get_logged_user ; external 'WBKERNEL.DLL';
  1189. function Get_object_rights ; external 'WBKERNEL.DLL';
  1190. function Get_var_address ; external 'WBPREZEN.DLL';
  1191. function Get_view_pos ; external 'WBPREZEN.DLL';
  1192. function Hours ; external 'WBKERNEL.DLL';
  1193. function Import_appl ; external 'WBVIEWED.DLL';
  1194. function InitWBMail ; external 'WBKERNEL.DLL';
  1195. function InitWBMail602 ; external 'WBKERNEL.DLL';
  1196. function LetterCreate ; external 'WBKERNEL.DLL';
  1197. function LetterAddAddr ; external 'WBKERNEL.DLL';
  1198. function LetterAddFile ; external 'WBKERNEL.DLL';
  1199. function LetterSend ; external 'WBKERNEL.DLL';
  1200. function TakeMailToRemOffice ; external 'WBKERNEL.DLL';
  1201. function Init_non_mdi_env ; external 'WBPREZEN.DLL';
  1202. function Init_window_env ; external 'WBPREZEN.DLL';
  1203. function Input_box ; external 'WBPREZEN.DLL';
  1204. function Insert ; external 'WBKERNEL.DLL';
  1205. function cd_Insert ; external 'WBKERNEL.DLL';
  1206. function Insert_object ; external 'WBKERNEL.DLL';
  1207. function cd_Insert_object ; external 'WBKERNEL.DLL';
  1208. function interf_init ; external 'WBKERNEL.DLL';
  1209. function Like ; external 'WBKERNEL.DLL';
  1210. function link_kernel ; external 'WBKERNEL.DLL';
  1211. function Log_write ; external 'WBKERNEL.DLL';
  1212. function cd_Log_write ; external 'WBKERNEL.DLL';
  1213. function Login ; external 'WBKERNEL.DLL';
  1214. function cd_Login ; external 'WBKERNEL.DLL';
  1215. function Logout ; external 'WBKERNEL.DLL';
  1216. function cd_Logout ; external 'WBKERNEL.DLL';
  1217. function Look_up ; external 'WBKERNEL.DLL';
  1218. function cd_Look_up ; external 'WBKERNEL.DLL';
  1219. function Mail_parameters ; external 'WBPREZEN.DLL';
  1220. function Main_menu ; external 'WBPREZEN.DLL';
  1221. function Make_date ; external 'WBKERNEL.DLL';
  1222. function Message_to_clients ; external 'WBKERNEL.DLL';
  1223. function cd_Message_to_clients ; external 'WBKERNEL.DLL';
  1224. function Make_time ; external 'WBKERNEL.DLL';
  1225. function Minutes ; external 'WBKERNEL.DLL';
  1226. function money2real ; external 'WBKERNEL.DLL';
  1227. function Month ; external 'WBKERNEL.DLL';
  1228. function Move_data ; external 'WBPREZEN.DLL';
  1229. function Next_user_name ; external 'WBPREZEN.DLL';
  1230. function Now ; external 'WBKERNEL.DLL';
  1231. function ODBC_create_connection ; external 'WBKERNEL.DLL';
  1232. function cd_ODBC_create_connection ; external 'WBKERNEL.DLL';
  1233. function ODBC_direct_connection ; external 'WBKERNEL.DLL';
  1234. function cd_ODBC_direct_connection ; external 'WBKERNEL.DLL';
  1235. function ODBC_find_connection ; external 'WBKERNEL.DLL';
  1236. function cd_ODBC_find_connection ; external 'WBKERNEL.DLL';
  1237. function ODBC_open_cursor ; external 'WBKERNEL.DLL';
  1238. function cd_ODBC_open_cursor ; external 'WBKERNEL.DLL';
  1239. function Open_cursor ; external 'WBKERNEL.DLL';
  1240. function cd_Open_cursor ; external 'WBKERNEL.DLL';
  1241. function Open_cursor_direct ; external 'WBKERNEL.DLL';
  1242. function cd_Open_cursor_direct ; external 'WBKERNEL.DLL';
  1243. function Open_project ; external 'WBPREZEN.DLL';
  1244. function Open_subcursor ; external 'WBKERNEL.DLL';
  1245. function cd_Open_subcursor ; external 'WBKERNEL.DLL';
  1246. function Open_view ; external 'WBPREZEN.DLL';
  1247. function Owned_cursors ; external 'WBKERNEL.DLL';
  1248. function cd_Owned_cursors ; external 'WBKERNEL.DLL';
  1249. function Page_setup ; external 'WBPREZEN.DLL';
  1250. function Print_copies ; external 'WBPREZEN.DLL';
  1251. function Print_opt ; external 'WBPREZEN.DLL';
  1252. function Print_view ; external 'WBPREZEN.DLL';
  1253. function Printer_dialog ; external 'WBPREZEN.DLL';
  1254. function Printer_select ; external 'WBPREZEN.DLL';
  1255. function QBE_state ; external 'WBPREZEN.DLL';
  1256. function Quarter ; external 'WBKERNEL.DLL';
  1257. function Read ; external 'WBKERNEL.DLL';
  1258. function cd_Read ; external 'WBKERNEL.DLL';
  1259. function Read_ind ; external 'WBKERNEL.DLL';
  1260. function cd_Read_ind ; external 'WBKERNEL.DLL';
  1261. function Read_ind_cnt ; external 'WBKERNEL.DLL';
  1262. function cd_Read_ind_cnt ; external 'WBKERNEL.DLL';
  1263. function Read_len ; external 'WBKERNEL.DLL';
  1264. function cd_Read_len ; external 'WBKERNEL.DLL';
  1265. function Read_lock_record ; external 'WBKERNEL.DLL';
  1266. function cd_Read_lock_record ; external 'WBKERNEL.DLL';
  1267. function Read_lock_table ; external 'WBKERNEL.DLL';
  1268. function cd_Read_lock_table ; external 'WBKERNEL.DLL';
  1269. function Read_record ; external 'WBKERNEL.DLL';
  1270. function cd_Read_record ; external 'WBKERNEL.DLL';
  1271. function Read_unlock_record ; external 'WBKERNEL.DLL';
  1272. function cd_Read_unlock_record ; external 'WBKERNEL.DLL';
  1273. function Read_unlock_table ; external 'WBKERNEL.DLL';
  1274. function cd_Read_unlock_table ; external 'WBKERNEL.DLL';
  1275. function Read_var ; external 'WBKERNEL.DLL';
  1276. function cd_Read_var ; external 'WBKERNEL.DLL';
  1277. function real2money ; external 'WBKERNEL.DLL';
  1278. function Rec_cnt ; external 'WBKERNEL.DLL';
  1279. function cd_Rec_cnt ; external 'WBKERNEL.DLL';
  1280. function Register_rec_syn ; external 'WBPREZEN.DLL';
  1281. function Relate_record ; external 'WBPREZEN.DLL';
  1282. function Relist_objects ; external 'WBKERNEL.DLL';
  1283. function cd_Relist_objects ; external 'WBKERNEL.DLL';
  1284. function Replicate ; external 'WBKERNEL.DLL';
  1285. function cd_Replicate ; external 'WBKERNEL.DLL';
  1286. function Repl_control ; external 'WBKERNEL.DLL';
  1287. function cd_Repl_control ; external 'WBKERNEL.DLL';
  1288. function Restore_table ; external 'WBKERNEL.DLL';
  1289. function Roll_back ; external 'WBKERNEL.DLL';
  1290. function cd_Roll_back ; external 'WBKERNEL.DLL';
  1291. function Save_table ; external 'WBKERNEL.DLL';
  1292. function Sec1000 ; external 'WBKERNEL.DLL';
  1293. function Seconds ; external 'WBKERNEL.DLL';
  1294. function Select_directory ; external 'WBPREZEN.DLL';
  1295. function Select_file ; external 'WBPREZEN.DLL';
  1296. function Select_records ; external 'WBPREZEN.DLL';
  1297. function send_package ; external 'WBKERNEL.DLL';
  1298. function cd_send_package ; external 'WBKERNEL.DLL';
  1299. function Set_application ; external 'WBKERNEL.DLL';
  1300. function cd_Set_application ; external 'WBKERNEL.DLL';
  1301. function cd_Set_application_ex ; external 'WBKERNEL.DLL';
  1302. function Set_appl_starter; external 'WBKERNEL.DLL';
  1303. function cd_Set_appl_starter; external 'WBKERNEL.DLL';
  1304. function Set_data_rights ; external 'WBKERNEL.DLL';
  1305. function Set_ext_pos ; external 'WBPREZEN.DLL';
  1306. function Set_fcursor ; external 'WBPREZEN.DLL';
  1307. function Set_int_pos ; external 'WBPREZEN.DLL';
  1308. function Set_item_value ; external 'WBPREZEN.DLL';
  1309. function Set_object_rights ; external 'WBKERNEL.DLL';
  1310. function Set_password ; external 'WBKERNEL.DLL';
  1311. function cd_Set_password ; external 'WBKERNEL.DLL';
  1312. function Set_progress_report_modulus ; external 'WBKERNEL.DLL';
  1313. function cd_Set_progress_report_modulus ; external 'WBKERNEL.DLL';
  1314. function Set_sql_option ; external 'WBKERNEL.DLL';
  1315. function cd_Set_sql_option ; external 'WBKERNEL.DLL';
  1316. function Set_transaction_isolation_level ; external 'WBKERNEL.DLL';
  1317. function cd_Set_transaction_isolation_level ; external 'WBKERNEL.DLL';
  1318. function Signalize ; external 'WBPREZEN.DLL';
  1319. function Signature_state ; external 'WBPREZEN.DLL';
  1320. function SQL_drop ; external 'WBKERNEL.DLL';
  1321. function cd_SQL_drop ; external 'WBKERNEL.DLL';
  1322. function SQL_execute ; external 'WBKERNEL.DLL';
  1323. function cd_SQL_execute ; external 'WBKERNEL.DLL';
  1324. function SQL_exec_prepared ; external 'WBKERNEL.DLL';
  1325. function cd_SQL_exec_prepared ; external 'WBKERNEL.DLL';
  1326. function SQL_prepare ; external 'WBKERNEL.DLL';
  1327. function cd_SQL_prepare ; external 'WBKERNEL.DLL';
  1328. function Start_transaction ; external 'WBKERNEL.DLL';
  1329. function cd_Start_transaction ; external 'WBKERNEL.DLL';
  1330. function Super_recnum ; external 'WBKERNEL.DLL';
  1331. function cd_Super_recnum ; external 'WBKERNEL.DLL';
  1332. function Sz_error ; external 'WBKERNEL.DLL';
  1333. function cd_Sz_error ; external 'WBKERNEL.DLL';
  1334. function Sz_warning ; external 'WBKERNEL.DLL';
  1335. function cd_Sz_warning ; external 'WBKERNEL.DLL';
  1336. function Tab_page ; external 'WBPREZEN.DLL';
  1337. function timestamp2date ; external 'WBKERNEL.DLL';
  1338. function timestamp2time ; external 'WBKERNEL.DLL';
  1339. function To_xbase ; external 'WBKERNEL.DLL';
  1340. function Today ; external 'WBKERNEL.DLL';
  1341. function Token_control ; external 'WBPREZEN.DLL';
  1342. function Translate ; external 'WBKERNEL.DLL';
  1343. function cd_Translate ; external 'WBKERNEL.DLL';
  1344. function Undelete ; external 'WBKERNEL.DLL';
  1345. function cd_Undelete ; external 'WBKERNEL.DLL';
  1346. function Uninst_table ; external 'WBKERNEL.DLL';
  1347. function Used_memory ; external 'WBKERNEL.DLL';
  1348. function cd_Used_memory ; external 'WBKERNEL.DLL';
  1349. function User_in_group ; external 'WBKERNEL.DLL';
  1350. function User_to_group ; external 'WBKERNEL.DLL';
  1351. function waiting ; external 'WBKERNEL.DLL';
  1352. function cd_waiting ; external 'WBKERNEL.DLL';
  1353. function Who_am_I ; external 'WBKERNEL.DLL';
  1354. function cd_Who_am_I ; external 'WBKERNEL.DLL';
  1355. function WinBase602_version ; external 'WBKERNEL.DLL';
  1356. function cd_WinBase602_version ; external 'WBKERNEL.DLL';
  1357. function Write ; external 'WBKERNEL.DLL';
  1358. function cd_Write ; external 'WBKERNEL.DLL';
  1359. function Write_ind ; external 'WBKERNEL.DLL';
  1360. function cd_Write_ind ; external 'WBKERNEL.DLL';
  1361. function Write_ind_cnt ; external 'WBKERNEL.DLL';
  1362. function cd_Write_ind_cnt ; external 'WBKERNEL.DLL';
  1363. function Write_len ; external 'WBKERNEL.DLL';
  1364. function cd_Write_len ; external 'WBKERNEL.DLL';
  1365. function Write_lock_record ; external 'WBKERNEL.DLL';
  1366. function cd_Write_lock_record ; external 'WBKERNEL.DLL';
  1367. function Write_lock_table ; external 'WBKERNEL.DLL';
  1368. function cd_Write_lock_table ; external 'WBKERNEL.DLL';
  1369. function Write_record ; external 'WBKERNEL.DLL';
  1370. function cd_Write_record ; external 'WBKERNEL.DLL';
  1371. function Write_unlock_record ; external 'WBKERNEL.DLL';
  1372. function cd_Write_unlock_record ; external 'WBKERNEL.DLL';
  1373. function Write_unlock_table ; external 'WBKERNEL.DLL';
  1374. function cd_Write_unlock_table ; external 'WBKERNEL.DLL';
  1375. function Write_var ; external 'WBKERNEL.DLL';
  1376. function cd_Write_var ; external 'WBKERNEL.DLL';
  1377. function Year ; external 'WBKERNEL.DLL';
  1378. function Yesno_box ; external 'WBPREZEN.DLL';
  1379.  
  1380. procedure cdp_init ; external 'WBKERNEL.DLL';
  1381. procedure cdp_free ; external 'WBKERNEL.DLL';
  1382. procedure CloseWBMail ; external 'WBKERNEL.DLL';
  1383. procedure Close_all_views ; external 'WBPREZEN.DLL';
  1384. procedure Close_view ; external 'WBPREZEN.DLL';
  1385. procedure concurrent ; external 'WBKERNEL.DLL';
  1386. procedure Draw_line ; external 'WBPREZEN.DLL';
  1387. procedure Enable_task_switch ; external 'WBKERNEL.DLL';
  1388. procedure cd_Enable_task_switch ; external 'WBKERNEL.DLL';
  1389. procedure Help_file ; external 'WBPREZEN.DLL';
  1390. procedure Info_box ; external 'WBPREZEN.DLL';
  1391. procedure interf_close ; external 'WBKERNEL.DLL';
  1392. procedure cd_interf_close ; external 'WBKERNEL.DLL';
  1393. procedure Kernel_error_box; external 'WBPREZEN.DLL';
  1394. procedure LetterCancel ; external 'WBKERNEL.DLL';
  1395. procedure Pick_window ; external 'WBPREZEN.DLL';
  1396. procedure Print_margins ; external 'WBPREZEN.DLL';
  1397. procedure Put_pixel ; external 'WBPREZEN.DLL';
  1398. procedure Register_ext_menu;  external 'WBPREZEN.DLL';
  1399. procedure Reset_view ; external 'WBPREZEN.DLL';
  1400. procedure Roll_back_view ; external 'WBPREZEN.DLL';
  1401. procedure Set_first_label ; external 'WBPREZEN.DLL';
  1402. procedure Set_printer ; external 'WBPREZEN.DLL';
  1403. procedure Set_status_nums ; external 'WBPREZEN.DLL';
  1404. procedure Set_status_text ; external 'WBPREZEN.DLL';
  1405. procedure Show_help ; external 'WBPREZEN.DLL';
  1406. procedure Show_help_popup ; external 'WBPREZEN.DLL';
  1407. procedure start_package ; external 'WBKERNEL.DLL';
  1408. procedure cd_start_package ; external 'WBKERNEL.DLL';
  1409. procedure unlink_kernel ; external 'WBKERNEL.DLL';
  1410. procedure Upcase ; external 'WBKERNEL.DLL';
  1411. procedure View_pattern ; external 'WBPREZEN.DLL';
  1412.  
  1413. end.
  1414.  
  1415.