Нужно соединить две программы по сети. Использую WinSock2, впрочем это не важно.
В каждой жмем "Соединиться" и начинается процесс соединения (кто сервер, кто клиент выбирается checkbox'ом). Процесс состоит из нескольких шагов, например для сервера они такие:| Код | Создаем сервер
Ожидаем подключение (ждем)
Прием/передача данных, которые идентифицируют клиент, версию и некоторые другие параметры (посылаются в 2 этапа). |
Проблема в том, что этот процесс должен быть в любой момент отменен, т.е. он должен исполняться в отдельном потоке, чтобы срабатывали controls на форме. В то же время поток должен на каждой стадии выводить состояние соединения в форму, в случае же неудачи на любой из стадий он опять таки должен выполнять код, который должен быть синхронизирован.
Получается что код метода Execute потока будет выглядеть примерно так:
| Код |
statusText := 'Создаем сервер...';
Synchronize(updateStatus);
socket_server := server_start(server_port);
if socket_server = INVALID_SOCKET then begin
Synchronize(createServerFailed);
end;
statusText := 'Ожидаем подключение...';
Synchronize(updateStatus);
socket_client := server_waitclient(socket_server);
if socket_client = INVALID_SOCKET then begin
Synchronize(waitClientFailed);
exit;
end;
...
|
И мне придется создавать кучу методов аля чтотоТамFailed. А даже если и сделать один метод failed и устанавливать код выхода (failedCode := fcCreateServer), то это тоже кажется страшненьким решением.
Впрочем решения красивее я не вижу. Скажите, есть ли оно? Или, быть может, я неправильно использую потоки? |
)
