Windows 검색 4 쿼리 - 델파이 예

Question

다음 웹 페이지 프로그래밍 쿼리 Windows 검색 설명 :

http://msdn.microsoft.com/en-us/library/aa965362.aspx

사람이 델파이/파스칼을 사용하여 예제가 있습니까? 내가 생각하고있는

예는 매우 간단하다 : 특정 파일 형식에 대한

1. 검색합니다.
2. 파일 내의 특정 텍스트를 검색하십시오.
3. 위의 검색을 특정 경로로 제한하십시오.

Answer 1

가 여기에 내가 얼마 전에했던 일을 - 그것은은 최근 것이 아닐 수 있다는 점에 유의하십시오

 
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; 

내가 fQuery가 실행하려는 쿼리, 그것은 모든 꽤 자기 설명 생각합니다.

감사합니다. 키스