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

Posted 2020-08-28 朝闻道

在开始之前看下效果

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