BorlandTalk.com

Bassam Abdul-Baki · Guest

Greetings,

We recently received a third-party OCX, written in Delphi, with very little
documentation. I need to use this OCX in Visual C++. What little
documentation that I have uses a function shown below. Could anyone show me
the MSVC equivalent of this function, I've tried using SafeArrays to
generate the equivalent, but the OCX returns an E_UNEXPECTED error each
time. Thanks.

Bassam

******************************************************
function EncodeSAStr(Values: array of string): OleVariant;
var Ind, High: Integer;
begin
High := Length(Values) - 1;
if (High >= 0) then
begin
Result := VarArrayCreate([0, High], varOleStr);
for Ind := 0 to High do
Result[Ind] := Values[Ind];
end;
end;