Server на Delphi WinSock 5000 Рублей

[ArtGrek]

Нужен сервер по Tcp, что бы принимал и отправлял сообщение, способный потянуть около 1000 клиентов, с интенсивностью сообщений 1-3 секунды, каждый клиент должен быть в отдельном потоке, то есть в принципе нужен аналог IdTcpSetver.OnExecut, только что б работал стабильно

мой вариант, но работает со сбоями

type 
  ZResString = record 
    xText: String; 
    jpText: String; 
    incText: String; 
end; 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
var 
  ReqStrem : TMemoryStream; 
  ReqData  : TIdBytes; 
  ReqString : String; 
  ResString: ZResString; 
begin// 
  if AContext.Connection.Connected then 
  begin 
    try 
      if AContext.Connection.IOHandler.InputBuffer.Size > 0 then 
      begin 
        ReqStrem := TMemoryStream.Create; 
        AContext.Connection.IOHandler.ReadStream(ReqStrem, 
          AContext.Connection.IOHandler.InputBuffer.Size, false); 
        ReqStrem.Position := 0; 
        ReadTIdBytesFromStream(ReqStrem, ReqData, ReqStrem.Size); 
        ReqStrem.Free; 
        ReqString := BytesToString(ReqData, IndyTextEncoding_UTF8); 
        ResString := RGetTCPRespons.TcpResCreate(ReqString); // моя функция с другого юнита 
        try 
          AContext.Connection.IOHandler.WriteBufferOpen; 
          AContext.Connection.IOHandler.Write(ResString.xTex t + #0); 
          AContext.Connection.IOHandler.WriteBufferFlush; 
          AContext.Connection.IOHandler.WriteBufferClear; 
          AContext.Connection.IOHandler.WriteBufferClose; 
        except 
        end; 
        try 
          if ResString.JPText <> '' then 
          begin 
            AContext.Connection.IOHandler.WriteBufferOpen; 
            AContext.Connection.IOHandler.Write(ResString.jpTe xt + #0); 
            AContext.Connection.IOHandler.WriteBufferFlush; 
            AContext.Connection.IOHandler.WriteBufferClear; 
            AContext.Connection.IOHandler.WriteBufferClose; 
          end; 
        except 
        end; 
        try 
          if ResString.incText <> '' then 
          begin 
            AContext.Connection.IOHandler.WriteBufferOpen; 
            AContext.Connection.IOHandler.Write(ResString.incT ext + #0); 
            AContext.Connection.IOHandler.WriteBufferFlush; 
            AContext.Connection.IOHandler.WriteBufferClear; 
            AContext.Connection.IOHandler.WriteBufferClose; 
          end; 
        except 
        end; 
      end; 
    finally 
      sleep(10); 
    end; 
  end; 
end;

[ArtGrek]

еще нужна функция, которая будет вызываться потоком,
она возвращает результат запроса из базы данных,
но так как это для потоков, в функцие должны создаваться нужные компоненты, а потом уничтожаться,
функций будет много, мне нужен 1 правильно работающий образец
вот моя, но из-за частых обращений бывают сбои

class function RGetInfo.GetGroups(): String; 
var 
  iStrig: String; 
  FDConnection: TFDConnection; 
  FDQuery: TFDQuery; 
begin 
  FDConnection := TFDConnection.Create(Form1);  
  with FDConnection do 
  begin 
    Params.Add('Database=myDB'); 
    Params.Add('DriverID=MySQL'); 
    Params.Add('Password=123456'); 
    Params.Add('Server=localhost'); 
    Params.Add('User_Name=root'); 
    Params.Add('CharacterSet=utf8'); 
    Params.Add('ReadTimeout=100'); 
    Connected := True; 
  end; 
  FDQuery := TFDQuery.Create(Form1);  
  FDQuery.Connection := FDConnection; 
    try 
      FDQuery.SQL.Clear; 
      FDQuery.SQL.Add('SELECT `name` FROM `880102` WHERE `active` = "1"'); 
      FDQuery.Open; 
        while not FDQuery.Eof do 
        begin 
          iStrig := iStrig + '"' + FDQuery.FieldByName('name').AsString + '",'; 
          FDQuery.Next; 
        end; 
        Delete(iStrig, length(iStrig), 1); 
      FDQuery.Close; 
    except 
    end; 
  Result := iStrig; 
  FDQuery.Destroy; 
  FDConnection.Destroy;  
end;

[Аватар]

GROUP_CONCAT в запросе не пробовал вместо цикла на клиенте?

[ArtGrek]

Сообщение от Аватар

GROUP_CONCAT в запросе не пробовал вместо цикла на клиенте?

не понял, это вы про запрос SQL?

UPD
Спасибо теперь буду знать, хотя для задания не принципиально

[Avazart]

IdTcpServer должен тянуть 1000 клиентов и работать стабильно.
Главное что бы оперативки хватало на потоки.

[ArtGrek]

Сообщение от Avazart

IdTcpServer должен тянуть 1000 клиентов и работать стабильно.
Главное что бы оперативки хватало на потоки.

32 гига, сервер будет что надо