🚀 go-pugleaf

Mike Ruskai wrote:
> On Tue, 22 Apr 2003 14:18:46 -0400, Edward Diener wrote:
>
>> After picking up the Adoint::_di_Properties for a TADOConnection, I
>> try to get the count of the properties using the Count VCL property
>> of the collection. Compiles fine but when I link I get:
>>
>> "[Linker Error] Unresolved external 'System::__linkproc__ __fastcall
>> CheckAutoResult()' referenced from C:\PROGRAM
>> FILES\BORLAND\CBUILDER6\LIB\DEBUG\VCLE.LIB|syssupp"
>>
>> What import library do I have to add in order to resolve this linking
>> problem ?
>
> There is none.  That function was erroneously linked into a library by
> Borland, and is not included in the compiler.
>
> The workaround is to create it yourself, most usefully in a separate
> unit file that you can include in a project whenever the need arises:
>
> [file SysFix.h - name it anything you want]
> #ifndef SysFixH
> #define SysFixH
>
//--------------------------------------------------------------------------
-
>
> #include <windows.hpp>
>
> extern "C"
> {
> void __fastcall CheckSafecallResult(HRESULT hr);
> }
>
> #endif
>
> [file SysFix.cpp]
> #pragma hdrstop
> #include <ComObj.hpp>
>
> #include "SysFix.h"
>
> #pragma package(smart_init)
>
> namespace System
> {
>     void __fastcall CheckSafecallResult(HRESULT hr)
>     {
>     OleCheck(hr);
>     }
> }

That's fine but is not the same as the CheckSafecallResult() in syssupp.cpp.
I guess it will have to be good enough. I wonder, however, if it is not
possible to duplicate the CheckSafecallResult() in syssupp.cpp in another
file and call CheckAutoResult() using the correct name which the linker
accepts. Currently CheckSafecallResult() in syssupp.cpp looks like:

#pragma argsused
void __fastcall CheckSafecallResult(HRESULT hr)
{
asm
{
extrn @System@@CheckAutoResult$qqrv:near
call @System@@CheckAutoResult$qqrv
}
}

Perhaps changing the extrn identifier and call identifier in some way will
generate the correct linkage. I may play around with it in my own file, as
above, to find out rather than just calling OleCheck(hr) as above. At the
very worst I can always go back to just calling OleCheck(hr).