Avi jugador

Avi jugador

Avi jugador : Multi-millones de consejos para hacer su vida mas facil.

Un AVI player para Delphi
Colaborador: ANDREA MOLINO

Este es un control para la reproduccion de archivos avi.
unidad de AVICtrl
interfaz
{ TAVIControl V 0.9 b
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Programado por
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Andrea Molino
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp [email protected]
}
usos
& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controles, CommCtrl
Tipo
& nbsp & nbsp TAVIControlState = (acsClose, acsOpen, acsPlay)
& nbsp & nbsp TAVIControlError = (acrOK, acrOpenFailed, acrPlayFailed, acsSeekFailed)
& nbsp & nbsp TAVIControl = clase(TWinControl)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp FAVIState: TAVIControlState
& nbsp & nbsp & nbsp & nbsp FAVIName: String
& nbsp & nbsp & nbsp & nbsp FFrameFrom: SmallInt
& nbsp & nbsp & nbsp & nbsp FFrameTo: SmallInt
& nbsp & nbsp & nbsp & nbsp FFrameSeek: SmallInt
& nbsp & nbsp & nbsp & nbsp FAutoSize: Boolean
& nbsp & nbsp & nbsp & nbsp FAutoRepeat: Boolean
& nbsp & nbsp & nbsp & nbsp FLastOpStatus: TAVIControlError
& nbsp & nbsp & nbsp & nbsp Falsa: String
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAVIState(Val: TAVIControlState)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAVIName(Val: String)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetFrameFrom(Val: SmallInt)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetFrameTo(Val: SmallInt)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetFrameSeek(Val: SmallInt)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAutoSize(Val: Boolean)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAutoRepeat(Val: Boolean)
& nbsp & nbsp & nbsp & nbsp Funcion GetLastOpStatus: String
& nbsp & nbsp protegido
& nbsp & nbsp & nbsp & nbsp procedimiento de CreateParams(var Params: TCreateParams) Reemplazar
& nbsp & nbsp & nbsp & nbsp procedimiento CreateWnd Reemplazar
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp Constructor Create(AOwner: TComponent) reemplazar
& nbsp & nbsp & nbsp & nbsp Destructor Destruir reemplazar
& nbsp & nbsp & nbsp & nbsp Funcion Open(FileName: String): Boolean
& nbsp & nbsp & nbsp & nbsp Procedimiento de Cierre
& nbsp & nbsp & nbsp & nbsp Funcion Play(FName: String RepCount: SmallInt): Boolean
& nbsp & nbsp & nbsp & nbsp Funcion de busqueda(Marco: SmallInt): Boolean
& nbsp & nbsp & nbsp & nbsp Procedimiento de Parada
& nbsp & nbsp publicado
& nbsp & nbsp & nbsp & nbsp Propiedad AVIState: TAVIControlState Leer FAVIState Escribir SetAVIState Defecto acsClose
& nbsp & nbsp & nbsp & nbsp Propiedad AVIName: Cadena de Leer FAVIName Escribir SetAVIName
& nbsp & nbsp & nbsp & nbsp Propiedad FrameFrom: SmallInt Leer FFrameFrom Escribir SetFrameFrom Predeterminado 0
& nbsp & nbsp & nbsp & nbsp Propiedad FrameTo: SmallInt Leer FFrameTo Escribir SetFrameTo por Defecto -1
& nbsp & nbsp & nbsp & nbsp Propiedad FrameSeek: SmallInt Leer FFrameSeek Escribir SetFrameSeek Predeterminado 0
& nbsp & nbsp & nbsp & nbsp Propiedad AutoSize: Boolean Leer FAutoSize Escribir SetAutoSize por Defecto es False
& nbsp & nbsp & nbsp & nbsp Propiedad repeticion automatica: Boolean Leer FAutoRepeat Escribir SetAutoRepeat Predeterminado True
& nbsp & nbsp & nbsp & nbsp Propiedad ZStatus: Cadena de Leer GetLastOpStatus Escribir Sintetica
& nbsp & nbsp & nbsp & nbsp propiedad Align
& nbsp & nbsp & nbsp & nbsp propiedad Enabled
& nbsp & nbsp & nbsp & nbsp propiedad PopupMenu
& nbsp & nbsp & nbsp & nbsp propiedad ShowHint
& nbsp & nbsp & nbsp & nbsp propiedad Visible
& nbsp & nbsp & nbsp & nbsp propiedad OnMouseDown
& nbsp & nbsp & nbsp & nbsp de la propiedad OnMouseMove
& nbsp & nbsp & nbsp & nbsp propiedad OnMouseUp
& nbsp & nbsp final
procedimiento de Registro
aplicacion
Constructor TAVIControl.Create(AOwner: TComponent)
Begin
& nbsp & nbsp inherited Create(AOwner)
& nbsp & nbsp ControlStyle := ControlStyle -[csSetCaption]
& nbsp & nbsp FAVIState := acsClose
& nbsp & nbsp FFrameFrom := 0
& nbsp & nbsp FFrameTo := -1
& nbsp & nbsp FAutoSize := False
& nbsp & nbsp FAutoRepeat := True
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Ancho := 30
& nbsp & nbsp Altura := 30
Fin
Destructor TAVIControl.Destruir
Begin
& nbsp & nbsp Heredado Destruir
Fin
procedimiento TAVIControl.CreateParams(var Params: TCreateParams)
begin
{ACS_AUTOPLAY - Comienza la reproduccion de la animacion tan pronto como el clip de animacion se abre.
& nbsp ACS_CENTER - Centros de la animacion en la animacion de la ventana del control.
& nbsp ACS_TRANSPARENT - Dibuja la animacion utilizando un fondo transparente, en lugar de
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp el color de fondo especificado en el clip de animacion.}
& nbsp & nbsp InitCommonControls
& nbsp & nbsp Heredado de CreateParams(Params)
& nbsp & nbsp CreateSubClass(Params, 'SysAnimate32')
& nbsp & nbsp Con Parametros de hacer
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Estilo := Estilo O ACS_TRANSPARENT
& nbsp & nbsp & nbsp & nbsp Si No FAutoSize Luego el Estilo de := Estilo O ACS_CENTER
& nbsp & nbsp Final
fin
procedimiento TAVIControl.CreateWnd
begin
& nbsp & nbsp Heredado CreateWnd
& nbsp & nbsp Si FAVIState = acsOpen, a Continuacion, Abra(FAVIName)
& nbsp & nbsp Si FAVIState = acsPlay, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Abierto(FAVIName)
& nbsp & nbsp & nbsp & nbsp Play(', 0)
& nbsp & nbsp Final
fin
Procedimiento TAVIControl.SetAVIState(Val: TAVIControlState)
Begin
& nbsp & nbsp Si Val <> FAVIState, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FAVIState := Val
& nbsp & nbsp & nbsp & nbsp Caso FAVIState De
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp acsOpen : Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Abierto(FAVIName)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp acsPlay : Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Abierto(FAVIName)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Play(', 0)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp acsClose: Cerrar
& nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetAVIName(Val: String)
Var
& nbsp & nbsp FTmpState: TAVIControlState
Begin
& nbsp & nbsp Si Val <> FAVIName, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FAVIName := Val
& nbsp & nbsp & nbsp & nbsp FTmpState := FAVIState
& nbsp & nbsp & nbsp & nbsp Cerrar
& nbsp & nbsp & nbsp & nbsp Si FTmpState = acsOpen, a Continuacion, Abra(FAVIName)
& nbsp - nbsp & nbsp & nbsp Si FTmpState = acsPlay, a Continuacion, Juego(', 0)
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetFrameFrom(Val: SmallInt)
Begin
& nbsp & nbsp Si Val <> FFrameFrom, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FFrameFrom := Val
& nbsp & nbsp & nbsp & nbsp Si FAVIState = acsPlay, a Continuacion, Juego(', 0)
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetFrameTo(Val: SmallInt)
Begin
& nbsp & nbsp Si Val <> FFrameTo, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FFrameTo := Val
& nbsp & nbsp & nbsp & nbsp Si FAVIState = acsPlay, a Continuacion, Juego(', 0)
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetFrameSeek(Val: SmallInt)
Begin
& nbsp & nbsp Si Val <> FFrameSeek, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FFrameSeek := Val
& nbsp & nbsp & nbsp & nbsp Buscar(FrameSeek)
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetAutoSize(Val: Boolean)
Begin
& nbsp & nbsp Si Val <> FAutoSize, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FAutoSize := Val
& nbsp & nbsp & nbsp & nbsp RecreateWnd
& nbsp & nbsp Final
Fin
Procedimiento TAVIControl.SetAutoRepeat(Val: Boolean)
Begin
& nbsp & nbsp Si Val <> FAutoRepeat, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp FAutoRepeat := Val
& nbsp & nbsp & nbsp & nbsp Si FAVIState = acsPlay, a Continuacion, Juego(', 0)
& nbsp & nbsp Final
Fin
Funcion TAVIControl.GetLastOpStatus: String
Begin
& nbsp & nbsp Caso FLastOpStatus De
& nbsp & nbsp & nbsp & nbsp acrOK : Resultado := 'OK'
& nbsp & nbsp & nbsp & nbsp acrOpenFailed: Resultado := 'Open Failed'
& nbsp & nbsp & nbsp & nbsp acrPlayFailed: Resultado := 'Play Fracasado'
& nbsp & nbsp Final
Fin
Funcion TAVIControl.Open(FileName: String): Boolean
Var
& nbsp & nbsp Res: LongInt
Begin
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Si FAVIState <> acsClose, a Continuacion, Cierre
& nbsp & nbsp Res := SendMessage(Mango, ACM_OPEN, 0, LongInt(PChar(FileName))))
& nbsp & nbsp FAVIName := Nombre del archivo
& nbsp & nbsp Si Res <> 0 Entonces FAVIState := acsOpen
& nbsp & nbsp Demas FLastOpStatus := acrOpenFailed
& nbsp & nbsp Resultado := (Res <> 0)
Fin
Procedimiento TAVIControl.Cerrar
Var
& nbsp & nbsp Res: LongInt
Begin
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Res := SendMessage(Mango, ACM_OPEN, 0, 0)
& nbsp & nbsp FAVIState := acsClose
& nbsp & nbsp Repintar
Fin
Funcion TAVIControl.Buscar(Marco: SmallInt): Boolean
Var
& nbsp & nbsp Res: LongInt
Begin
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Si FAVIState = acsClose, a Continuacion, Abra(FAVIName)
& nbsp & nbsp Cosa Si FAVIState = acsPlay, a Continuacion, Detener
& nbsp & nbsp Si FAVIState <> acsClose, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Res := SendMessage(Mango, ACM_PLAY, 1, MAKELONG(Fotograma, Fotograma)
& nbsp & nbsp & nbsp & nbsp Si Res = 0, Entonces FLastOpStatus := acsSeekFailed
& nbsp & nbsp & nbsp & nbsp Resultado := (Res <> 0)
& nbsp & nbsp Final
& nbsp & nbsp Else Result := False
Fin
Funcion TAVIControl.Jugar(FName: String RepCount: SmallInt): Boolean
Var
& nbsp & nbsp Res: LongInt
& nbsp & nbsp Rep: SmallInt
Begin
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Si FName = ', a Continuacion, Abra(FAVIName)
& nbsp & nbsp Persona Abierta(FName)
& nbsp & nbsp Si FAVIState <> acsClose, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Si FAutoRepeat Y (RepCount = 0) Entonces Rep := -1
& nbsp & nbsp & nbsp & nbsp Cosa Si RepCount = 0, Entonces Rep := 1
& nbsp & nbsp & nbsp & nbsp Persona Representante de := RepCount
& nbsp & nbsp & nbsp & nbsp Res := SendMessage(Mango, ACM_PLAY, Rep, MAKELONG(FFrameFrom, FFrameTo))
& nbsp & nbsp & nbsp & nbsp If (Res <> 0) Y FAutoRepeat Luego FAVIState := acsPlay
& nbsp & nbsp & nbsp & nbsp Demas FLastOpStatus := acrPlayFailed
& nbsp & nbsp & nbsp & nbsp Resultado := (Res <> 0)
& nbsp & nbsp Final
& nbsp & nbsp Else Result := False
Fin
Procedimiento TAVIControl.Stop
Var
& nbsp & nbsp Res: LongInt
Begin
& nbsp & nbsp FLastOpStatus := acrOK
& nbsp & nbsp Si FAVIState <> acsClose, a Continuacion,
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Res := SendMessage(Mango, ACM_PLAY, 0, MAKELONG(0, 0))
& nbsp & nbsp & nbsp & nbsp Si FAVIState = acsPlay Luego FAVIState := acsOpen
& nbsp & nbsp Final
Fin
procedimiento de Registro
begin
& nbsp & nbsp RegisterComponents('MyGold', [TAVIControl])
fin
final.