Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Oceano2012
Anmeldungsdatum: 31.05.2010 Beiträge: 4
|
Verfasst am: 31.05.2010, 00:24 Titel: MPUSBAPI.DLL [Gelöst!] |
|
|
.
.
.
.
Problem mit einem Beispiel aus der Praxis gelöst hier:
http://www.freebasic.net/forum/viewtopic.php?p=136968
Hallo!
Wie kommt man zum FreeBasic DLL (Mikrochip) übersetzen "mpusbapi.dll? Ich bin nur fünf Grundfunktionen der 10 er hat interessiert:
* MPUSBOpen
* MPUSBRead
* MPUSBWrite
* MPUSBClose
* MPUSBGetDeviceCount
Ich versuchte, die Übersetzungen von VB oder C++ zu tun FreeBasic aber ohne Erfolg:
(Ist in FreeBasic)
Code: |
Cls
Const MPUS_FAIL = 0
Const MPUSB_SUCCESS = 1
Const MP_WRITE = 0
Const MP_READ = 1
Const MAX_NUM_MPUSB_DEV = 127
Const Vid_Pid = "VID_04D8&PID_000A"
Const Outpipe = "\\MCHP_EP3"
Const Inppipe = "\\MCHP_EP3"
Dim As UInteger MyInpPipe
Dim As UInteger MyOutPipe
Dim As Integer Count
Dim As Any Ptr hLib
hLib = DylibLoad( "mpusbapi.dll" )
If hLib = 0 Then End
Dim Version As Function () As UInteger
Dim OpenUSB As Function ( ByVal As UInteger, ByVal As String, ByVal As String, ByVal As UInteger, ByVal As UInteger) As Integer
Dim ClosUSB As Function ( ByVal As String ) As Integer
Dim DevCont As Function ( ByVal As String ) As Integer
Version = DyLibSymbol( hLib, "_MPUSBGetDLLVersion" )
OpenUSB = DyLibSymbol( hLib, "_MPUSBOpen" )
ClosUSB = DyLibSymbol( hLib, "_MPUSBClose" )
DevCont = DyLibSymbol( hLib, "_MPUSBGetDeviceCount" )
Count = DevCont(Vid_Pid)
If (Count > 0) Then
MyOutPipe = OpenUSB( 0, Vid_Pid, Outpipe, MP_WRITE, 0 )
MyInpPipe = OpenUSB( 0, Vid_Pid, Inppipe, MP_READ, 0 )
Else
Print "Failed to open data pipes.!"
Sleep
End
EndIf
ClosUSB ( Outpipe )
Sleep
End
|
Zuletzt bearbeitet von Oceano2012 am 13.06.2010, 01:23, insgesamt 3-mal bearbeitet |
|
Nach oben |
|
|
Lutz Ifer Grillmeister
Anmeldungsdatum: 23.09.2005 Beiträge: 555
|
Verfasst am: 02.06.2010, 23:18 Titel: |
|
|
No offense - this is a german board. Try visiting freebasic.net for english support. _________________ Wahnsinn ist nur die Antwort einer gesunden Psyche auf eine kranke Gesellschaft. |
|
Nach oben |
|
|
Oceano2012
Anmeldungsdatum: 31.05.2010 Beiträge: 4
|
Verfasst am: 03.06.2010, 00:03 Titel: Entschuldigen Sie mich. |
|
|
OK, danke!
Ich habe herausgegeben und übersetzt den Text mithilfe von Google Translate. |
|
Nach oben |
|
|
28398
Anmeldungsdatum: 25.04.2008 Beiträge: 1917
|
Verfasst am: 03.06.2010, 12:59 Titel: |
|
|
Go to freebasic.net/forum |
|
Nach oben |
|
|
Oceano2012
Anmeldungsdatum: 31.05.2010 Beiträge: 4
|
|
Nach oben |
|
|
|