I have the following function declaration
(from the typelib) of an Automation server:
Declare Function DrawLine (ByVal startPoint As SAFEARRAY,
ByVal endPoint As SAFEARRAY) As USERDEFINED
This function is expecting two arrays, each containing
If I attempt to call this function from Delphi as shown here,
I get an OLESys error from the server (type mismatch):
p1, p2: variant;
x1, y1, z1, x2, y2, z2: double;
x1 := 2.0; y1 := 4.0; z1 := 6.0;
x2 := 3.0; y2 := 5.0; z2 := 7.0;
p1 := VarArrayOf([x1, y1, z1]);
p2 := VarArrayOf([x2, y2, z2]);
Does anyone know what the problem is here?
Please reply via email of possible.