Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Krab12345 © (2006-11-28 22:00:00)
Люди проблема такая, сервак который слушает сокет надо сделать в виде службы, есть код:

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, но после обработки служба останавливается, как сделать, чтобы после обработки сервак обратно становился в режим прослушки?

Сергей М. (2006-11-30 08:57:00) [1]

> Krab12345 (29.11.06 19:01) [10]

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

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

Eraser (2006-11-29 22:32:00) [2]
> [10] Krab12345 (29.11.06 19:01)

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

Krab12345 (2006-11-29 19:01:00) [3]
а сервисы притом, что сервер должен быть в виде службы, который будет передавать файлы через сокеты, и сама передача будет написан на АПИ

Eraser (2006-11-29 17:06:00) [4]
> [8] Krab12345 (29.11.06 17:04)

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

Krab12345 (2006-11-29 17:04:00) [5]
условие курсача, на Апи организовать передачу файлов через Сокет, а не написание службы

Eraser (2006-11-29 15:49:00) [6]
> [6] Krab12345 (29.11.06 15:30)

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

Krab12345 (2006-11-29 15:30:00) [7]
Курсач, условие АПИ, сервер в виде службы

Сергей М. (2006-11-29 15:14:00) [8]
Для начала поясни, чем тебя не устроили существующие готовыекомпоненты ..

Krab12345 (2006-11-29 15:09:00) [9]
Сергей М. наведи пожалуйста пожалуйста на литературку, или обьясни в чем ошибка?

Krab12345 (2006-11-29 15:09:00) [10]
Сергей М. наведи пожалуйста пожалуйста на литературку, или обьясни в чем ошибка?

Сергей М. (2006-11-29 08:37:00) [11]

> Krab12345

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

Eraser (2006-11-28 23:09:00) [12]
> [0] Krab12345 (28.11.06 22:00)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »