Comment puis-je lire des fichiers DVD en utilisant wmp.dll?

Question

J'ai besoin d'aide avec mon application VB6. J'ai un formulaire avec une référence à wmp.dll (Windows Media Player 9 ocx). Je peux jouer de nombreuses extensions de fichiers comme MPEG MPEG, AVI, QT et autres, mais je veux lire des fichiers DVD. J'utilise le code suivant:

wmp.url = "D:\VIDEO_TS\VTS_01_0.VOB" 

Cette commande fonctionne dans tous les fichiers, mais pas pour les fichiers DVD.

J'ai aussi essayé d'utiliser:

commondialog1.showopen 
wmp1.url=commondialog1.filename 
wmp1.controls.play 

Cela ne fonctionne pas.

La seule fonction qui fonctionne est:

wmp1.showplayer(url as string) 

Mais cela montre l'objet lecteur multimédia, et joue le fichier. Je veux voir le film dans ma forme pas dans le mediaplayer.

Un corps peut-il m'aider? Merci beaucoup.

(je suis de l'Argentine et parle peu l'anglais, donc s'il vous plaît excusez-moi tout.)

Answer 1

Avez-vous essayé d'accéder au DVD comme ceci:

dvd://E:\ 

Où E:\ est le lecteur de DVD sur votre ordinateur?

Answer 2

Voir Windows Media Player SDK. Particulièrement, il peut être intéressant de payer l'usure à DVD Object.

Answer 3

Voici comment je fais enfin à Delphes, supposé que le DVD est le lecteur D:

wmp1.URL := 'wmpdvd://D'; 

et voici comment vous explorer l'URL de la playlist DVD

procedure TForm1.ExploreDVD; 
var 
    i, j : Integer; 
    cd: IWMPCdrom; 
    pl: IWMPPlaylist; 
begin 
    for i := 0 to wmp1.cdromCollection.Count - 1 do 
    begin 
    cd := wmp1.cdromCollection.Item(i); 
    pl := cd.Playlist; 

    WriteLn(cd.driveSpecifier); 
    WriteLn(pl.Name); 
    for j := 0 to pl.count-1 do 
     WriteLn(pl.Item[j].sourceURL); 
    end; 
end; 

Hope this helps autre les gens à la recherche de la réponse.