开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaNtQuery.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：25k
源码类别：

Windows编程

开发平台：

Delphi

JwaNtQuery.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. {  Indezing Service Query API interface Unit for Object Pascal                 }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: nyquery.h, released August 2001. The original Pascal   }
  9. { code is: NtQuery.pas, released December 2000. The initial developer of the   }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaNtQuery;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "ntquery.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   ActiveX, ComObj, {TODO} JwaWinType;
  59. type
  60.   // TODO STUBS  see CmdTree.h (cmdtree.idl)
  61.   IFilter = Pointer;
  62.   IUnkown = Pointer;
  63.   ICommand = Pointer;
  64.   PPWCHAR = ^PWCHAR;
  65.   REFIID = TGUID; // also in ActiveDS
  66.   DBID = Pointer;
  67.   DBCOMMANDTREE = Pointer;
  68.   PDBCOMMANDTREE = Pointer;
  69.   DBCOMMANDOP = Pointer;
  71. //
  72. // Use this path for the null catalog, one that doesn't have an index.
  73. // Use it to search for properties of files that are not indexed.
  74. //
  76. const
  77.   CINULLCATALOG = '::_noindex_::';
  78.   {$EXTERNALSYM CINULLCATALOG}
  80. //
  81. // Use this path to connect to the server for administration work
  82. // (i.e. DocStoreAdmin.) No catalog is associated with the connection
  83. //
  85.   CIADMIN = '::_nodocstore_::';
  86.   {$EXTERNALSYM CIADMIN}
  88. //
  89. // Minimal support for persistent handlers.
  90. //
  92. function LoadIFilter(pwcsPath: PWCHAR; pUnkOuter: IUnknown; out ppIUnk: IFilter): HRESULT; stdcall;
  93. {$EXTERNALSYM LoadIFilter}
  95. const
  96.   LIFF_LOAD_DEFINED_FILTER                   = 1;
  97.   {$EXTERNALSYM LIFF_LOAD_DEFINED_FILTER}
  98.   LIFF_IMPLEMENT_TEXT_FILTER_FALLBACK_POLICY = 2;
  99.   {$EXTERNALSYM LIFF_IMPLEMENT_TEXT_FILTER_FALLBACK_POLICY}
  100.   LIFF_FORCE_TEXT_FILTER_FALLBACK            = 3;
  101.   {$EXTERNALSYM LIFF_FORCE_TEXT_FILTER_FALLBACK}
  103. function LoadIFilterEx(pwcsPath: PWCHAR; dwFlags: DWORD; const riid: REFIID; out ppIUnk: IUnknown): HRESULT; stdcall;
  104. {$EXTERNALSYM LoadIFilterEx}
  106. function BindIFilterFromStorage(pStg: IStorage; pUnkOuter: IUnknown; out ppIUnk: IFilter): HRESULT; stdcall;
  107. {$EXTERNALSYM BindIFilterFromStorage}
  109. function BindIFilterFromStream(pStm: IStream; pUnkOuter: IUnkown; out ppIUnk: IFilter): HRESULT; stdcall;
  110. {$EXTERNALSYM BindIFilterFromStream}
  112. function LocateCatalogsW(pwszScope: PWCHAR; iBmk: ULONG; pwszMachine: PWCHAR;
  113.   var pccMachine: ULONG; pwszCat: PWCHAR; var pccCat: ULONG): HRESULT; stdcall;
  114. {$EXTERNALSYM LocateCatalogsW}
  116. //
  117. // For calling from VB
  118. //
  120. function LocateCatalogsA(pwszScope: PCHAR; iBmk: ULONG; pwszMachine: PCHAR;
  121.   var pccMachine: ULONG; pwszCat: PCHAR; var pccCat: ULONG): HRESULT; stdcall;
  122. {$EXTERNALSYM LocateCatalogsA}
  124. {$IFDEF UNICODE}
  125. function LocateCatalogs(pwszScope: PWCHAR; iBmk: ULONG; pwszMachine: PWCHAR;
  126.   var pccMachine: ULONG; pwszCat: PWCHAR; var pccCat: ULONG): HRESULT; stdcall;
  127. {$EXTERNALSYM LocateCatalogs}
  128. {$ELSE}
  129. function LocateCatalogs(pwszScope: PCHAR; iBmk: ULONG; pwszMachine: PCHAR;
  130.   var pccMachine: ULONG; pwszCat: PCHAR; var pccCat: ULONG): HRESULT; stdcall;
  131. {$EXTERNALSYM LocateCatalogs}
  132. {$ENDIF}
  134. // The Index Server Data Source Object CLSID
  136. const
  137.   CLSID_INDEX_SERVER_DSO: TGUID = (
  138.     D1:$F9AE8980; D2:$7E52; D3:$11d0; D4:($89,$64,$00,$C0,$4F,$D6,$11,$D7));
  139.   {$EXTERNALSYM CLSID_INDEX_SERVER_DSO}
  141. // The storage property set
  143.   PSGUID_STORAGE: TGUID = (
  144.     D1:$b725f130; D2:$47ef; D3:$101a; D4:($a5,$f1,$02,$60,$8c,$9e,$eb,$ac));
  145.   {$EXTERNALSYM PSGUID_STORAGE}
  147. //#define PID_STG_DICTIONARY            ((PROPID) 0x00000000) //reserved
  148. //#define PID_STG_CODEPAGE              ((PROPID) 0x00000001) //reserved
  150.   PID_STG_DIRECTORY      = PROPID($00000002);
  151.   {$EXTERNALSYM PID_STG_DIRECTORY}
  152.   PID_STG_CLASSID        = PROPID($00000003);
  153.   {$EXTERNALSYM PID_STG_CLASSID}
  154.   PID_STG_STORAGETYPE    = PROPID($00000004);
  155.   {$EXTERNALSYM PID_STG_STORAGETYPE}
  156.   PID_STG_VOLUME_ID      = PROPID($00000005);
  157.   {$EXTERNALSYM PID_STG_VOLUME_ID}
  158.   PID_STG_PARENT_WORKID  = PROPID($00000006);
  159.   {$EXTERNALSYM PID_STG_PARENT_WORKID}
  160.   PID_STG_SECONDARYSTORE = PROPID($00000007);
  161.   {$EXTERNALSYM PID_STG_SECONDARYSTORE}
  162.   PID_STG_FILEINDEX      = PROPID($00000008);
  163.   {$EXTERNALSYM PID_STG_FILEINDEX}
  164.   PID_STG_LASTCHANGEUSN  = PROPID($00000009);
  165.   {$EXTERNALSYM PID_STG_LASTCHANGEUSN}
  166.   PID_STG_NAME           = PROPID($0000000a);
  167.   {$EXTERNALSYM PID_STG_NAME}
  168.   PID_STG_PATH           = PROPID($0000000b);
  169.   {$EXTERNALSYM PID_STG_PATH}
  170.   PID_STG_SIZE           = PROPID($0000000c);
  171.   {$EXTERNALSYM PID_STG_SIZE}
  172.   PID_STG_ATTRIBUTES     = PROPID($0000000d);
  173.   {$EXTERNALSYM PID_STG_ATTRIBUTES}
  174.   PID_STG_WRITETIME      = PROPID($0000000e);
  175.   {$EXTERNALSYM PID_STG_WRITETIME}
  176.   PID_STG_CREATETIME     = PROPID($0000000f);
  177.   {$EXTERNALSYM PID_STG_CREATETIME}
  178.   PID_STG_ACCESSTIME     = PROPID($00000010);
  179.   {$EXTERNALSYM PID_STG_ACCESSTIME}
  180.   PID_STG_CHANGETIME     = PROPID($00000011);
  181.   {$EXTERNALSYM PID_STG_CHANGETIME}
  182.   PID_STG_CONTENTS       = PROPID($00000013);
  183.   {$EXTERNALSYM PID_STG_CONTENTS}
  184.   PID_STG_SHORTNAME      = PROPID($00000014);
  185.   {$EXTERNALSYM PID_STG_SHORTNAME}
  186.   PID_STG_MAX            = PID_STG_SHORTNAME;
  187.   {$EXTERNALSYM PID_STG_MAX}
  188.   CSTORAGEPROPERTY       = $15;
  189.   {$EXTERNALSYM CSTORAGEPROPERTY}
  191. // File System Content Index Framework property set
  193.   DBPROPSET_FSCIFRMWRK_EXT: TGUID = (
  194.     D1:$A9BD1526; D2:$6A80; D3:$11D0; D4:($8C,$9D,$00,$20,$AF,$1D,$74,$0E));
  195.   {$EXTERNALSYM DBPROPSET_FSCIFRMWRK_EXT}
  197.   DBPROP_CI_CATALOG_NAME   = 2;
  198.   {$EXTERNALSYM DBPROP_CI_CATALOG_NAME}
  199.   DBPROP_CI_INCLUDE_SCOPES = 3;
  200.   {$EXTERNALSYM DBPROP_CI_INCLUDE_SCOPES}
  201.   DBPROP_CI_DEPTHS         = 4; // obsolete
  202.   {$EXTERNALSYM DBPROP_CI_DEPTHS}
  203.   DBPROP_CI_SCOPE_FLAGS    = 4;
  204.   {$EXTERNALSYM DBPROP_CI_SCOPE_FLAGS}
  205.   DBPROP_CI_EXCLUDE_SCOPES = 5;
  206.   {$EXTERNALSYM DBPROP_CI_EXCLUDE_SCOPES}
  207.   DBPROP_CI_SECURITY_ID    = 6;
  208.   {$EXTERNALSYM DBPROP_CI_SECURITY_ID}
  209.   DBPROP_CI_QUERY_TYPE     = 7;
  210.   {$EXTERNALSYM DBPROP_CI_QUERY_TYPE}
  212. // Query Extension property set
  214.   DBPROPSET_QUERYEXT: TGUID = (
  215.     D1:$A7AC77ED; D2:$F8D7; D3:$11CE; D4:($A7,$98,$00,$20,$F8,$00,$80,$25));
  216.   {$EXTERNALSYM DBPROPSET_QUERYEXT}
  218.   DBPROP_USECONTENTINDEX         = 2;
  219.   {$EXTERNALSYM DBPROP_USECONTENTINDEX}
  220.   DBPROP_DEFERNONINDEXEDTRIMMING = 3;
  221.   {$EXTERNALSYM DBPROP_DEFERNONINDEXEDTRIMMING}
  222.   DBPROP_USEEXTENDEDDBTYPES      = 4;
  223.   {$EXTERNALSYM DBPROP_USEEXTENDEDDBTYPES}
  224.   DBPROP_FIRSTROWS               = 7;
  225.   {$EXTERNALSYM DBPROP_FIRSTROWS}
  227. // Content Index Framework Core property set
  229.   DBPROPSET_CIFRMWRKCORE_EXT: TGUID = (
  230.     D1:$afafaca5; D2:$b5d1; D3:$11d0; D4:($8c,$62,$00,$c0,$4f,$c2,$db,$8d));
  231.   {$EXTERNALSYM DBPROPSET_CIFRMWRKCORE_EXT}
  233.   DBPROP_MACHINE      = 2;
  234.   {$EXTERNALSYM DBPROP_MACHINE}
  235.   DBPROP_CLIENT_CLSID = 3;
  236.   {$EXTERNALSYM DBPROP_CLIENT_CLSID}
  238. // MSIDXS Rowset property set
  240.   DBPROPSET_MSIDXS_ROWSETEXT: TGUID = (
  241.     D1:$aa6ee6b0; D2:$e828; D3:$11d0; D4:($b2,$3e,$00,$aa,$00,$47,$fc,$01));
  242.   {$EXTERNALSYM DBPROPSET_MSIDXS_ROWSETEXT}
  244.   MSIDXSPROP_ROWSETQUERYSTATUS     = 2;
  245.   {$EXTERNALSYM MSIDXSPROP_ROWSETQUERYSTATUS}
  246.   MSIDXSPROP_COMMAND_LOCALE_STRING = 3;
  247.   {$EXTERNALSYM MSIDXSPROP_COMMAND_LOCALE_STRING}
  248.   MSIDXSPROP_QUERY_RESTRICTION     = 4;
  249.   {$EXTERNALSYM MSIDXSPROP_QUERY_RESTRICTION}
  251. //
  252. // Query status values returned by MSIDXSPROP_ROWSETQUERYSTATUS
  253. //
  254. // Bits   Effect
  255. // -----  -----------------------------------------------------
  256. // 00-02  Fill Status: How data is being updated, if at all.
  257. // 03-15  Bitfield query reliability: How accurate the result is
  259.   STAT_BUSY    = (0);
  260.   {$EXTERNALSYM STAT_BUSY}
  261.   STAT_ERROR   = ($1);
  262.   {$EXTERNALSYM STAT_ERROR}
  263.   STAT_DONE    = ($2);
  264.   {$EXTERNALSYM STAT_DONE}
  265.   STAT_REFRESH = ($3);
  266.   {$EXTERNALSYM STAT_REFRESH}
  268. function QUERY_FILL_STATUS(x: DWORD): DWORD;
  269. {$EXTERNALSYM QUERY_FILL_STATUS}
  271. const
  272.   STAT_PARTIAL_SCOPE            = ($8);
  273.   {$EXTERNALSYM STAT_PARTIAL_SCOPE}
  274.   STAT_NOISE_WORDS              = ($10);
  275.   {$EXTERNALSYM STAT_NOISE_WORDS}
  276.   STAT_CONTENT_OUT_OF_DATE      = ($20);
  277.   {$EXTERNALSYM STAT_CONTENT_OUT_OF_DATE}
  278.   STAT_REFRESH_INCOMPLETE       = ($40);
  279.   {$EXTERNALSYM STAT_REFRESH_INCOMPLETE}
  280.   STAT_CONTENT_QUERY_INCOMPLETE = ($80);
  281.   {$EXTERNALSYM STAT_CONTENT_QUERY_INCOMPLETE}
  282.   STAT_TIME_LIMIT_EXCEEDED      = ($100);
  283.   {$EXTERNALSYM STAT_TIME_LIMIT_EXCEEDED}
  284.   STAT_SHARING_VIOLATION        = ($200);
  285.   {$EXTERNALSYM STAT_SHARING_VIOLATION}
  287. function QUERY_RELIABILITY_STATUS(x: DWORD): DWORD;
  288. {$EXTERNALSYM QUERY_RELIABILITY_STATUS}
  290. // Scope flags
  292. const
  293.   QUERY_SHALLOW       = 0;
  294.   {$EXTERNALSYM QUERY_SHALLOW}
  295.   QUERY_DEEP          = 1;
  296.   {$EXTERNALSYM QUERY_DEEP}
  297.   QUERY_PHYSICAL_PATH = 0;
  298.   {$EXTERNALSYM QUERY_PHYSICAL_PATH}
  299.   QUERY_VIRTUAL_PATH  = 2;
  300.   {$EXTERNALSYM QUERY_VIRTUAL_PATH}
  302. // query property set (PSGUID_QUERY) properties not defined in oledb.h
  304.   PROPID_QUERY_WORKID       = 5;
  305.   {$EXTERNALSYM PROPID_QUERY_WORKID}
  306.   PROPID_QUERY_UNFILTERED   = 7;
  307.   {$EXTERNALSYM PROPID_QUERY_UNFILTERED}
  308.   PROPID_QUERY_VIRTUALPATH  = 9;
  309.   {$EXTERNALSYM PROPID_QUERY_VIRTUALPATH}
  310.   PROPID_QUERY_LASTSEENTIME = 10;
  311.   {$EXTERNALSYM PROPID_QUERY_LASTSEENTIME}
  313. //
  314. // Change or get the current state of a catalog specified.
  315. //
  317.   CICAT_STOPPED    = $1;
  318.   {$EXTERNALSYM CICAT_STOPPED}
  319.   CICAT_READONLY   = $2;
  320.   {$EXTERNALSYM CICAT_READONLY}
  321.   CICAT_WRITABLE   = $4;
  322.   {$EXTERNALSYM CICAT_WRITABLE}
  323.   CICAT_NO_QUERY   = $8;
  324.   {$EXTERNALSYM CICAT_NO_QUERY}
  325.   CICAT_GET_STATE  = $10;
  326.   {$EXTERNALSYM CICAT_GET_STATE}
  327.   CICAT_ALL_OPENED = $20;
  328.   {$EXTERNALSYM CICAT_ALL_OPENED}
  330. function SetCatalogState(pwcsCat, pwcsMachine: PWCHAR; dwNewState: DWORD;
  331.   var pdwOldState: DWORD): HRESULT; stdcall;
  332. {$EXTERNALSYM SetCatalogState}
  334. //
  335. // Query catalog state
  336. //
  338. const
  339.   CI_STATE_SHADOW_MERGE          = $0001; // Index is performing a shadow merge
  340.   {$EXTERNALSYM CI_STATE_SHADOW_MERGE}
  341.   CI_STATE_MASTER_MERGE          = $0002; // Index is performing a master merge
  342.   {$EXTERNALSYM CI_STATE_MASTER_MERGE}
  343.   CI_STATE_CONTENT_SCAN_REQUIRED = $0004; // Index is likely corrupt, and a rescan is required
  344.   {$EXTERNALSYM CI_STATE_CONTENT_SCAN_REQUIRED}
  345.   CI_STATE_ANNEALING_MERGE       = $0008; // Index is performing an annealing (optimizing) merge
  346.   {$EXTERNALSYM CI_STATE_ANNEALING_MERGE}
  347.   CI_STATE_SCANNING              = $0010; // Scans are in-progress
  348.   {$EXTERNALSYM CI_STATE_SCANNING}
  349.   CI_STATE_RECOVERING            = $0020; // Index metadata is being recovered
  350.   {$EXTERNALSYM CI_STATE_RECOVERING}
  351.   CI_STATE_INDEX_MIGRATION_MERGE = $0040; // Reserved for future use
  352.   {$EXTERNALSYM CI_STATE_INDEX_MIGRATION_MERGE}
  353.   CI_STATE_LOW_MEMORY            = $0080; // Indexing is paused due to low memory availability
  354.   {$EXTERNALSYM CI_STATE_LOW_MEMORY}
  355.   CI_STATE_HIGH_IO               = $0100; // Indexing is paused due to a high rate of I/O
  356.   {$EXTERNALSYM CI_STATE_HIGH_IO}
  357.   CI_STATE_MASTER_MERGE_PAUSED   = $0200; // Master merge is paused
  358.   {$EXTERNALSYM CI_STATE_MASTER_MERGE_PAUSED}
  359.   CI_STATE_READ_ONLY             = $0400; // Indexing has been manually paused (read-only)
  360.   {$EXTERNALSYM CI_STATE_READ_ONLY}
  361.   CI_STATE_BATTERY_POWER         = $0800; // Indexing is paused to conserve battery life
  362.   {$EXTERNALSYM CI_STATE_BATTERY_POWER}
  363.   CI_STATE_USER_ACTIVE           = $1000; // Indexing is paused due to high user activity (keyboard/mouse)
  364.   {$EXTERNALSYM CI_STATE_USER_ACTIVE}
  365.   CI_STATE_STARTING              = $2000; // Index is still starting up
  366.   {$EXTERNALSYM CI_STATE_STARTING}
  367.   CI_STATE_READING_USNS          = $4000; // USNs on NTFS volumes are being processed
  368.   {$EXTERNALSYM CI_STATE_READING_USNS}
  370. //#include <pshpack4.h>
  372. type
  373.   _CI_STATE = record
  374.     cbStruct: DWORD;
  375.     cWordList: DWORD;
  376.     cPersistentIndex: DWORD;
  377.     cQueries: DWORD;
  378.     cDocuments: DWORD;
  379.     cFreshTest: DWORD;
  380.     dwMergeProgress: DWORD;
  381.     eState: DWORD;
  382.     cFilteredDocuments: DWORD;
  383.     cTotalDocuments: DWORD;
  384.     cPendingScans: DWORD;
  385.     dwIndexSize: DWORD;
  386.     cUniqueKeys: DWORD;
  387.     cSecQDocuments: DWORD;
  388.     dwPropCacheSize: DWORD;
  389.   end;
  390.   {$EXTERNALSYM _CI_STATE}
  391.   CI_STATE = _CI_STATE;
  392.   {$EXTERNALSYM CI_STATE}
  393.   TCiState = CI_STATE;
  394.   PCiState = ^CI_STATE;
  396. //#include <poppack.h>
  398. function CIState(pwcsCat, pwcsMachine: PWCHAR; var pCiState: CI_STATE): HRESULT; stdcall;
  399. {$EXTERNALSYM CIState}
  401. //
  402. // Create an ICommand, specifying scopes, catalogs, and machines
  403. //
  405. function CIMakeICommand(out ppCommand: ICommand; cScope: ULONG; aDepths: LPDWORD;
  406.   awcsScope, awcsCatalogs, awcsMachine: PPWCHAR): HRESULT; stdcall;
  407. {$EXTERNALSYM CIMakeICommand}
  409. //
  410. // Create an ICommand, specifying a catalog and machine
  411. //
  413. function CICreateCommand(out ppCommand: IUnknown; pUnkOuter: IUnknown;
  414.   const riid: REFIID; pwcsCatalog, pwcsMachine: PWCHAR): HRESULT; stdcall;
  415. {$EXTERNALSYM CICreateCommand}
  417. type
  418.   tagCIPROPERTYDEF = record
  419.     wcsFriendlyName: LPWSTR;
  420.     dbType: DWORD;
  421.     dbCol: DBID;
  422.   end;
  423.   {$EXTERNALSYM tagCIPROPERTYDEF}
  424.   CIPROPERTYDEF = tagCIPROPERTYDEF;
  425.   {$EXTERNALSYM CIPROPERTYDEF}
  426.   TCiPropertyDef = CIPROPERTYDEF;
  427.   PCiPropertyDef = ^CIPROPERTYDEF;
  429. //
  430. // Values for ulDialect in CITextToSelectTreeEx and CITextToFullTreeEx
  431. //
  433. const
  434.   ISQLANG_V1 = 1; // Same as the non-Ex versions
  435.   {$EXTERNALSYM ISQLANG_V1}
  436.   ISQLANG_V2 = 2;
  437.   {$EXTERNALSYM ISQLANG_V2}
  439. //
  440. // Convert pwszRestriction in Triplish to a command tree.
  441. //
  443. function CITextToSelectTree(pwszRestriction: PWCHAR; var ppTree: PDBCOMMANDTREE;
  444.   cProperties: ULONG; pProperties: PCIPROPERTYDEF; LocaleID: LCID): HRESULT; stdcall;
  445. {$EXTERNALSYM CITextToSelectTree}
  447. function CITextToSelectTreeEx(pwszRestriction: PWCHAR; ulDialect: ULONG;
  448.   var ppTree: PDBCOMMANDTREE; cProperties: ULONG; pProperties: PCIPROPERTYDEF;
  449.   LocaleID: LCID): HRESULT; stdcall;
  450. {$EXTERNALSYM CITextToSelectTreeEx}
  452. //
  453. // Convert pwszRestriction in Triplish, project columns, sort columns
  454. // and grouping columns to a command tree.
  455. //
  457. function CITextToFullTree(pwszRestriction, pwszColumns, pwszSortColumns,
  458.   pwszGroupings: PWCHAR; var ppTree: PDBCOMMANDTREE; cProperties: ULONG;
  459.   pProperties: PCIPROPERTYDEF; LocaleID: LCID): HRESULT; stdcall;
  460. {$EXTERNALSYM CITextToFullTree}
  462. function CITextToFullTreeEx(pwszRestriction: PWCHAR; ulDialect: ULONG;
  463.   pwszColumns, pwszSortColumns, pwszGroupings: PWCHAR; var ppTree: PDBCOMMANDTREE;
  464.   cProperties: ULONG; pProperties: PCIPROPERTYDEF; LocaleID: LCID): HRESULT; stdcall;
  465. {$EXTERNALSYM CITextToFullTreeEx}
  467. //
  468. // Build a simple restriction node.
  469. //
  471. function CIBuildQueryNode(wcsProperty: PWCHAR; dbOperator: DBCOMMANDOP;
  472.   const pvarPropertyValue: PROPVARIANT; var ppTree: PDBCOMMANDTREE;
  473.   cProperties: ULONG; pProperty: PCIPROPERTYDEF; LocaleID: LCID): HRESULT; stdcall;
  474. {$EXTERNALSYM CIBuildQueryNode}
  476. //
  477. // Build a restriction tree from an existing tree (could be empty) and a newly added node/tree.
  478. //
  480. function CIBuildQueryTree(pExistingTree: PDBCOMMANDTREE; dbBoolOp: DBCOMMANDOP;
  481.   cSiblings: ULONG; ppSibsToCombine: PDBCOMMANDTREE; var ppTree: DBCOMMANDTREE): HRESULT; stdcall;
  482. {$EXTERNALSYM CIBuildQueryTree}
  484. //
  485. // Convert restriction tree, project columns, sort columns
  486. // and grouping columns to a command tree.
  487. //
  489. function CIRestrictionToFullTree(const pTree: DBCOMMANDTREE; pwszColumns,
  490.   pwszSortColumns, pwszGroupings: PWCHAR; var ppTree: PDBCOMMANDTREE;
  491.   cProperties: ULONG; pReserved: PCIPROPERTYDEF; LocaleID: LCID): HRESULT; stdcall;
  492. {$EXTERNALSYM CIRestrictionToFullTree}
  494. implementation
  496. function QUERY_FILL_STATUS(x: DWORD): DWORD;
  497. begin
  498.   Result := x and $7;
  499. end;
  501. function QUERY_RELIABILITY_STATUS(x: DWORD): DWORD;
  502. begin
  503.   Result := x and $FFF8;
  504. end;
  506. const
  507.   query = 'query.dll';
  509. {$IFDEF DYNAMIC_LINK}
  510. var
  511.   _LoadIFilterEx: Pointer;
  513. function LoadIFilterEx;
  514. begin
  515.   GetProcedureAddress(_LoadIFilterEx, query, 'LoadIFilterEx');
  516.   asm
  517.     mov esp, ebp
  518.     pop ebp
  519.     jmp [_LoadIFilterEx]
  520.   end;
  521. end;
  522. {$ELSE}
  523. function LoadIFilterEx; external query name 'LoadIFilterEx';
  524. {$ENDIF DYNAMIC_LINK}
  526. {$IFDEF DYNAMIC_LINK}
  527. var
  528.   _LoadIFilter: Pointer;
  530. function LoadIFilter;
  531. begin
  532.   GetProcedureAddress(_LoadIFilter, query, 'LoadIFilter');
  533.   asm
  534.     mov esp, ebp
  535.     pop ebp
  536.     jmp [_LoadIFilter]
  537.   end;
  538. end;
  539. {$ELSE}
  540. function LoadIFilter; external query name 'LoadIFilter';
  541. {$ENDIF DYNAMIC_LINK}
  543. {$IFDEF DYNAMIC_LINK}
  544. var
  545.   _BindIFilterFromStorage: Pointer;
  547. function BindIFilterFromStorage;
  548. begin
  549.   GetProcedureAddress(_BindIFilterFromStorage, query, 'BindIFilterFromStorage');
  550.   asm
  551.     mov esp, ebp
  552.     pop ebp
  553.     jmp [_BindIFilterFromStorage]
  554.   end;
  555. end;
  556. {$ELSE}
  557. function BindIFilterFromStorage; external query name 'BindIFilterFromStorage';
  558. {$ENDIF DYNAMIC_LINK}
  560. {$IFDEF DYNAMIC_LINK}
  561. var
  562.   _BindIFilterFromStream: Pointer;
  564. function BindIFilterFromStream;
  565. begin
  566.   GetProcedureAddress(_BindIFilterFromStream, query, 'BindIFilterFromStream');
  567.   asm
  568.     mov esp, ebp
  569.     pop ebp
  570.     jmp [_BindIFilterFromStream]
  571.   end;
  572. end;
  573. {$ELSE}
  574. function BindIFilterFromStream; external query name 'BindIFilterFromStream';
  575. {$ENDIF DYNAMIC_LINK}
  577. {$IFDEF DYNAMIC_LINK}
  578. var
  579.   _LocateCatalogsW: Pointer;
  581. function LocateCatalogsW;
  582. begin
  583.   GetProcedureAddress(_LocateCatalogsW, query, 'LocateCatalogsW');
  584.   asm
  585.     mov esp, ebp
  586.     pop ebp
  587.     jmp [_LocateCatalogsW]
  588.   end;
  589. end;
  590. {$ELSE}
  591. function LocateCatalogsW; external query name 'LocateCatalogsW';
  592. {$ENDIF DYNAMIC_LINK}
  594. {$IFDEF DYNAMIC_LINK}
  595. var
  596.   _LocateCatalogsA: Pointer;
  598. function LocateCatalogsA;
  599. begin
  600.   GetProcedureAddress(_LocateCatalogsA, query, 'LocateCatalogsA');
  601.   asm
  602.     mov esp, ebp
  603.     pop ebp
  604.     jmp [_LocateCatalogsA]
  605.   end;
  606. end;
  607. {$ELSE}
  608. function LocateCatalogsA; external query name 'LocateCatalogsA';
  609. {$ENDIF DYNAMIC_LINK}
  610. {$IFDEF UNICODE}
  612. {$IFDEF DYNAMIC_LINK}
  613. var
  614.   _LocateCatalogs: Pointer;
  616. function LocateCatalogs;
  617. begin
  618.   GetProcedureAddress(_LocateCatalogs, query, 'LocateCatalogsW');
  619.   asm
  620.     mov esp, ebp
  621.     pop ebp
  622.     jmp [_LocateCatalogs]
  623.   end;
  624. end;
  625. {$ELSE}
  626. function LocateCatalogs; external query name 'LocateCatalogsW';
  627. {$ENDIF DYNAMIC_LINK}
  628. {$ELSE}
  630. {$IFDEF DYNAMIC_LINK}
  631. var
  632.   _LocateCatalogs: Pointer;
  634. function LocateCatalogs;
  635. begin
  636.   GetProcedureAddress(_LocateCatalogs, query, 'LocateCatalogsA');
  637.   asm
  638.     mov esp, ebp
  639.     pop ebp
  640.     jmp [_LocateCatalogs]
  641.   end;
  642. end;
  643. {$ELSE}
  644. function LocateCatalogs; external query name 'LocateCatalogsA';
  645. {$ENDIF DYNAMIC_LINK}
  646. {$ENDIF}
  648. {$IFDEF DYNAMIC_LINK}
  649. var
  650.   _SetCatalogState: Pointer;
  652. function SetCatalogState;
  653. begin
  654.   GetProcedureAddress(_SetCatalogState, query, 'SetCatalogState');
  655.   asm
  656.     mov esp, ebp
  657.     pop ebp
  658.     jmp [_SetCatalogState]
  659.   end;
  660. end;
  661. {$ELSE}
  662. function SetCatalogState; external query name 'SetCatalogState';
  663. {$ENDIF DYNAMIC_LINK}
  665. {$IFDEF DYNAMIC_LINK}
  666. var
  667.   _CIState: Pointer;
  669. function CIState;
  670. begin
  671.   GetProcedureAddress(_CIState, query, 'CIState');
  672.   asm
  673.     mov esp, ebp
  674.     pop ebp
  675.     jmp [_CIState]
  676.   end;
  677. end;
  678. {$ELSE}
  679. function CIState; external query name 'CIState';
  680. {$ENDIF DYNAMIC_LINK}
  682. {$IFDEF DYNAMIC_LINK}
  683. var
  684.   _CIMakeICommand: Pointer;
  686. function CIMakeICommand;
  687. begin
  688.   GetProcedureAddress(_CIMakeICommand, query, 'CIMakeICommand');
  689.   asm
  690.     mov esp, ebp
  691.     pop ebp
  692.     jmp [_CIMakeICommand]
  693.   end;
  694. end;
  695. {$ELSE}
  696. function CIMakeICommand; external query name 'CIMakeICommand';
  697. {$ENDIF DYNAMIC_LINK}
  699. {$IFDEF DYNAMIC_LINK}
  700. var
  701.   _CICreateCommand: Pointer;
  703. function CICreateCommand;
  704. begin
  705.   GetProcedureAddress(_CICreateCommand, query, 'CICreateCommand');
  706.   asm
  707.     mov esp, ebp
  708.     pop ebp
  709.     jmp [_CICreateCommand]
  710.   end;
  711. end;
  712. {$ELSE}
  713. function CICreateCommand; external query name 'CICreateCommand';
  714. {$ENDIF DYNAMIC_LINK}
  716. {$IFDEF DYNAMIC_LINK}
  717. var
  718.   _CITextToSelectTree: Pointer;
  720. function CITextToSelectTree;
  721. begin
  722.   GetProcedureAddress(_CITextToSelectTree, query, 'CITextToSelectTree');
  723.   asm
  724.     mov esp, ebp
  725.     pop ebp
  726.     jmp [_CITextToSelectTree]
  727.   end;
  728. end;
  729. {$ELSE}
  730. function CITextToSelectTree; external query name 'CITextToSelectTree';
  731. {$ENDIF DYNAMIC_LINK}
  733. {$IFDEF DYNAMIC_LINK}
  734. var
  735.   _CITextToSelectTreeEx: Pointer;
  737. function CITextToSelectTreeEx;
  738. begin
  739.   GetProcedureAddress(_CITextToSelectTreeEx, query, 'CITextToSelectTreeEx');
  740.   asm
  741.     mov esp, ebp
  742.     pop ebp
  743.     jmp [_CITextToSelectTreeEx]
  744.   end;
  745. end;
  746. {$ELSE}
  747. function CITextToSelectTreeEx; external query name 'CITextToSelectTreeEx';
  748. {$ENDIF DYNAMIC_LINK}
  750. {$IFDEF DYNAMIC_LINK}
  751. var
  752.   _CITextToFullTree: Pointer;
  754. function CITextToFullTree;
  755. begin
  756.   GetProcedureAddress(_CITextToFullTree, query, 'CITextToSelectTreeEx');
  757.   asm
  758.     mov esp, ebp
  759.     pop ebp
  760.     jmp [_CITextToFullTree]
  761.   end;
  762. end;
  763. {$ELSE}
  764. function CITextToFullTree; external query name 'CITextToSelectTreeEx';
  765. {$ENDIF DYNAMIC_LINK}
  767. {$IFDEF DYNAMIC_LINK}
  768. var
  769.   _CITextToFullTreeEx: Pointer;
  771. function CITextToFullTreeEx;
  772. begin
  773.   GetProcedureAddress(_CITextToFullTreeEx, query, 'CITextToFullTreeEx');
  774.   asm
  775.     mov esp, ebp
  776.     pop ebp
  777.     jmp [_CITextToFullTreeEx]
  778.   end;
  779. end;
  780. {$ELSE}
  781. function CITextToFullTreeEx; external query name 'CITextToFullTreeEx';
  782. {$ENDIF DYNAMIC_LINK}
  784. {$IFDEF DYNAMIC_LINK}
  785. var
  786.   _CIBuildQueryNode: Pointer;
  788. function CIBuildQueryNode;
  789. begin
  790.   GetProcedureAddress(_CIBuildQueryNode, query, 'CIBuildQueryNode');
  791.   asm
  792.     mov esp, ebp
  793.     pop ebp
  794.     jmp [_CIBuildQueryNode]
  795.   end;
  796. end;
  797. {$ELSE}
  798. function CIBuildQueryNode; external query name 'CIBuildQueryNode';
  799. {$ENDIF DYNAMIC_LINK}
  801. {$IFDEF DYNAMIC_LINK}
  802. var
  803.   _CIBuildQueryTree: Pointer;
  805. function CIBuildQueryTree;
  806. begin
  807.   GetProcedureAddress(_CIBuildQueryTree, query, 'CIBuildQueryTree');
  808.   asm
  809.     mov esp, ebp
  810.     pop ebp
  811.     jmp [_CIBuildQueryTree]
  812.   end;
  813. end;
  814. {$ELSE}
  815. function CIBuildQueryTree; external query name 'CIBuildQueryTree';
  816. {$ENDIF DYNAMIC_LINK}
  818. {$IFDEF DYNAMIC_LINK}
  819. var
  820.   _CIRestrictionToFullTree: Pointer;
  822. function CIRestrictionToFullTree;
  823. begin
  824.   GetProcedureAddress(_CIRestrictionToFullTree, query, 'CIRestrictionToFullTree');
  825.   asm
  826.     mov esp, ebp
  827.     pop ebp
  828.     jmp [_CIRestrictionToFullTree]
  829.   end;
  830. end;
  831. {$ELSE}
  832. function CIRestrictionToFullTree; external query name 'CIRestrictionToFullTree';
  833. {$ENDIF DYNAMIC_LINK}
  835. end.