FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Manejar puerto USB (serial)
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Manejar puerto USB (serial)

Posted: Fri Jul 29, 2011 10:44 AM
Para acceder a un puerto USB emulador serie, los que aparecen dentro del apartado "Puertos (COM y LPT)" del administrador de despositivos de MiPC, lo hago de la siguiente forma:
hPuerto:=oPenComm("COM1:",1024,128)
WriteComm(hPuerto,"Lo que sea...")
CloseComm(hPuerto)
.../...

Pero mi problema viene cuando ese dispositivo no aparece en Puertos (COM y LPT) si no en "Controladoras de bus serie universal" con los nombres:
USB Serial Converter A
USB Serial Converter B

¿ Como manejo esos puertos con los comandos/funciones de xHarbour/FW ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Thu Aug 04, 2011 03:47 PM

¡¡¡ Socorroooooo.... !!! :(

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM

Re: Manejar puerto USB (serial)

Posted: Thu Aug 11, 2011 02:01 PM

Esto es un O.T. aunque afin a este tema
Existe alguna función que me indique que es un DataDrive lo que esta coenctado al puerto USB?. algo así como IsDiskette()

gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Thu Aug 11, 2011 02:31 PM
No es ningun device de almacenamiento. Es un transmisor de información, tipo modem, tipo bascula, etc...
Mi problema es que no se manejarlo ya que no esta definido como un COM.
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Manejar puerto USB (serial)

Posted: Thu Aug 11, 2011 07:55 PM

JM,

Esto puede servirte:

http://www.devx.com/dotnet/Article/31001

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Thu Aug 11, 2011 09:06 PM
Antonio, gracias por el enlace, pero mi problema es que los puertos serie USB que quiero manejar no aparecen en Puertos (COM y LPT) del "Administrador de dispositivos" si no que aparecen en Controladoras de bus serie universal y no tienen NUMERO de puerto, se llaman:
USB Serial Converter A
USB Serial Converter B
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Mon Sep 26, 2011 10:09 PM

¿ Alguna pista ? :oops:

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
admsoporte
Posts: 111
Joined: Sun Oct 09, 2005 03:09 PM

Re: Manejar puerto USB (serial)

Posted: Mon Sep 26, 2011 11:33 PM

Checa bien en propiedades del com que aparece en los drivers usb, tiene asociado un com configurable como los normales, puede ser com4, com5 o tu lo puedes modificar para que sea com1.
Lo anterior quiere decir que aunque sean puesrtos serie a traves de USB, tienen asociado un com virtual
Saludos

Saludos

Atentamente

Jose F Dominguez Serafin

email admsoporte@gmail.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Tue Sep 27, 2011 06:51 PM
admsoporte wrote:Checa bien en propiedades del com que aparece en los drivers usb...

Pues solo sale en "Controladoras bus serie universal". En el apartado "Puertos (COM y LPT)" no hay cambios.

Te adjunto el panel del "Administrador de Dispositivos" antes y después de enchufar el periférico que quiero manejar.
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Sat Apr 14, 2012 09:06 PM
Ahora sin embargo me encuentro con un puerto serie de un aparato de USB que me aparece en el apartado de "Puertos (COM y LPT)" y sin embargo no lo puedo manejar con las funciones de manejo de puertos serie.

Cuando hago el OpenComm me devuelve números mayores que cero y cuando uso, acto seguido, BuildCommDcb me da false es decir que no reconoce los puertos serie que no sean físicos. Tampoco el SetCommState.

Con el hyperterminal si manejo todos los puertos.

¿ Alguna idea ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Sun Apr 15, 2012 04:59 PM

¿ Alguna libreria de comunicaciones serie de licencia GNU (libre) ?

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Tue Apr 17, 2012 12:53 PM
"Wrapeando" la funcion CreateFile de la librería kernerl32.dll, que es como se manejan los puertos COM en Win32, al consultar GetLastError me da error 123 (ERROR_INVALID_NAME. The filename, directory name, or volume label syntax is incorrect) para un dispoditivo de comunicaciones que al instalarlo aparece como COM21.

El código:
Code (fw): Select all Collapse
CreateFile("COM21:",nOr(GENERIC_READ,GENERIC_WRITE),0,nil,OPEN_EXISTING,0,nil) // Devuelve -1
GetLastError() // Devuelve 123
DLL32 FUNCTION GetLastError() AS LONG PASCAL FROM "GetLastError" LIB "kernel32.dll"
DLL32 FUNCTION CreateFile(lpFileName AS LPSTR,;
                          dwDesiredAccess AS LONG,;
                          dwShareMode AS LONG,;
                          lpSecurityAttributes AS LONG,;
                          dwCreationDisposition AS LONG,;
                          dwFlagsAndAttributes AS LONG,;
                          hTemplateFile AS LONG) AS LONG PASCAL FROM "CreateFileA" LIB "kernel32.dll"

Para otros COMs como COM1 y COM2 (puertos físicos no virtuales) me devuelve datos válidos.

¿ Alguna idea ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: Manejar puerto USB (serial)

Posted: Tue Apr 17, 2012 03:53 PM
¿ Y si me dedico a usar un control OCX ?

¿ Como usar CreateOleObject("MSCommLib.MSComm") ?
¿ Que DLLs o LIBs hacen falta ?

¡¡¡ SOCORRO !!!
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Manejar puerto USB (serial)

Posted: Tue Aug 21, 2012 02:25 AM

Hola Jm tengo el mismo problema con dispositivos usb, lo solucionaste ? como hiciste ?

Continue the discussion

Static archive · New replies & topics via GitHub Discussions