pbuild (2001-04-05 09:46:00)
简单的MCI编程
用mcisendstring()或者mcisendcommand()
在DELPHI帮助文件中能找到相关的资料
最简单是用MEDIAPLAYER实现
安装了DVD解压卡驱动后就可以播放了,
播放默认是输入到电视机上,所以在电脑上可能会没有画面,转换如下:
通过MCI命令切换输出:
MCI_DGV_RM_PARMS mcidvd;
mcidvd.dwCommand = 0x9;
mcidvd.dwFlag = 0x41b;
mcidvd.dwValue = 0 for output to TV, 1 for output to VGA;
dwResult = mciSendCommand(wDeviceID, 0x900, 0x700002,
(DWORD)(LPMCI_DGV_RM_PARMS)&mcidvd);
我按pbuild这样试了之后好象也不行,谁已经试验成功了的?
我的代码是
type
MCI_DGV_RM_PARMS=record
dwCommand
WORD;
dwFlag
WORD;
dwValue
WORD;
dwResult
WORD;
end;
。。。
procedure TForm1.BtnSwitchClick(Sender: TObject);
var
mcidvd:MCI_DGV_RM_PARMS;
begin
mcidvd.dwCommand:=$9;
mcidvd.dwFlag:=$41b;
mcidvd.dwValue:=1;
mcidvd.dwResult:=mciSendcommand(mediaplayer1.DeviceID, $900, $700002,integer(@mcidvd));
end;
不知道对了吗?