XTCP
XTCP( $host , $port , $cmd [, $regex , &$data] )
XTCP sends the network message $cmd to network host $host and port $port.
Optionally XTCP waits for an answer message $data which matches regular expression $regex. If the answer matches parameter $data receives the answer string and $sysmatch contains the arguments.
// ------------------
// Waage
// ------------------
$cmd = 'S' . chr(13) . chr(10);
$regex = '~^(.{17})' . chr(13) . chr(10) . '~i';
XTCP( '192.168.2.100' , 3002 , $cmd , $regex , &$data )
if (!empty($syserror))
{
return $syserror;
}
$sysreply = $sysmatch[1];
// ------------------
// Pilz PX 30 Display
// ------------------
$cmd = chr(10) . chr(8) . chr(1) . chr(0) . chr(144) . 'g' . chr(13) . chr(17);
$cmd .= $barcode;
XTCP( '192.168.178.27' , 8000 , $cmd )
// -----------------------------------
// Barcode auf ESC/POS Drucker drucken
// -----------------------------------
$date = date('d.m.Y H:i:s');
$cmd = chr(29) . 'w' . chr(1);
$cmd .= chr(29) . 'k' . chr(4) . $barcode . chr(0) . "\r\n";
$cmd .= "$date #$lfdnr\r\n";
$cmd .= "Kunde : $kdnr\r\n";
$cmd .= "Auftrag: $auftr\r\n";
$cmd .= "Pos : $pos $palnr\r\n";
$cmd .= "Anzahl : $palanz\r\n";
$cmd .= "Gewicht: $weight $unit\r\n";
$cmd .= "\r\n\r\n";
XTCP( '192.168.178.27' , 8000 , $cmd )
// --------------------------------------------------------
// W&T E/A COM-Server 50310 : Ausgang 0 für 1 Sekunde einschalten
// --------------------------------------------------------
$cmd = chr(0) . chr(0) . chr(0) . chr(0) . chr(9) . chr(0) . chr(12) . chr(0);
$cmd .= chr(1) . chr(0) . chr(1) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
$cmd = chr(0) . chr(0) . chr(0) . chr(0) . chr(9) . chr(0) . chr(12) . chr(0);
$cmd .= chr(1) . chr(0) . chr(0) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
// ------------------------------
// Signalsäule ROT - GELB - GRÜN
// ------------------------------
$ini = chr(0) . chr(0) . chr(0) . chr(0) . chr(9) . chr(0) . chr(12) . chr(0);
// Rot
$cmd = $ini . chr(4) . chr(0) . chr(4) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
$cmd = $ini . chr(4) . chr(0) . chr(0) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
// Gelb
$cmd = $ini . chr(2) . chr(0) . chr(2) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
$cmd = $ini . chr(2) . chr(0) . chr(0) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
// Grün
$cmd = $ini . chr(1) . chr(0) . chr(1) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
$cmd = $ini . chr(1) . chr(0) . chr(0) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
sleep(1);
// nur ROT
$cmd = $ini . chr(255) . chr(0) . chr(4) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
// nur GRÜN
$cmd = $ini . chr(255) . chr(0) . chr(1) . chr(0);
XTCP( '192.168.178.249' , 49153 , $cmd )
$syserror
$sysmatch
$sysreply
