Règler le volume du Mediaplayer |
||||
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);{ Volume: 0 - 1000 } const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; ... | ||||
| Delphi - Trucs et astuces - Multimedia | le 01/04/2006 | vu 2280 fois | SwissDelphiCenter | |
Jouer 2 sons en même temps |
||||
uses MMSystem; procedure SendMCICommand(Cmd: string); var RetVal: Integer; ErrMsg: array[0..254] of char; begin RetVal := mciSendString(PChar(Cmd), nil, 0, 0); if RetVal 0 then begin... | ||||
| Delphi - Trucs et astuces - Multimedia | le 14/02/2006 | vu 1778 fois | SwissDelphiCenter | |
Obtenir le nombre de frame, la durée et la résolution d'une vidéo |
||||
{--- english -------------------------------------------------------------------Easiest way I know to get frame count, video length (in ms) and pixel resolution of a video file.}unit... | ||||
| Delphi - Trucs et astuces - Multimedia | le 13/11/2004 | vu 1660 fois | Antonio Bueno | |
Activer/Désactiver la fonction autorun du lecteur CD |
||||
uses Registry; procedure CDSetAutoPlay(SioNo: Boolean); var Reg: TRegistry; begin try Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if ... | ||||
| Delphi - Trucs et astuces - Multimedia | le 13/03/2002 | vu 3514 fois | Communauté Delphi | |
Utiliser le Joystick |
||||
Uses MMSYSTEM; var MyJoy : TJoyInfo; ErrorResult : MMRESULT; begin ErrorResult:= joyGetPos(joystickid1,@MyJoy); if ErrorResult = JOYERR_NOERROR then begin TrackBar1.Position :=... | ||||
| Delphi - Trucs et astuces - Multimedia | le 02/02/2002 | vu 1607 fois | Thomas Stutz | |
Detecter la fin de la lecture dans un Mediaplayer |
||||
procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.Not if y := True; MediaPlayer1.OnNot if y := Not if yProc; end; procedure TForm1.Not if yProc(Sender: TObject); begin With... | ||||
| Delphi - Trucs et astuces - Multimedia | le 30/11/2001 | vu 1647 fois | SwissDelphiCenter | |
Programmer un Timer multimédia |
||||
uses mmsystem; var fid:Integer; procedure TimeCallBack(TimerID, Msg:Uint; dwUser, dw1, dw2: DWord); pascal; begin //Do something here //This procedure will executed each 10 ms ... | ||||
| Delphi - Trucs et astuces - Multimedia | le 22/11/2001 | vu 2009 fois | SwissDelphiCenter | |
Connaitre/Fixer le volume Wav |
||||
uses MMSystem; function GetWaveVolume: DWord; var WaveOutCaps: TWAVEOUTCAPS; Volume: DWord; begin Result := 0; if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) =... | ||||
| Delphi - Trucs et astuces - Multimedia | le 13/11/2001 | vu 1813 fois | SwissDelphiCenter | |
Connaitre la piste CD actuelle dans un TMediaPlayer |
||||
Uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject); var Trk, Min, Sec: Word; begin with MediaPlayer1 do begin Trk:= MCI_TMSF_TRACK(Position); Min:=... | ||||
| Delphi - Trucs et astuces - Multimedia | le 13/11/2001 | vu 1518 fois | SwissDelphiCenter | |
Savoir si le CD est un CD audio |
||||
///drive = lettre du lecteur de CD function IsAudioCD(Drive : char) : bool; var DrivePath : string; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; VolumeName : string; OldErrorMode:... | ||||
| Delphi - Trucs et astuces - Multimedia | le 13/11/2001 | vu 1484 fois | SwissDelphiCenter | |