[PATCH 0/1] MR9380: ole32: Add support for writing VT_R8 property.

[JiangYi Chen (＠meshine)]

As shown in the figure below: CAD software needs to read and write VT_R8 properties.
![截图_选择区域_20251106134015](/uploads/ac217f9974abf513b1f3d7a0624d9e69/截图_选择区域_20251106134015.png)

Consistent with the reading of VT_R8 property in the propertystorage_read_scalar function, data of double type are not subjected to big-endian or little-endian conversion.

-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/9380

[PATCH 1/1] ole32: Add support for writing VT_R8 property.

[chenjiangyi]

From: chenjiangyi <chenjiangyi(a)uniontech.com>

Signed-off-by: chenjiangyi <chenjiangyi(a)uniontech.com>
---
 dlls/ole32/stg_prop.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/dlls/ole32/stg_prop.c b/dlls/ole32/stg_prop.c
index 111591a964d..0fe8ecc1840 100644
--- a/dlls/ole32/stg_prop.c
+++ b/dlls/ole32/stg_prop.c
@@ -2273,6 +2273,12 @@ static HRESULT PropertyStorage_WritePropertyToStream(PropertyStorage_impl *This,
         hr = IStream_Write(This->stm, &ularge, sizeof(ularge), &bytesWritten);
         break;
     }
+    case VT_R8:
+    {
+        hr = IStream_Write(This->stm, &var->dblVal, sizeof(var->dblVal), &count);
+        bytesWritten = count;
+        break;
+    }
     case VT_LPSTR:
     {
         if (This->codePage == CP_UNICODE)
-- 
GitLab

https://gitlab.winehq.org/wine/wine/-/merge_requests/9380