Interface defs with array args issues

[fafalone]

This concerns defining the 2nd argument here as an example of the issue:

        virtual void STDMETHODCALLTYPE ClearRenderTargetView( 
            /* [annotation] */ 
            _In_  ID3D11RenderTargetView *pRenderTargetView,
            /* [annotation] */ 
            _In_  const FLOAT ColorRGBA[ 4 ]) = 0;

First, definitely a bug with it as defined like above in my oleexp.tlb typelib: The tB hover info and Object Browser incorrectly shows it as ByRef ColorRGBA As Single(). VB6 Object Browser shows the 0 To 3 presumably interpreting it right. This likely represents a compatibility issue.

Second I guess is a feature request to support definitions like this in the interface syntax? See my question about workarounds on Discord; it looks like it might be messy.

I'll have some more thoughts on this later after (hopefully) resolving the current prospects of a workaround.

[fafalone]

Well I settled this tonight.

VB6 displays it correct in the Object Browser but you cannot actually call it. Automation type not supported. So while it would be nice if tB supported it, this is now a feature request rather than a bug report/compatibility issue. The workaround currently applied in some WinDevLib instances (and imminently in the others when I post the fix) of defining a single ByRef instead of an array and passing values(0) works.

HOWEVER

I do think a bug is that tB does not recognize this as an error. I don't know what happens under the hood; but the function is called and the values not passed.

My C++ test DLL function (rather than spend hours figuring out how to get deep enough into Direct3D to call the original motiviation for this thread):

int __declspec (dllexport) __stdcall ArrayTest(_In_ FLOAT m[3])
{
    FLOAT m1 = m[0];
    FLOAT m2 = m[1];
    FLOAT m3 = m[2];
    wchar_t message[256];
    swprintf(message, sizeof(message) / sizeof(wchar_t),
        L"Value 1: %.2f\nValue 2: %.2f\nValue 3: %.2f", m1, m2, m3);

    return MessageBoxW(NULL, message, L"Values", MB_OK | MB_ICONINFORMATION);
}

with typelib (I just appended it to my Interlocked64 DLL project for convenience):

[
    uuid(e1575e81-cffc-45c1-94e8-42b7da5d4623),
    version(1.0)
]
library ArrayTest1 {
    importlib("stdole2.tlb");
[
    dllname("INTERLOCKED64.DLL")
]
module Interlocked64 {
	[entry("ArrayTest")]
	int ArrayTest([in] FLOAT m[3]);
}
}

In VB6 it's a trappable automation type not supported error box when calling that; in tB currently the call goes through but the MessageBox reports all values as 0 when they're not.

---

Here's all the sources for everything (modified DLL source, compiled DLL, TLB source, compiled TLB, and VB6+tB projects)

ArrayTest.zip