forks
/
arsd
mirror of https://github.com/adamdruppe/arsd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

com.d: Fix/improve toComVariant

This commit is contained in:
Dennis Korpel 2024-07-08 13:51:08 +02:00
parent 292309541a
commit 9140831a5a
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
com.d
View File

@ -652,23 +652,26 @@ VARIANT toComVariant(T)(T arg) {
static if(is(T : VARIANT)) {
ret = arg;
} else static if(is(T : ComClient!(Dynamic, IDispatch))) {
ret.vt = 9;
ret.vt = VARENUM.VT_DISPATCH;
ret.pdispVal = arg.innerComObject_;
} else static if(is(T : ComProperty)) {
ret = arg._fetchProperty();
} else static if (is(T : ComResult)) {
ret = arg.result;
} else static if(is(T : IDispatch)) {
ret.vt = VARENUM.VT_DISPATCH;
ret.pdispVal = arg;
} else static if(is(T : int)) {
ret.vt = 3;
ret.vt = VARENUM.VT_I4;
ret.intVal = arg;
} else static if(is(T : long)) {
ret.vt = 20;
ret.hVal = arg;
ret.vt = VARENUM.VT_I8;
ret.llVal = arg;
} else static if(is(T : double)) {
ret.vt = 5;
ret.vt = VARENUM.VT_R8;
ret.dblVal = arg;
} else static if(is(T : const(char)[])) {
ret.vt = 8;
ret.vt = VARENUM.VT_BSTR;
import std.utf;
ret.bstrVal = SysAllocString(toUTFz!(wchar*)(arg));
} else static if (is(T : E[], E)) {