Вверх ↑
Ответов: 117
Рейтинг: 9
#1: 2009-05-02 22:19:54 ЛС | профиль | цитата
TCP_Server не работает в NTService из-за того, что 1-ый работает в потоке, а второй этого не любит.
Если не понятно, то воспользуй, наконецтаки, поиск на форуме.

Тебе надо сервисом запускать фоновое приложение, которое будет обрабатывать запросы или использовать UDP (ищи на форуме).

Управление сервисом, можно делать вот так:
Add(MainForm,2953706,21,105)
{
link(onCreate,8583015:doStrCat,[])
}
Add(ServiceTools,10254758,308,224)
{
Name="NTService"
link(FileName,8583015:Result,[])
}
Add(Button,1281992,217,175)
{
Left=40
Top=55
Width=145
Cursor=2
Caption="Запуск сервиса"
link(onClick,10254758:doStart,[(282,181)(282,230)])
}
Add(Button,730339,217,259)
{
Left=40
Top=5
Width=75
Caption="Установить"
link(onClick,10254758:doInstall,[(270,265)(270,244)])
}
Add(Button,588811,217,301)
{
Left=40
Top=30
Width=75
Caption="Удалить"
link(onClick,10254758:doUninstall,[(279,307)(279,251)])
}
Add(Button,1558215,217,217)
{
Left=45
Top=85
Width=70
Caption="Остановить"
link(onClick,10254758:doStop,[(270,223)(270,237)])
}
Add(Dir,6433833,315,63)
{
}
Add(StrCat,8583015,315,119)
{
Str2="NTService.exe"
link(Str1,6433833:CurrentDir,[])
}
P.S. В твоей устанавливалке есть опечатки в создаваемых ключах.
карма: 0

0