Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: midi port treiber name
Autor: Martoeng (Moderator)
Datum: 05.11.07 21:36
die letzten zwei parameter sind dword-zeiger. schon mal das beispiel von allapi.net ausprobiert? Const MAXPNAMELEN = 32 Private Type MIDIOUTCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN wTechnology As Integer wVoices As Integer wNotes As Integer wChannelMask As Integer dwSupport As Long End Type Private Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer Private Sub Form_Paint() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim MidiCaps As MIDIOUTCAPS, Cnt As Long 'Clear the form Me.Cls 'Get the number of installed MIDI devices Me.Print "Available midi devices:" + Str$(midiOutGetNumDevs) For Cnt = 0 To midiOutGetNumDevs - 1 'Get the device name and capabilities midiOutGetDevCaps Cnt, MidiCaps, Len(MidiCaps) Me.Print "Device name" + Str$(Cnt + 1) + ": " + MidiCaps.szPname Next Cnt End Sub (vb6-code) vbarchiv.dll (Freeware), Tutorials uvm. auf http://www.martoeng.com.

midi port treiber name	3.000	buchel	05.11.07 14:58
Re: midi port treiber name	1.762	mikeb69	05.11.07 18:01
Re: midi port treiber name	1.758	buchel	05.11.07 21:13
Re: midi port treiber name	1.846	Martoeng	05.11.07 21:36
Re: midi port treiber name	2.220	mikeb69	06.11.07 21:20
Re: midi port treiber name	1.633	buchel	06.11.07 23:33
Re: midi port treiber name	1.577	buchel	07.11.07 14:10

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