www.pudn.com > DirectShowPlayer.rar > DirectShowDelphi4Fix.pas

// ------------------------------------------------------------- 
// If you are using Delphi 4 and you can not compile 
// DirectShow.pas unit, add DirectShowDelphi4Fix  
// to the uses clause of DirectShow.pas 
// 
// Also find and remove the DMO_E_* constants contained in this 
// file from the DirectShow.pas file... 
// ------------------------------------------------------------- 
 
unit DirectShowDelphi4Fix; 
 
// ******************************************************************* 
 
interface 
 
type 
  TOleEnum = type Smallint; 
 
// Find and remove these constants from the DirectShow.pas file... 
const 
  DMO_E_INVALIDSTREAMINDEX : cardinal = $80040201; 
  DMO_E_INVALIDTYPE        : cardinal = $80040202; 
  DMO_E_TYPE_NOT_SET       : cardinal = $80040203; 
  DMO_E_NOTACCEPTING       : cardinal = $80040204; 
  DMO_E_TYPE_NOT_ACCEPTED  : cardinal = $80040205; 
  DMO_E_NO_MORE_ITEMS      : cardinal = $80040206; 
 
// ******************************************************************* 
 
implementation 
 
// ******************************************************************* 
 
end.