WMP to VLC Class / #xtranslate ?

Klassen, Objekte, Methoden, Instanzen

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12906
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 45 Mal

WMP to VLC Class / #xtranslate ?

Beitrag von AUGE_OHR »

moin,

ich habe doch da meinen WMPlayer der auch "Grundfunktionen" des VLC Player kann.
nun will ich das VLC Modul mal "richtig" ausbauen und bin wieder bei "dem" Problem.

die "play","volume"und "Position" Methode von den beiden Engine

Code: Alles auswählen

oWMP:Controls:play
oVLC:Playlist:play

oWMP:Settings:volume
oVLC:Audio:Volume

oWMP:Controls:currentPosition
oVLC:Input:Time

oder "relative" (0-1)
oVLC:Input:Position 
wenn ich also eine Class schreibe, welche vorhandene WMP "Syntax" nach VLC
"übersetzen" soll würde das wohl so aussehen

Code: Alles auswählen

CLASS XBVLC FROM XbpActiveXControl
...
METHOD   Init()
METHOD   Create()
//
// WMP Equivalent
//
METHOD   Equivalent()
VAR Controls
VAR Settings
VAR Media
ENDCLASS

METHOD XBVLC:Init(oParent, oOwner, aPos, aSize, aPP, lVisible)
   ::XbpActiveXControl:Init( oParent, oOwner, aPos, aSize)
   ::CLSID   := "VideoLAN.VLCPlugin.2"

   ::Controls  := NIL
   ::Settings  := NIL
   ::Media     := NIL
RETURN self

METHOD XBVLC:Create(oParent, oOwner, aPos, aSize, aPP, lVisible)
   ::XbpActiveXControl:Create( oParent, oOwner, aPos, aSize)
RETURN self

METHOD XBVLC:Equivalent()
   ::Controls  := ::playlist
   ::Settings  := ::audio
   ::Media     := ::input
RETURN self
damit "müsste" ich doch bei

Code: Alles auswählen

oWMP:Controls:play -> oVLC:Playlist:play
sein, also das die WMP "Syntax" auf VLC "ümgeleitet" wird, oder ?

... oder geht das irgendwie mit #xtranslate ? ... dann frage ich mich ob das Konzept "so" richtig ist.
gruss by OHR
Jimmy
Antworten