Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.
Procedure Executar_Video; Begin with MediaPlayerVideo do begin //Informamos qual é o arquivo de vídeo que será executado MediaPlayerVideo.FileName := GetCurrentDir+'\Videos\Video_Teste.mpg'; //Abrimos o Media Player Open; //Informamos em qual componente será exibido o vídeo //Se omitimos onde o vídeo será exibido o delphi cria uma nova janela com a mesma resolução do vídeo Display := Nome_Componente; //Informamos que o vídeo será redimensionado para ocupar todo o componente //Se omitimos esta declaração o delphi executa o vídeo com sua resolução original MediaPlayerVideo.DisplayRect := Nome_Componente.ClientRect; //Executamos o vídeo Play; end; End;
const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; MCI_DGV_SETAUDIO_VALUE = $01000000; MCI_DGV_STATUS_VOLUME = $4019; type MCI_DGV_SETAUDIO_PARMS = record dwCallback: DWORD; dwItem: DWORD; dwValue: DWORD; dwOver: DWORD; lpstrAlgorithm: PChar; lpstrQuality: PChar; end; type MCI_STATUS_PARMS = record dwCallback: DWORD; dwReturn: DWORD; dwItem: DWORD; dwTrack: DWORD; end;
procedure MPSetVolume(MP: TMediaPlayer; Volume: Integer) ; var p: MCI_DGV_SETAUDIO_PARMS; begin p.dwCallback := 0; p.dwItem := MCI_DGV_SETAUDIO_VOLUME; p.dwValue := Volume; p.dwOver := 0; p.lpstrAlgorithm := nil; p.lpstrQuality := nil; mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)) ; end; function MPGetVolume(MP: TMediaPlayer): Integer; var p: MCI_STATUS_PARMS; begin p.dwCallback := 0; p.dwItem := MCI_DGV_STATUS_VOLUME; mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)) ; Result := p.dwReturn; end;
Edit.Text := inttostr(MPGetVolume(Nome_do_Componente_MediaPlayer).
MPSetVolume(Nome_do_Componente_MediaPlayer,100).
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009