Сервер в виде службы

← →
Krab12345 (2006-11-28 22:00) [0]

Люди проблема такая, сервак который слушает сокет надо сделать в виде службы, есть код:

procedure Tservice1.ServiceExecute(Sender: TService);
begin
Len := SizeOf(ClientAddr);
ClientSock:=accept(S, @ClientAddr, @Len);
S1:="";
recv(ClientSock, S1, SizeOf(S1), 0);
end;
+
Все оставшиесе необходимое в обработчике OnStart
Клиент видит сервак, посылает ему данные, сервак принимает и заносит в S1. Далее он обрабатывает S1, но после обработки служба останавливается, как сделать, чтобы после обработки сервак обратно становился в режим прослушки?

← →
Eraser © (2006-11-28 23:09) [1]

> [0] Krab12345 (28.11.06 22:00)

организовать цикл.

← →
Сергей М. © (2006-11-29 08:37) [2]

> Krab12345

Цикл, разумеется, тут нужен, но и он не решит всех проблем - неверна сама логика работы с серверными гнездами.

← →
Krab12345 (2006-11-29 15:09) [3]

Сергей М. наведи пожалуйста пожалуйста на литературку, или обьясни в чем ошибка?

← →
Krab12345 (2006-11-29 15:09) [4]

Сергей М. наведи пожалуйста пожалуйста на литературку, или обьясни в чем ошибка?

← →
Сергей М. © (2006-11-29 15:14) [5]

Для начала поясни, чем тебя не устроили существующие готовые компоненты ..

← →
Krab12345 (2006-11-29 15:30) [6]

Курсач, условие АПИ, сервер в виде службы

← →
Eraser © (2006-11-29 15:49) [7]

> [6] Krab12345 (29.11.06 15:30)

так в [0] ты уже нарушил условие курсача )

← →
Krab12345 (2006-11-29 17:04) [8]

условие курсача, на Апи организовать передачу файлов через Сокет, а не написание службы

> [8] Krab12345 (29.11.06 17:04)

так с этого и надо было начинать! при чем тут сервисы вообще тогда?

← →
Krab12345 (2006-11-29 19:01) [10]

а сервисы притом, что сервер должен быть в виде службы, который будет передавать файлы через сокеты, и сама передача будет написан на АПИ

> [10] Krab12345 (29.11.06 19:01)

а! т.е. на "чистом API" нужно писать толоько сетевую часть! ферштейн )

> Krab12345 (29.11.06 19:01) [10]

Предлагаю разделить мухи и котлеты - служба сама по себе, а гнездовой транспорт сам по себе.

Начни с гнездового транспорта - отработай его логику в обычном приложении, и только после этого адаптируй отлаженную транспортную логику к логике службы.

Сервер в виде службы Найти похожие ветки