I
ike
Unregistered / Unconfirmed
GUEST, unregistred user!
我正在修改公司里别人做的一个VOD点歌系统（用的是共享方式）当我没有接神龙卡时
一切正常，可是一接到神龙卡上只要多播几首歌就死翘翘。我同时用另外一个
VOD系统测试，一切正常，说明神龙卡没问题，所以问题肯定在输入到神龙卡那一块了。
输入到神龙卡的代码如下：
function MciOpendriver:integer;
begin
hreeldrv:=OpenDriver('reeldrv', 'Drivers32', 0);
if not(hreeldrv>0) then
messagebox(vodfrm.handle,'您的机器没有安装神龙卡或驱动故障!','警告
',mb_OK+MB_ICONERROR);
Result:=hreeldrv;
end;
procedure MciCloseDriver;
begin
CloseDriver(hreeldrv,0,0);
hreeldrv:=0;
end;
procedure SetOutputTo(Value:integer);
begin
SendDriverMessage(hreeldrv,DRV_USER+1,$041b0009,Value);
//不知道这个函数有没有错？还请哪位大虾指点。只要搞出来了，一定加分！[?]
end;
一切正常，可是一接到神龙卡上只要多播几首歌就死翘翘。我同时用另外一个
VOD系统测试，一切正常，说明神龙卡没问题，所以问题肯定在输入到神龙卡那一块了。
输入到神龙卡的代码如下：
function MciOpendriver:integer;
begin
hreeldrv:=OpenDriver('reeldrv', 'Drivers32', 0);
if not(hreeldrv>0) then
messagebox(vodfrm.handle,'您的机器没有安装神龙卡或驱动故障!','警告
',mb_OK+MB_ICONERROR);
Result:=hreeldrv;
end;
procedure MciCloseDriver;
begin
CloseDriver(hreeldrv,0,0);
hreeldrv:=0;
end;
procedure SetOutputTo(Value:integer);
begin
SendDriverMessage(hreeldrv,DRV_USER+1,$041b0009,Value);
//不知道这个函数有没有错？还请哪位大虾指点。只要搞出来了，一定加分！[?]
end;