VB调用Delphi的Dll的问题！-高分！

来源：百度知道 编辑：UC知道 时间：2024/05/21 17:42:35
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;External'MusicInfo.dll'
function OpenMusicFile(FileName: String):Boolean;stdcall;External'MusicInfo.dll';
function GetMusic_Title:Pchar;stdcall;External'MusicInfo.dll';
function GetMusic_Duration:integer;stdcall;External'MusicInfo.dll';
function GetMusic_Artist: Pchar;stdcall;External'MusicInfo.dll';
function GetMusic_Album:Pchar;stdcall;External'MusicInfo.dll';
function GetMusic_Track:Pchar;stdcall;External'MusicInfo.dll';
function GetMusic_BitRate:integer;stdcall;External'MusicInfo.dll';
function GetMusic_SampleRate:integer;stdcall;External'MusicInfo.dll';
function GetMusic_Channels:integer;stdcall;External'MusicInfo.dll';

转换为VB的调用怎么用啊？

Declare Function DllEnterPoint Lib "MusicInfo.dll" (ByVal dwReason As Long) As Long
Declare Function OpenMusicFile Lib "MusicInfo.dll" (ByVal FileName As String) As Boolean
Declare Function GetMusic_Title Lib "MusicInfo.dll" As String
Declare Function GetMusic_Duration Lib "MusicInfo.dll" () As Integer
Declare Function GetMusic_Artist Lib "MusicInfo.dll" () As String
Declare Function GetMusic_Album Lib "MusicInfo.dll" () As String
Declare Function GetMusic_Track Lib "MusicInfo.dll" () As String
Declare Function GetMusic_BitRate Lib "MusicInfo.dll" () As Integer
Declare Function GetMusic_SampleRate Lib "MusicInfo.dll" () As Integer
Declare Function GetMusic_Channels Lib "MusicInfo.dll" () As Integer