Using ADOMD & Delphi 3.02 - Problem passing PSafeArray

steve borthwick

Delphi Developer

Wed, 20 Feb 2002 03:00:00 GMT

Using ADOMD & Delphi 3.02 - Problem passing PSafeArray

Hi,

Trying to use ADOMD with Delphi 3.02, need to use a function which is
defined in the TLB import as :-

"function Item(var idx: PSafeArray): Cell; safecall;"

In C++ this equates to

"Item( [in] SAFEARRAY(VARIANT)* idx, [out, retval] Cell** ppvObject);"

How do create the variable required in delphi and pass a pair of integer
values i.e. [1,1]. I have tried to use Variant arrays, as suggested in
previous threads on similar subjects, unfortunately all I get is an access
violation.

The purpose of the call is to retrieve a single "cell" value from an ADOMD
"cellset" object which already contains an array of values.

Help/Examples much appreciated..
Steve

Maynard Philbroo

Delphi Developer

Wed, 20 Feb 2002 03:00:00 GMT

Re:Using ADOMD & Delphi 3.02 - Problem passing PSafeArray

var
p:PsafeArray;
Begin
Getmem(p, 4);
Item(@P);

// This is gess.

Quote

steve borthwick wrote:
> Hi,

> Trying to use ADOMD with Delphi 3.02, need to use a function which is
> defined in the TLB import as :-

> "function Item(var idx: PSafeArray): Cell; safecall;"

> In C++ this equates to

> "Item( [in] SAFEARRAY(VARIANT)* idx, [out, retval] Cell** ppvObject);"

> How do create the variable required in delphi and pass a pair of integer
> values i.e. [1,1]. I have tried to use Variant arrays, as suggested in
> previous threads on similar subjects, unfortunately all I get is an access
> violation.

> The purpose of the call is to retrieve a single "cell" value from an ADOMD
> "cellset" object which already contains an array of values.

> Help/Examples much appreciated..
> Steve

Other Threads

1. Problem using MS Access tables with Delphi 3.02

2. Using pSafeArray to pass pixels to client

3. Delphi 3.02 & Foxpro Tables - No Apollo

4. Delphi 3.02 & SQL BDE error

5. Oracle 8 & Delphi 3.02

6. Delphi 3.02 & Automation

7. BCD Field using Delphi 3.02 and Oracle

8. Help using LOCATE with Delphi 3.02

9. RLINK32 error using MIDL-generated .tlb in Delphi 3.02

10. Using IStream's in Delphi 3.02