#pas
  unit MediaInfoDll;

interface

uses kol,Share,Debug,Windows;     
type   
 THiBeholdDu = class(TDebug)
   private
        
   public
   _event_Open:THI_Event;
   _event_Close:THI_Event;
   _event_Inform:THI_Event;
   _event_GetI:THI_Event;
   _event_Get:THI_Event;
   _event_Option:THI_Event;
   _event_State_Get:THI_Event;
   _event_Count_Get:THI_Event;
   
   procedure _work_Open(var Data:TData; index:word);
   procedure _work_Close(var Data:TData; index:word);
   procedure _work_GetI(var Data:TData; index:word);
   procedure _work_Get(var Data:TData; index:word);
   procedure _work_Option(var Data:TData; index:word);
   procedure _work_State_Get(var Data:TData; index:word);
   procedure _work_Count_Get(var Data:TData; index:word);  
 end;

implementation

  function  MediaInfo_Open(Handle: Cardinal; File__: PWideChar): Cardinal cdecl; external 'MediaInfo.Dll';
  procedure MediaInfo_Close(Handle: Cardinal) cdecl; external 'MediaInfo.Dll';
  function  MediaInfo_Inform(Handle: Cardinal; Reserved: Integer): PWideChar cdecl; external 'MediaInfo.Dll';
  function  MediaInfo_GetI(Handle: Cardinal; StreamKind: TMIStreamKind; StreamNumber: Integer; Parameter: Integer; KindOfInfo: TMIInfo): PWideChar cdecl; external 'MediaInfo.Dll'; //Default: KindOfInfo=Info_Text
  function  MediaInfo_Get(Handle: Cardinal; StreamKind: TMIStreamKind; StreamNumber: Integer; Parameter: PWideChar; KindOfInfo: TMIInfo; KindOfSearch: TMIInfo): PWideChar cdecl; external 'MediaInfo.Dll'; //Default: KindOfInfo=Info_Text, KindOfSearch=Info_Name
  function  MediaInfo_Option(Handle: Cardinal; Option: PWideChar; Value: PWideChar): PWideChar cdecl; external 'MediaInfo.Dll';
  function  MediaInfo_State_Get(Handle: Cardinal): Integer cdecl; external 'MediaInfo.Dll';
  function  MediaInfo_Count_Get(Handle: Cardinal; StreamKind: TMIStreamKind; StreamNumber: Integer): Integer cdecl; external 'MediaInfo.Dll';

  procedure MediaInfoDll._work_Open;
var


begin
  Ukey:=MediaInfo_New();
  _hi_OnEvent(_event_Open,Ukey);
end;