MCIClass Library 0.5

[ts-soft]

Ich hab mich gestern zum ersten mal etwas intensiver mit OOP in
PureBasic befaßt, und dabei dann diese Lib entwickelt.
Der Code basiert auf MCICommands.pbi von GPI, jedoch in eine Classe
gepackt. Die Nutzung ist auch für Leute, die noch nie mit OOP zu tun
hatten Kinderleicht.

Das Interface (befindet sich in der Resident-Datei):

Code: Alles auswählen

Interface MCIClass
  Load(File.s)
  Play()
  PlayStart()
  PlayPart(startPos.l, endPos.l)
  Pause()
  Resume()
  Stop()
  Free()
  SetVolume(Volume.l)
  GetVolume()
  SetSpeed(Tempo.l)
  GetSpeed()
  GetLength()
  GetPosition()
  Seek(Pos.l)
  Version.s()
EndInterface

Ein kleines Beispielprogramm:

Code: Alles auswählen

; Objekte erstellten
snd.MCIClass = New_objMCI()
avi.MCIClass = New_objMCI()

MessageRequester("Versionsinformation", snd\Version())

; Sound und Avi laden
snd\Load("C:\WINDOWS\Media\Windows XP-Startvorgang.wav") ; Pfade bitte anpassen
avi\Load("C:\WINDOWS\clock.avi")

snd\Play() ; abspielen
avi\Play()

Delay(12000)

snd\Free() ;Objekt freigeben
avi\Free()

Die einzige Funktion der Lib, die zum Erzeugen des Objekts:
New_objMCI()
Feedback erwünscht. Wenn die Lib fertig ist, gibts dann auch den Source
dazu.

MCIClass 4,5 kb

[DarkDragon]

Klasse! War grad aufm Klo, konnte deshalb nicht schneller Antworten. Aber es sind ja nicht ganze Klassen, es sind nur Interfaces. In PureBasic schreibt man Klassennamen dann für gewöhnlich mit einem I davor. Also bei dir IMCI

[ts-soft]

Seit wann gibt es in PureBasic regeln für OOP , werde es vielleicht in der nächsten Version ändern, mal sehen was die anderen sagen. Haste denn schon mal getestet?

[Kiffi]

Hallo Thomas,

> Feedback erwünscht.

ich habe mich zuvor noch nicht mit den MCI-Sachen beschäftigt. Mir stellt
sich nun die Frage, ob es möglich ist, den aktuellen Zustandsstatus zu
ermitteln. Dann könnte man ja folgendes Konstukt bauen:

Code: Alles auswählen

avi\Play()

Repeat
 if avi\Finished() : Break : EndIf
 ; DOEVENTS() ; Oder vergleichbares
ForEver

snd\Free()

Ansonsten funktioniert Deine Lib auf meinem Rechner tadellos.
Leider habe ich noch keinen Verwendungszweck dafür.

Danke & Grüße ... Kiffi

P.S.: Ich sehe gerade, dass die Resident-Datei ''MCIClass..res" heisst.
Ist da nicht ein Punkt zuviel?

[ts-soft]

Hallo Peter

Hallo Thomas,

> Feedback erwünscht.

ich habe mich zuvor noch nicht mit den MCI-Sachen beschäftigt. Mir stellt
sich nun die Frage, ob es möglich ist, den aktuellen Zustandsstatus zu
ermitteln. Dann könnte man ja folgendes Konstukt bauen:

Code: Alles auswählen

avi\Play()

Repeat
 if avi\Finished() : Break : EndIf
 ; DOEVENTS() ; Oder vergleichbares
ForEver

snd\Free()

Code: Alles auswählen

avi.MCIClass = New_objMCI()

avi\Load("C:\WINDOWS\clock.avi")

avi\Play()

Repeat
  If avi\GetLength() <= avi\GetPosition() : Break :EndIf
  Delay(100)
ForEver
  
avi\Free()

Ist immer vorher zu testen, funzt nicht mit jeder Datei, bzw., Ungenauigkeiten müssen berücksichtigt werden.

Ansonsten funktioniert Deine Lib auf meinem Rechner tadellos.
Leider habe ich noch keinen Verwendungszweck dafür.

Danke & Grüße ... Kiffi

P.S.: Ich sehe gerade, dass die Resident-Datei ''MCIClass..res" heisst.
Ist da nicht ein Punkt zuviel?

Ist mir garnicht aufgefallen, der Source heißt MCIClass.pbi, also sollte ja MCIClass.res entstehen
Und, ist OOP so schwer?

Freut mich, wenns gefällt!

//Edit:
Das mit den 2 Punkten scheint ne Macke von Tailbite zu sein, macht er wohl nur, wenn nur ein Interface in der Resident ist. Werde ich mal weiter beobachten und dann El_Choni melden.

[Kiffi]

> Und, ist OOP so schwer?

für mich sowieso nicht.

Da ist es schon schwieriger mit PB zu arbeiten

Grüße ... Kiffi

[ts-soft]

Hab ja extra eine Lib draus gemacht, ansonsten ist ja keine echte Kapselung
vorhanden. Ob Vererbung auch geht, werde ich dann auch noch mal
austüfteln. Aber erstmal hab ich klein angefangen

[Delle]

Ist das eigentlich mittlerweile fertig als Lib oder Klasse?

[ts-soft]

Ist das eigentlich mittlerweile fertig als Lib oder Klasse?

Nein, eingestellt!

[remi_meier]

Jetzt wo ichs grad seh, für eine "Finished" Funktion könnte folgender
Code funktionieren (natürlich anpassen):

Code: Alles auswählen

Procedure.l SNDHasStopped(id.s)
  Protected Buffer.s
  Buffer = Space(255)
  mciSendString_("status " + id + " mode", Buffer, 255, 0)
  If Buffer = "stopped"
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure