***********************************************************************************************************************
      Exemple de code PHP destiné à exécuter une écriture dans un automate à l'aide du protocole FINS TCP
                                           Jean-Pierre Viskovic/ Omron France
                                                          25 mars 2010

***********************************************************************************************************************




<?

// fonction de conversion code Ascii vers caractère
function Hex2Txt($trame)
{ $out = ''; for ($j = 0, $len = strlen($trame)/2; $j/2 < $len; $j+=2) { $out .= chr(hexdec(substr($trame,$j,2))); } return $out; }


// fonction de conversion caractère vers code Ascii
function Txt2Hex($trame)
{ $out = ''; for ($i = 0, $len = strlen($trame); $i < $len; $i++) { $out .= strtoupper(str_pad(base_convert(ord($trame[$i]), 10, 16), 2, '0', STR_PAD_LEFT)); } return $out; }

$fp = fsockopen("tcp://ADRESSE IP", 9600, $errno, $errstr);

if (!$fp) {
    echo "$errstr ($errno)<br />\n";} 
else {
		// connexion avec demande de n° de noeud (réponse filtrée par le fournisseur d'accès)
		$trame= "46494E530000000C000000000000000000000000";
		$req = Hex2Txt($trame);
		fputs($fp,$req);
		sleep (1);
		//EF est le n° de noeud attribué systématiquement (un seul client connecté)		

		//écriture de 1111 et 2222 dans le DM109 (hex: 006D)
		$trame= "46494E530000001C00000002000000008000030A0D0000EF0005010282006D00000211112222";
		$req = Hex2Txt($trame);
		fputs($fp,$req);
		fclose ($fp);
		//Pas de réponse= aucune garantie que la commande à bien été exécutée
	}

?>