MP3 PlayMate erweitern

[voyo]

Hallo,
ich habe an dieser seite http://www.eknori.de/archives/135 eine Anleitung fur Mp3 abspielen in Lotus notes gefunden.

<sub>---------------------------------
(1.) Declare the Function
Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA”_
(Byval lpszCommand As String,_
Byval lpszReturnString As String,_
Byval cchReturnLength As Long,_
Byval hwndCallback As Long) As Long

(2.) Use “mciSendString” to invoke the commands:

Syntax: mciSendString(sCommand, 0, 0, 0)

where sCommand is:

Load the mp3 file:=  “open ” & sMp3FileLocation & ” type MPEGVideo alias Mp3File”
Play the mp3 file (Now you can use the Alias):= “play Mp3File” from 0″
Pause:= “pause Mp3File”"
Stop:= “stop Mp3File”
and unload from mem, unlock file:= “close Mp3File”

(3.) put the commands into a button for testing purpose

Sub Click(Source As Button)
        Dim sCommand As String       
        Dim sMP3FileLocation As String   
        sMP3FileLocation = “whateverMP3youlike.mp3″           
        sCommand = “Open “ & sMP3FileLocation & “  type MPEGVideo alias MP3File”   
        Call mciSendString(sCommand, 0, 0, 0)     
        scommand = “play MP3File from 0″       
        Call mciSendString(sCommand, 0, 0, 0)             
        Msgbox “OK”             
        scommand = “stop MP3File”       
        Call mciSendString(sCommand, 0, 0, 0)           
        scommand =“close MP3File”       
        Call mciSendString(sCommand, 0, 0, 0)
End Sub

(4.) tweak PlayMate
(5.) Have fun !!
------------------------------------</sub>


Habe mit die Mp3 PlayMate Datenbank runtergeladen, doch ich kann nichts damit anfangen ( mit der Anleitung)
Kann mich jemand fuhren, wo ich wass eingeben soll? Habe da eigentlich keine ahnung
Vielen dank

[koehlerbv]

Habe da eigentlich keine ahnung

Dann sieht es finster aus ...

[voyo]

etwass ahnung habe ich doch bin geradu beim lernen.
Ist es moglich ein step zu step anleitung zu schreiben?
ich wurde dankbar
danke

[koehlerbv]

bin geradu beim lernen

Zum Lernen ist das das vollkommen falsche Objekt.

[y20frank]

*hehe* die Db habe ich mir auch schon vorgenommen und ist für meine MP3 Sammlung mittlerweile der "führende" Bestand...
Das Auslesen der MP3-Tags habe ich etwas geändert, ein paar neue Features mit eingebaut, Ansichten geändert... aber nix ernstes und eigentlich "nur-für-mich" gemacht...
Na ja, die Grundlage war ja auch schon recht genial programmiert!

Anbei ein paar ScreenShots...

[shiraz]

kann man diese playmate irgenwie downloaden?


ohne inhalt, selbstverständnis!!

christian

[y20frank]

Schick mir mal deine E-Mail Adresse an: solar_driftwood@gmx.de

Welchen Inhalt meinst du überhaupt...?! 

[voyo]

Ich habe da ein kleines VB script

Set d=CreateObject("SAPI.SpVoice")
Set d.Voice=d.GetVoices("Name=Microsoft Sam").Item(0)
d.Speak " test "

der perfekt funktioniert wenn mann ihn z.b. in windows in ein test.vbs reintut und startet

wie konnte ich diesen ins lotus script umwandeln? Ist es uberhaupt moeglich?

[koehlerbv]

Das sollte ohne weiteres machbar sein - VB tut hier wie LotusScript.

Wie die COM-Schnittstelle im Zusammenhang mit Notes funktioniert, hat IBM im Redbook COM together ausführlich beschrieben.

Bernhard

[voyo]

Das sollte ohne weiteres machbar sein - VB tut hier wie LotusScript.

Wie die COM-Schnittstelle im Zusammenhang mit Notes funktioniert, hat IBM im Redbook COM together ausführlich beschrieben.

Bernhard

Danke , es funktioniert, doch ich  hatte die Kopfhorer drinnen und nichts gehort