Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]539[/thread]

Parallelport unter Windows2000: bekomms nicht zum laufen :-(



<< >> 6 Einträge, 1 Seite
Gast Gast
 2005-07-31 04:52
#5346 #5346
Ich häng hier seid mehreren Stunden an dem Problem, mit Perl nicht an meinen LPT Port zu kommen.
Ich will die einzelnen Ports ein und ausschalten.
Lesen und schreiben.
Hab das damit probiert:
http://search.cpan.org/~scott....Port.pm
Ich bekomm das ganze aber nciht zum laufen :-(

die test.pm Datei funktioniert.
Benutze ich den Codefetzen:
Code: (dl )
1
2
3
4
5
        my $port = Device::ParallelPort->new();
        $port->set_bit(3,1);
        print $port->get_bit(3) . "\n";
        print ord($port->get_byte(0)) . "\n";
        $port->set_byte(0, chr(255));


kommt folgende Fehlermeldung:
Quote
L:\Page\cgi-bin>lpt.pl
Can't locate object method "new" via package "Device::ParallelPort" (perhaps you
forgot to load "Device::ParallelPort"?) at L:\Page\cgi-bin\lpt.pl line 1.

L:\Page\cgi-bin>


Also weiter mit folgendem Versucht:
Code: (dl )
1
2
3
4
5
6
        use Device::ParallelPort;
        my $port = Device::ParallelPort->new('auto:0');
        $port->set_bit(3,1);
        print $port->get_bit(3) . "\n";
        print ord($port->get_byte(0)) . "\n";
        $port->set_byte(0, chr(255));


Gibt Meldung:
Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Device/ParallelPort/drv/win32.pm in @INC (@I
NC contains: F:/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at (eval
2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>


Also was mache ich?
Ich lad mir Device-ParallelPort-drv-win32-1.3 runter und kopiere die win32.pm ins entsprechende Ordner und schon kommen immer mehr Fehler:
Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Win32/API.pm in @INC (@INC contains: F:/Prog
s/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F:/Progs/System/Perl/lib/D
evice/ParallelPort/drv/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>

Das komische: die win32 Datei hat eine andere grösse, als die im eigentlichen lib Ordner.
Dann weiter die API.pm Datei organisiert. Aber man will mich immernoch nicht in ruhe lassen:
Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Win32/API/Type.pm in @INC (@INC contains: F:
/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F:/Progs/System/Perl/
lib/Win32/API.pm line 31.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Win32/API.pm line
31.
Compilation failed in require at F:/Progs/System/Perl/lib/Device/ParallelPort/dr
v/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>


Also noch die Type.pm installiert,...
Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate loadable object for module Win32::API in @IN
C (@INC contains: F:/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F
:/Progs/System/Perl/lib/Device/ParallelPort/drv/win32.pm line 49
Compilation failed in require at F:/Progs/System/Perl/lib/Device/ParallelPort/dr
v/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>


Nun weiss ich auch nich mehr was machen.
Wer kann mir zu so später Stunde noch helfen? :-(\n\n

<!--EDIT|renee|1122812271-->
pq
 2005-07-31 12:37
#5347 #5347
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
Wiki:Wie installiere ich ein Modul?

edit: link zum wiki mit wiki-tags\n\n

<!--EDIT|pq|1122803155-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
dominicn
 2005-07-31 12:55
#5348 #5348
User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]
Ich arbeite zur Zeit auch mit dem ParallelPort, allerdings unter Linux. Da habe ich es auch mit dem Modul Device::ParallelPort probiert, aber das lief nicht so richtig ... da habe ich das Ein- und Auslesen mit Inline::C realisiert und mache den Rest weiterhin direkt mit Perl.

Was genau meinst du hiermit:

Quote
Ich will die einzelnen Ports ein und ausschalten.


???\n\n

<!--EDIT|dominicn|1122800229-->
Free Faq
 2005-07-31 16:35
#5349 #5349
User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]
Hmm,...
Hab mal den Parallelport Treiber installiert - via
ppm install Device-ParallelPort
und
ppm install Device-ParallelPort-drv-win32

Habe weiter DLPortIO installiert und die INPOUT32.DLL in mein cgi Verzeichniss kopiert.

Nun hängt sich Perl mit folgender Fehlermeldung auf:
http://img10.imageshack.us/img10/4250/error6iq.jpg

Das mit folgendem Code:
Code: (dl )
1
2
3
4
5
6
use Device::ParallelPort;
my $port = Device::ParallelPort->new('auto:0');
$port->set_bit(3,1);
print $port->get_bit(3) . "\n";
print ord($port->get_byte(0)) . "\n";
$port->set_byte(0, chr(255));


Code: (dl )
1
2
3
4
5
6
7
use Device::ParallelPort::drv::win32;
use Device::ParallelPort;
my $port = Device::ParallelPort->new('auto:0');
$port->set_bit(3,1);
print $port->get_bit(3) . "\n";
print ord($port->get_byte(0)) . "\n";
$port->set_byte(0, chr(255));

gibt auch die gleiche Fehlermeldung
Haut mich nicht, ich bin ein Noob!
Free Faq
 2005-08-03 12:42
#5350 #5350
User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]
Keiner eine Ahnung?
Selbst Nachschlagewerke zum Thema lassen sich leider nicht finden...
Pleas help :-(
Haut mich nicht, ich bin ein Noob!
renee
 2005-08-03 12:59
#5351 #5351
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Hast Du mal Zeile für Zeile ausprobiert, woran es liegt?? Oder den Debugger benutzt??

Also erst nur ein neues Objekt erzeugen. Wenn das klappt, dann zusätzlich das Bit setzen etc...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 6 Einträge, 1 Seite



View all threads created 2005-07-31 04:52.