Question

几句delphi代码转vb

uses
windows;
function InitDriverSoft:Integer;stdcall; external 'VODEX.DLL';
//控件初始化，返回0 为成功
procedure jm;stdcall;
//解密控件
procedure FreeDriverSoft;stdcall; external 'VODEX.DLL';
//释放控件
function OpenFileSoft(vfile:PAnsiChar):Integer;stdcall; external 'VODEX.DLL';
//打开视频文件
procedure CloseFileSoft;stdcall; external 'VODEX.DLL';
//关闭视频文件
procedure PauseFileSoft;stdcall; external 'VODEX.DLL';
//暂停视频
procedure PlayFileSoft(zin:integer);stdcall; external 'VODEX.DLL';
//播放视频 zin:=218112 (VODEX.DLL的大小)
procedure StopFileSoft;stdcall; external 'VODEX.DLL';
//停止播放
function GetMediaLengthSoft:Integer;stdcall; external 'VODEX.DLL';
//获取文件长度（毫秒）
function GetMediaStateSoft:Integer;stdcall; external 'VODEX.DLL';
//得到播放状态，/－1：错误 0 ： 打开 ，1 : 播放 ，2 ： 暂停 ，3 ： 结束
function GetPositionSoft:Integer;stdcall; external 'VODEX.DLL';
//得到播放的时间位置
procedure SelectAudioChannelSoft(AudioChannel:integer);stdcall; external 'VODEX.DLL';
//选择切换音频轨道，第一个轨道为0，类推
procedure SetPlayPasswordSoft(password:PAnsiChar);stdcall; external 'VODEX.DLL';
//设置播放密码
procedure SetPositionSoft(Position:integer);stdcall; external 'VODEX.DLL';
//设置播放的时间位置
procedure SetSoundCardIDSoft(CardID:integer);stdcall; external 'VODEX.DLL';
//设置声卡 第一个为0，类推
function SetSoundCardListSoft(pppp:PAnsiChar):integer;stdcall; external 'VODEX.DLL';
//获取声卡列表
procedure SetVideoHandleSoft(v1,v2:hwnd);stdcall; external 'VODEX.DLL';
// 设置视频窗口显示句柄
procedure SetVideoWatchSoft(kk,jj:integer);stdcall; external 'VODEX.DLL';
//打开 或 关闭 视频窗口 kk =(0 or 1) 视频窗口 ,jj=(0 or 1) 打开 关闭
procedure SetVolumeSoft(vol:integer);stdcall; external 'VODEX.DLL';
//设置音量大小，范围 0...10000
implementation

这些是引用一个DLL中的函数，请帮我写成VB代码，不懂DELPHI所以不知道怎么用VB引用函数。希望懂DELPHI的帮我转成VB的代码

Answer 1

function InitDriverSoft:Integer;stdcall; external 'VODEX.DLL';
Public Declare Function InitDriverSoft Lib "VODEX.DLL" () As Long

procedure FreeDriverSoft;stdcall; external 'VODEX.DLL';
Public Declare Sub FreeDriverSoft Lib "VODEX.DLL" ()

基本就按如此格式翻译

Answer 2

可以用 dim……as long