 Lun Mar 12, 2007 12:28 pm
|
 |
tades
Perlero Nuevo
|
Registrado: 12 Mar 2007
Mensajes: 2
|
|
| Ayuda con ParallelPort |
 |
|
¿Q tal...?
por favor necesito ayuda!!! intento crear un .cgi q pueda manipular el puerto paralelo, enviando datos al registro de datos, el receptor es un simple circuito q enciende leds, utilizando:
Device::Parallelport;
Device::ParallelPort::drv::win32;
Pero no entiendo porq no funciona, los leds no prenden, el codigo es simple:
...
use Device::ParallelPort;
use Device::ParallelPort::drv::win32;
my $port = Device::ParallelPort->new('win32');
...
$port->set_data (chr($dato));
exit(1);
No hace mucho enpeze a programar en Perl, logre hacer correr varios programitas pero hoy y desde hace como una semana me encuentro dando vueltas con este, ya he intentado varios recursos y nada... El circuito ya lo probe y funciona perfectamente. Talvez el problema sea la DLL, tengo entendido q es necesario tener Inpout32.dll, si bien he hecho varios programitas este es el primero con el q estaria utilizando una DLL con Perl. Ademas cuando lo hago correr en el explorador no me tira error simplemente no prenden los leds  ...
Les agradesco de antemano cualquier respuesta o pista q me puedan dar. |
|
|
|
|
Lun Mar 12, 2007 2:44 pm
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 498
Ubicación: Frente al monitor
|
|
|
|
|
A ver, los CGIs no se corren con el browser, eso es ejecutado por el servidor.
Intenta ejecutarlo como si fuera cualquier programa de Perl (desde la terminal/cosola o cmo se llame en Windows con perl, el interprete) a ver que pasa.
Lo de la DLL no es problema, Device::ParalelPort esta hecho todo en Perl, nada de C, C++, ASM...
Además, creo que el código no hace mucho  |
|
|
Lun Mar 12, 2007 4:14 pm
|
|
tades
Perlero Nuevo
|
Registrado: 12 Mar 2007
Mensajes: 2
|
|
|
|
|
Estoy utilizando el servidor local Apache, pero de todas maneras e intentado tb desde la consola o command line pero el error es el mismo.... eso me lleva a q olvide incluir el error q me vota  ... el error es el sgte...
[error] [client 127.0.0.1] Can't create driver win32 - Can't locate object method "new" via package "Device::ParallelPort::drv::win32" (perhaps you forgot to load "Device::ParallelPort::drv::win32"?) at (eval 1) line 3.\n
Puede ser q sea la version del win32 ??? e intentado con dos versiones q tengo, con el primero me vota el error anterior y con el segundo (http://cpan.uwinnipeg.ca/~SCOTT) me vota "Internal Server Error"
my $port = Device::ParallelPort->new('win32'); #Aqui es el error
Porq no puedo crear el driver win32 ???[/syntax] |
|
|
Lun Mar 12, 2007 5:33 pm
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 498
Ubicación: Frente al monitor
|
|
|
|
|
Según veo es un bugg de la librería.
Veindo los códigos Device::ParallelPort::drv::win32 no existe.
¿Por qué no lo intentas por puerto serial? |
|
|
Lun Mar 12, 2007 7:39 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4226
Ubicación: Valladolid, España
|
|
|
|
|
Lun Mar 12, 2007 7:53 pm
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 498
Ubicación: Frente al monitor
|
|
|
|
|
Wow, esa página esta genial, a ver que cosas locas puedo encontrar ahí  |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
