dlls/msi/suminfo.c

   1 /*
   2  * Implementation of the Microsoft Installer (msi.dll)
   3  *
   4  * Copyright 2002 Mike McCormack for Codeweavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #define NONAMELESSUNION
  22
  23 #include <stdarg.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winreg.h"
  28 #include "shlwapi.h"
  29 #include "wine/debug.h"
  30 #include "msi.h"
  31 #include "msiquery.h"
  32 #include "msipriv.h"
  33 #include "objidl.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  36
  37 const WCHAR szSumInfo[] = { 5 ,'S','u','m','m','a','r','y',
  38                        'I','n','f','o','r','m','a','t','i','o','n',0 };
  39
  40 static void MSI_CloseSummaryInfo( VOID *arg )
  41 {
  42     MSISUMMARYINFO *suminfo = (MSISUMMARYINFO *) arg;
  43     IPropertyStorage_Release( suminfo->propstg );
  44 }
  45
  46 UINT WINAPI MsiGetSummaryInformationA(MSIHANDLE hDatabase,
  47               LPCSTR szDatabase, UINT uiUpdateCount, MSIHANDLE *phSummaryInfo)
  48 {
  49     LPWSTR szwDatabase = NULL;
  50     UINT ret;
  51
  52     TRACE("%ld %s %d %p\n", hDatabase, debugstr_a(szDatabase),
  53           uiUpdateCount, phSummaryInfo);
  54
  55     if( szDatabase )
  56     {
  57         szwDatabase = HEAP_strdupAtoW( GetProcessHeap(), 0, szDatabase );
  58         if( !szwDatabase )
  59             return ERROR_FUNCTION_FAILED;
  60     }
  61
  62     ret = MsiGetSummaryInformationW(hDatabase, szwDatabase, uiUpdateCount, phSummaryInfo);
  63
  64     if( szwDatabase )
  65         HeapFree( GetProcessHeap(), 0, szwDatabase );
  66
  67     return ret;
  68 }
  69
  70 UINT WINAPI MsiGetSummaryInformationW(MSIHANDLE hDatabase,
  71               LPCWSTR szDatabase, UINT uiUpdateCount, MSIHANDLE *phSummaryInfo)
  72 {
  73     HRESULT r;
  74     MSIHANDLE handle, hdb = hDatabase;
  75     MSISUMMARYINFO *suminfo;
  76     MSIDATABASE *db;
  77     UINT ret = ERROR_SUCCESS;
  78     IPropertySetStorage *psstg = NULL;
  79     IPropertyStorage *ps = NULL;
  80     DWORD grfMode;
  81
  82     TRACE("%ld %s %d %p\n", hDatabase, debugstr_w(szDatabase),
  83            uiUpdateCount, phSummaryInfo);
  84
  85     if( !phSummaryInfo )
  86         return ERROR_INVALID_PARAMETER;
  87
  88     if( szDatabase )
  89     {
  90         UINT res;
  91
  92         res = MsiOpenDatabaseW(szDatabase, NULL, &hdb);
  93         if( res != ERROR_SUCCESS )
  94             return res;
  95     }
  96
  97     db = msihandle2msiinfo(hdb, MSIHANDLETYPE_DATABASE);
  98     if( !db )
  99         return ERROR_INVALID_PARAMETER;
 100
 101     r = IStorage_QueryInterface( db->storage,
 102              &IID_IPropertySetStorage, (LPVOID)&psstg);
 103     if( FAILED( r ) )
 104     {
 105         ERR("IStorage -> IPropertySetStorage failed\n");
 106         return ERROR_FUNCTION_FAILED;
 107     }
 108     ERR("storage = %p propertysetstorage = %p\n", db->storage, psstg);
 109
 110     grfMode = STGM_READ | STGM_SHARE_EXCLUSIVE;
 111     r = IPropertySetStorage_Open( psstg, &FMTID_SummaryInformation, grfMode, &ps );
 112     if( FAILED( r ) )
 113     {
 114         ERR("failed to get IPropertyStorage r=%08lx\n",r);
 115         ret = ERROR_FUNCTION_FAILED;
 116         goto end;
 117     }
 118
 119     handle = alloc_msihandle( MSIHANDLETYPE_SUMMARYINFO,
 120                   sizeof (MSISUMMARYINFO), MSI_CloseSummaryInfo );
 121     if( !handle )
 122     {
 123         ret = ERROR_FUNCTION_FAILED;
 124         goto end;
 125     }
 126
 127     suminfo = msihandle2msiinfo( handle, MSIHANDLETYPE_SUMMARYINFO );
 128     if( !suminfo )
 129     {
 130         ret = ERROR_FUNCTION_FAILED;
 131         goto end;
 132     }
 133
 134     IPropertyStorage_AddRef(ps);
 135     suminfo->propstg = ps;
 136     *phSummaryInfo = handle;
 137
 138 end:
 139     if( ps )
 140         IPropertyStorage_Release(ps);
 141     if( psstg )
 142         IPropertySetStorage_Release(psstg);
 143     if( !hDatabase )
 144         MsiCloseHandle( hdb );
 145
 146     return ret;
 147 }
 148
 149 UINT WINAPI MsiSummaryInfoGetPropertyCount(MSIHANDLE hSummaryInfo, UINT *pCount)
 150 {
 151     MSISUMMARYINFO *suminfo;
 152
 153     FIXME("%ld %p\n",hSummaryInfo, pCount);
 154
 155     suminfo = msihandle2msiinfo( hSummaryInfo, MSIHANDLETYPE_SUMMARYINFO );
 156     if( !suminfo )
 157         return ERROR_INVALID_HANDLE;
 158
 159     return ERROR_CALL_NOT_IMPLEMENTED;
 160 }
 161
 162 UINT WINAPI MsiSummaryInfoGetPropertyA(
 163       MSIHANDLE hSummaryInfo, UINT uiProperty, UINT *puiDataType, INT *piValue,
 164       FILETIME *pftValue, LPSTR szValueBuf, DWORD *pcchValueBuf)
 165 {
 166     MSISUMMARYINFO *suminfo;
 167     HRESULT r;
 168     PROPSPEC spec;
 169     PROPVARIANT var;
 170
 171     TRACE("%ld %d %p %p %p %p %p\n",
 172         hSummaryInfo, uiProperty, puiDataType, piValue,
 173         pftValue, szValueBuf, pcchValueBuf);
 174
 175     suminfo = msihandle2msiinfo( hSummaryInfo, MSIHANDLETYPE_SUMMARYINFO );
 176     if( !suminfo )
 177         return ERROR_INVALID_HANDLE;
 178
 179     spec.ulKind = PRSPEC_PROPID;
 180     spec.DUMMYUNIONNAME.propid = uiProperty;
 181
 182     r = IPropertyStorage_ReadMultiple( suminfo->propstg, 1, &spec, &var);
 183     if( FAILED(r) )
 184         return ERROR_FUNCTION_FAILED;
 185
 186     if( puiDataType )
 187         *puiDataType = var.vt;
 188
 189     switch( var.vt )
 190     {
 191     case VT_I4:
 192         if( piValue )
 193             *piValue = var.DUMMYUNIONNAME.lVal;
 194         break;
 195     case VT_LPSTR:
 196         if( pcchValueBuf && szValueBuf )
 197         {
 198             lstrcpynA(szValueBuf, var.DUMMYUNIONNAME.pszVal, *pcchValueBuf );
 199             *pcchValueBuf = lstrlenA( var.DUMMYUNIONNAME.pszVal );
 200         }
 201         break;
 202     case VT_FILETIME:
 203         if( pftValue )
 204             memcpy(pftValue, &var.DUMMYUNIONNAME.filetime, sizeof (FILETIME) );
 205         break;
 206     case VT_EMPTY:
 207         break;
 208     default:
 209         FIXME("Unknown property variant type\n");
 210         break;
 211     }
 212
 213     return ERROR_SUCCESS;
 214 }
 215
 216 UINT WINAPI MsiSummaryInfoGetPropertyW(
 217       MSIHANDLE hSummaryInfo, UINT uiProperty, UINT *puiDataType, INT *piValue,
 218       FILETIME *pftValue, LPWSTR szValueBuf, DWORD *pcchValueBuf)
 219 {
 220     FIXME("%ld %d %p %p %p %p %p\n",
 221         hSummaryInfo, uiProperty, puiDataType, piValue,
 222         pftValue, szValueBuf, pcchValueBuf);
 223
 224     return ERROR_CALL_NOT_IMPLEMENTED;
 225 }