Foros - MPUSBAPI.DLL en FreeBasic
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Oceano2012 Recién llegado
Registrado: 31 May 2010 Mensajes: 1
|
Publicado: 31/05/10 (17:23:57) Asunto: MPUSBAPI.DLL en FreeBasic |
|
|
Problema resuelto aquí con un ejemplo práctico:
http://www.freebasic.net/forum/fo/vt/p/136968/
Decía...:
Hola!
Estoy intentando acceder a la librería MPUSBAPI.DLL (que sirve para poder acceder a los microcontroladores de la serie 18Fxx5x por USB), pero no lo consigo. Sabe alguien cómo poder acceder a ella con FreeBasic?
Las funciones más importantes son estas:
* MPUSBOpen
* MPUSBRead
* MPUSBWrite
* MPUSBClose
* MPUSBGetDeviceCount
Expongo lo que llevo hecho de momento sin resultado satisfactorio:
| Código: |
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
|
|
|
| Volver arriba |
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|