VFP 愛用者社區

[stan007]

請教各位前輩先進
以下是在下寫的AA.DLL及BB.PRG內容
AA.DLL內容如下:
DEFINE CLASS TEST AS custom olepublic
FUNCTION AAA(ARR)
ARR[2] = 'B'
ENDFUNC
ENDDEFINE
----------------------
BB.PRG內容如下:
DIME XARR[2]
STOR 'A' TO XARR
CC = CREATEOBJECT('AA.TEST')
=CC.AAA(@XARR)
----------------------
理論上，執行後的XARR[2]結果應該等於'B'
但是XARR[2]卻依然保持'A'
若是將FUNCTION AAA寫在PRG裡，就一切正常
有哪位前輩先進能幫在下解答嗎??

[stan007]

這個好像是只有陣列會這樣，如果傳過去的變數
AA.DLL改成
DEFINE CLASS TEST AS custom olepublic
FUNCTION AAA(ARR)
ARR = 'B'
ENDFUNC
ENDDEFINE
------------------
BB.PRG改成
STOR 'A' TO XARR
CC = CREATEOBJECT('AA.TEST')
=CC.AAA(@XARR)
------------------
那XARR值就會變成'B'，這結果很合理
但是一旦變成陣列就又不行.......
還是在下的寫法不對，有前輩高手指教一下小弟嗎

[garfield]

我是沒用過這種dll,
幫你在google 找到 http://support.microsoft.com/kb/188255
也可以去查 help 裡的 COMARRAY( ) 函數
希望這些資訊對你有幫助.

[stan007]

非常感謝garfield
只要在DIME下面加上COMARRAY()就可以了

[LiuRambo]

我記得公司內高手說過
DLL內的陣列和vfp的陣列起始不同
vfp的陣列開始為1,dll是0