Using COMARRAY

[tryn2learn]

I'm trying to send an array of information from VFP 7.0 into a Delphi object. I believe that part of my problem is that Delphi uses zero based arrays. I have tried to use the following FoxPro code, which throws an error [Function argument value, type, or count is invalid] on the line which calls the method. I'm not the owner of the Delphi code (the COM object) and cannot change the way it is written. The Delphi code is requiring that the information is to be passed in as a parameter in an array. Here’s the FoxPro Code:

**********************************************************
initobj=CreateObject("MGSysInterfaceDef.MGSysInterface")
systemobj = GETINTERFACE(initobj,"MGSysData")

Dimension a_data[2]
a_data[1] = "Search Name"
a_data[2] = ".NULL."

comarray(systemobj,111)
systemobj.SetSysData(@a_data)
**********************************************************
I have tried 111, 101, 10, 11, 0 for the comarray statement, all have the same result.The odd thing is that if I remove the @ sign from the COMARRAY line, I don’t get the foxpro error; however the Delphi code doesn’t recognize the value sent from FoxPro. The Delphi method looks like the following:
**********************************************************

procedure MGSysInterface.SetSysData(Data: OleVariant);
var
I : Integer;
vTemp : OleVariant;

begin
try
FNamedSearch := VarToStr(Data[1]);
except
FNamedSearch := '';
end;

 

[craigsboyd]

Have you tried sending 110?

_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[tryn2learn]

Yes I just tried 110, the result is the same error 'Function argument value, type, or count is invalid'

 

[DSummZZZ]

Have you tried using:
a_data[2] = .NULL.

-or-

a_data[2] = CHR(0)

instead of a_data[2] = ".NULL." ?


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[tryn2learn]

Yes, unfortunately I have tried .NULL., chr(0), and ''. Still had no luck.

 

[tryn2learn]

Any other suggestions? I really need to get this to work & as far as I can tell from the help in VFP 7.0 it appears as though it should work.

 

[DSummZZZ]

I don't know if it will do you any good to read these threads, as far as a solutions goes, but they may offer some enlightenment. I see above you are using VFP 7 but I thought I would post them anyway:

URGENT: Class Association Cleared - Error:
thread184-767052

VFP 8.0 Bug:
thread184-773135

ComputeControlSize MonthView Control Problem
thread184-742345


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm