在开始之前看下效果

PHP页面作为客户端发送请求给作为服务端的Delphi应用程序

PHP客户端页面打开如下

Delphi服务端应用程序打开如下

每次PHP页面刷新一下，Delphi的文本框都显示"我上线啦！"做的很粗糙，但是似乎可以作为某种功能的demo

PHP代码如下：

<?php/***************************服务端*******************************////**// * Created by PhpStorm.// * User: Administrator// * Date: 2017/1/2 0002// * Time: 下午 3:54// *///////确保在连接客户端时不会超时//set_time_limit(0);////$ip = ‘192.168.1.110‘;//$port = 1025;/////*// 9  +-------------------------------//10  *    @socket通信整个过程//11  +-------------------------------//12  *    @socket_create//13  *    @socket_bind//14  *    @socket_listen//15  *    @socket_accept//16  *    @socket_read//17  *    @socket_write//18  *    @socket_close//19  +--------------------------------//20  *///// /*----------------    以下操作都是手册上的    -------------------*/// if(($sock = socket_create(AF_INET,SOCK_STREAM,SOL_TCP)) < 0) {//   echo "socket_create() 失败的原因是:".socket_strerror($sock)."\n";//}//// if(($ret = socket_bind($sock,$ip,$port)) < 0) {//         echo "socket_bind() 失败的原因是:".socket_strerror($ret)."\n";// }//// if(($ret = socket_listen($sock,4)) < 0) {//        echo "socket_listen() 失败的原因是:".socket_strerror($ret)."\n";//}//// $count = 0;//// do {//        if (($msgsock = socket_accept($sock)) < 0) {//                 echo "socket_accept() failed: reason: " . socket_strerror($msgsock) . "\n";//        break;//     } else {////         //发到客户端//        $msg ="测试成功！\n";//         socket_write($msgsock, $msg, strlen($msg));////        echo "测试成功了啊\n";//         $buf = socket_read($msgsock,8192);//////         $talkback = "收到的信息:$buf\n";//        echo $talkback;////         if(++$count >= 5){//                         break;//         };//////    }//     //echo $buf;//     socket_close($msgsock);//// } while (true);////socket_close($sock);/***************************服务端*******************************///?><?php/***************************客户端*******************************///error_reporting(E_ALL);echo "<h2>tcp/ip connection </h2>\n";$service_port = 1025;$address = ‘192.168.1.110‘;$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);if ($socket === false) {    echo "socket_create() failed: reason: " . socket_strerror(socket_last_error()) . "\n";} else {    echo "OK. \n";}echo "Attempting to connect to ‘$address‘ on port ‘$service_port‘...";$result = socket_connect($socket, $address, $service_port);if($result === false) {    echo "socket_connect() failed.\nReason: ($result) " . socket_strerror(socket_last_error($socket)) . "\n";} else {    echo "OK \n";}$in="我上线啦！";$a=mb_convert_encoding($in,"GBK","UTF-8");//$in = "HEAD / http/1.1\r\n";//$in .= "HOST: localhost \r\n";//$in .= "Connection: close\r\n\r\n";//$out = "";echo "sending http head request ...";socket_write($socket, $a, strlen($a));echo  "OK\n";echo "Reading response:\n\n";while ($out = socket_read($socket, 8192)) {    echo $out;}echo "closeing socket..";socket_close($socket);echo "ok .\n\n";/***************************客户端*******************************/

Delphi

设置：

ServerSocket1的Action为True;

ServerSocket1的Port为1025

代码 如下：

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ScktComp;


type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Memo1: TMemo;
    Label4: TLabel;
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
StatusBar1.SimpleText := ‘connect‘;
end;


procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := ‘disconnect‘;
end;


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Memo1.Lines.Add(‘悄悄的对你说‘+ Socket.ReceiveText);
end;

end.

http://blog.csdn.net/s371795639/article/details/53980181

Delphi服务端和PHP客户端通过Socket通信