Hallo Leute!

Ich betreibe einen Apache-Websever, dazu Perl, unter Windows XP. Ich steuere mit einer html-Seite und einem Perl-Script ein Funkgerät über eine serielle Schnittstelle (com1). An com1 werden über TXD Datenbytes gesendet, welche vom Funkgerät verarbeitet werden. Nun möchte ich einige Funktionen hinzufügen, allerdings fehlen mir dazu einige Denkansätze. Von com1 würde ich gerne über RXD Daten auslesen und auf der html-Seite ausgeben. An com2 möchte ich RTS oder DTR auf high und low setzen. Und auf LPT1 möchte ich D1-D7 auf high und low setzen. Hätte vielleicht jemand Lösungsvorschläge, bitte? Falls erforderlich kann ich den Quelltext der html-Datei und das Listing des .pl-scripts gerne hier veröffentlichen oder mailen.

Vielen Dank!

Wulli

Den Parallelport kannst du ganz gut mit Device::Parallelport ansteuern. Damit kannst du auch einzelne Bits setzen bzw. lesen.

Für den COM-Port solltest du dir mal Win32::SerialPort ansehen.

Edit: Tippfehler beseitigt.\n\n

<!--EDIT|dominicn|1143410867-->

Hallo!

Vielen Dank für den Tip. Jetzt habe ich das nächste Problem: Die Module für com und lpt sind nicht installiert. Mit source-code kopieren und im lib-verzeichnis speichern ist es nicht getan. Also hab' ich es wie in wiki beschrieben mit ppm versucht... Keine Chance... "Could not locate a PPD-File..." kann ich dem Modulmanager nur entlocken!
Etwas anderes, bitte: Bleibt mir diese einmal installierte Modul nach Neustart de PC's erhalten, oder muss ich diese Prozedur jedesmal wiederholen?

Vielen Dank!

Wulli

Einmal installiert - immer vorhanden.

Hast Du die Installation mal mit CPAN.pm oder manuell versucht??

hallo renee,

danke für deine antwort. ich hab' mit ppm versucht, diese module zu installieren. also manuell, oder? nach einer kleinen schaffenspause (über nacht) hab' ich mich heute nochmals mit diesem thema beschäftigt - und siehe da: unter
http://www.bribes.org/perl/ppm/Win32-SerialPort.ppd bin ich fündig geworden. Obwohl, wenn man diese Adresse in den Browser eintippt, kommt nur ein Einzeiler daher. Aber es hat funktioniert (nachdem ich Gross/Kleinschreibung beachtete...)!!! mit ppm install http://ww....... usw. konnte ich die Installation starten. Nun muss ich "nur" noch das Ganze ins Script einarbeiten, so dass es auch funktioniert (...). Das wird vermutlich die grössere Herausforderung.

Danke fürs Erste, ich werde euch sicher noch öfters "belästigen"...

Wulli!\n\n

<!--EDIT|Wulli|1143566055-->

Hallo!

Das gibts nicht - auch das Modul für die parallele Schnittstelle konnte ich finden, dank diesem Beitrag hier im Forum:

http://board.perl-community.de/cgi-bin....1;t=580

Ich find das toll, euch, dieses Forum und ein ganz klein wenig auch mich, weil ich nicht gleich aufgegeben hab'...

Danke nochmal!

Wulli

Hallo!

Wie vorausgesagt, habe ich schon ein Problemchen:
Wenn ich Run/Debug ausführe, bekomme ich folgende Fehlermeldung: "can't open device", ohne Bezug auf eine bestimmte Zeile. Das kann ja alles heissen, oder?
Das Listing ist 275 Zeilen lang, ich wollte vermeiden es hier reinzukopieren...
In der DOS-Eingabeaufforderung starte ich das Script mit perl name.pl und bekomme folgenden Hinweis:
Das System kann den angegebenen Pfad nicht finden. Das bezieht sich wohl auf Win32::SerialPort. Wie kann ich denn die Pfadangabe ändern, bitte?

mfg

Wulli\n\n

<!--EDIT|Wulli|1143571343-->

Kannst Du vielleicht die wichtigen Zeilen (die mit Win32::SerialPort zu tun habe) posten??

\n\n

<!--EDIT|GwenDragon|1143735614-->

Auch macht mir das hier zu schaffen:
L <Device::ParallelPort::drv::win32>
my $port = Device::ParallelPort->new(lpt1.pl);
       $port->set_bit(3,1);
       || die "Can't open LPT1: $^E\n";  

Fehlermeldung:
Syntax error at line 1

mfg

Wulli\n\n

<!--EDIT|Wulli|1143576329-->