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

[goblinyara]

Подскажите пожалуйста, как реализовать сервисом(службой) работу приложения, если быть конкретнее, то сервера многопользовательского чата? Просто нужно реализовать работу сервера именно в фоновом режиме, т.е. сервер должен принимать, обрабатывать сообщения, и должен запускаться при старте компьютера, так как не всегда имеется возможность зайти на выделенный сервер, чтобы запустить сервер чата как обычное приложение Windows...

Если вам не сложно, напишите пожалуйста исходники,как это всё реализовать? И если кто-нибудь знает, как сделать оснастку "Консоли управления (ММС)" для службы?

Очень надеюсь на вашу помощь

[ViktorXP]

Создай новый проект "Service Application"
У модуля TService1 свойства
ServiceType = stDevice
StartType = stSystem
{Все остальные по вкусу}
Обрабатываеш событие которые нужны, из их названия будет понятно что они делают. только смотри не повесь систему.
но не забывай и про минусы: у тебя не будет доступа к пользовательскому интерфейсу (хотя если немного помучатся то можно и это обойти) но для сервеса это не посути не нужно

[goblinyara]

Извиняюсь, не очень точно описал проблемку.... просто уже сонный был=)

Как сделать так, чтобы сервис работал постоянно, то есть с момента запуска системы и до момента выключения?...

[Snoopy]

Тут лежит замечательная статья на данную тему. Сам по ней учился создавать их

[goblinyara]

Snoopy, огромное вам человеческое спасибо, очень помогла ссылочка=)

Только теперь появился ещё один вопрос - что такое IPC и как с его помощью можно из GUI приложения управлять службой? А то очень не хочется управлять через реестр, задержки нежелательны... Очень надеюсь на помощь=)

[ViktorXP]

в демо примерах есть IPCDemos
если хотиш то могу выложить свои наброски для работы с мейслотом (в свое время для себя написал клас, хотя в основном его заточивал для передачи инфы между компами)

[goblinyara]

VictorXP, было бы замечательно=)

[ViktorXP]

UMailSlot.zip
Его можно зарегить как VCL компонент и юзать визуально
а можно и динамически

 ms := TMailSlot.Create(nil);
 ms.MailSlotName := 'Test'; // имя мейл слота
 ms.OnRead := MailSlotRead; // событие которое будет срабатывать по приходу данных
 // вот как выглядит сам обработчик события
 procedure Form1.MailSlotRead(Sender: TObject; Data: TPack);
 begin
   MessageBox(0,'',PChar(Data.Who), 0);
 end;

отправка данных осуществляется

var
  Pack: TPack;
bagin
  Pack.Who := 'Тестовая строка';
  ms.Send('',Pack); // отправка
  // первый парамтр это кому отправляем (имя компа), если себе то ставим точку или же пустоту и тогда он сам поставит точку
  // второй парамтр это данные.

сам тип отписан так

  TPack = record
    ID  : Byte;
    Who : string[100];
    Driv: Char;
  end;

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

[goblinyara]

VictorXP, огромное спасибо, буду разбираться=) или может лучше будет сделать связь через TServerSocket и TClientSocket с

host:='127.0.0.1';

?