A voir également:
- Question sur le composant TMediaPLayer !
- Test composant pc - Guide
- Connaitre composant pc - Guide
- Temperature composant pc - Guide
- Un document .docx est, en réalité, composé de plusieurs fichiers. dans le fichier à télécharger, trouvez le fichier secret. quel mot contient-il ? ✓ - Forum Windows
- Le numéro que vous avez composé n'est pas attribué - Forum telephonie fixe
2 réponses
Voici un TRUC que tu peux essayer ...
---------------------------------------------------------------------------
type
Tableau_HMS = record
H: byte;
M: byte;
S: byte;
Non Utilisé: byte;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var Longueur: LongInt;
begin
MediaPlayer1.TimeFormat := tfHMS;
{ Initialise le format de l'heure - remarquez que certains pilotes ne supportent pas tfHMS }
Longueur := MediaPlayer1.Length;
{ Récupérer la .Length dans la variable Longueur }
with Tableau_HMS(Longueur) do
{ Transtyper Longuer dans un Tableau_HMS }
begin
Label1.Caption := IntToStr(Hours);
{ Affiche les heures dans Label1 }
Label2.Caption := IntToStr(Minutes);
{ Affiche les minutes dans Label2 }
Label3.Caption := IntToStr(Seconds);
{ Affiche les secondes dans Label3 }
end ;
end ;
----------------------------------------------------------------------------
</alicia_3107>
---------------------------------------------------------------------------
type
Tableau_HMS = record
H: byte;
M: byte;
S: byte;
Non Utilisé: byte;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var Longueur: LongInt;
begin
MediaPlayer1.TimeFormat := tfHMS;
{ Initialise le format de l'heure - remarquez que certains pilotes ne supportent pas tfHMS }
Longueur := MediaPlayer1.Length;
{ Récupérer la .Length dans la variable Longueur }
with Tableau_HMS(Longueur) do
{ Transtyper Longuer dans un Tableau_HMS }
begin
Label1.Caption := IntToStr(Hours);
{ Affiche les heures dans Label1 }
Label2.Caption := IntToStr(Minutes);
{ Affiche les minutes dans Label2 }
Label3.Caption := IntToStr(Seconds);
{ Affiche les secondes dans Label3 }
end ;
end ;
----------------------------------------------------------------------------
</alicia_3107>
