使用windows 提供的 MCI 接口编程时出现的问题，很奇怪！(150分)

我用mci 接口编图象采集程序时，有个怪现象：<br>&nbsp; &nbsp; 用delphi 5 生成的 .exe文件开始运行了很多次都很正常，<br>但后来突然变得难以运行了（系统提示“程序错误”），现在<br>只有在那个“程序错误”的白板上狂点“忽略”才能看到（要<br>不停的点）采集来的图象。这是为什么？<br>&nbsp; &nbsp; 还有，delphi 5 中有时要是连续写两个mci函数 运行时常<br>会出错。这又是为什么？我错在哪？？<br>&nbsp; &nbsp; 我调用的是delphi 5 中提供的mmsystem.pas中封装的多媒<br>体接口函数。<br><br>&nbsp; &nbsp; Help me ! &nbsp;我伤透脑筋了，各位大侠救命！！ &nbsp;

重新安装Windows试试<br><br>你怎么运行的？哪些函数？

可能采集卡和显卡不能完全兼容是原因之一，但我运行通过的呀！<br>用采集卡提供的dll 包一般不会出这种问题，这是why?<br>可能是我没搞明白具体函数的具体用法， &nbsp;Teach me ,thank you!!!<br><br>以下是我定义的函数，里面有 API ：<br><br>//----------- 自定义函数 -------------------------<br>// * <br>// * 过程：mci_SendString(command_strchar)<br>// * 功能：封装 API -&gt; MciSendString(...)<br>//API 原形（在 mmsystem.pas 中）：<br>//function mciSendString(lpstrCommand, lpstrReturnString: PChar;uReturnLength: UINT; hWndCallback: HWND): MCIERROR; stdcall;<br>//function mciGetErrorString(mcierr: MCIERROR; pszText: PChar; uLength: UINT): BOOL; stdcall;<br>//function mciExecute(pszCommand: LPCSTR): BOOL; stdcall;<br>procedure TForm1.mci_SendString(command_strchar);<br>var<br>&nbsp; ret : Longint;<br>&nbsp; tstr : array[0..200] of char;<br>begin<br>&nbsp; ret := mciSendString(command_str,'',0,0); <br>&nbsp; If not(ret=0) Then<br>&nbsp; begin<br>&nbsp; &nbsp; mciGetErrorString(ret,tstr,200); &nbsp; &nbsp;<br>&nbsp; &nbsp; Application.MessageBox(' 加载MCI设备出错。','MCI设备错误',mb_ok+mb_iconStop);<br>&nbsp; end;<br>end;<br><br>然后用他打开别名为cat_mci 的 设备(overlay)<br>&nbsp; i_SendString('open overlay alias cat_mci');<br><br>再将采集来的一帧图存到剪贴板上，并冻结图象<br>&nbsp; mci_Sendstring('copy cat_mci');<br>&nbsp; //这有一段程序把他放到窗体上<br><br>调用这个函数解除冻结的图象，准备采集下一幅图<br>&nbsp; mci_SendString('unfreeze cat_mci');<br><br>关闭设备的函数是：<br>&nbsp; mci_SendString('close cat_mci');

mciSendString(command_str,'',0,0); <br><br>改为：<br><br>mciSendString(command_str,0,0,0); <br><br>如何？

不行，系统提出警告： Constant 0 Converted to NIL.

那就<br><br>mciSendString(command_str,nil,0,0);

hustmouse:<br>&nbsp; &nbsp; 谢谢你啦！祝你好运，谢谢！<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;------from cat.yy<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;2000/ 7/ 27