active x vlc dans delphi 6
Posted: 02 Dec 2006 16:17
bonjour a tous est toutes ges un petit probleme avec le plugin vlc dans delphie 6 Enfaîte se que je veut faire c est comme l?images en dessous dans ma premier listbox la liste m3u brut qui est invisible sur ma forme dans la 2 listbox je garde que les chaînes qui ges récupéré dans la listbox 1 est dans la troisième listbox toute les url de la premiers la troisième listbox est invisible aussi
Enfaite mon problème c est que je n arrive pa a faire en sorte que quand la personne clique sur France 2 par exemple sa clique sur l url de France 2 automatiquement pour lancer France 2 dans la fenêtre pluging de vlc mille excuse pour les fautes je ne suis pa bon en Français
l'images est ici
ges toruver se morcequax de code sur le net
pourier vous medez je narrive a me servir de se code dans delphi pour lancer dans le pluging merci a tous est toutes de votre aidez
Enfaite mon problème c est que je n arrive pa a faire en sorte que quand la personne clique sur France 2 par exemple sa clique sur l url de France 2 automatiquement pour lancer France 2 dans la fenêtre pluging de vlc mille excuse pour les fautes je ne suis pa bon en Français
l'images est ici
ges toruver se morcequax de code sur le net
Code: Select all
unité Unit1 ;
interface
uses Windows, Variants, Forms, classes, Controls, StdCtrls, OleCtrls, AXVLC_TLB ;
Type
TForm1 = classe (TForm)
VLCPlugin1 : TVLCPlugin ;
Button1 : TButton ;
procedure Button1Click (sender : TObject) ;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
Type
VLCPlaylistMode = TOleEnum ;
const
VLCPlayListInsert = $00000001 ;
VLCPlayListReplace = $00000002 ;
VLCPlayListAppend = $00000004 ;
VLCPlayListGo = $00000008 ;
VLCPlayListCheckInsert = $00000010 ;
var
Form1 : TForm1 ;
implementation
{$R *.dfm}
procedure TForm1.Button1Click (sender : TObject);
begin
VLCPlugin1.addTarget ('C:\video.mpg',nil,VLCPlayListInsert, 0) ; // vous pouvez employer n'importe quel MRL avec des paramètres au lieu de « c:\video.mpg » ici
VLCPlugin1.play ;
end;
end.