1. 次序是对了2.我的VOD类的一段代码//-------------------------------------------------------------[ TVOD.Open ]---
{ 打开播放文件 }
function TVOD.Open(FileName: String): Boolean;
var
  ErrorInfo: WORD;
begin
  ErrorInfo := 0;
  ghMPEGStream := FMPOpen(FMPF_FILE,DWORD(FileName));
  ErrorInfo := FMPGetLastError(ErrorInfo);
  if ErrorInfo <> 0 then
    Result := False
  else
    Result := True;
end; {TVOD.Open}