Создание службы в Delphi

[aesoem]

Подскажите, пишу службу+программа к этой службе... Нужен обмен данными между службой и программой.. Решил использовать serversocket\clientsocket(localhost )... Соединение проходит успешно, даже кое что отправил со службы в программу но в обратном направлении работать не хочет...
Капаю в сторону прав доступа... Службы делятся на группы, получается моей службе нужна группа ObjectName
Пытался добиться этого так...

procedure TSFS.ServiceAfterInstall(Sender: TService);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create(KEY_ALL_ACCESS);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\SFS',True);
Reg.WriteString('\SYSTEM\CurrentControlSet\Services\SFS','ObjectName','NT AUTHORITY\NetworkService');
Reg.CloseKey;
finally
Reg.Free;
end;
end;

Но программа все равно отмечена как "без группы"в диспетчере... Как дать программе права на работу с сетью?И поможет ли это в моем случае?

Запустил службу от имени
'ObjectName','NT AUTHORITY\NetworkService'

Проблема все таже, идет соединение и сразу же разрыв

[Stilet]

но в обратном направлении работать не хочет...

А в службе твоей хотя бы прослушиватель сети есть?
Как выглядит код обмена сообщениями?

[саша40]

Если бы мозгов больше было бы, то хватило бы ума заглянуть в поисковик и найти там объект TService. А создается через File- New- Other- Service Application

[northener]

Сообщение от саша40

Если бы мозгов больше было бы, то хватило бы ума заглянуть в поисковик и найти там объект TService. А создается через File- New- Other- Service Application

Саня сороковой, ты бы лучше про мозги-то молчал.
Откуда по-твоему ТС взял событие ServiceAfterInstall?

[aesoem]

Короче все работает без выделения всяких прав и т.д.
просто в службе у меня был serversocket и в событии onread у мены был код который вешал службу.

[Stilet]

Я бы на твоем месте не использовал этот компонент. Лучше winsock с неблокирующим сокетом проверкой через select() есть ли в сокете что-то.

[GreenWizard]

может что-то я не знаю про сервисы, но не проще ли общаться с локальной программой-клиентом через pipes? как по мне, это более логично, чем использовать сеть

[Stilet]

как по мне, это более логично, чем использовать сеть

А еще логичнее Shared Memory

[GreenWizard]

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

А еще логичнее Shared Memory

я бы не стал т. к. и не особо хорошо знаком с этой частью api, и лишняя сложность (pipe проще для восприятие..... minecraft прямо тебе: труба сюда, труба туда, и входы/выходы ), и с pipe проще сделать "один сервис/сервер - много клиентов), и, если я не ошибаюсь, они позволяют даже прозрачно создавать связи в локальной сети... прямо пиар-компания вышла) хотя сам нарывался на непонятные ошибки с ними: данные отправлял и они тупо пропадали о_о

[Stilet]

с pipe проще сделать

Как сказать... На вкус и цвет - ТС захотел сокеты. Ради бога.