Разница в том, что у приложения есть объект Application, а у демона его нет.
Создание потока происходит в одном случае на FormCreate, а в другом DataModuleStart.
У класса TDaemon очень скудное описание.
Может ли TSimpleIPCServer работать с TDaemon? Может нужно в сервис добавить Application? Как ...
Найдено 13 результатов
- 30.04.2019 08:00:51
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
- 26.04.2019 11:18:27
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
Re: Создание службы
smartmaster , судя по всему, просто нечем.
Не понял, что значит нечем?
Вот проект приложения в нем все работает.
unit serviceTestIpc;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, simpleipc, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TServerThread ...
Не понял, что значит нечем?
Вот проект приложения в нем все работает.
unit serviceTestIpc;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, simpleipc, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TServerThread ...
- 26.04.2019 09:12:22
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
Re: Создание службы
Максимально упростил
Запускается останавливается, но не принимает сообщения. Почему?
type
{ TServerThread }
TServerThread = Class(TThread)
private
FServer: TSimpleIPCServer;
FThreadTimeout: Integer;
FSender: TCustomDaemon;
Public
constructor Create(ATimeout: integer; aowner ...
Запускается останавливается, но не принимает сообщения. Почему?
type
{ TServerThread }
TServerThread = Class(TThread)
private
FServer: TSimpleIPCServer;
FThreadTimeout: Integer;
FSender: TCustomDaemon;
Public
constructor Create(ATimeout: integer; aowner ...
- 25.04.2019 06:22:58
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
Re: Создание службы
Поменял в коде true на false
SimpleIPCServer1.StartServer(false);
сервис стал запускаться и останавливаться.
Теперь проблема в том, что когда посылаю сообщение серверу программа возвращает ошибку
что сервер с такимто id не активен.
Вроде при старте службы сервер активируется. Если тоже самое ...
SimpleIPCServer1.StartServer(false);
сервис стал запускаться и останавливаться.
Теперь проблема в том, что когда посылаю сообщение серверу программа возвращает ошибку
что сервер с такимто id не активен.
Вроде при старте службы сервер активируется. Если тоже самое ...
- 24.04.2019 13:34:41
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
Re: Создание службы
Устанавливаю службу.
Вручную запускаю службу- запускается.
Останавливаю- крутит около 2 минут и выдает сообщение об ошибке.
Что я делаю не так?
Вот код:
{ TDaemon1 }
TDaemon1 = class(TDaemon)
SimpleIPCClient1: TSimpleIPCClient;
SimpleIPCServer1: TSimpleIPCServer;
SQLite3Connection1 ...
Вручную запускаю службу- запускается.
Останавливаю- крутит около 2 минут и выдает сообщение об ошибке.
Что я делаю не так?
Вот код:
{ TDaemon1 }
TDaemon1 = class(TDaemon)
SimpleIPCClient1: TSimpleIPCClient;
SimpleIPCServer1: TSimpleIPCServer;
SQLite3Connection1 ...
- 22.04.2019 09:26:57
- Форум: Lazarus
- Тема: Создание службы
- Ответы: 10
- Просмотры: 7852
Создание службы
Зравствуйте!
Не могли бы вы подсказать как прикрутить к сервису компоненты
TSimpleIPCClient
TSimpleIPCServer
чтобы сервис мог слушать мое приложение и отвечать ему.
У компонента TSimpleIPCServer есть метод MessageQueued который ловит сообщения от клиентов. Не пойму как сделать так, чтобы этот метод ...
Не могли бы вы подсказать как прикрутить к сервису компоненты
TSimpleIPCClient
TSimpleIPCServer
чтобы сервис мог слушать мое приложение и отвечать ему.
У компонента TSimpleIPCServer есть метод MessageQueued который ловит сообщения от клиентов. Не пойму как сделать так, чтобы этот метод ...
- 12.04.2011 12:06:10
- Форум: Free Pascal Compiler
- Тема: Создание своей целевой ос в fpc
- Ответы: 6
- Просмотры: 5255
Re: Создание своей целевой ос в fpc
Sergei I. Gorelkin писал(а):Есть некое описание здесь: http://wiki.freepascal.org/Porting_Free_Pascal
Спапсибо Сергей, то что нужно буду пробовать...
- 07.04.2011 13:06:11
- Форум: Free Pascal Compiler
- Тема: Где взять кроссбин утилиты?
- Ответы: 2
- Просмотры: 2734
Где взять кроссбин утилиты?
Из статьи про кросскомпиляцию узнал где взять
binutils для кросс-компиляции: ftp://ftp.freepascal.org/fpc/contrib/cr ... -linux.zip.
по ссылке архив 2004 года
Подскажите где взять тоже самое для текущей версии компилятора?
binutils для кросс-компиляции: ftp://ftp.freepascal.org/fpc/contrib/cr ... -linux.zip.
по ссылке архив 2004 года
Подскажите где взять тоже самое для текущей версии компилятора?
- 07.04.2011 12:43:06
- Форум: Free Pascal Compiler
- Тема: Создание своей целевой ос в fpc
- Ответы: 6
- Просмотры: 5255
Создание своей целевой ос в fpc
Господа подскажите пожалуйста как это можно сделать?
Для начала самый простой вариант:
System.pp - пустой, никаких типов в нем не определено,
heaph.inc - нет и соответственно не определены функции getmem и т.д.
про тип string компилятор вообще ничего не должен знать, как и про все остальные типы ...
Для начала самый простой вариант:
System.pp - пустой, никаких типов в нем не определено,
heaph.inc - нет и соответственно не определены функции getmem и т.д.
про тип string компилятор вообще ничего не должен знать, как и про все остальные типы ...
- 14.04.2010 14:30:28
- Форум: Free Pascal Compiler
- Тема: ошибка во в assembler процедуре
- Ответы: 4
- Просмотры: 4468
Re: ошибка во в assembler процедуре
; [22] lidt word ptr [idt]
lidt word [eax]
в asmproc.s комплилятор делает по своему.
потом nasm не может это разобрать.
Странно почему не работает опция -RDirect? в -h показывает, а реально не работает.
lidt word [eax]
в asmproc.s комплилятор делает по своему.
потом nasm не может это разобрать.
Странно почему не работает опция -RDirect? в -h показывает, а реально не работает.
- 14.04.2010 10:53:37
- Форум: Free Pascal Compiler
- Тема: ошибка во в assembler процедуре
- Ответы: 4
- Просмотры: 4468
Re: ошибка во в assembler процедуре
Спасибо, что откликнулись Сергей, а то я уж думал, что никто ничего не скажет.
-Anasmelf я выбрал потому, что в таком режиме можно заглянуть в *.s файлы подключая режим -a
Если выбрать ассемблер по умолчанию то он не может скомпилить сгененрированный файл.
Например оставим режим -al без ...
-Anasmelf я выбрал потому, что в таком режиме можно заглянуть в *.s файлы подключая режим -a
Если выбрать ассемблер по умолчанию то он не может скомпилить сгененрированный файл.
Например оставим режим -al без ...
- 13.04.2010 15:15:31
- Форум: Free Pascal Compiler
- Тема: ошибка во в assembler процедуре
- Ответы: 4
- Просмотры: 4468
ошибка во в assembler процедуре
Господа, посмотрите пожалуйста проектик.
Ошибка в команде lidt
mismatch in operand sizes
Но, самое интересное, что если убрать -Anasmelf, то компилит без ошибок.
Как заставить его компилироваться без ошибок?
Спасибо.
Добавлено спустя 3 часа 27 минут 16 секунд:
И второй вопрос походу ...
Ошибка в команде lidt
mismatch in operand sizes
Но, самое интересное, что если убрать -Anasmelf, то компилит без ошибок.
Как заставить его компилироваться без ошибок?
Спасибо.
Добавлено спустя 3 часа 27 минут 16 секунд:
И второй вопрос походу ...
- 30.03.2010 10:17:36
- Форум: Free Pascal Compiler
- Тема: Как посмотреть скрипт линкера по умолчанию?
- Ответы: 1
- Просмотры: 2269
Как посмотреть скрипт линкера по умолчанию?
Подскажите пожалуйста, где компилятор сохраняет скрипт линкера, который генерится по умолчанию? Спасибо.
