我試過以vb6 呼叫 vb6 寫的 active dll 可以運作 但 以 delphi 呼叫 vb6 的 active dll 則有問題 ???? 試過用動態載入dll 函數的方式 也不行 ????    在vb6中只要宣告 Dim myDllTest As New VB6Dll.clsVB6Dll    在函數中呼叫dll內的函數就可以了 MsgBox myDllTest.myFunc("參數一")    請問各方好手,有沒試過用delphi 呼叫vb6 寫的 dll 內的函數 ?     

看這篇能不能幫上忙? http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=13dc6387079d358f&rnum=21 --- Everything I say is a lie.

Hi, 試試:

uses Comobj;    var
  obj: Variant;
begin
  obj := CreateOleObject('VB6Dll.clsVB6Dll');
  ShowMessage(obj.myFunc('參數一'));
  ....
  obj := UnAssigned;
end;