You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
509 lines
14 KiB
509 lines
14 KiB
//
|
|
// Copyright 2001 - Microsoft Corporation
|
|
//
|
|
//
|
|
// Created By:
|
|
// Geoff Pease (GPease) 30-JAN-2001
|
|
//
|
|
// Maintained By:
|
|
// Geoff Pease (GPease) 30-JAN-2001
|
|
//
|
|
#include "pch.h"
|
|
#include "propvar.h"
|
|
#pragma hdrstop
|
|
|
|
//
|
|
// Description:
|
|
// Since there isn't a PropVariantChangeType() API, we have to create our
|
|
// own string conversion routine.
|
|
//
|
|
// Return Values:
|
|
// S_OK
|
|
// Success!
|
|
//
|
|
// E_POINTER
|
|
// pvarIn is NULL.
|
|
//
|
|
// OLE_E_CANTCONVERT
|
|
// Conversion of string to a particular type failed.
|
|
//
|
|
// HRESULT_FROM_WIN32(ERROR_INVALID_DATA)
|
|
// Unknown or invalid type - If the type is valid, then the function
|
|
// needs to be modified to handle this type.
|
|
//
|
|
// E_NOTIMPL
|
|
// Purposely not implemented type.
|
|
//
|
|
// other HRESULTs.
|
|
//
|
|
HRESULT
|
|
PropVariantFromString(
|
|
LPWSTR pszTextIn
|
|
, UINT nCodePageIn
|
|
, ULONG dwFlagsIn
|
|
, VARTYPE vtSaveIn
|
|
, PROPVARIANT * pvarIn
|
|
)
|
|
{
|
|
TraceFunc( "" );
|
|
|
|
HRESULT hr = HRESULT_FROM_WIN32(ERROR_INVALID_DATA);
|
|
LCID lcid = GetUserDefaultLCID();
|
|
|
|
if ( NULL == pvarIn )
|
|
goto InvalidPointer;
|
|
|
|
THR( PropVariantClear( pvarIn ) );
|
|
|
|
// some strings are allowed
|
|
// to have an empty string
|
|
// otherwise we need to fail on empty
|
|
if ( ( NULL != pszTextIn )
|
|
&& ( ( 0 != *pszTextIn ) || ( VT_BSTR == vtSaveIn ) || ( VT_LPWSTR == vtSaveIn ) )
|
|
)
|
|
{
|
|
switch( vtSaveIn )
|
|
{
|
|
case VT_EMPTY:
|
|
case VT_NULL:
|
|
case VT_ILLEGAL:
|
|
break;
|
|
|
|
case VT_UI1:
|
|
hr = THR( VarUI1FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->bVal ) );
|
|
break;
|
|
|
|
case VT_I2:
|
|
hr = THR( VarI2FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->iVal ) );
|
|
break;
|
|
|
|
case VT_UI2:
|
|
hr = THR( VarUI2FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->uiVal ) );
|
|
break;
|
|
|
|
case VT_BOOL:
|
|
hr = THR( VarBoolFromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->boolVal ) );
|
|
break;
|
|
|
|
case VT_I4:
|
|
hr = THR( VarI4FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->lVal ) );
|
|
break;
|
|
|
|
case VT_UI4:
|
|
hr = THR( VarUI4FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->ulVal ) );
|
|
break;
|
|
|
|
case VT_R4:
|
|
hr = THR( VarR4FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->fltVal ) );
|
|
break;
|
|
|
|
case VT_ERROR:
|
|
hr = THR( VarI4FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->scode ) );
|
|
break;
|
|
|
|
//case VT_I8:
|
|
// return _i64tot(hVal.QuadPart, pszBuf, 10);
|
|
|
|
//case VT_UI8:
|
|
// return _ui64tot(hVal.QuadPart, pszBuf, 10);
|
|
|
|
case VT_R8:
|
|
hr = THR( VarR8FromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->dblVal ) );
|
|
break;
|
|
|
|
case VT_CY:
|
|
hr = THR( VarCyFromStr( pszTextIn, lcid, dwFlagsIn, &pvarIn->cyVal ) );
|
|
break;
|
|
|
|
case VT_DATE:
|
|
hr = THR( VarDateFromStr( pszTextIn, lcid, VAR_DATEVALUEONLY, &pvarIn->date) );
|
|
break;
|
|
|
|
case VT_FILETIME:
|
|
{
|
|
SYSTEMTIME st;
|
|
DATE d;
|
|
|
|
hr = THR( VarDateFromStr( pszTextIn, lcid, VAR_DATEVALUEONLY, &d ) );
|
|
if ( SUCCEEDED( hr ) )
|
|
{
|
|
BOOL bRet;
|
|
|
|
hr = OLE_E_CANTCONVERT;
|
|
|
|
bRet = TBOOL( VariantTimeToSystemTime( d, &st ) );
|
|
if ( bRet )
|
|
{
|
|
bRet = TBOOL( SystemTimeToFileTime( &st, &pvarIn->filetime ) );
|
|
if ( bRet )
|
|
{
|
|
hr = S_OK;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
|
|
case VT_CLSID:
|
|
{
|
|
CLSID clsid;
|
|
|
|
hr = THR( CLSIDFromString( pszTextIn, &clsid ) );
|
|
if ( SUCCEEDED( hr ) )
|
|
{
|
|
pvarIn->puuid = (CLSID*) CoTaskMemAlloc( sizeof(clsid) );
|
|
if ( NULL == pvarIn->puuid )
|
|
goto OutOfMemory;
|
|
|
|
*pvarIn->puuid = clsid;
|
|
hr = S_OK;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case VT_BSTR:
|
|
pvarIn->bstrVal = SysAllocString( pszTextIn );
|
|
if ( NULL == pvarIn->bstrVal )
|
|
goto OutOfMemory;
|
|
|
|
hr = S_OK;
|
|
break;
|
|
|
|
case VT_LPWSTR:
|
|
hr = SHStrDup( pszTextIn, &pvarIn->pwszVal );
|
|
break;
|
|
|
|
case VT_LPSTR:
|
|
{
|
|
DWORD cchRet;
|
|
DWORD cch = wcslen( pszTextIn ) + 1;
|
|
|
|
pvarIn->pszVal = (LPSTR) CoTaskMemAlloc( cch );
|
|
if ( NULL == pvarIn->pszVal )
|
|
goto OutOfMemory;
|
|
|
|
cchRet = WideCharToMultiByte( nCodePageIn, dwFlagsIn, pszTextIn, cch, pvarIn->pszVal, cch, 0, NULL );
|
|
if (( 0 == cchRet ) && ( 1 < cch ))
|
|
{
|
|
DWORD dwErr = TW32( GetLastError( ) );
|
|
hr = HRESULT_FROM_WIN32( dwErr );
|
|
CoTaskMemFree( pvarIn->pszVal );
|
|
pvarIn->pszVal = NULL;
|
|
goto Cleanup;
|
|
}
|
|
|
|
hr = S_OK;
|
|
}
|
|
break;
|
|
|
|
#ifdef DEBUG
|
|
case VT_VECTOR | VT_UI1:
|
|
//pvarIn->caub;
|
|
case VT_VECTOR | VT_I2:
|
|
//pvarIn->cai;
|
|
case VT_VECTOR | VT_UI2:
|
|
//pvarIn->caui;
|
|
case VT_VECTOR | VT_I4:
|
|
//pvarIn->cal;
|
|
case VT_VECTOR | VT_UI4:
|
|
//pvarIn->caul;
|
|
case VT_VECTOR | VT_I8:
|
|
//pvarIn->cah;
|
|
case VT_VECTOR | VT_UI8:
|
|
//pvarIn->cauh;
|
|
case VT_VECTOR | VT_R4:
|
|
//pvarIn->caflt;
|
|
case VT_VECTOR | VT_R8:
|
|
//pvarIn->cadbl;
|
|
case VT_VECTOR | VT_CY:
|
|
//pvarIn->cacy;
|
|
case VT_VECTOR | VT_DATE:
|
|
//pvarIn->cadate;
|
|
case VT_VECTOR | VT_BSTR:
|
|
//pvarIn->cabstr;
|
|
case VT_VECTOR | VT_BOOL:
|
|
//pvarIn->cabool;
|
|
case VT_VECTOR | VT_ERROR:
|
|
//pvarIn->cascode;
|
|
case VT_VECTOR | VT_LPSTR:
|
|
//pvarIn->calpstr;
|
|
case VT_VECTOR | VT_LPWSTR:
|
|
//pvarIn->calpwstr;
|
|
case VT_VECTOR | VT_FILETIME:
|
|
//pvarIn->cafiletime;
|
|
case VT_VECTOR | VT_CLSID:
|
|
//pvarIn->cauuid;
|
|
case VT_VECTOR | VT_CF:
|
|
//pvarIn->caclipdata;
|
|
case VT_VECTOR | VT_VARIANT:
|
|
//pvarIn->capropvar;
|
|
hr = THR( E_NOTIMPL );
|
|
|
|
// Illegal types for which to assign value from display text.
|
|
case VT_BLOB:
|
|
case VT_CF :
|
|
case VT_STREAM:
|
|
case VT_STORAGE:
|
|
#endif // DEBUG
|
|
|
|
// not handled
|
|
default:
|
|
hr = THR( HRESULT_FROM_WIN32(ERROR_INVALID_DATA) );
|
|
}
|
|
}
|
|
|
|
// set current VARTYPE always
|
|
if ( SUCCEEDED( hr ) )
|
|
{
|
|
pvarIn->vt = vtSaveIn;
|
|
}
|
|
|
|
Cleanup:
|
|
HRETURN( hr );
|
|
|
|
InvalidPointer:
|
|
hr = THR( E_POINTER );
|
|
goto Cleanup;
|
|
|
|
OutOfMemory:
|
|
hr = E_OUTOFMEMORY;
|
|
goto Cleanup;
|
|
}
|
|
|
|
//
|
|
// Description:
|
|
// Since there isn't a PropVariantChangeType() API, we have to create our
|
|
// own string conversion routine.
|
|
//
|
|
// Return Values:
|
|
// S_OK
|
|
// Success!
|
|
//
|
|
// E_POINTER
|
|
// pbstrOut is NULL.
|
|
//
|
|
// E_INVALIDARG
|
|
// ppropvarIn is NULL.
|
|
//
|
|
// HRESULT_FROM_WIN32(ERROR_INVALID_DATA)
|
|
// Unknown or invalid type - If the type is valid, then the function
|
|
// needs to be modified to handle this type.
|
|
//
|
|
// E_NOTIMPL
|
|
// Purposely not implemented type.
|
|
//
|
|
HRESULT
|
|
PropVariantToBSTR(
|
|
PROPVARIANT * pvarIn
|
|
, UINT nCodePageIn
|
|
, ULONG dwFlagsIn
|
|
, BSTR * pbstrOut
|
|
)
|
|
{
|
|
TraceFunc( "" );
|
|
|
|
HRESULT hr;
|
|
LCID lcid = GetUserDefaultLCID( );
|
|
|
|
//
|
|
// Check parameters
|
|
//
|
|
|
|
if ( NULL == pbstrOut )
|
|
goto InvalidPointer;
|
|
|
|
if ( NULL == pvarIn )
|
|
goto InvalidArg;
|
|
|
|
*pbstrOut = NULL;
|
|
|
|
switch ( pvarIn->vt )
|
|
{
|
|
case VT_UI1:
|
|
hr = THR( VarBstrFromUI1( pvarIn->bVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_I2:
|
|
hr = THR( VarBstrFromI2( pvarIn->iVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_UI2:
|
|
hr = THR( VarBstrFromUI2( pvarIn->uiVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_BOOL:
|
|
hr = THR( VarBstrFromBool( pvarIn->boolVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_I4:
|
|
hr = THR( VarBstrFromI4( pvarIn->lVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_UI4:
|
|
hr = THR( VarBstrFromUI4( pvarIn->ulVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_R4:
|
|
hr = THR( VarBstrFromR4( pvarIn->fltVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_ERROR:
|
|
hr = THR( VarBstrFromI4( pvarIn->scode, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
//case VT_I8:
|
|
// return _i64tot(hVal.QuadPart, pszBuf, 10); ????
|
|
|
|
//case VT_UI8:
|
|
// return _ui64tot(hVal.QuadPart, pszBuf, 10); ?????
|
|
|
|
case VT_R8:
|
|
hr = THR( VarBstrFromR8( pvarIn->dblVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_CY:
|
|
hr = THR( VarBstrFromCy( pvarIn->cyVal, lcid, dwFlagsIn, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_DATE:
|
|
hr = THR( VarBstrFromDate( pvarIn->date, lcid, VAR_DATEVALUEONLY, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_FILETIME:
|
|
{
|
|
BOOL bRet;
|
|
SYSTEMTIME st;
|
|
DATE d;
|
|
|
|
bRet = TBOOL( FileTimeToSystemTime( &pvarIn->filetime, &st ) );
|
|
if ( !bRet )
|
|
goto ErrorCantConvert;
|
|
|
|
bRet = TBOOL( SystemTimeToVariantTime( &st, &d ) );
|
|
if ( !bRet )
|
|
goto ErrorCantConvert;
|
|
|
|
hr = THR( VarBstrFromDate( d, lcid, VAR_DATEVALUEONLY, pbstrOut ) );
|
|
}
|
|
break;
|
|
|
|
case VT_CLSID:
|
|
hr = THR( StringFromCLSID( *pvarIn->puuid, pbstrOut ) );
|
|
break;
|
|
|
|
case VT_BSTR:
|
|
*pbstrOut = SysAllocString( pvarIn->bstrVal );
|
|
if ( NULL == *pbstrOut )
|
|
goto OutOfMemory;
|
|
|
|
hr = S_OK;
|
|
break;
|
|
|
|
case VT_LPWSTR:
|
|
*pbstrOut = SysAllocString( pvarIn->pwszVal );
|
|
if ( NULL == *pbstrOut )
|
|
goto OutOfMemory;
|
|
|
|
hr = S_OK;
|
|
break;
|
|
|
|
case VT_LPSTR:
|
|
{
|
|
DWORD cchRet;
|
|
DWORD cch = lstrlenA( pvarIn->pszVal );
|
|
|
|
*pbstrOut = SysAllocStringLen( NULL, cch );
|
|
if ( NULL == *pbstrOut )
|
|
goto OutOfMemory;
|
|
|
|
cchRet = MultiByteToWideChar( nCodePageIn, dwFlagsIn, pvarIn->pszVal, cch + 1, *pbstrOut, cch + 1 );
|
|
if (( 0 == cchRet ) && ( 0 != cch ))
|
|
{
|
|
DWORD dwErr = TW32( GetLastError( ) );
|
|
hr = HRESULT_FROM_WIN32( dwErr );
|
|
SysFreeString( *pbstrOut );
|
|
*pbstrOut = NULL;
|
|
goto Cleanup;
|
|
}
|
|
|
|
hr = S_OK;
|
|
}
|
|
break;
|
|
|
|
|
|
#ifdef DEBUG
|
|
case VT_VECTOR | VT_UI1:
|
|
//pvarIn->caub;
|
|
case VT_VECTOR | VT_I2:
|
|
//pvarIn->cai;
|
|
case VT_VECTOR | VT_UI2:
|
|
//pvarIn->caui;
|
|
case VT_VECTOR | VT_I4:
|
|
//pvarIn->cal;
|
|
case VT_VECTOR | VT_UI4:
|
|
//pvarIn->caul;
|
|
case VT_VECTOR | VT_I8:
|
|
//pvarIn->cah;
|
|
case VT_VECTOR | VT_UI8:
|
|
//pvarIn->cauh;
|
|
case VT_VECTOR | VT_R4:
|
|
//pvarIn->caflt;
|
|
case VT_VECTOR | VT_R8:
|
|
//pvarIn->cadbl;
|
|
case VT_VECTOR | VT_CY:
|
|
//pvarIn->cacy;
|
|
case VT_VECTOR | VT_DATE:
|
|
//pvarIn->cadate;
|
|
case VT_VECTOR | VT_BSTR:
|
|
//pvarIn->cabstr;
|
|
case VT_VECTOR | VT_BOOL:
|
|
//pvarIn->cabool;
|
|
case VT_VECTOR | VT_ERROR:
|
|
//pvarIn->cascode;
|
|
case VT_VECTOR | VT_LPSTR:
|
|
//pvarIn->calpstr;
|
|
case VT_VECTOR | VT_LPWSTR:
|
|
//pvarIn->calpwstr;
|
|
case VT_VECTOR | VT_FILETIME:
|
|
//pvarIn->cafiletime;
|
|
case VT_VECTOR | VT_CLSID:
|
|
//pvarIn->cauuid;
|
|
case VT_VECTOR | VT_CF:
|
|
//pvarIn->caclipdata;
|
|
case VT_VECTOR | VT_VARIANT:
|
|
//pvarIn->capropvar;
|
|
hr = THR( E_NOTIMPL );
|
|
|
|
// Illegal types for which to assign value from display text.
|
|
case VT_BLOB:
|
|
case VT_CF :
|
|
case VT_STREAM:
|
|
case VT_STORAGE:
|
|
#endif // DEBUG
|
|
|
|
case VT_EMPTY:
|
|
case VT_NULL:
|
|
case VT_ILLEGAL:
|
|
default:
|
|
hr = THR( HRESULT_FROM_WIN32(ERROR_INVALID_DATA) );
|
|
}
|
|
|
|
Cleanup:
|
|
HRETURN( hr );
|
|
|
|
InvalidPointer:
|
|
hr = THR( E_POINTER );
|
|
goto Cleanup;
|
|
|
|
InvalidArg:
|
|
hr = THR( E_INVALIDARG );
|
|
goto Cleanup;
|
|
|
|
ErrorCantConvert:
|
|
hr = OLE_E_CANTCONVERT;
|
|
goto Cleanup;
|
|
|
|
OutOfMemory:
|
|
hr = E_OUTOFMEMORY;
|
|
goto Cleanup;
|
|
}
|