InfraRot Kabel am Com Port abfragen

[AirJordan]

Ich kram den alten Beitrag nochmal hervor. Ich habe ja jetzt das Pearl Script gefunden, nur habe ich von dieser Script Sprache überhaupt keinen Plan. Ich kann nur daraus erlesen, das über OUT (die für mich eine Variable ist) auf den Port geschrieben wird und in der Variable BAH Daten eingelesen werden.

Beispiel:

Zitat:

$out = pack("C",hex(D));
$foo = $meterport->write($out);
sleep 0.3;
$bah = $meterport->input;
$bah =~ s/$six//g;
$bah =~ s/$four//g;
$bah =~ s/$three//g;
$bah =~ s/$two//g;

oder

Zitat:

$out = "S";
$foo = $meterport->write($out);
sleep 0.1;
$out = " ";
$foo = $meterport->write($out);
sleep 0.1;
$out = "2";
$foo = $meterport->write($out);
sleep 0.1;
$bah = $meterport->input;

Hat einer eine Idee wie man das in Delphi umsetzen kann? Oder einfach 1:1 übernehmen und zb über AsyncPro oä auf den Port schreiben und von dort lesen?

Danke schonmal für eure Tipps!