我用VB5做了一個ActiveX Control, 安裝到其他電腦後,
若用VB來引用都沒有問題, 但是用Delphi來引用卻有一堆問題:
1. 只有Property(As Integer 與 As String)可以用,
Sub 與 Function(As Integer) 都不能用, 會死當.
2. 若將Function改為Property, 則原本不須要傳參數的可以用,
但須要傳參數的(ByVal xx As String)還是會死當, 不然就是
產生一個'無法在執行階段設定Name屬性'的錯誤, 程式停在:
xxx_TLB.pas (Delphi 自己產生的)
//=======================================================
function Txxx.Get_yyy(const SSS_6: WideString): Smallint;
begin
Result := DefaultInterface.Get_yyy(SSS_6); //(停在這裡)
end;
//=======================================================
VB 的程式碼如下:
'=======================================================
Public Property Get yyy(ByVal SSS_6 As String) As Integer
yyy = CInt(Len(SSS_6))
End Property
'=======================================================
Delphi我並不熟, 不知有無高人可指點? 謝謝!