Простенький TCP-сервер

[Смоляное Чучелко]

Народ, ткните носом чайника, плз...

Задумал создать простенький клиент-сервер. На TCP/IP.

Делаю форму. Кидаю на неё TTCPServer. Ему в OnAccept пишу

procedure TMain.MainServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  TAtomServer.Create (ClientSocket);
end;

Здесь TAtomServer -- это мой класс (упрощённо):

  TAtomServer = class (TThread)
   Socket: TCustomIpClient;
   constructor Create (Client: TCustomIpClient);
   procedure Execute; override;
  end;

constructor TAtomServer.Create (Client: TCustomIpClient);
begin
  Socket := Client;
  inherited Create (false);
end;

И далее -- в TAtomServer.Execute обработка. То бишь, я надеялся туда сунуть обработку. Ибо, похоже, при любом действии с Socket программа вываливается... Даже пробовал в Synchronize совать -- бесполезно.

С уважением -- Смоляное Чучелко

[Антон (LogRus)]

Вот те раз:
Specifies whether each connection accepted by the server socket is non-blocking, or if it is automatically given a separate execution thread.

type TServerType = (stNonBlocking, stThreadBlocking);
property ServerType: TServerType;

Description

Set ServerType to stThreadBlocking to automatically spawn a new thread for each socket connection accepted by the server socket. When ServerType is stThreadBlocking, the execution of the connection thread is suspended while reading or writing until all information has been transferred over the connection. The thread for each connection generates OnClientRead or OnClientWrite events when the server socket needs to read or write.

Set ServerType to stNonBlocking to handle all reading and writing over the socket connections asynchronously. When ServerType is stNonBlocking, all client connections are handled in a single execution thread by default. OnClientRead or OnClientWrite events occur when the client socket on the other end of one of the connections tries to send or receive information over the connection.

Use a non-blocking socket when the socket needs to synchronize reading and writing with client sockets.

Note:   When ServerType is stThreadBlocking, it is important that the OnClient... event handlers contain thread-safe code.

Написано мо если поставить правильный флаг то он сам создаст нужный поток для чтения и записи вызывающийся при OnClientRead и OnClientWrite
К слову проверил твой код нет там ошибот всё запустилось. Проверь есть ли обращения из потока к форме.

[Anonymous]

Вот те раз:

Про это-то я читал, но спасибо за подсказку -- нашёл ещё и это место, да и по текстам -- маленько разобрался. Через OnGetThread маленько заработало. На одном-двух клиентах.

Однако, всё равно неясно. Оный OnGetThread вызывается не при создании нити, а при создании новой нити. Старые помещаются в кэш и просто ресумятся. И как мне, многогрешному, получить сокет??? Пробую через Synchronize -- запускаются почему-то две нити, первая соединяется, вторая чего-то ждёт. Как-то надо исполнить команду в другой нити...

Впрочем, интерес, пожалуй, чисто теоретический -- не нравится мне идея заводить две сотни нитей, на каждого клиента... Всё равно буду пробовать один поток на обработку.

К слову проверил твой код нет там ошибот всё запустилось. Проверь есть ли обращения из потока к форме.

Да ты, типа, кудесник? Не может этот код работать, ну, не может, и всё!

С уважением -- Смоляное Чучелко