voila, pour un lecteur, je lis des vidéo dans tPanel. Les vidéo sont chargées à partir d"un listbox, grace a ce code :
la ca fonctionne.
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 P.left:= 45;//coordonnées absolues P.Top:= 40; P.Width:= 400; P.Height:= 220; Rect.Left:=0 ;//Coordonnées relatives au Panel P Rect.Top:=0; Rect.Right:=P.Width-0; Rect.Bottom:=P.Height-0; Gauge1.Progress:=mp.Position; i := 0; while i < PlayList.Count do begin if ListBox1.Selected[i] then begin idx := i; i := PlayList.Count; end; inc(i); end; if PlayList.Count > 0 then if FileExists(PlayList[Idx]) then begin mp.Display:=p; mp.DisplayRect:=rect; Playing := True; PlaySuport(Idx); end;
Par contre, je voudrais lire une vidéo fixe ki se lance a l'ouverture par exemple, mais je n'arrive pas à le faire, si quelqu'un peut m'aider...
Partager