VarCmp invalid memory access (VARIANT)

[Rinzwind]

This c code (known to be working)

Code: Select all

	VARIANT a, b;
	a.vt = VT_BSTR;
	b.vt = VT_BSTR;
	a.bstrVal = SysAllocString(L"a");
	b.bstrVal = SysAllocString(L"b");
	HRESULT c = VarCmp(&a, &b, LOCALE_USER_DEFAULT, NORM_IGNORECASE);

Translated into PB (had to mention a full lib path because the one with PB gives linker error?)

Code: Select all

  Import "C:\Program Files (x86)\Windows Kits\10\Lib\10.0.17763.0\um\x64\OleAut32.lib"
    VarCmp(*lvar.VARIANT, *rvar.VARIANT, lcid.l, dwFlags.l)
  EndImport 
  
  
  Define  a.VARIANT, b.VARIANT
  a\vt = #VT_BSTR
  a\bstrVal = SysAllocString_("a")
  b\vt = #VT_BSTR
  b\bstrVal = SysAllocString_("b")
  
  Debug VarCmp(a, b, #LOCALE_USER_DEFAULT, #NORM_IGNORECASE)

Gives Invalid memory access. (read error at address...)

Whatsup?

[Rinzwind]

Interestingly, the 32 bit one in 32 bit PB does work...
Crying

Code: Select all

  Import "C:\Program Files (x86)\Windows Kits\10\Lib\10.0.17763.0\um\x86\OleAut32.lib"
    VarCmp(*lvar.VARIANT, *rvar.VARIANT, lcid.l, dwFlags.l)
  EndImport 
  
  
  Define  a.VARIANT, b.VARIANT
  a\vt = #VT_BSTR
  a\bstrVal = SysAllocString_("a")
  b\vt = #VT_BSTR
  b\bstrVal = SysAllocString_("b")
  
  Debug VarCmp(a, b, #LOCALE_USER_DEFAULT, #NORM_IGNORECASE)
  
  

So why 64 bit gives problems here...

tried also

Code: Select all

  Import "C:\Program Files (x86)\Windows Kits\10\Lib\10.0.17763.0\um\x64\OleAut32.lib"
    VarCmp(*lvar.p-variant, *rvar.p-variant, lcid.l, dwFlags.l)
  EndImport 
  
  
  Define  a.VARIANT, b.VARIANT
  a\vt = #VT_BSTR
  a\bstrVal = SysAllocString_("a")
  b\vt = #VT_BSTR
  b\bstrVal = SysAllocString_("b")
  
  Debug VarCmp(a, b, #LOCALE_USER_DEFAULT, #NORM_IGNORECASE)
  

[fryquez]

copy "C:\Program Files (x86)\Windows Kits\10\Lib\10.0.17763.0\um\x64\OleAut32.lib" to "PureLibraries\Windows\Libraries\" overwriting the old one.

[Rinzwind]

Well anyway, the alternative with openlibrary does seem to work... Just don't know why

Prototype VarCmp(*lvar.VARIANT, *rvar.VARIANT, lcid.l, dwFlags.l)
Global OleAut32 = OpenLibrary(#PB_Any, "OleAut32.dll")
Global VarCmp.VarCmp = GetFunction(OleAut32, "VarCmp")

[Rinzwind]

Ah copying to PB folder did also fix it indeed. Not sure why the full path is PARTLY ignored then... It does compile, just crashes at runtime... but does work in 32 bit PB...

[Fred]

May be the 2 .lib were linked hence an incompatibility

[mk-soft]

Use library from Pelles C.
I haven't tested it, but had already used the library of Pelles C for OleAut32.

https://www.pellesc.de