[硬件 通讯]PHP使用RS232串口通讯传送文件的应用演示[测试环境PHP5.1.4]

9RHLinux联盟
<?php
9RHLinux联盟
// --------------------------------------------------------------------------
9RHLinux联盟
// File name   : RS232_Server.php
9RHLinux联盟
// Description : RS232演示上位机程序
9RHLinux联盟
// Requirement : PHP 5.1.4 (cli) (http://www.php.net)
9RHLinux联盟
//
9RHLinux联盟
// Copyright(C), HonestQiao, 2006, All Rights Reserved.
9RHLinux联盟
//
9RHLinux联盟
// Author: HonestQiao (honestqiao@hotmail.com/QQ:5601680) 
9RHLinux联盟
//
9RHLinux联盟
// 程序简介：
9RHLinux联盟
// 本程序与RS232_Client构成一个完整的演示系统，展示了PHP在RS232串口通讯上的应用。
9RHLinux联盟
// 程序之中实现了一个基础但是完整的RS232通讯协议(HQB232)，通讯协议格式如下：
9RHLinux联盟
// 协议内容：
9RHLinux联盟
//             C->S 01 //请求通讯
9RHLinux联盟
//             S->C 02 //响应通讯
9RHLinux联盟
//             C->S LEN DATA //LEN表示数据(DATA)长度 DATA表示实际数据
9RHLinux联盟
//             C->S 03 //结束通讯
9RHLinux联盟
// 说明：S表示上位机 C表示下位机
9RHLinux联盟
//       HQB232表示HonestQiao演示的基础(Base)RS232通讯协议，包含了协议的
9RHLinux联盟
//   请求和响应，数据帧的结构。
9RHLinux联盟
//       演示过程为通讯的请求和响应，文件的发送(数据帧)， 通讯的结束
9RHLinux联盟
//       数据帧的结构为当前的当前数据的长度，数据的HEX字符串(两位补足)
9RHLinux联盟
//        
9RHLinux联盟
//       欢迎探讨PHP在RS232串口通讯上的应用。
9RHLinux联盟
// --------------------------------------------------------------------------
9RHLinux联盟
set_time_limit(0);
9RHLinux联盟
exec('mode COM1: baud=9600 data=8 stop=1 parity=n xon=on');
9RHLinux联盟

9RHLinux联盟
$fd = dio_open('COM1:', O_RDWR);
9RHLinux联盟
if(!$fd)
9RHLinux联盟
{
9RHLinux联盟
	die("Error when open COM1");
9RHLinux联盟
}
9RHLinux联盟

9RHLinux联盟
$ff = dio_stat($fd);print_r($ff);
9RHLinux联盟
echo "HQB232 SERVER is listenning on COM1\n";
9RHLinux联盟
/// read
9RHLinux联盟
$len = 2;
9RHLinux联盟
$t=0;while (($t++)<1000) 
9RHLinux联盟
{
9RHLinux联盟
	$data = dio_read($fd, $len);
9RHLinux联盟
	if ($data) {
9RHLinux联盟
		if($data==chr(0).chr(1)){
9RHLinux联盟
			echo "S_RECV:01\n";
9RHLinux联盟
			echo "S_SEND:02\n";
9RHLinux联盟
			dio_write($fd,chr(0).chr(2));
9RHLinux联盟
			break;
9RHLinux联盟
		}
9RHLinux联盟
	}
9RHLinux联盟
}
9RHLinux联盟

9RHLinux联盟
$handle = fopen("E:\\RS232\\TEST\\S_WAPMMonitor.exe", 'w');
9RHLinux联盟
/// read
9RHLinux联盟
$len = 2;
9RHLinux联盟
$t=0;while ($handle && ($t++)<1000) 
9RHLinux联盟
{
9RHLinux联盟
	$len = 2;
9RHLinux联盟
	$data = dio_read($fd, $len);
9RHLinux联盟
	if($data==chr(0).chr(3)){
9RHLinux联盟
		echo "S_RECV:03\n";
9RHLinux联盟
		break;
9RHLinux联盟
	}
9RHLinux联盟
	elseif ($data) {
9RHLinux联盟
		$len = hexdec($data);
9RHLinux联盟
		if($len>0)
9RHLinux联盟
		{
9RHLinux联盟
		$data = dio_read($fd, $len);
9RHLinux联盟
		if($data){
9RHLinux联盟
			fwrite($handle, str2hex($data));
9RHLinux联盟
			echo "S_RECV:($len) ".microtime()."\n";
9RHLinux联盟
		}
9RHLinux联盟
		}
9RHLinux联盟
	}
9RHLinux联盟
}
9RHLinux联盟
fclose($handle);
9RHLinux联盟
dio_close($fd);
9RHLinux联盟

9RHLinux联盟
function str2hex($string)
9RHLinux联盟
{
9RHLinux联盟
	$str = '';
9RHLinux联盟
	for($i=0; $i<strlen($string); $i+=2){
9RHLinux联盟
		$str .= chr(hexdec(substr($string,$i,2)));
9RHLinux联盟
	}
9RHLinux联盟
	return $str;
9RHLinux联盟
}
9RHLinux联盟
?> 
9RHLinux联盟

9RHLinux联盟
<?php
9RHLinux联盟
// --------------------------------------------------------------------------
9RHLinux联盟
// File name   : RS232_Client.php
9RHLinux联盟
// Description : RS232演示下位机程序
9RHLinux联盟
// Requirement : PHP 5.1.4 (cli) (http://www.php.net)
9RHLinux联盟
//
9RHLinux联盟
// Copyright(C), HonestQiao, 2006, All Rights Reserved.
9RHLinux联盟
//
9RHLinux联盟
// Author: HonestQiao (honestqiao@hotmail.com/QQ:5601680) 
9RHLinux联盟
//
9RHLinux联盟
// 程序简介：
9RHLinux联盟
// 本程序与RS232_Server构成一个完整的演示系统，展示了PHP在RS232串口通讯上的应用。
9RHLinux联盟
// 程序之中实现了一个基础但是完整的RS232通讯协议(HQB232)，通讯协议格式如下：
9RHLinux联盟
// 协议内容：
9RHLinux联盟
//             C->S 01 //请求通讯
9RHLinux联盟
//             S->C 02 //响应通讯
9RHLinux联盟
//             C->S LEN DATA //LEN表示数据(DATA)长度 DATA表示实际数据
9RHLinux联盟
//             C->S 03 //结束通讯
9RHLinux联盟
// 说明：S表示上位机 C表示下位机
9RHLinux联盟
//       HQB232表示HonestQiao演示的基础(Base)RS232通讯协议，包含了协议的
9RHLinux联盟
//   请求和响应，数据帧的结构。
9RHLinux联盟
//       演示过程为通讯的请求和响应，文件的发送(数据帧)， 通讯的结束
9RHLinux联盟
//       数据帧的结构为当前的当前数据的长度，数据的HEX字符串(两位补足)
9RHLinux联盟
//        
9RHLinux联盟
//       欢迎探讨PHP在RS232串口通讯上的应用。
9RHLinux联盟
// --------------------------------------------------------------------------
9RHLinux联盟
set_time_limit(0);
9RHLinux联盟
exec('mode COM2: baud=9600 data=8 stop=1 parity=n xon=on');
9RHLinux联盟

9RHLinux联盟
$fd = dio_open('COM2:', O_RDWR);
9RHLinux联盟
if(!$fd)
9RHLinux联盟
{
9RHLinux联盟
	die("Error when open COM2");
9RHLinux联盟
}
9RHLinux联盟

9RHLinux联盟
$ff = dio_stat($fd);print_r($ff);
9RHLinux联盟
echo "HQB232 CLIENT is start on COM2\n";
9RHLinux联盟
dio_write($fd,chr(0).chr(1));echo "C_SEND:01\n";
9RHLinux联盟
$len = 2;
9RHLinux联盟
$t=0;while(($t++)<1000)
9RHLinux联盟
{
9RHLinux联盟
	$data = dio_read($fd, $len);
9RHLinux联盟
	if($data==chr(0).chr(2)){
9RHLinux联盟
		echo "C_RECV:02\n";	
9RHLinux联盟
		break;
9RHLinux联盟
	}
9RHLinux联盟
}
9RHLinux联盟
/*
9RHLinux联盟
$len = 2;
9RHLinux联盟
$t=0;while(($t++)<10)
9RHLinux联盟
{
9RHLinux联盟
	$sdata = sprintf("%03d",$t) . "=" . microtime() . " (" . randomkeys(rand(0,35)) . ")";
9RHLinux联盟
	$slen = strlen($sdata);
9RHLinux联盟
	$stxlen = sprintf("%02d",$slen);
9RHLinux联盟
	dio_write($fd,"$stxlen");
9RHLinux联盟
	dio_write($fd,"$sdata");echo "C_SEND:($stxlen)$sdata\n";
9RHLinux联盟
	//sleep(1);
9RHLinux联盟
}
9RHLinux联盟
*/
9RHLinux联盟

9RHLinux联盟
$handle = fopen ("E:\\RS232\\TEST\\WAPMMonitor.exe", "rb");
9RHLinux联盟
$data = "";
9RHLinux联盟
while ($handle && !feof($handle)) {
9RHLinux联盟
  $sdata = fread($handle, 127);
9RHLinux联盟
  $sdata = hex2str($sdata);
9RHLinux联盟
  $slen = strlen($sdata);
9RHLinux联盟
  $stxlen = sprintf("%02X",$slen);
9RHLinux联盟
  dio_write($fd,"$stxlen");
9RHLinux联盟
  dio_write($fd,"$sdata");echo "C_SEND:($slen) ".microtime()."\n";
9RHLinux联盟
  usleep(300);
9RHLinux联盟
}
9RHLinux联盟
fclose($handle);
9RHLinux联盟

9RHLinux联盟

9RHLinux联盟
dio_write($fd,chr(0).chr(3));echo "C_SEND:03\n";
9RHLinux联盟
dio_close($fd);
9RHLinux联盟

9RHLinux联盟
function randomkeys($length)
9RHLinux联盟
  {
9RHLinux联盟
   $pattern = "1234567890abcdefghijklmnopqrstuvwxyz";
9RHLinux联盟
   for($i=0;$i<$length;$i++)
9RHLinux联盟
   {
9RHLinux联盟
     $key .= $pattern{rand(0,35)};
9RHLinux联盟
   }
9RHLinux联盟
   return $key;
9RHLinux联盟
}
9RHLinux联盟

9RHLinux联盟
function hex2str($hexstring)
9RHLinux联盟
{
9RHLinux联盟
	$str = '';
9RHLinux联盟
	for($i=0; $i<strlen($hexstring); $i++){
9RHLinux联盟
		$str .= sprintf("%02X",ord(substr($hexstring,$i,1)));
9RHLinux联盟
	}
9RHLinux联盟
	return $str;
9RHLinux联盟
}
9RHLinux联盟
?>
9RHLinux联盟

$handle = fopen ("E:\\RS232\\TEST\\WAPMMonitor.exe", "rb");

$handle = fopen("E:\\RS232\\TEST\\S_WAPMMonitor.exe", 'w');

9RHLinux联盟 9RHLinux联盟 9RHLinux联盟