php delphi xe tcpip

PHP和Delphi XE都支持TCP/IP协议，可以使用这些语言编写TCP/IP网络应用程序。

在PHP中，可以使用socket扩展来实现TCP/IP通信。通过socket扩展，可以创建一个TCP客户端或服务端程序，并进行数据的发送和接收。以下是一个基本的PHP TCP客户端示例：

<?php
$host = "127.0.0.1";
$port = 1234;

$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
if ($socket === false) {
    echo "socket_create() failed: reason: " . socket_strerror(socket_last_error()) . "\n";
}

$result = socket_connect($socket, $host, $port);
if ($result === false) {
    echo "socket_connect() failed: reason: " . socket_strerror(socket_last_error($socket)) . "\n";
}

socket_write($socket, "Hello World\n");

$response = socket_read($socket, 1024);

echo "Response: " . $response . "\n";

socket_close($socket);
?>

在Delphi XE中，可以使用TClientSocket和TServerSocket组件来实现TCP/IP通信。TClientSocket用于创建TCP客户端，而TServerSocket用于创建TCP服务端。以下是一个基本的Delphi TCP服务端示例：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    IdTCPServer1: TIdTCPServer;
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Bindings.Add.IP := '0.0.0.0';
  IdTCPServer1.Bindings.Add.Port := 1234;
  IdTCPServer1.Active := True;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Buffer: string;
begin
  Buffer := AContext.Connection.IOHandler.ReadString(1024);
  Memo1.Lines.Add(Buffer);
  AContext.Connection.IOHandler.Write(Buffer);
end;

end.

这个TCP服务端程序可以监听来自任何IP地址的连接请求，并在收到数据时回送相同的数据。