Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: voyo am 01.03.07 - 16:33:50
-
Hallo,
ich habe an dieser seite http://www.eknori.de/archives/135 eine Anleitung fur Mp3 abspielen in Lotus notes gefunden.
---------------------------------
(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 !!
------------------------------------
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
-
Habe da eigentlich keine ahnung
Dann sieht es finster aus ...
-
etwass ahnung habe ich doch :) bin geradu beim lernen.
Ist es moglich ein step zu step anleitung zu schreiben?
ich wurde dankbar
danke :)
-
bin geradu beim lernen
Zum Lernen ist das das vollkommen falsche Objekt.
-
*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...
-
kann man diese playmate irgenwie downloaden?
ohne inhalt, selbstverständnis!! ;D
christian
-
Schick mir mal deine E-Mail Adresse an: solar_driftwood@gmx.de
Welchen Inhalt meinst du überhaupt...?! ::)
-
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?
-
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 (http://www.redbooks.ibm.com/abstracts/sg245670.html?Open) ausführlich beschrieben.
Bernhard
-
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 (http://www.redbooks.ibm.com/abstracts/sg245670.html?Open) ausführlich beschrieben.
Bernhard
Danke , es funktioniert, doch ich hatte die Kopfhorer drinnen und nichts gehort :)