Recoger datos con un lector de código de barras

[ciberpata]

Hola:
Tengo un cliente que quiere hacer una tienda virtual para vender discos.
Obviamente tiene miles de referencias y utiliza código de barras para identificar cada producto.
Aunque supongo que no se podrá hacer.... ¿Pasando el lector de código de barras sobre el producto se pueden pasar esos datos a un formulario web que nos permita introducir esos datos en la db de la web?.
Gracias

[Muzztein]

en web no he visto nunca nada de eso.

Sé que es absolutamente trivial hacer eso en Visual Basic. ya que se instala un objeto active X que captura los datos leidos por un puerto serial y ya.

[orharo2003]

Iniciado por Muzztein

en web no he visto nunca nada de eso.

Sé que es absolutamente trivial hacer eso en Visual Basic. ya que se instala un objeto active X que captura los datos leidos por un puerto serial y ya.

que tal:

Es de lo más sencillo, hay lectores bueno casi todos por aca los conectas al puerto del teclado y la función del lector es como si fuera el teclado. Donde está el cursor parpadeando aprietas el botón que trae y los números te los pasa SIN NECESIDAD DE SOFTWARE nada x el estilo.

Te lo digo porque el sistema que estoy haciendo lo implemente así.
El costo aqui en méxico está en 70 USD.

Funciona bien. (x cierto que paso con el problema de la MAC ciberpata ??)

Saludos.

[Bluesman74cl]

oye y ya que funciona con codigos de barra... alguin sabe como hacer para conectar un microfono y lo que baya hablando se traspase a un input o a un editor de texto para luego subirlo a una pagina?? me interesa saber si habrá un traductor de voz o algo asi que se pueda utilizar para una web... lo que pasa es que quiero hacer algo asi como un Serv. tecnico.. entonces lo que vaya encontrando malo en el artefacto lo vaya dictando al sistema web y luego lo grabe no mas... será posible algo asi??

[orharo2003]

Bueno una de las cualidades que se tiene es de que todo es posible instanciar. El problema sería que consiguieras la dll o el control active x que hiciera eso, el programa que hace eso es un tal dragon, pero la desventaja es de que como estudiar el ´codigo.

[ciberpata]

Hola Orharo2003:
Mira cuando dices: "hay lectores bueno casi todos por aca los conectas al puerto del teclado....", te estas refiriendo a los lectores de código de barras, supongo, y por cierto con algún compartidor (clavija, ladrón o como le llameis en Mejico) se pueden tener los dos conectados al mismo tiempo, y usarlos indistintamente, o solo se puede usar uno de cada vez: teclado o lector.
Desconozco que haya ese tipo de lectores aquí, podrías decirme un modelo y busco información sobre él?.

Pues con el programa de la MAC paso que no consigo que funcione. Lo que me habias comentado del numero de serie del disco duro también era buena idea pero el problema es que yo necesito saber el numero de serie del disco duro del cliente y con FSO solo me da el del servidor.


Saludos y gracias de nuevo.

[orharo2003]

Pero, el FSO lo puedes usar desde el lado del cliente, solo harias una página que tomara el valor y enviarlo:[la desventaja al igual es de que necesitas I.E.] aca em méx. el 90% lo usamos.

De los códigos el que manejo:

http://www.metrologicmexico.com/productos/000025.shtml

Saludos.

[ciberpata]

Saludos Orharo2003

A ver ....
he probado con este código pero me da el numero de serie del servidor. Logicamente si lo ejecuto en Internet, me da el numero de serie del disco donde se alojan las páginas y si lo ejecuto en mi ordenador, como lo tengo con un IIS funcionando, me da el número de serie de mi disco duro. Como lo puedo usar del lado del cliente y que me envie el numero de serie de su disco duro sin tener un servidor web funcionando sobre su pc.


El código que uso es:

<%Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("C:")
Response.write "Serie: " & d.SerialNumber%>

Gracias.

[orharo2003]

Requisitos. I.E.

Olvidaba, saludos por alla.


<script LANGUAGE="vbs">
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
if(err.number<>0)then
respuesta=msgbox("Se necesita la ejecución del control active X para entrar a la página" & chr(13) & "¿Desea intentarlo otra vez?",vbinformation+vbyesno,"")
if(respuesta=vbyes)then
window.location="x.html"
else
alert "Eviamos a otrapágina"
end if
else
Set d = fso.GetDrive("C:")
disco=d.SerialNumber
window.open "pagina.asp?serial="&disco
window.close
end if
</script>

Espero te sirva.

[ciberpata]

Siento ser pesado pero....

Vamos a ver he ejecutado el código y el asunto es que aunque le responda si o no parece que nunca coge este else que es el que devolvería el numero de serie.

else
Set d = fso.GetDrive("C:")
disco=d.SerialNumber
window.open "pagina.asp?serial="&disco
window.close

Estoy en lo cierto?

[orharo2003]

Iniciado por ciberpata

Siento ser pesado pero....

Vamos a ver he ejecutado el código y el asunto es que aunque le responda si o no parece que nunca coge este else que es el que devolvería el numero de serie.

else
Set d = fso.GetDrive("C:")
disco=d.SerialNumber
window.open "pagina.asp?serial="&disco
window.close

Estoy en lo cierto?

Si,el jemplo que te puse es para que se enviara el valor a una página,

corroboralo :

alert disco

Veras que si funciona.