Discussion :

[Roland Chastain]

Bonjour !

Voici un exemple de code utilisant l'unité Sound de Flash-Pascal 0.8 pour lire un fichier mp3.

J'avais besoin d'un lecteur qui lise toujours le même fichier. Je n'ai pas pris le temps de lui faire des boutons: il se commande avec les touches du clavier.

Sur mon ordinateur (qui n'est pas très rapide), il faut parfois attendre quelques secondes pour que la musique démarre, mais ça marche.

Je compte encore travailler dessus. Donc si vous avez des améliorations à me suggérer, elles seront bienvenues.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program test_mp3;
 
// Lecture d'un fichier audio au format MP3
 
uses
  Flash8, Sound;
 
{$FRAME_WIDTH 360}
{$FRAME_HEIGHT 240}
{$BACKGROUND $ffffff}
 
type
  TEditBox=class(TextField)
    procedure onKeyDown;
  end;
 
var
  f: TextFormat;
  e: TEditBox;
  t: TextField;
  s: Sound;
 
procedure TEditBox.onKeyDown;
begin
  if Key.getAscii=13 then s.Start(0,1) else s.Stop;
end;
 
begin
  f:=TextFormat.Create('Tahoma',12);
  f.color:=$111111;
  f.bold:=True;
 
  e:=TEditBox.Create(nil,'input',0,0,0,360,240);
  e.type:='input';
  Key.addListener(e);
 
  t:=TextField.Create(nil,'output',1,0,0,360,240);
  t.text:='J.-S. Bach Cantate Ich habe genug BWV 82'+#13+
  'Dietrich Fischer-Dieskau'+#13+#13+
 
  'Appuyez sur '+"Entrée"+' pour commencer la lecture,'+#13+
  'sur n''importe quelle autre touche pour l''interrompre.';
 
  t.setTextFormat(0,Length(t.text),f);
 
  s:=Sound.Create(_root);
  s.loadSound('abschied.mp3',false);
end.

abschied.mp3

[Archimède]

merci pour cette découverte. ça fait gagner du temps

D'après ce que j'ai compris, tu peux te simplifier la vie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  t:=TextField.Create(nil,'output',1,0,0,360,240);
  t.setNewTextFormat(f);

au lieu de setTextFormat..

@+

[Roland Chastain]

D'après ce que j'ai compris, tu peux te simplifier la vie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  t:=TextField.Create(nil,'output',1,0,0,360,240);
  t.setNewTextFormat(f);

au lieu de setTextFormat..

Oui, j'ai vu ça aussi mais je n'ai pas encore eu le temps de l'étudier. A suivre !

[Archimède]

En fait, c'est simple... Si tu veux fixer une police, tu utilises :
setNewTextFormat avant ton Field.Text. Et si tu veux ajouter une police particulière à un endroit de la chaîne, tu utilises setTextFormat avec son beginindex et endindex...
A ajouter en dessous de ton Field.Text.

@+

[Archimède]

Pour reprendre la police symbole avec la nouvelle version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
program Textes;
 
uses
  Flash8;
 
 
 
var
  Format1: TextFormat; 
  Format2: TextFormat;  
  Field  : TextField; 
 
begin
 
  Format1 := TextFormat.Create('Arial', 20, $000000);
  Format2 := TextFormat.Create('Symbol',20,$000000);
  Field := TextField.Create(nil, '', 1, 10, 10, 150, 40);
  Field.SetNewTextFormat(Format1);
  Field.Text := 'd=100 mm';
  Field.SetTextFormat(6,7,Format2);  
end.

[Roland Chastain]

C'est simple en effet. Merci pour l'explication et l'exemple.