git.oblomov.eu Git - wine/blob - dlls/msi/record.c

   1 /*
   2  * Implementation of the Microsoft Installer (msi.dll)
   3  *
   4  * Copyright 2002-2004 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22
  23 #define COBJMACROS
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winuser.h"
  28 #include "winerror.h"
  29 #include "wine/debug.h"
  30 #include "msi.h"
  31 #include "msiquery.h"
  32 #include "msipriv.h"
  33 #include "objidl.h"
  34 #include "winnls.h"
  35 #include "ole2.h"
  36
  37 #include "winreg.h"
  38 #include "shlwapi.h"
  39
  40 #include "query.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(msidb);
  43
  44 #define MSIFIELD_NULL   0
  45 #define MSIFIELD_INT    1
  46 #define MSIFIELD_WSTR   3
  47 #define MSIFIELD_STREAM 4
  48
  49 static void MSI_FreeField( MSIFIELD *field )
  50 {
  51     switch( field->type )
  52     {
  53     case MSIFIELD_NULL:
  54     case MSIFIELD_INT:
  55         break;
  56     case MSIFIELD_WSTR:
  57         msi_free( field->u.szwVal);
  58         break;
  59     case MSIFIELD_STREAM:
  60         IStream_Release( field->u.stream );
  61         break;
  62     default:
  63         ERR("Invalid field type %d\n", field->type);
  64     }
  65 }
  66
  67 void MSI_CloseRecord( MSIOBJECTHDR *arg )
  68 {
  69     MSIRECORD *rec = (MSIRECORD *) arg;
  70     UINT i;
  71
  72     for( i=0; i<=rec->count; i++ )
  73         MSI_FreeField( &rec->fields[i] );
  74 }
  75
  76 MSIRECORD *MSI_CreateRecord( UINT cParams )
  77 {
  78     MSIRECORD *rec;
  79     UINT len;
  80
  81     TRACE("%d\n", cParams);
  82
  83     if( cParams>65535 )
  84         return NULL;
  85
  86     len = sizeof (MSIRECORD) + sizeof (MSIFIELD)*cParams;
  87     rec = alloc_msiobject( MSIHANDLETYPE_RECORD, len, MSI_CloseRecord );
  88     if( rec )
  89         rec->count = cParams;
  90     return rec;
  91 }
  92
  93 MSIHANDLE WINAPI MsiCreateRecord( UINT cParams )
  94 {
  95     MSIRECORD *rec;
  96     MSIHANDLE ret = 0;
  97
  98     TRACE("%d\n", cParams);
  99
 100     rec = MSI_CreateRecord( cParams );
 101     if( rec )
 102     {
 103         ret = alloc_msihandle( &rec->hdr );
 104         msiobj_release( &rec->hdr );
 105     }
 106     return ret;
 107 }
 108
 109 UINT MSI_RecordGetFieldCount( const MSIRECORD *rec )
 110 {
 111     return rec->count;
 112 }
 113
 114 UINT WINAPI MsiRecordGetFieldCount( MSIHANDLE handle )
 115 {
 116     MSIRECORD *rec;
 117     UINT ret;
 118
 119     TRACE("%d\n", handle );
 120
 121     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 122     if( !rec )
 123         return -1;
 124
 125     msiobj_lock( &rec->hdr );
 126     ret = MSI_RecordGetFieldCount( rec );
 127     msiobj_unlock( &rec->hdr );
 128     msiobj_release( &rec->hdr );
 129
 130     return ret;
 131 }
 132
 133 static BOOL string2intW( LPCWSTR str, int *out )
 134 {
 135     int x = 0;
 136     LPCWSTR p = str;
 137
 138     if( *p == '-' ) /* skip the minus sign */
 139         p++;
 140     while ( *p )
 141     {
 142         if( (*p < '0') || (*p > '9') )
 143             return FALSE;
 144         x *= 10;
 145         x += (*p - '0');
 146         p++;
 147     }
 148
 149     if( str[0] == '-' ) /* check if it's negative */
 150         x = -x;
 151     *out = x;
 152
 153     return TRUE;
 154 }
 155
 156 UINT MSI_RecordCopyField( MSIRECORD *in_rec, UINT in_n,
 157                           MSIRECORD *out_rec, UINT out_n )
 158 {
 159     UINT r = ERROR_SUCCESS;
 160
 161     msiobj_lock( &in_rec->hdr );
 162
 163     if ( in_n > in_rec->count || out_n > out_rec->count )
 164         r = ERROR_FUNCTION_FAILED;
 165     else if ( in_rec != out_rec || in_n != out_n )
 166     {
 167         LPWSTR str;
 168         MSIFIELD *in, *out;
 169
 170         in = &in_rec->fields[in_n];
 171         out = &out_rec->fields[out_n];
 172
 173         switch ( in->type )
 174         {
 175         case MSIFIELD_NULL:
 176             break;
 177         case MSIFIELD_INT:
 178             out->u.iVal = in->u.iVal;
 179             break;
 180         case MSIFIELD_WSTR:
 181             str = strdupW( in->u.szwVal );
 182             if ( !str )
 183                 r = ERROR_OUTOFMEMORY;
 184             else
 185                 out->u.szwVal = str;
 186             break;
 187         case MSIFIELD_STREAM:
 188             IStream_AddRef( in->u.stream );
 189             out->u.stream = in->u.stream;
 190             break;
 191         default:
 192             ERR("invalid field type %d\n", in->type);
 193         }
 194         if (r == ERROR_SUCCESS)
 195             out->type = in->type;
 196     }
 197
 198     msiobj_unlock( &in_rec->hdr );
 199
 200     return r;
 201 }
 202
 203 int MSI_RecordGetInteger( MSIRECORD *rec, UINT iField)
 204 {
 205     int ret = 0;
 206
 207     TRACE("%p %d\n", rec, iField );
 208
 209     if( iField > rec->count )
 210         return MSI_NULL_INTEGER;
 211
 212     switch( rec->fields[iField].type )
 213     {
 214     case MSIFIELD_INT:
 215         return rec->fields[iField].u.iVal;
 216     case MSIFIELD_WSTR:
 217         if( string2intW( rec->fields[iField].u.szwVal, &ret ) )
 218             return ret;
 219         return MSI_NULL_INTEGER;
 220     default:
 221         break;
 222     }
 223
 224     return MSI_NULL_INTEGER;
 225 }
 226
 227 int WINAPI MsiRecordGetInteger( MSIHANDLE handle, UINT iField)
 228 {
 229     MSIRECORD *rec;
 230     UINT ret;
 231
 232     TRACE("%d %d\n", handle, iField );
 233
 234     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 235     if( !rec )
 236         return MSI_NULL_INTEGER;
 237
 238     msiobj_lock( &rec->hdr );
 239     ret = MSI_RecordGetInteger( rec, iField );
 240     msiobj_unlock( &rec->hdr );
 241     msiobj_release( &rec->hdr );
 242
 243     return ret;
 244 }
 245
 246 UINT WINAPI MsiRecordClearData( MSIHANDLE handle )
 247 {
 248     MSIRECORD *rec;
 249     UINT i;
 250
 251     TRACE("%d\n", handle );
 252
 253     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 254     if( !rec )
 255         return ERROR_INVALID_HANDLE;
 256
 257     msiobj_lock( &rec->hdr );
 258     for( i=0; i<=rec->count; i++)
 259     {
 260         MSI_FreeField( &rec->fields[i] );
 261         rec->fields[i].type = MSIFIELD_NULL;
 262         rec->fields[i].u.iVal = 0;
 263     }
 264     msiobj_unlock( &rec->hdr );
 265     msiobj_release( &rec->hdr );
 266
 267     return ERROR_SUCCESS;
 268 }
 269
 270 UINT MSI_RecordSetInteger( MSIRECORD *rec, UINT iField, int iVal )
 271 {
 272     TRACE("%p %u %d\n", rec, iField, iVal);
 273
 274     if( iField > rec->count )
 275         return ERROR_INVALID_PARAMETER;
 276
 277     MSI_FreeField( &rec->fields[iField] );
 278     rec->fields[iField].type = MSIFIELD_INT;
 279     rec->fields[iField].u.iVal = iVal;
 280
 281     return ERROR_SUCCESS;
 282 }
 283
 284 UINT WINAPI MsiRecordSetInteger( MSIHANDLE handle, UINT iField, int iVal )
 285 {
 286     MSIRECORD *rec;
 287     UINT ret;
 288
 289     TRACE("%d %u %d\n", handle, iField, iVal);
 290
 291     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 292     if( !rec )
 293         return ERROR_INVALID_HANDLE;
 294
 295     msiobj_lock( &rec->hdr );
 296     ret = MSI_RecordSetInteger( rec, iField, iVal );
 297     msiobj_unlock( &rec->hdr );
 298     msiobj_release( &rec->hdr );
 299     return ret;
 300 }
 301
 302 BOOL MSI_RecordIsNull( MSIRECORD *rec, UINT iField )
 303 {
 304     BOOL r = TRUE;
 305
 306     TRACE("%p %d\n", rec, iField );
 307
 308     r = ( iField > rec->count ) ||
 309         ( rec->fields[iField].type == MSIFIELD_NULL );
 310
 311     return r;
 312 }
 313
 314 BOOL WINAPI MsiRecordIsNull( MSIHANDLE handle, UINT iField )
 315 {
 316     MSIRECORD *rec;
 317     UINT ret;
 318
 319     TRACE("%d %d\n", handle, iField );
 320
 321     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 322     if( !rec )
 323         return 0;
 324     msiobj_lock( &rec->hdr );
 325     ret = MSI_RecordIsNull( rec, iField );
 326     msiobj_unlock( &rec->hdr );
 327     msiobj_release( &rec->hdr );
 328     return ret;
 329
 330 }
 331
 332 UINT MSI_RecordGetStringA(MSIRECORD *rec, UINT iField,
 333                LPSTR szValue, LPDWORD pcchValue)
 334 {
 335     UINT len=0, ret;
 336     CHAR buffer[16];
 337
 338     TRACE("%p %d %p %p\n", rec, iField, szValue, pcchValue);
 339
 340     if( iField > rec->count )
 341     {
 342         if ( szValue && *pcchValue > 0 )
 343             szValue[0] = 0;
 344
 345         *pcchValue = 0;
 346         return ERROR_SUCCESS;
 347     }
 348
 349     ret = ERROR_SUCCESS;
 350     switch( rec->fields[iField].type )
 351     {
 352     case MSIFIELD_INT:
 353         wsprintfA(buffer, "%d", rec->fields[iField].u.iVal);
 354         len = lstrlenA( buffer );
 355         if (szValue)
 356             lstrcpynA(szValue, buffer, *pcchValue);
 357         break;
 358     case MSIFIELD_WSTR:
 359         len = WideCharToMultiByte( CP_ACP, 0, rec->fields[iField].u.szwVal, -1,
 360                              NULL, 0 , NULL, NULL);
 361         if (szValue)
 362             WideCharToMultiByte( CP_ACP, 0, rec->fields[iField].u.szwVal, -1,
 363                                  szValue, *pcchValue, NULL, NULL);
 364         if( szValue && *pcchValue && len>*pcchValue )
 365             szValue[*pcchValue-1] = 0;
 366         if( len )
 367             len--;
 368         break;
 369     case MSIFIELD_NULL:
 370         if( szValue && *pcchValue > 0 )
 371             szValue[0] = 0;
 372         break;
 373     default:
 374         ret = ERROR_INVALID_PARAMETER;
 375         break;
 376     }
 377
 378     if( szValue && *pcchValue <= len )
 379         ret = ERROR_MORE_DATA;
 380     *pcchValue = len;
 381
 382     return ret;
 383 }
 384
 385 UINT WINAPI MsiRecordGetStringA(MSIHANDLE handle, UINT iField,
 386                LPSTR szValue, LPDWORD pcchValue)
 387 {
 388     MSIRECORD *rec;
 389     UINT ret;
 390
 391     TRACE("%d %d %p %p\n", handle, iField, szValue, pcchValue);
 392
 393     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 394     if( !rec )
 395         return ERROR_INVALID_HANDLE;
 396     msiobj_lock( &rec->hdr );
 397     ret = MSI_RecordGetStringA( rec, iField, szValue, pcchValue);
 398     msiobj_unlock( &rec->hdr );
 399     msiobj_release( &rec->hdr );
 400     return ret;
 401 }
 402
 403 const WCHAR *MSI_RecordGetString( const MSIRECORD *rec, UINT iField )
 404 {
 405     if( iField > rec->count )
 406         return NULL;
 407
 408     if( rec->fields[iField].type != MSIFIELD_WSTR )
 409         return NULL;
 410
 411     return rec->fields[iField].u.szwVal;
 412 }
 413
 414 UINT MSI_RecordGetStringW(MSIRECORD *rec, UINT iField,
 415                LPWSTR szValue, LPDWORD pcchValue)
 416 {
 417     UINT len=0, ret;
 418     WCHAR buffer[16];
 419     static const WCHAR szFormat[] = { '%','d',0 };
 420
 421     TRACE("%p %d %p %p\n", rec, iField, szValue, pcchValue);
 422
 423     if( iField > rec->count )
 424     {
 425         if ( szValue && *pcchValue > 0 )
 426             szValue[0] = 0;
 427
 428         *pcchValue = 0;
 429         return ERROR_SUCCESS;
 430     }
 431
 432     ret = ERROR_SUCCESS;
 433     switch( rec->fields[iField].type )
 434     {
 435     case MSIFIELD_INT:
 436         wsprintfW(buffer, szFormat, rec->fields[iField].u.iVal);
 437         len = lstrlenW( buffer );
 438         if (szValue)
 439             lstrcpynW(szValue, buffer, *pcchValue);
 440         break;
 441     case MSIFIELD_WSTR:
 442         len = lstrlenW( rec->fields[iField].u.szwVal );
 443         if (szValue)
 444             lstrcpynW(szValue, rec->fields[iField].u.szwVal, *pcchValue);
 445         break;
 446     case MSIFIELD_NULL:
 447         if( szValue && *pcchValue > 0 )
 448             szValue[0] = 0;
 449     default:
 450         break;
 451     }
 452
 453     if( szValue && *pcchValue <= len )
 454         ret = ERROR_MORE_DATA;
 455     *pcchValue = len;
 456
 457     return ret;
 458 }
 459
 460 UINT WINAPI MsiRecordGetStringW(MSIHANDLE handle, UINT iField,
 461                LPWSTR szValue, LPDWORD pcchValue)
 462 {
 463     MSIRECORD *rec;
 464     UINT ret;
 465
 466     TRACE("%d %d %p %p\n", handle, iField, szValue, pcchValue);
 467
 468     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 469     if( !rec )
 470         return ERROR_INVALID_HANDLE;
 471
 472     msiobj_lock( &rec->hdr );
 473     ret = MSI_RecordGetStringW( rec, iField, szValue, pcchValue );
 474     msiobj_unlock( &rec->hdr );
 475     msiobj_release( &rec->hdr );
 476     return ret;
 477 }
 478
 479 static UINT msi_get_stream_size( IStream *stm )
 480 {
 481     STATSTG stat;
 482     HRESULT r;
 483
 484     r = IStream_Stat( stm, &stat, STATFLAG_NONAME );
 485     if( FAILED(r) )
 486         return 0;
 487     return stat.cbSize.QuadPart;
 488 }
 489
 490 static UINT MSI_RecordDataSize(MSIRECORD *rec, UINT iField)
 491 {
 492     TRACE("%p %d\n", rec, iField);
 493
 494     if( iField > rec->count )
 495         return 0;
 496
 497     switch( rec->fields[iField].type )
 498     {
 499     case MSIFIELD_INT:
 500         return sizeof (INT);
 501     case MSIFIELD_WSTR:
 502         return lstrlenW( rec->fields[iField].u.szwVal );
 503     case MSIFIELD_NULL:
 504         break;
 505     case MSIFIELD_STREAM:
 506         return msi_get_stream_size( rec->fields[iField].u.stream );
 507     }
 508     return 0;
 509 }
 510
 511 UINT WINAPI MsiRecordDataSize(MSIHANDLE handle, UINT iField)
 512 {
 513     MSIRECORD *rec;
 514     UINT ret;
 515
 516     TRACE("%d %d\n", handle, iField);
 517
 518     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 519     if( !rec )
 520         return 0;
 521     msiobj_lock( &rec->hdr );
 522     ret = MSI_RecordDataSize( rec, iField);
 523     msiobj_unlock( &rec->hdr );
 524     msiobj_release( &rec->hdr );
 525     return ret;
 526 }
 527
 528 static UINT MSI_RecordSetStringA( MSIRECORD *rec, UINT iField, LPCSTR szValue )
 529 {
 530     LPWSTR str;
 531
 532     TRACE("%p %d %s\n", rec, iField, debugstr_a(szValue));
 533
 534     if( iField > rec->count )
 535         return ERROR_INVALID_FIELD;
 536
 537     MSI_FreeField( &rec->fields[iField] );
 538     if( szValue && szValue[0] )
 539     {
 540         str = strdupAtoW( szValue );
 541         rec->fields[iField].type = MSIFIELD_WSTR;
 542         rec->fields[iField].u.szwVal = str;
 543     }
 544     else
 545     {
 546         rec->fields[iField].type = MSIFIELD_NULL;
 547         rec->fields[iField].u.szwVal = NULL;
 548     }
 549
 550     return 0;
 551 }
 552
 553 UINT WINAPI MsiRecordSetStringA( MSIHANDLE handle, UINT iField, LPCSTR szValue )
 554 {
 555     MSIRECORD *rec;
 556     UINT ret;
 557
 558     TRACE("%d %d %s\n", handle, iField, debugstr_a(szValue));
 559
 560     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 561     if( !rec )
 562         return ERROR_INVALID_HANDLE;
 563     msiobj_lock( &rec->hdr );
 564     ret = MSI_RecordSetStringA( rec, iField, szValue );
 565     msiobj_unlock( &rec->hdr );
 566     msiobj_release( &rec->hdr );
 567     return ret;
 568 }
 569
 570 UINT MSI_RecordSetStringW( MSIRECORD *rec, UINT iField, LPCWSTR szValue )
 571 {
 572     LPWSTR str;
 573
 574     TRACE("%p %d %s\n", rec, iField, debugstr_w(szValue));
 575
 576     if( iField > rec->count )
 577         return ERROR_INVALID_FIELD;
 578
 579     MSI_FreeField( &rec->fields[iField] );
 580
 581     if( szValue && szValue[0] )
 582     {
 583         str = strdupW( szValue );
 584         rec->fields[iField].type = MSIFIELD_WSTR;
 585         rec->fields[iField].u.szwVal = str;
 586     }
 587     else
 588     {
 589         rec->fields[iField].type = MSIFIELD_NULL;
 590         rec->fields[iField].u.szwVal = NULL;
 591     }
 592
 593     return 0;
 594 }
 595
 596 UINT WINAPI MsiRecordSetStringW( MSIHANDLE handle, UINT iField, LPCWSTR szValue )
 597 {
 598     MSIRECORD *rec;
 599     UINT ret;
 600
 601     TRACE("%d %d %s\n", handle, iField, debugstr_w(szValue));
 602
 603     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 604     if( !rec )
 605         return ERROR_INVALID_HANDLE;
 606
 607     msiobj_lock( &rec->hdr );
 608     ret = MSI_RecordSetStringW( rec, iField, szValue );
 609     msiobj_unlock( &rec->hdr );
 610     msiobj_release( &rec->hdr );
 611     return ret;
 612 }
 613
 614 /* read the data in a file into an IStream */
 615 static UINT RECORD_StreamFromFile(LPCWSTR szFile, IStream **pstm)
 616 {
 617     DWORD sz, szHighWord = 0, read;
 618     HANDLE handle;
 619     HGLOBAL hGlob = 0;
 620     HRESULT hr;
 621     ULARGE_INTEGER ulSize;
 622
 623     TRACE("reading %s\n", debugstr_w(szFile));
 624
 625     /* read the file into memory */
 626     handle = CreateFileW(szFile, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
 627     if( handle == INVALID_HANDLE_VALUE )
 628         return GetLastError();
 629     sz = GetFileSize(handle, &szHighWord);
 630     if( sz != INVALID_FILE_SIZE && szHighWord == 0 )
 631     {
 632         hGlob = GlobalAlloc(GMEM_FIXED, sz);
 633         if( hGlob )
 634         {
 635             BOOL r = ReadFile(handle, hGlob, sz, &read, NULL);
 636             if( !r )
 637             {
 638                 GlobalFree(hGlob);
 639                 hGlob = 0;
 640             }
 641         }
 642     }
 643     CloseHandle(handle);
 644     if( !hGlob )
 645         return ERROR_FUNCTION_FAILED;
 646
 647     /* make a stream out of it, and set the correct file size */
 648     hr = CreateStreamOnHGlobal(hGlob, TRUE, pstm);
 649     if( FAILED( hr ) )
 650     {
 651         GlobalFree(hGlob);
 652         return ERROR_FUNCTION_FAILED;
 653     }
 654
 655     /* set the correct size - CreateStreamOnHGlobal screws it up */
 656     ulSize.QuadPart = sz;
 657     IStream_SetSize(*pstm, ulSize);
 658
 659     TRACE("read %s, %d bytes into IStream %p\n", debugstr_w(szFile), sz, *pstm);
 660
 661     return ERROR_SUCCESS;
 662 }
 663
 664 UINT MSI_RecordSetStream(MSIRECORD *rec, UINT iField, IStream *stream)
 665 {
 666     if ( (iField == 0) || (iField > rec->count) )
 667         return ERROR_INVALID_PARAMETER;
 668
 669     MSI_FreeField( &rec->fields[iField] );
 670     rec->fields[iField].type = MSIFIELD_STREAM;
 671     rec->fields[iField].u.stream = stream;
 672
 673     return ERROR_SUCCESS;
 674 }
 675
 676 UINT MSI_RecordSetStreamFromFileW(MSIRECORD *rec, UINT iField, LPCWSTR szFilename)
 677 {
 678     IStream *stm = NULL;
 679     HRESULT r;
 680
 681     if( (iField == 0) || (iField > rec->count) )
 682         return ERROR_INVALID_PARAMETER;
 683
 684     /* no filename means we should seek back to the start of the stream */
 685     if( !szFilename )
 686     {
 687         LARGE_INTEGER ofs;
 688         ULARGE_INTEGER cur;
 689
 690         if( rec->fields[iField].type != MSIFIELD_STREAM )
 691             return ERROR_INVALID_FIELD;
 692
 693         stm = rec->fields[iField].u.stream;
 694         if( !stm )
 695             return ERROR_INVALID_FIELD;
 696
 697         ofs.QuadPart = 0;
 698         r = IStream_Seek( stm, ofs, STREAM_SEEK_SET, &cur );
 699         if( FAILED( r ) )
 700             return ERROR_FUNCTION_FAILED;
 701     }
 702     else
 703     {
 704         /* read the file into a stream and save the stream in the record */
 705         r = RECORD_StreamFromFile(szFilename, &stm);
 706         if( r != ERROR_SUCCESS )
 707             return r;
 708
 709         /* if all's good, store it in the record */
 710         MSI_RecordSetStream(rec, iField, stm);
 711     }
 712
 713     return ERROR_SUCCESS;
 714 }
 715
 716 UINT WINAPI MsiRecordSetStreamA(MSIHANDLE hRecord, UINT iField, LPCSTR szFilename)
 717 {
 718     LPWSTR wstr = NULL;
 719     UINT ret;
 720
 721     TRACE("%d %d %s\n", hRecord, iField, debugstr_a(szFilename));
 722
 723     if( szFilename )
 724     {
 725         wstr = strdupAtoW( szFilename );
 726         if( !wstr )
 727              return ERROR_OUTOFMEMORY;
 728     }
 729     ret = MsiRecordSetStreamW(hRecord, iField, wstr);
 730     msi_free(wstr);
 731
 732     return ret;
 733 }
 734
 735 UINT WINAPI MsiRecordSetStreamW(MSIHANDLE handle, UINT iField, LPCWSTR szFilename)
 736 {
 737     MSIRECORD *rec;
 738     UINT ret;
 739
 740     TRACE("%d %d %s\n", handle, iField, debugstr_w(szFilename));
 741
 742     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 743     if( !rec )
 744         return ERROR_INVALID_HANDLE;
 745
 746     msiobj_lock( &rec->hdr );
 747     ret = MSI_RecordSetStreamFromFileW( rec, iField, szFilename );
 748     msiobj_unlock( &rec->hdr );
 749     msiobj_release( &rec->hdr );
 750     return ret;
 751 }
 752
 753 UINT MSI_RecordReadStream(MSIRECORD *rec, UINT iField, char *buf, LPDWORD sz)
 754 {
 755     ULONG count;
 756     HRESULT r;
 757     IStream *stm;
 758
 759     TRACE("%p %d %p %p\n", rec, iField, buf, sz);
 760
 761     if( !sz )
 762         return ERROR_INVALID_PARAMETER;
 763
 764     if( iField > rec->count)
 765         return ERROR_INVALID_PARAMETER;
 766
 767     if ( rec->fields[iField].type == MSIFIELD_NULL )
 768     {
 769         *sz = 0;
 770         return ERROR_INVALID_DATA;
 771     }
 772
 773     if( rec->fields[iField].type != MSIFIELD_STREAM )
 774         return ERROR_INVALID_DATATYPE;
 775
 776     stm = rec->fields[iField].u.stream;
 777     if( !stm )
 778         return ERROR_INVALID_PARAMETER;
 779
 780     /* if there's no buffer pointer, calculate the length to the end */
 781     if( !buf )
 782     {
 783         LARGE_INTEGER ofs;
 784         ULARGE_INTEGER end, cur;
 785
 786         ofs.QuadPart = cur.QuadPart = 0;
 787         end.QuadPart = 0;
 788         r = IStream_Seek( stm, ofs, STREAM_SEEK_SET, &cur );
 789         IStream_Seek( stm, ofs, STREAM_SEEK_END, &end );
 790         ofs.QuadPart = cur.QuadPart;
 791         IStream_Seek( stm, ofs, STREAM_SEEK_SET, &cur );
 792         *sz = end.QuadPart - cur.QuadPart;
 793
 794         return ERROR_SUCCESS;
 795     }
 796
 797     /* read the data */
 798     count = 0;
 799     r = IStream_Read( stm, buf, *sz, &count );
 800     if( FAILED( r ) )
 801     {
 802         *sz = 0;
 803         return ERROR_FUNCTION_FAILED;
 804     }
 805
 806     *sz = count;
 807
 808     return ERROR_SUCCESS;
 809 }
 810
 811 UINT WINAPI MsiRecordReadStream(MSIHANDLE handle, UINT iField, char *buf, LPDWORD sz)
 812 {
 813     MSIRECORD *rec;
 814     UINT ret;
 815
 816     TRACE("%d %d %p %p\n", handle, iField, buf, sz);
 817
 818     rec = msihandle2msiinfo( handle, MSIHANDLETYPE_RECORD );
 819     if( !rec )
 820         return ERROR_INVALID_HANDLE;
 821     msiobj_lock( &rec->hdr );
 822     ret = MSI_RecordReadStream( rec, iField, buf, sz );
 823     msiobj_unlock( &rec->hdr );
 824     msiobj_release( &rec->hdr );
 825     return ret;
 826 }
 827
 828 UINT MSI_RecordSetIStream( MSIRECORD *rec, UINT iField, IStream *stm )
 829 {
 830     TRACE("%p %d %p\n", rec, iField, stm);
 831
 832     if( iField > rec->count )
 833         return ERROR_INVALID_FIELD;
 834
 835     MSI_FreeField( &rec->fields[iField] );
 836
 837     rec->fields[iField].type = MSIFIELD_STREAM;
 838     rec->fields[iField].u.stream = stm;
 839     IStream_AddRef( stm );
 840
 841     return ERROR_SUCCESS;
 842 }
 843
 844 UINT MSI_RecordGetIStream( MSIRECORD *rec, UINT iField, IStream **pstm)
 845 {
 846     TRACE("%p %d %p\n", rec, iField, pstm);
 847
 848     if( iField > rec->count )
 849         return ERROR_INVALID_FIELD;
 850
 851     if( rec->fields[iField].type != MSIFIELD_STREAM )
 852         return ERROR_INVALID_FIELD;
 853
 854     *pstm = rec->fields[iField].u.stream;
 855     IStream_AddRef( *pstm );
 856
 857     return ERROR_SUCCESS;
 858 }
 859
 860 static UINT msi_dump_stream_to_file( IStream *stm, LPCWSTR name )
 861 {
 862     ULARGE_INTEGER size;
 863     LARGE_INTEGER pos;
 864     IStream *out;
 865     DWORD stgm;
 866     HRESULT r;
 867
 868     stgm = STGM_READWRITE | STGM_SHARE_EXCLUSIVE | STGM_FAILIFTHERE;
 869     r = SHCreateStreamOnFileW( name, stgm, &out );
 870     if( FAILED( r ) )
 871         return ERROR_FUNCTION_FAILED;
 872
 873     pos.QuadPart = 0;
 874     r = IStream_Seek( stm, pos, STREAM_SEEK_END, &size );
 875     if( FAILED( r ) )
 876         goto end;
 877
 878     pos.QuadPart = 0;
 879     r = IStream_Seek( stm, pos, STREAM_SEEK_SET, NULL );
 880     if( FAILED( r ) )
 881         goto end;
 882
 883     r = IStream_CopyTo( stm, out, size, NULL, NULL );
 884
 885 end:
 886     IStream_Release( out );
 887     if( FAILED( r ) )
 888         return ERROR_FUNCTION_FAILED;
 889     return ERROR_SUCCESS;
 890 }
 891
 892 UINT MSI_RecordStreamToFile( MSIRECORD *rec, UINT iField, LPCWSTR name )
 893 {
 894     IStream *stm = NULL;
 895     UINT r;
 896
 897     TRACE("%p %u %s\n", rec, iField, debugstr_w(name));
 898
 899     msiobj_lock( &rec->hdr );
 900
 901     r = MSI_RecordGetIStream( rec, iField, &stm );
 902     if( r == ERROR_SUCCESS )
 903     {
 904         r = msi_dump_stream_to_file( stm, name );
 905         IStream_Release( stm );
 906     }
 907
 908     msiobj_unlock( &rec->hdr );
 909
 910     return r;
 911 }
 912
 913 MSIRECORD *MSI_CloneRecord(MSIRECORD *rec)
 914 {
 915     MSIRECORD *clone;
 916     UINT r, i, count;
 917
 918     count = MSI_RecordGetFieldCount(rec);
 919     clone = MSI_CreateRecord(count);
 920     if (!clone)
 921         return NULL;
 922
 923     for (i = 0; i <= count; i++)
 924     {
 925         if (rec->fields[i].type == MSIFIELD_STREAM)
 926         {
 927             if (FAILED(IStream_Clone(rec->fields[i].u.stream,
 928                                      &clone->fields[i].u.stream)))
 929             {
 930                 msiobj_release(&clone->hdr);
 931                 return NULL;
 932             }
 933             clone->fields[i].type = MSIFIELD_STREAM;
 934         }
 935         else
 936         {
 937             r = MSI_RecordCopyField(rec, i, clone, i);
 938             if (r != ERROR_SUCCESS)
 939             {
 940                 msiobj_release(&clone->hdr);
 941                 return NULL;
 942             }
 943         }
 944     }
 945
 946     return clone;
 947 }
 948
 949 BOOL MSI_RecordsAreEqual(MSIRECORD *a, MSIRECORD *b)
 950 {
 951     UINT i;
 952
 953     if (a->count != b->count)
 954         return FALSE;
 955
 956     for (i = 0; i <= a->count; i++)
 957     {
 958         if (a->fields[i].type != b->fields[i].type)
 959             return FALSE;
 960
 961         switch (a->fields[i].type)
 962         {
 963             case MSIFIELD_NULL:
 964                 break;
 965
 966             case MSIFIELD_INT:
 967                 if (a->fields[i].u.iVal != b->fields[i].u.iVal)
 968                     return FALSE;
 969                 break;
 970
 971             case MSIFIELD_WSTR:
 972                 if (lstrcmpW(a->fields[i].u.szwVal, b->fields[i].u.szwVal))
 973                     return FALSE;
 974                 break;
 975
 976             case MSIFIELD_STREAM:
 977             default:
 978                 return FALSE;
 979         }
 980     }
 981
 982     return TRUE;
 983 }