Interconnexions REBOL / DELPHI via TCP/IP

Program ServiceNT;

Uses 
   svcmgr, 
   EssaiService in 'EssaiService.pas' {Service1: 
TService}; 

{$R *.RES} 

begin 
   Application.Initialize; 
   Application.Title := 'ServerSocket'; 
   Application.CreateForm(TService1, Service1); 
   Application.Run; 
End. 

unit EssaiService; 

interface 

uses 
   Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ScktComp;

TService1 = class(TService)
   ServerSocket1: TServerSocket;
   procedure ServiceStart(Sender: TService; var Started: Boolean); 
   procedure ServiceShutdown(Sender: TService); 
   procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
   procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
   Private 
      { Déclarations privées } 
   Public
      { Déclarations publiques }
      function GetServiceController: TServiceController; override;
end;

var 
   Service1: TService1;
   port: TCustomWinSocket;

implementation

{$R *.DFM}

{******************************************************************************}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
   Service1.Controller(CtrlCode);
end;

{******************************************************************************}
function TService1.GetServiceController: TServiceController;
begin
   Result := ServiceController;
end;

{******************************************************************************}
{Sur Démarrage du Service}
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
   ServerSocket1.Active:=False;
   ServerSocket1.Port:=8500;
   ServerSocket1.Active:=True;
   Started:=True;
end;

{******************************************************************************}
{Sur Arrêt du service}
procedure TService1.ServiceShutdown(Sender: TService);
begin
   ServerSocket1.Active:=False;
end;

{******************************************************************************}
{Sur Connection du client.}
procedure TService1.ServerSocket1ClientConnect(Sender: TObject;
   Socket: TCustomWinSocket);
begin
   {Affectation du port client}
   port:=Socket;
end;

{******************************************************************************}
{Sur lecture du Client}
procedure TService1.ServerSocket1ClientRead(Sender: TObject;
   Socket: TCustomWinSocket);
var
   strReceiveText: String;
begin
   Socket:=port;
   strReceiveText:=Socket.ReceiveText;
if (Length(Trim(strReceiveText))<>0) then
   begin
      {envoi de texte vers le port client}
      port.SendText('Message Reçu : '+strReceiveText);
      {Fermeture du port client}
      port.close;
   end;
end;
{******************************************************************************}
end.