Ausgabe

Das kommt wohl ziemlich auf das verwendete Interface an... ::)

Welche Programmiersprache hättest Du denn gerne?
Im Projektarchiv sind DLLs mit denen das eigentlich recht einfach ist. Gibt da verschiedene Varianten mit unterschiedlichen möglichkeiten (ein oder mehrere Inerfaces). Hätte hier auch noch ein Sampleprogramm in vb.Net falls das was hilft..

Gruß
Matthias

Hier schon mal die auf VB-Syntax umgeschriebenen DLL-Deklarationen:

Public Declare Function GetAllConnectedInterfaces Lib "usbdmx.dll" () As SerialListPublic Declare Function GetAllOpenedInterfaces Lib "usbdmx.dll" () As SerialListPublic Declare Function SetInterfaceMode Lib "usbdmx.dll" (ByVal SerialPtr As Long, ByVal Mode As Byte) As LongPublic Declare Function OpenLink Lib "usbdmx.dll" (ByVal SerialPtr As Long, ByVal PtrDMXOutArray As Long, ByVal PtrDMXInArray As Long) As LongPublic Declare Function CloseLink Lib "usbdmx.dll" (ByVal SerialPtr As Long) As LongPublic Declare Function CloseAllLinks Lib "usbdmx.dll" () As Long'RegisterInterfaceChangeNotification(Proc: THOSTDEVICECHANGEPROC): DWORD;'UnregisterInterfaceChangeNotification: DWORD;Public Declare Function RegisterInputChangeNotification Lib "usbdmx.dll" (ByVal ProcPtr As Long) As LongPublic Declare Function UnregisterInputChangeNotification Lib "usbdmx.dll" () As LongPublic Type Serial Serial(15) As ByteEnd TypePublic Type SerialList SerialList(31) As SerialEnd Type

und noch mein Code zum Aktivieren der Ausgabe:

Public Function Enable() As Boolean 
 Dim Ser As Serial
 
 If InterfaceSerial <> "0000000000000000" Then
  CloseAllLinks
  Ser = SerialstringToSerial(InterfaceSerial)
  ptr = VarPtr(Ser.Serial(0))
  ret = OpenLink(ptr, VarPtr(DMXOut(0)), VarPtr(DMXIn(0)))
  If ret Then
   OutputEnable = True
   SetInterfaceMode ptr, InterfaceMode
   RegisterInputChangeNotification AddressOf DMXIn_Changed_Callback
   Enable = True
  Else
   MsgBox "Link zum Interface konnte nicht geöffnet werden. Ist das Interface mit der Seriennummer '" & InterfaceSerial & "' angeschlossen?", vbCritical, "Interface nicht gefunden"
   Enable = False
  End If
 Else
  MsgBox "Bitte wählen Sie zunächst in der Konfiguartion ein Interface aus.", vbInformation, "Kein Interface gewählt"
  Enable = False
 End If
End Function

Damit sollte der Rest kein großes Problem mehr sein, steht ja alles in der Doku...

ich frag mich ja immer was ihr alle an vb so toll findet ::)
Hab früher auch in vb programmiert, aber als es in den zeitkritischen Bereich kam bin ich dann doch ganz schnell zu delphi gewechselt. Kann ich jedem nur empfehlen wenn c++ zu kompliziert wirkt und es trotzdem schnell sein soll..

Hallo,

habe gerade im Projektarchiv eine Simple-DLL Version hinzugefügt mit Codebeispiel in VB. Die DLL kann das erste angeschlossene Interface in beliebigem Mode öffnen. Device bzw. Input Change Notification gibts jedoch nicht.

Michael