Delphi6调用VB编写的dll

Question

VB调用模块声明：
Declare Function pci7502check Lib "pci7502.dll" (ByVal dwVendorID%, ByVal dwDeviceID%, ByVal fUseInt As Boolean,Byval Cardno%) As Long
Declare Function pci7502di Lib "pci7502.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal ch%) As Integer
Declare Sub pci7502do Lib "pci7502.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal ch%, ByVal data%)
Declare Function pci7502close Lib "pci7502.dll" (ByVal hplx As Long) As Integer
Public hplx As Long
Public addr As Boolean
Public dwVendorID As Integer
Public dwDeviceID As Integer
Public fUseInt As BooleanVB应用程序调用 hplx=PCI7502check(0,0,false,1)
              DATA=pci7502check(hplx,false,ch)
              pci7502do(hplx,false,0,f0)
              hplx=pci7502close(hplx)如果改成DELPHI6调用 如何写函数声明

Answer 1

这个dll不能通过 project/import type library注册 
新手  自己顶一下 

Answer 2

解决了 只能在interface中声明就可以了
var
  Form1: TForm1;
  hplx:integer;
  addr:Boolean;
  dwVendorID:Integer;
  dwDeviceID:Integer;
  fUseInt:Boolean;
function pci7502check(dwVendorID:integer;dwDeviceID:integer;   fUseInt:boolean;Cardno:integer):   Integer;   stdcall;   external   'PCI7502.DLL';
function pci7502di(hplx:integer;addr:Boolean;ch:integer):longint;external 'PCI7502.DLL'name 'pci7502di';
procedure pci7502do(hplx:integer;addr:Boolean;ch:integer;data:integer);external 'PCI7502.DLL'name 'pci7502do';
Function pci7502close(hplx:Integer):integer;external 'PCI7502.DLL'name 'pci7502close';