Object subclass: #TM1U
�� uses: TTM1ApiLibrary
�� instanceVariableNames: 'handle'
�� classVariableNames: ''
�� poolDictionaries: ''
�� category: 'Cognos-TM1-Api'

hmm.. why just don't subclass from NBExternalObject?

If you don't need to subclass from own base class, you can just subclass from
NBExternalObject, which means you already having handle ivar, and #asNBExternalType: inherited at class side, tested and working..?

So, try

NBFFICallout new resolveType: #TM1U

what it gives?

On 28 April 2014 23:44, Markus Fritsche <mfritsche@reauktion.de> wrote:

On 28.04.2014 13:30, Igor Stasenko wrote:
> This is strange.. should work fine. There's no way how
> NBExternalObjectType could return an instance of NBExternalHandle.
> Please check your code again.

Been there, done that => thrown everything away and restarted the code
from scratch... Sourcecode attached (the 32bit libraries are in the bin
subdirectory, there's another bin64 directory) - is there anything
obvious wrong with it?.

Workspace:
====================
TM1LibraryLoader loadTM1Library.

TM1Library tm1APIInitialize.
hUser := TM1Library tm1SystemOpen.
hPool1 := hUser tm1ValPoolCreate.
hPool1 inspect.
hUser tm1SystemClose.
TM1Library tm1APIFinalize.
====================

The Inspector I get shows
NBExternalHandle
self �� @ 16r74CF4A8
(apparently it's fine for TM1U, otherwise tm1ValPoolCreate wouldn't be
found)

could it be inspector screwed?

what
hPool1 class

gives?

��

>From the headers:

#define TM1API __stdcall
#ifndef TM1IMPORT
�� #define TM1IMPORT __declspec( dllimport )
#endif

typedef void �� * TM1U; �� // user ��handle
typedef void �� * TM1P; �� // pool ��handle
TM1IMPORT void TM1API TM1APIInitialize( void );
TM1IMPORT TM1U TM1API TM1SystemOpen( void );
TM1IMPORT TM1P TM1API TM1ValPoolCreate( TM1U hUser );

��i don't see where you are using stdcall calling convention option?

��you should specify it either in code:

self nbCallout

�� stdCall

�� function: #( TM1U�� TM1SystemOpen( ) ) module:

or in the class with callout, implementing

ffiCalloutOptions

^ #( + optStdcall )

(i think you can just put it into trait)

In order to debug further I will have to redo the Windows VM.

--
Best regards,
Igor Stasenko.