Microsoft KB Archive/171438
Article ID: 171438
Article Last Modified on 5/12/2003
- Microsoft Visual FoxPro 3.0 Standard Edition
- Microsoft Visual FoxPro 3.0b Standard Edition
- Microsoft Visual FoxPro 5.0 Standard Edition
- Microsoft Visual FoxPro 5.0a
- Microsoft Visual FoxPro 3.0b for Macintosh
This article was previously published under Q171438
Microsoft Visual FoxPro does not support passing arrays by reference to OLE objects.
This behavior is by design.
Steps to Reproduce Behavior
Place the following code in a program file and add the program file to a project named OLETest. Compile the project into an OLE DLL or EXE named OLETest.
DEFINE CLASS ARRAYTEST AS CUSTOM OLEPUBLIC NAME = "arraytest" PROCEDURE DOIT PARAMETER MYARRAY EXTERNAL ARRAY MYARRAY INSERT INTO foot (ONE,TWO,THREE,FOUR) VALUES ; (MYARRAY,MYARRAY,MYARRAY,MYARRAY) MYARRAY  = "100" MYARRAY  = "200" MYARRAY  = "300" MYARRAY  = "400" USE CURDIR() + "foot.dbf" INSERT INTO foot (ONE,TWO,THREE,FOUR) VALUES ; (MYARRAY,MYARRAY,MYARRAY,MYARRAY) ENDPROC PROCEDURE INIT SET UDFPARMS TO REFERENCE CREATE TABLE foot ; (ONE C(10),TWO C(10), THREE C(10), FOUR C(10)) ENDPROC ENDDEFINE
After the OLE file is compiled, run the following code:
CLEAR CLEAR ALL DIMENSION MYARRAY MYARRAY(1) = "1" MYARRAY(2) = "2" MYARRAY(3) = "3" MYARRAY(4) = "4" OX = CREATEOBJECT("OLEtest.arraytest") OX.DOIT(@MYARRAY) ?OX.Name ?"MyArray from Calling Program" DISPLAY MEMORY LIKE MYARRAY RELEASE OX RELEASE MYARRAY USE foot BROWSE NOWAIT
- Notice the first record of table "foot" contains the values placed in the array by the calling program. The second record contains the values PROCEDURE DOIT placed in the array. The DISPLAY MEMORY LIKE MYARRAY command, however, contains the original values of the array. Even though it appears that we are passing the array by reference to the OLE object, Microsoft Visual FoxPro is passing it by value.
Keywords: kbprb kbcode KB171438