unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, Buttons,
 idContext;

type
 TForm1 = class(TForm)
   Server: TIdTCPServer;
   procedure ServerConnect(AContext: TIdContext);
   procedure ServerExecute(AContext: TIdContext);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 _Pack = Record
         Primary_handle : Cardinal;
         Secondary_handle : Cardinal;
         Primary_index : string[8];
         Secondary_index : string[8];
        End;

 {функция для того что бы составить пару из подключений}
 Function Connect_to_Clients( Handle : cardinal; index : string):boolean;
 {получение хэндла "соседа" пары, отправили свой handle, в ответе     получили его handle}
 Function GetHandleByHandle(Handle : cardinal):Cardinal;
 { "переброс" команд, отправляем свой handle, и что хотели отправить "соседу"}
 Procedure Transfer(handle : cardinal; str: string);

var
 Form1: TForm1;
 Pack : _Pack;
 Clients : Array of _Pack;
 Clients_count : integer;

implementation

{$R *.dfm}

procedure TForm1.ServerConnect(AContext: TIdContext);
var
str : string;
begin
AContext.Connection.Socket.WriteLn('Welcame'+#13+'Index[8]: ');
Str:=AContext.Connection.Socket.ReadLn();
if length(str)<>8 then
 begin
  AContext.Connection.Socket.WriteLn('Error length index');
  AContext.Connection.Disconnect;
 end
else
 begin
  if Connect_to_clients(Acontext.Connection.Socket.Binding.Handle,str) then
   begin
    Acontext.Connection.Socket.WriteLn('Start transfer');
   end
  else
   begin
    Acontext.Connection.Socket.WriteLn('Error registration');
    AContext.Connection.Disconnect;
   end;
 end;
end;

Function Connect_to_Clients( Handle : cardinal; index : string):boolean;
var
i : integer;
register_ : boolean;
begin
Result:=false;
for i:=0 to Clients_count-1 do
 begin
  if ((Clients[i].Primary_index=index)or(Clients[i].Secondary_index=index)) then
   begin
    if Clients[i].Primary_index=index then
     begin
      Clients[i].Secondary_handle:=Handle;
      Clients[i].Secondary_index:=index;
      result:=true;
      exit;
     end;
    if Clients[i].Secondary_index=index then
     begin
      Clients[i].Primary_handle:=Handle;
      Clients[i].Primary_index:=index;
      result:=True;
      exit;
     end;
   end;
 end;
inc(clients_count);
SetLEngth(Clients,Clients_count);
Clients[Clients_count-1].Primary_handle:=handle;
Clients[Clients_count-1].Primary_index:=Index;
Result:=True;
end;

procedure TForm1.ServerExecute(AContext: TIdContext);
var
msg : string;
i : integer;
begin
msg:=AContext.Connection.Socket.ReadLn();
if msg='\handle\' then
 begin
  AContext.Connection.Socket.WriteLn(IntTOStr(AContext.Connection.Socket.Binding.H andle));
  exit;
 end;
if msg='\clients\' then
 begin
  for i:=0 to CLients_count-1 do
   begin
    AContext.Connection.Socket.WriteLn(
    '-----------------'+#13+'Couple '+IntToStr(i+1)+#13+
    'PH: '+IntToStr(Clients[i].Primary_handle)+#13+
    'PI: '+Clients[i].Primary_index+#13+
    'SH: '+IntToStr(Clients[i].Secondary_handle)+#13+
    'SI: '+Clients[i].Secondary_index);
   end;
   AContext.Connection.Socket.WriteLn('Done. '+IntToStr(Clients_count)+' couples.');
  exit;
 end;
if msg='\couples\' then
 begin
  AContext.Connection.Socket.WriteLn(INtToStr(Clients_count)+' couples.');
  exit;
 end;
if msg='\GetHandleByHandle\' then
 begin
  AContext.Connection.Socket.WriteLn(IntToStr(GetHandleByHandle(AContext.Connectio n.Socket.Binding.Handle)));
 end;
Transfer(AContext.Connection.Socket.Binding.Handle,msg);
end;

Procedure Transfer(handle : cardinal; str: string);
var
_handle : cardinal;
begin
_handle:=GetHandleByHandle(handle);
{...по идее тут отправка str подключению с известным нам _handle,
 это и есть товарищ из пары, вот только как отправить таким спобом
 этого я не знаю..:( }
end;

Function GetHandleByHandle(Handle : cardinal):Cardinal;
var
i : integer;
begin
result:=0;
for i:=0 to Clients_count-1 do
 begin
  if Clients[i].Primary_handle=handle then
   begin
    result:=Clients[i].Secondary_handle;
    exit;
   end;
  if Clients[i].Secondary_handle=handle then
   begin
    Result:=Clients[i].Primary_handle;
    exit;
   end;
 end;
end;

end.

List := tcpServer.Threads.LockList;
 try
   for Count := 0 to List.Count -1 do
   try
     TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg);
   except
     TIdPeerThread(List.Items[Count]).Stop;
   end;
 finally
   tcpServer.Threads.UnlockList;
 end;