求高手将VB调用DLL方法改写为DELPHI方法

Question

Private Declare Function Open_Session Lib "DMM.dll" (ByVal port As Byte, ByRef defaultRM As Short, ByRef vic As Integer) As Short
Private Declare Function Close_Session Lib "DMM.dll" (ByRef defaultRM As Short, ByRef vic As Integer) As Short
Private Declare Function Setting_Session Lib "DMM.dll" (ByVal command_Renamed As String, ByVal length As Integer, ByRef vic As Integer) As Integer
Private Declare Function Read_Session Lib "DMM.dll" (ByVal opt As Byte, ByRef vic As Integer) As Double

Answer 1

Function Open_Session (const port:Byte;var defaultRM:Short;var vic:Integer):Short;Function Close_Session (var defaultRM : Short:var  vic:Integer):Short;Function Setting_Session(command_Renamed:PChar;const alength:Integer;var vic:Integer):Integer;Function Read_Session(const  opt : Byte;var vic:Integer):Double;