FreePascal.ru

Версия Лазарус - 1.6.4

Создаю пустой проект, кидаю на форму компонент: SimpleIPCServer , пытаюсь задать событие OnMessage, среда разработки выдает ошибку: Не найден конец исходного кода, и ссылается на строку: {$i simpleipc.inc}

Сам этот файл есть в подпапках: winall, unix и др.
Почему среда не ...

Всем спасибо, я сам понял ошибку.

В первом варианте я блокирую доступ лишь на время получения значения и на время записи нового! Но нужно блокировать доступ на все время: пока получаю значение и пока записываю новое. Иначе в промежутках пока я вычисляю новое значение, другой поток может считать ...

Пробую создавать потокобезопасный объект для хранения данных, чтобы к нему можно было обращаться из разных потоков.
За пример беру: TThreadList


Type
{ TData }
TData = Class
fData: Integer;
FLock: TRTLCriticalSection;
private
function GetData: Integer;
procedure SetData(AValue ...

Решил вопрос так:

Работаю с ФР Атол FPrint - 22

В какой кодировке отправлять строки, чтобы они корректно печатались?

2er0_7011er4nce писал(а):Wrd.Visible := true; //<==грабли тут

Попробуйте вначале прочитать значение, а потом присваивать. У меня работает.

Нашел такое решение:

&#46;&#46;&#46;
TForm1 = class(TForm)
Button1&#58; TButton;
Memo1&#58; TMemo;
SQLite3ConnectionService&#58; TSQLite3Connection;
&#46;&#46;&#46;
&#46;&#46;&#46;
&#46;&#46;&#46;


SQLite3ConnectionService&#46;ExecuteDirect('End Transaction');
SQLite3ConnectionService&#46 ...

Думаю, что для начала стоит ознакомиться с материалами хотя бы на данном сайте
раз и два

Они дадут некоторые начальные знания по задаваемым вопросам.

Спасибо - то что нужно!

Добавлено спустя 48 секунд:
Только начинаете работать с БД вообще, или с именно SQLite3? SQLite - не БД, если ...

Доброго!

Только начинаю работать с БД, сильно не пинайте... Поиском пользовался.

Как после выполнения запроса Sqlite3Dataset1.ExecuteDirect получить результат запроса?

Добавлено спустя 53 минуты 42 секунды:
Похоже нужно использовать: QuickQuery , а ExecuteDirect только для запросов не требующих ...

Спасибо!
Сделал.

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

Таймер в службе без ухищерений не сделать, т.к. в службе нет форм.

Разработка службы для Windows.

Создаю дополнительно отдельный поток. Он исправно работает, пока дело не доходит до синхронизации - она не работает.
Поток:

TServiceThread = Class(TThread)
Public
Constructor Create();
destructor Destroy; override;
Procedure Execute; override;
Procedure Syn ...

В переменной там обычная строка.

Добавлено спустя 4 минуты 7 секунд:
Там в конце строки идет символ: #0 , он то все и портит.
если изменить код так, то все работает сразу:

procedure TForm1&#46;GetName;
Var
vSizet &#58; DWord;
vPWChart&#58; PWideChar;
vNamePC,
vNameUser &#58; String;
I &#58 ...

procedure TForm1&#46;GetName;
Var
vSizet &#58; DWord;
vPWChart&#58; PWideChar;
vNamePC,
vNameUser &#58; String;
I &#58; DWord;
vWNameUser,
vWNamePC &#58; WideString;
begin
vSizet &#58;= 1024;
vPWChart &#58;= GetMem(vSizet);
// получаем имя ПК
if GetComputerNameW(vPWChart, vSizet) then ...

Такая проблема проявилась.

Есть небольшой проект.
Одно время он компилировался и работал нормально. Какое-то время я его не использовал.
Тут внес небольшие изменения, и часть кода просто не выполняется....
Т.е. как пример - при запуске программы, вызываю процедуру, в которой в Memo добавляются ...