Windows Search 4 consultas - Delphi Ejemplo
-
01-10-2019 - |
Pregunta
La siguiente página web describe la consulta de búsqueda de Windows mediante programación:
http://msdn.microsoft.com/en-us/library /aa965362.aspx
¿Alguien tiene ejemplos usando Delphi / Pascal?
Los ejemplos que tengo en mente son bastante simples:
- Búsqueda de ciertos tipos de archivos.
- buscar texto específico dentro de los archivos.
- Limite estas búsquedas anteriores a una determinada ruta.
Solución
Aquí hay una que hice hace un tiempo - ser consciente de que puede estar fuera de fecha:
const GENERAL_COLUMNS = '"System.Itemname", "System.Size", "System.DateCreated", "System.ItemDate",' + '"System.ItemFolderPathDisplay", "System.Search.AutoSummary", "System.ItemType"'; IMAGE_COLUMNS = '"System.Image.HorizontalSize", "System.Image.VerticalSize", '+ '"System.Image.BitDepth", "System.Image.Compression", '+ '"System.Photo.CameraModel", "System.Photo.DateTaken", "System.Photo.Flash"'; MUSIC_COLUMNS = '"System.Music.Artist", "System.Music.Genre", "System.Music.TrackNumber", '+ '"System.Audio.Compression", "System.Audio.SampleRate", '+ '"System.DRM.IsProtected", "System.Music.AlbumTitle", "System.Rating", '+ '"System.Audio.EncodingBitrate"'; procedure TWDSDataSource.RetrieveDataFromDB; var manager : ISearchManager; catalogManager : ISearchCatalogManager; queryHelper : ISearchQueryHelper; wQuery : string; temp : PWideChar; sTemp : string; begin manager := CoCSearchManager.Create; if Succeeded(manager.GetCatalog('SystemIndex',catalogManager)) then begin if Succeeded(catalogManager.GetQueryHelper(queryHelper)) then begin if fMaxResults 0 then queryHelper.Set_QueryMaxResults(fMaxResults); queryHelper.Set_QuerySelectColumns(GENERAL_COLUMNS + ',' + MUSIC_COLUMNS + ',' + IMAGE_COLUMNS); queryHelper.GenerateSQLFromUserQuery(PWideChar(fQuery),temp); wQuery := temp; queryHelper.Get_ConnectionString(temp); sTemp := temp; dataset := CreateComObject(CLASS_Recordset) as _Recordset; dataset.CursorLocation := adUseClient; dataset.Open(wQuery, stemp, adOpenForwardOnly, adLockReadOnly, adCmdText); dataset.Set_ActiveConnection(nil); bDatabaseFailed := false; end else bDatabaseFailed := true; end else bDatabaseFailed := true; end;
Creo que es todo bastante explica por sí mismo, fQuery es la consulta que desea ejecutar.
Saludos Keith
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow