Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ActiveMovie
Autor: L.B.
Datum: 26.07.02 14:25
Ich habe dir 2 Functionen zusammengestellt, womit du Mid-Dateien abspielen kannst und stopen kannst: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Function DoMidPlay(Datei As String) Dim bResult As Boolean Dim sBuffer As String Dim lResult As Long On Error Resume Next sBuffer = Space$(255) lResult = GetShortPathName(Datei, sBuffer, Len(sBuffer)) If lResult <> 0 Then Datei = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) If mciSendString("open " & Datei & " type sequencer alias MIDIF", 0, 0, 0) = 0 Then mciSendString "play MIDIF from 0", 0, 0, 0 End If End If End Function Private Function DoMidSchließen() On Error Resume Next mciSendString "stop MIDIF", 0, 0, 0 mciSendString "close MIDIF", 0, 0, 0 End Function

ActiveMovie	82	Cristian	21.07.02 11:26
Re: ActiveMovie	69	L.B.	26.07.02 14:25
Re: ActiveMovie	66	Cristian	26.07.02 15:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen