mpg2dec_h.pas

MPEG-II播放动态链接库的使用样例

unit Mpg2Dec_h;

{$X+}{$Z2}{$A4}

interface

uses Windows;

(*
* Copyright (c) 2003,Rainsoft Studio
* All rights reserved.

* 文件名称：Mpg2Dec.h
* 文件标识：见配置管理计划书
* 摘要：播放MPEG2文件的出口主文件

* 当前版本：1.0
* 作者：王正平
* 完成日期：2003年05月21日

* 取代版本：0.9
* 原作者：王正平
* 完成日期：2003年05月20日
*)
{$IFNDEF _MPG2DEC_H_}
{$DEFINE _MPG2DEC_H_}
const
  MPG2DECDLL = 'Mpg2Dec.dll';
function InitMpg2Dec(hwnd: HWND): Integer; stdcall; external MPG2DECDLL name '_InitMpg2Dec@4';
function OpenMpg2File(FileName: PChar): Integer; stdcall; external MPG2DECDLL name '_OpenMpg2File@4';
function Play: Integer; stdcall; external MPG2DECDLL name '_Play@0';
function EnableLumFilter(flag: Integer): Integer; stdcall; external MPG2DECDLL name '_EnableLumFilter@4';
function SetLumGain(Gain: Integer): Integer; stdcall; external MPG2DECDLL name '_SetLumGain@4';
function SetLumOffset(Offset: Integer): Integer; stdcall; external MPG2DECDLL name '_SetLumOffset@4';
function Pause: Integer; stdcall; external MPG2DECDLL name '_Pause@0';
function Stop: Integer; stdcall; external MPG2DECDLL name '_Stop@0';
function On_Paint: Integer; stdcall; external MPG2DECDLL name '_On_Paint@0';
function On_Resize: Integer; stdcall; external MPG2DECDLL name '_On_Resize@0';
function On_Move: Integer; stdcall; external MPG2DECDLL name '_On_Move@0';
function SetFramePos(iPos: Integer): Integer; stdcall; external MPG2DECDLL name '_SetFramePos@4';
function SetTrackHandle(Handle: HWND): Integer; stdcall; external MPG2DECDLL name '_SetTrackHandle@4';
function SaveBMP(FileName: PChar): Integer; stdcall; external MPG2DECDLL name '_SaveBMP@4';
function SetStart: Integer; stdcall; external MPG2DECDLL name '_SetStart@0';
function SetEnd: Integer; stdcall; external MPG2DECDLL name '_SetEnd@0';
function NextFrame: Integer; stdcall; external MPG2DECDLL name '_NextFrame@0';
function PriorFrame: Integer; stdcall; external MPG2DECDLL name '_PriorFrame@0';
{$ENDIF}(* _MPG2DEC_H_ *)

implementation

end.