Lecteur MPG

Marsh Posté le 05-06-2003 à 19:08:26

Salut a tous,

Je voudrais savoir comment faire un simple lecteur MPG en utilisant le composant TMediaPlayer.

Merci de m'aider

Reply

Marsh Posté le 05-06-2003 à 19:08:26

Reply

Marsh Posté le 05-06-2003 à 19:53:58

Crazy-Eagle a écrit :

Salut a tous,

Je voudrais savoir comment faire un simple lecteur MPG en utilisant le composant TMediaPlayer.

Merci de m'aider

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
case Button of
btPlay: MediaPlayer1.Play;
btStop: MediaPlayer1.Stop;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If not Opendialog1.Execute then exit;
MediaPlayer1.FileName := Opendialog1.FileName;
MediaPlayer1.Open;
end;

Et dans ton opendialog, tu met un filtre en *.mpg

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

Reply

Marsh Posté le 05-06-2003 à 20:09:56

Il est pas beau ton code

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 05-06-2003 à 20:17:57

antp a écrit :

Il est pas beau ton code

cad ?

J'aurai effectivement pu mettre un with MediaPlayer1 dans chaque proc. Et puis aussi peut-etre que tu prefere commencer l'indentation des le 1er begin/en. Moi j'aime pas trop, spa trop aux normes mais ca va, personne me relis jamais. En general, BS integre mes trucs a la brutale : ca compile, c que c bon !

Et je passe sur mon dernier truc utilisant le VTV ou tout passe uniquement pke le timeout du VTV est plus lent que celui du thread principal (et donc essaye pas de m'afficher des nodes dont les donnees ont disparu).

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

Reply

Marsh Posté le 05-06-2003 à 20:24:54

non le with pour 2 lignes on s'en fout, je faisais allusion aux lignes non identées et au if not ... then exit qui est pas bô, normalement on fait plutôt if ... then ... en mettant le truc à faire dans le if.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 05-06-2003 à 20:29:32

antp a écrit :

non le with pour 2 lignes on s'en fout, je faisais allusion aux lignes non identées et au if not ... then exit qui est pas bô, normalement on fait plutôt if ... then ... en mettant le truc à faire dans le if.

If not truc then bidule; spabeau ?
Ben chui pas en lice pour le "plus beau code award" alors :whistle:

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

Reply

Marsh Posté le 05-06-2003 à 20:31:33

ciler a écrit :

If not truc then bidule; spabeau ?

le fait de sortir de la fonction plutôt que d'englober le reste du code dans un if...

parce que si par après tu dois rajouter un truc à faire dans les deux cas tu dois tout modifier

puis pour le beau code, c'est surtout une question de lisibilité... quand t'es habitué à lire le code formatté de la manière dont Borland le recommande, t'as plus facile à lire ce code-là, et ça tombe bien vu que c'est ça que la majorité des gens utilisent...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 05-06-2003 à 20:39:29

Hum, et ma vidéo et sort ou ? TImage ? ou comment je fais pour l'afficher ? J'avais lu qque part qu'il fallait passer par un TPanel ...

Reply

Marsh Posté le 05-06-2003 à 20:54:20

Crazy-Eagle a écrit :

Hum, et ma vidéo et sort ou ? TImage ? ou comment je fais pour l'afficher ? J'avais lu qque part qu'il fallait passer par un TPanel ...

La ca va te faire une fenetre independante. APres si tu veux faire des subtilites, c a toi de voir, mais c un poil plus penible.

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

Reply

Marsh Posté le 05-06-2003 à 21:01:33

Ya rien qui s'ouvre, rien qui s'affiche, j'ai beau faire Display ou rien ya KEDAL :cry: :cry: :cry:

HELP NEEDED :??:

Reply

Marsh Posté le 05-06-2003 à 21:01:33

Reply

Marsh Posté le 13-06-2003 à 09:32:37

Ta propriété AutoOpen est à True ?

http://cyberforce.phpnet.org/phpbb/index.php

Reply

Lecteur MPG

Sujets relatifs:

Leave a Replay