//以下接上
var
hReelDrv: HDRVR;
// RealMagic Driver Handle
function FMPOpenDriver: integer;
procedure FMPCloseDriver;
function FMPCommand(Command: Byte;
hMPEGStream: Byte;
Flags: WORD;
Value: DWORD)
WORD;
function FMPGetLastError(a: Word): DWORD;
function FMPOpen(Flags: WORD;
Filename: DWORD): DWORD;
function FMPClose(hStream: Byte)
WORD;
function FMPSet(hStream: Byte;
Index: WORD;
Value: DWORD): DWORD;
function FMPGet(hStream: Byte;
Index: WORD)
WORD;
function FMPPlay(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
function FMPStep(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
function FMPCapture(hStream: Byte;
Index: WORD;
Position: DWORD): DWORD;
function FMPSeek(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
function FMPSignal(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
function FMPPause(hStream: Byte)
WORD;
function FMPStop(hStream: Byte)
WORD;
function FMPGroup(hStream: Byte;
Flags: WORD;
Value: DWORD): DWORD;
function FMPCallback(hStream: Byte;
Value: DWORD): DWORD;
function FMPFreeze(hStream: Byte;
Flags: WORD;
Value: DWORD): DWORD;
implementation
{--------------------------------------------------------------
* FUNCTION : FMPOpenDriver()
* DESCRIPTION : Opens IMPEG32.DLL
* RETURN : non-zero if successful, 0 if failed.
---------------------------------------------------------------}
function FMPOpenDriver: integer;
const
szDriverName = 'reeldrv';
szSectionName = 'Drivers32';
begin
hReelDrv:= OpenDriver(szDriverName, szSectionName, 0);
Result := hReelDrv;
end;
{--------------------------------------------------------------
* procedure : FMPCloseDriver()
* DESCRIPTION : Closes IMPEG32.DLL
* RETURN : NONE
---------------------------------------------------------------}
procedure FMPCloseDriver;
begin
CloseDriver(hReelDrv,0,0);
hReelDrv:= 0;
end;
{--------------------------------------------------------------
* FUNCTION : FMPCommand()
* DESCRIPTION : This function interfaces with the FMP MPEG support driver
* and sends out the requested command.
* RETURN : value from SendDriverMessage
------------------------------------------------------------------}
function FMPCommand(Command: Byte;
hMPEGStream: Byte;
Flags: WORD;
Value: DWORD)
WORD;
begin
Result:= SendDriverMessage(hReelDrv,DRV_USER+1,
MakeLParam(MakeWord(Command,hMPEGStream),Flags),Value);
end;
{-----------------------------------------------------------------
* FUNCTION : FMPGetLastError()
* DESCRIPTION : Returns last command error code.
* RETURN : last REALmagic command error code
------------------------------------------------------------------}
function FMPGetLastError(a: Word): DWORD;
begin
Result:= SendDriverMessage(hReelDrv, DRV_USER + 2, a, 0);
end;
function FMPOpen(Flags: WORD;
Filename: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_OPEN, 0, Flags, Filename);
end;
function FMPClose(hStream: Byte)
WORD;
begin
Result:= FMPCommand(FMP_CLOSE, hStream, 0, 0)
end;
function FMPSet(hStream: Byte;
Index: WORD;
Value: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_SET, hStream, Index, Value);
end;
function FMPGet(hStream: Byte;
Index: WORD)
WORD;
begin
Result:= FMPCommand(FMP_GET, hStream, Index, 0);
end;
function FMPPlay(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_PLAY, hStream, Flags, Position);
end;
function FMPStep(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_STEP, hStream, Flags, Position);
end;
function FMPCapture(hStream: Byte;
Index: WORD;
Position: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_CAPTURE, hStream, Index, Position);
end;
function FMPSeek(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_SEEK, hStream, Flags, Position);
end;
function FMPSignal(hStream: Byte;
Flags: WORD;
Position: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_SIGNAL, hStream, Flags, Position);
end;
function FMPPause(hStream: Byte)
WORD;
begin
Result:= FMPCommand(FMP_PAUSE, hStream, 0, 0);
end;
function FMPStop(hStream: Byte)
WORD;
begin
Result:= FMPCommand(FMP_STOP, hStream, 0, 0);
end;
function FMPGroup(hStream: Byte;
Flags: WORD;
Value: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_GROUP, hStream, Flags, Value);
end;
function FMPCallback(hStream: Byte;
Value: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_CALLBACK, hStream, FMPF_PASCAL, Value);
end;
function FMPFreeze(hStream: Byte;
Flags: WORD;
Value: DWORD): DWORD;
begin
Result:= FMPCommand(FMP_FREEZE, hStream, Flags, Value);
end;
end.
