Hallo zusammen,
ich denke über ein Modul zur Steuerung von D-ILA Projektoren nach.ich habe selbst ganz neu einen X5000, den ich gern in FHEM einbinden möchte.
Der Projektor erlaubt die Steuerung über LAN. Eine Doku dazu gibt es bei JVC
JVC External Control Command Communication Specification (http://support.jvc.com/consumer/support/documents/2015model_JVC_External_Control_Command_spec_v1_0.pdf)
Ein funktionierendes Programm für die Ansteuerung in Java habe ich auch gefunden
https://github.com/amedranogil/jvc.dla (https://github.com/amedranogil/jvc.dla)
Jetzt muss ich mich erstmal dem nähern, wie sich das in FHEM umsetzen lässt. Es gibt ja bereits einige Multimedia-Module, die möglicherweise auch TCP-basiert arbeiten.
Wer Ideen oder auch Interesse an einem solchen Modul hat, gern hier mit in die Diskussion einsteigen.
Gruß
Veit
Hi Volschin , ich hab im Hifi Forum gelesen dass du es hinbekommen hast.
Kannst du mal deine Lösung vorstellen bitte. Hätte interesse.
Danke dir
Da hast Du wohl was missverstanden. Ich habe das oben aufgeführte Java-Programm getestet und damit geprüft, ob eine generelle Ansteuerung über LAN so funktioniert. Mit FHEM gibt es noch nichts.
Ein erstes Perl-Script baut schon mal die Verbindung auf und kann ein "Connection check" Kommando absetzen, dass korrekt beantwortet wird.
#!/usr/bin/perl -w
use IO::Socket::INET;
# flush after every write
$| = 1;
my ($socket,$client_socket);
$socket = new IO::Socket::INET (
PeerHost => '192.168.2.167',
PeerPort => '20554',
Proto => 'tcp',
) or die "ERROR in Socket Creation : $!\n";
print "TCP Connection Success.\n";
$socket->recv($data,1024);
print "Received from Projector : $data\n";
# read the socket data sent by server.
# write on the socket to server.
$data = "PJREQ";
# we can also send the data through IO::Socket::INET module,
$socket->send($data);
$socket->recv($data,1024);
print "Received from Projector : $data\n";
# send command
$data = $ARGV[0]."\r\n";
# $data = "\x21890100000A";
print "Argument sent : $data\n";
$data =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg;
$socket->send($data);
$socket->recv($data,1024);
## convert each character from the string into HEX code
$data =~ s/(.)/sprintf("%02X",ord($1))/seg;
print "Received from Projector : $data\n";
sleep (1);
$socket->close();
print "TCP Connection Closed.\n";
Mehr geht noch nicht.
Ich wärme mal dieses ältere Projekt auf, hast du das Modul inzwischen fertig gebaut?