Найдено 13 результатов

smartmaster
30.04.2019 08:00:51
Форум: Lazarus
Тема: Создание службы
Ответы: 10
Просмотры: 7852

Re: Создание службы

Разница в том, что у приложения есть объект Application, а у демона его нет.
Создание потока происходит в одном случае на FormCreate, а в другом DataModuleStart.
У класса TDaemon очень скудное описание.
Может ли TSimpleIPCServer работать с TDaemon? Может нужно в сервис добавить Application? Как ...
smartmaster
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 ...
smartmaster
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 ...
smartmaster
25.04.2019 06:22:58
Форум: Lazarus
Тема: Создание службы
Ответы: 10
Просмотры: 7852

Re: Создание службы

Поменял в коде true на false
SimpleIPCServer1.StartServer(false);

сервис стал запускаться и останавливаться.
Теперь проблема в том, что когда посылаю сообщение серверу программа возвращает ошибку
что сервер с такимто id не активен.
Вроде при старте службы сервер активируется. Если тоже самое ...
smartmaster
24.04.2019 13:34:41
Форум: Lazarus
Тема: Создание службы
Ответы: 10
Просмотры: 7852

Re: Создание службы

Устанавливаю службу.
Вручную запускаю службу- запускается.
Останавливаю- крутит около 2 минут и выдает сообщение об ошибке.
Что я делаю не так?
Вот код:
{ TDaemon1 }

TDaemon1 = class(TDaemon)
SimpleIPCClient1: TSimpleIPCClient;
SimpleIPCServer1: TSimpleIPCServer;
SQLite3Connection1 ...
smartmaster
22.04.2019 09:26:57
Форум: Lazarus
Тема: Создание службы
Ответы: 10
Просмотры: 7852

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

Зравствуйте!
Не могли бы вы подсказать как прикрутить к сервису компоненты
TSimpleIPCClient
TSimpleIPCServer
чтобы сервис мог слушать мое приложение и отвечать ему.
У компонента TSimpleIPCServer есть метод MessageQueued который ловит сообщения от клиентов. Не пойму как сделать так, чтобы этот метод ...
smartmaster
12.04.2011 12:06:10
Форум: Free Pascal Compiler
Тема: Создание своей целевой ос в fpc
Ответы: 6
Просмотры: 5255

Re: Создание своей целевой ос в fpc

Sergei I. Gorelkin писал(а):Есть некое описание здесь: http://wiki.freepascal.org/Porting_Free_Pascal


Спапсибо Сергей, то что нужно буду пробовать...
smartmaster
07.04.2011 13:06:11
Форум: Free Pascal Compiler
Тема: Где взять кроссбин утилиты?
Ответы: 2
Просмотры: 2734

Где взять кроссбин утилиты?

Из статьи про кросскомпиляцию узнал где взять
binutils для кросс-компиляции: ftp://ftp.freepascal.org/fpc/contrib/cr ... -linux.zip.

по ссылке архив 2004 года

Подскажите где взять тоже самое для текущей версии компилятора?
smartmaster
07.04.2011 12:43:06
Форум: Free Pascal Compiler
Тема: Создание своей целевой ос в fpc
Ответы: 6
Просмотры: 5255

Создание своей целевой ос в fpc

Господа подскажите пожалуйста как это можно сделать?
Для начала самый простой вариант:
System.pp - пустой, никаких типов в нем не определено,
heaph.inc - нет и соответственно не определены функции getmem и т.д.
про тип string компилятор вообще ничего не должен знать, как и про все остальные типы ...
smartmaster
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 показывает, а реально не работает.
smartmaster
14.04.2010 10:53:37
Форум: Free Pascal Compiler
Тема: ошибка во в assembler процедуре
Ответы: 4
Просмотры: 4468

Re: ошибка во в assembler процедуре

Спасибо, что откликнулись Сергей, а то я уж думал, что никто ничего не скажет.

-Anasmelf я выбрал потому, что в таком режиме можно заглянуть в *.s файлы подключая режим -a
Если выбрать ассемблер по умолчанию то он не может скомпилить сгененрированный файл.
Например оставим режим -al без ...
smartmaster
13.04.2010 15:15:31
Форум: Free Pascal Compiler
Тема: ошибка во в assembler процедуре
Ответы: 4
Просмотры: 4468

ошибка во в assembler процедуре

Господа, посмотрите пожалуйста проектик.
Ошибка в команде lidt
mismatch in operand sizes

Но, самое интересное, что если убрать -Anasmelf, то компилит без ошибок.

Как заставить его компилироваться без ошибок?
Спасибо.

Добавлено спустя 3 часа 27 минут 16 секунд:
И второй вопрос походу ...
smartmaster
30.03.2010 10:17:36
Форум: Free Pascal Compiler
Тема: Как посмотреть скрипт линкера по умолчанию?
Ответы: 1
Просмотры: 2269

Как посмотреть скрипт линкера по умолчанию?

Подскажите пожалуйста, где компилятор сохраняет скрипт линкера, который генерится по умолчанию? Спасибо.