用socket实现通信

kakashilw

UID: 21696
帖子: 15
积分: 3
在线时间: 4小时
注册时间: 2008-03-11
最后登录: 2009-08-10

1^# kakashilw 发表于2008-03-14

用socket实现通信

用socket实现通信
才写了个简单的 PHP 与 .net (PHP与delphi)的通信程序

本程序只写了b/s模式的服务端向c/s模式的客户端简单传送数据的功能

PHP代码如下:

1.PHP页面代码
[Copy to clipboard]
PHP CODE:
<?php
$msg=$_POST['msg'];
$sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sock_data = socket_connect($sock, "192.168.1.153", 1000) ;
socket_write($sock, $msg, strlen($msg)); //Send data
socket_close($sock); //Close socket

?>

2.php页面代码
[Copy to clipboard]
PHP CODE:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="1.php" target="gh">
  <label>
  <textarea  cols="30" rows="10" name="msg"></textarea>
  </label>
  <p>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
  </p>
</form>
<iframe name="gh" width="0" height="0"></iframe>
</body>
</html>

使用方法:
PHP
直接运行2.php页面,填写好要传送的数据后,点击提交按纽.(前提是客户端要启动或是监听打开后)

.net(delphi)
运行后打开启动和监听功能(delphi可直接运行, .net需要安装.net后才能运行)
client.rar是delphi的客户端