🚀 go-pugleaf

I'm accessing a function in a COM object which returns a SafeArray of 
Objects from Delphi 2007.
I'm having trouble getting any readable information.

Here are some excerpts from the type library:

  IZeacomMLI = interface(IDispatch)
    ['{BF0264BA-34FF-11D5-97CB-00E02915CAEC}']
    ...
    function GetAgentList: PSafeArray; safecall;
    ...
  end;

  IZeacomMLIDisp = dispinterface
    ['{BF0264BA-34FF-11D5-97CB-00E02915CAEC}']
    ...
    function GetAgentList: OleVariant; dispid 6;
    ...
  end;

When calling the function GetAgentList a SafeArray of Objects is 
supposed to be returned as follows:

-- AgentInfo Properties --
LoginID     Long Integer
FirstName   String
LastName    String

I'm able to get a count of items in the array,
but I don't know how to define the object so I can get information from 
it.

here is what I've done so far:

type
  TAgentInfo = packed record
    LoginID: Integer;
    First: WideString;
    Last: WideString;
  end;

..
procedure RetrieveAgents(I:IZeacomMLI);
var
  AL:PSafeArray;
  AREC:TAgentInfo;
  iLow,iHigh,p:integer;
begin
  AL := I.GetAgentList;
  SafeArrayGetLBound(AL,1,iLow);
  SafeArrayGetUBound(AL,1,iHigh);
  for p :=iLow to iHigh do
  begin
    getResult := SafeArrayGetElement(AL, p, AREC);
    ShowMessage(AREC.First);
    ShowMessage(AREC.Last);
  end;
end;

I get nothing but garbage from what I'm doing right now

Jim

--- posted by geoForum on http://delphi.newswhat.com