Exemples pour coder avec Delphi Trucs et astuces Multimedia

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 2587 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 2072 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 1946 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 3766 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 1870 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 1913 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 2286 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 2077 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 1765 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 1741 fois SwissDelphiCenter
  • 17 articles - Page
  • 1
  • 2
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues