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 "winnls.h"
  29 #include "shlwapi.h"
  30 #include "wine/debug.h"
  31 #include "msi.h"
  32 #include "msiquery.h"
  33 #include "msipriv.h"
  34 #include "objidl.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  37
  38 const WCHAR szSumInfo[] = { 5 ,'S','u','m','m','a','r','y',
  39                        'I','n','f','o','r','m','a','t','i','o','n',0 };
  40
  41 static void MSI_CloseSummaryInfo( VOID *arg )
  42 {
  43     MSISUMMARYINFO *suminfo = (MSISUMMARYINFO *) arg;
  44     IPropertyStorage_Release( suminfo->propstg );
  45 }
  46
  47 UINT WINAPI MsiGetSummaryInformationA(MSIHANDLE hDatabase,
  48               LPCSTR szDatabase, UINT uiUpdateCount, MSIHANDLE *phSummaryInfo)
  49 {
  50     LPWSTR szwDatabase = NULL;
  51     UINT ret;
  52
  53     TRACE("%ld %s %d %p\n", hDatabase, debugstr_a(szDatabase),
  54           uiUpdateCount, phSummaryInfo);
  55
  56     if( szDatabase )
  57     {
  58         UINT len = MultiByteToWideChar( CP_ACP, 0, szDatabase, -1, NULL, 0 );
  59         szwDatabase = HeapAlloc( GetProcessHeap(), 0, len*sizeof(WCHAR) );
  60         if( !szwDatabase )
  61             return ERROR_FUNCTION_FAILED;
  62         MultiByteToWideChar( CP_ACP, 0, szDatabase, -1, szwDatabase, len );
  63     }
  64
  65     ret = MsiGetSummaryInformationW(hDatabase, szwDatabase, uiUpdateCount, phSummaryInfo);
  66
  67     if( szwDatabase )
  68         HeapFree( GetProcessHeap(), 0, szwDatabase );
  69
  70     return ret;
  71 }
  72
  73 UINT WINAPI MsiGetSummaryInformationW(MSIHANDLE hDatabase,
  74               LPCWSTR szDatabase, UINT uiUpdateCount, MSIHANDLE *phSummaryInfo)
  75 {
  76     HRESULT r;
  77     MSIHANDLE handle, hdb = hDatabase;
  78     MSISUMMARYINFO *suminfo;
  79     MSIDATABASE *db;
  80     UINT ret = ERROR_SUCCESS;
  81     IPropertySetStorage *psstg = NULL;
  82     IPropertyStorage *ps = NULL;
  83     DWORD grfMode;
  84
  85     TRACE("%ld %s %d %p\n", hDatabase, debugstr_w(szDatabase),
  86            uiUpdateCount, phSummaryInfo);
  87
  88     if( !phSummaryInfo )
  89         return ERROR_INVALID_PARAMETER;
  90
  91     if( szDatabase )
  92     {
  93         UINT res;
  94
  95         res = MsiOpenDatabaseW(szDatabase, NULL, &hdb);
  96         if( res != ERROR_SUCCESS )
  97             return res;
  98     }
  99
 100     db = msihandle2msiinfo(hdb, MSIHANDLETYPE_DATABASE);
 101     if( !db )
 102         return ERROR_INVALID_PARAMETER;
 103
 104     r = IStorage_QueryInterface( db->storage,
 105              &IID_IPropertySetStorage, (LPVOID)&psstg);
 106     if( FAILED( r ) )
 107     {
 108         ERR("IStorage -> IPropertySetStorage failed\n");
 109         return ERROR_FUNCTION_FAILED;
 110     }
 111     ERR("storage = %p propertysetstorage = %p\n", db->storage, psstg);
 112
 113     grfMode = STGM_READ | STGM_SHARE_EXCLUSIVE;
 114     r = IPropertySetStorage_Open( psstg, &FMTID_SummaryInformation, grfMode, &ps );
 115     if( FAILED( r ) )
 116     {
 117         ERR("failed to get IPropertyStorage r=%08lx\n",r);
 118         ret = ERROR_FUNCTION_FAILED;
 119         goto end;
 120     }
 121
 122     handle = alloc_msihandle( MSIHANDLETYPE_SUMMARYINFO,
 123                   sizeof (MSISUMMARYINFO), MSI_CloseSummaryInfo );
 124     if( !handle )
 125     {
 126         ret = ERROR_FUNCTION_FAILED;
 127         goto end;
 128     }
 129
 130     suminfo = msihandle2msiinfo( handle, MSIHANDLETYPE_SUMMARYINFO );
 131     if( !suminfo )
 132     {
 133         ret = ERROR_FUNCTION_FAILED;
 134         goto end;
 135     }
 136
 137     IPropertyStorage_AddRef(ps);
 138     suminfo->propstg = ps;
 139     *phSummaryInfo = handle;
 140
 141 end:
 142     if( ps )
 143         IPropertyStorage_Release(ps);
 144     if( psstg )
 145         IPropertySetStorage_Release(psstg);
 146     if( !hDatabase )
 147         MsiCloseHandle( hdb );
 148
 149     return ret;
 150 }
 151
 152 UINT WINAPI MsiSummaryInfoGetPropertyCount(MSIHANDLE hSummaryInfo, UINT *pCount)
 153 {
 154     MSISUMMARYINFO *suminfo;
 155
 156     FIXME("%ld %p\n",hSummaryInfo, pCount);
 157
 158     suminfo = msihandle2msiinfo( hSummaryInfo, MSIHANDLETYPE_SUMMARYINFO );
 159     if( !suminfo )
 160         return ERROR_INVALID_HANDLE;
 161
 162     return ERROR_CALL_NOT_IMPLEMENTED;
 163 }
 164
 165 UINT WINAPI MsiSummaryInfoGetPropertyA(
 166       MSIHANDLE hSummaryInfo, UINT uiProperty, UINT *puiDataType, INT *piValue,
 167       FILETIME *pftValue, LPSTR szValueBuf, DWORD *pcchValueBuf)
 168 {
 169     MSISUMMARYINFO *suminfo;
 170     HRESULT r;
 171     PROPSPEC spec;
 172     PROPVARIANT var;
 173
 174     TRACE("%ld %d %p %p %p %p %p\n",
 175         hSummaryInfo, uiProperty, puiDataType, piValue,
 176         pftValue, szValueBuf, pcchValueBuf);
 177
 178     suminfo = msihandle2msiinfo( hSummaryInfo, MSIHANDLETYPE_SUMMARYINFO );
 179     if( !suminfo )
 180         return ERROR_INVALID_HANDLE;
 181
 182     spec.ulKind = PRSPEC_PROPID;
 183     spec.u.propid = uiProperty;
 184
 185     r = IPropertyStorage_ReadMultiple( suminfo->propstg, 1, &spec, &var);
 186     if( FAILED(r) )
 187         return ERROR_FUNCTION_FAILED;
 188
 189     if( puiDataType )
 190         *puiDataType = var.vt;
 191
 192     switch( var.vt )
 193     {
 194     case VT_I4:
 195         if( piValue )
 196             *piValue = var.u.lVal;
 197         break;
 198     case VT_LPSTR:
 199         if( pcchValueBuf && szValueBuf )
 200         {
 201             lstrcpynA(szValueBuf, var.u.pszVal, *pcchValueBuf );
 202             *pcchValueBuf = lstrlenA( var.u.pszVal );
 203         }
 204         break;
 205     case VT_FILETIME:
 206         if( pftValue )
 207             memcpy(pftValue, &var.u.filetime, sizeof (FILETIME) );
 208         break;
 209     case VT_EMPTY:
 210         break;
 211     default:
 212         FIXME("Unknown property variant type\n");
 213         break;
 214     }
 215
 216     return ERROR_SUCCESS;
 217 }
 218
 219 UINT WINAPI MsiSummaryInfoGetPropertyW(
 220       MSIHANDLE hSummaryInfo, UINT uiProperty, UINT *puiDataType, INT *piValue,
 221       FILETIME *pftValue, LPWSTR szValueBuf, DWORD *pcchValueBuf)
 222 {
 223     FIXME("%ld %d %p %p %p %p %p\n",
 224         hSummaryInfo, uiProperty, puiDataType, piValue,
 225         pftValue, szValueBuf, pcchValueBuf);
 226
 227     return ERROR_CALL_NOT_IMPLEMENTED;
 228 }