La mpusbapi.dll desencadenada: PC <-> PIC vía USB en Delphi

[LABmouse]

Maestro RedPic, no termino de masticar la com USb-CDC y ya serviste en bandeja de plata esta com. !!!   Eres una maquinita de undir teclas en tu PC. Ya veo que se estan haciendo rico vendiendote teclados de computadores.   

Yo votaria por que estas novelas llegaran a Hollywood.   
Protagonista Pamela Anderson, y RedPic. 

Gracias!

[RedPic]

ja ja ja 

No amigo PICMouse, en este caso es que aún no lo habías descubierto pero el USB Bulk, con su mpusbapi.dll, es anterior al USB CDC, de hecho fue el primero que hice siguiendo los pasos del amigo J1M. Despues hice y publiqué el USB HID y después el USB CDC.

Ya solo me queda el USB Mass Storage ... 

[LABmouse]

  Definitivamente me sorprende mas. Entonces me toca empezar a leer poquito a poco.

Saludos!

[PalitroqueZ]

Hola Red. Estuve haciendo mas pruebas con mpusbapi, cambiandole el número de la versión a la dll y coincidia con la llamada a la api.

en el fuente también sale que la versión es de la forma MMMMmmmm. Asumo que cada 'eme' es un dígito de la versión (en hexa) siendo las mayúsculas, los nibbles mas significativos.

sería cuestión de compilar el fuente varias veces con numeros distintos para confirmar lo dicho anteriormente.

Salu2
Pedro

[PalitroqueZ]

bueno, aquí sigo con el bachaquito de como sacar la versión de la librería mpusbapi.dll. esta vez  hice pruebas usando punteros en VB a ver que mostraba:

Código: Visual Basic

1. Option Explicit
2.  
3. Private Declare Function MPUSBGetDLLVersion Lib "mpusbapi.dll" () As Long
4. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
5.  
6. Private Sub Command1_Click()
7. Dim version_dll As Long, digitos(4) As Byte, cad As String, t As Integer
8.  
9.     version_dll = VarPtr(MPUSBGetDLLVersion) 'toma el puntero de la version
10.  
11.     For t = 0 To 3
12.         digitos(t) = 0  ' limpiar variables
13.    Next t
14.  
15.     CopyMemory ByVal VarPtr(digitos(0)), ByVal version_dll, 5
16.  
17.     ' recupera de la memoria los digitos de la version y lo copia en digitos()
18.  
19.     cad = ""
20.  
21.     For t = 0 To 3   ' concatena los digitos en una cadena
22.        cad = cad & Str(digitos(t)) & "."
23.     Next t
24.  
25.     MsgBox cad  ' muestra la version
26.  
27.     End   ' termina el programa
28.  
29. End Sub

llegué al mismo resultado que el mostrado por Diego. ¡¡Ahora si estoy confundido!! 

Salu2
Pedro

[genius86]

HOLA AMIGOS,  MI PROBLEMA ES EL SIGUIENTE,  HE ESTADO TRABAJANDO CON EL CODIGO EN C QUE REDPIC  MUY AMABLEMENTE A PROPORCIONADO EN SU PAGINA.  ESTOY INTENTANDO MANDAR UN NUMERO DESDE EL PIC AL PC , Y  CUANDO EL PC MUESTRA EN PANTALLA EL NUMERO,  MUESTRA UN NUMERO ERRADO,  POR EJEMPLO,  MANDO EL 0 Y SIEMPRE ME MUESTRA EL 40 ,  MANDO EL 2 Y SIEMPRE ME MUESTRA EL 5,  AQUI ESTA EL CODIGO.

Código: [Seleccionar]

               dato =  input_b();             
               delay_ms(20);                 
               printf("USB Mon : usb_put_packet(%s)\r\n",dato);
               usb_put_packet(1,dato,6,USB_DTS_TOGGLE);


LA IDEA FINAL ES MANDAR EL RESULTADO DEL CONVERSOR A/D DEL PIC AL PC POR MEDIO DEL USB.

BYE.

[PalitroqueZ]

Despejé la duda que tenía sobre como escribir la versión correcta de mpusbapi.dll

En el fuente aparece la constante:

Código: C

1. #define MPUSBAPI_VERSION            0x00010000L

son 4 bytes: 1º byte MSB es el cuarto dígito de la versión
                   2º byte MSB  "   " tercer     "     "   "    "
                   3º byte MSB  "   " segundo  "     "   "    "
                   4º byte MSB  "   " primero   "     "   "    "             




Recompilada la dll y comprobado con PicUSBDelphi.exe y un programa escrito en vb.

[RedPic]

Pues ya sabemos otra cosa más. 
Gracias Pedro.

[gabimelgar]

Hola Gente del foro!
Soy nuevo en el foro y primero que nada quiero agradecerles a todos porq me ha sido de gran utilidad todo lo q aqui he encontrado. Espero poder aportar tambien algunas cosillas utiles 
El problema que tengo es el siguiente:

Ver este post

[RedPic]

No es conveniente que vayas repitiendo el mismo mensaje en distintas partes del foro. Con una es suficiente para que todos nos enteremos de qué es lo que necesitas. Dale un vistazo a las reglas del foro antes de postear en él, el Copy & Paste de mensajes está expresamente recogido en ellas como una práctica no admitida. Muchas gracias.

[gabimelgar]

RedPic, te pido mil disculpas por el Copy&Paste, es que la desesperacion lo lleva a uno a hacer cosas inentendibles 
(esa excusa me ha servido mas de una vez en la vida  )
Ahora en serio, gracias por la respuesta y perdon nuevamente.
Saludos!