ole32: Implement writing VT_CLSID properties.

This commit is contained in:
André Hentschel 2011-11-13 18:02:15 +01:00 committed by Alexandre Julliard
parent d9889cfd63
commit 09202ee949

View file

@ -1746,6 +1746,15 @@ static HRESULT PropertyStorage_WritePropertyToStream(PropertyStorage_impl *This,
bytesWritten = count + sizeof cf_hdr;
break;
}
case VT_CLSID:
{
CLSID temp;
StorageUtl_WriteGUID((BYTE *)&temp, 0, var->u.puuid);
hr = IStream_Write(This->stm, &temp, sizeof(temp), &count);
bytesWritten = count;
break;
}
default:
FIXME("unsupported type: %d\n", var->vt);
return STG_E_INVALIDPARAMETER;