Search options (Page 4 of 5)

Добрый день.
А можно по подробней описать алгоритм взаимодействия в данной схеме?
клиент MVDB на локальном АРМ --- удалённая MySQL БД --- форма на сайте (на одном хостинге с MySQL или не принципиально?)

Добрый день.
Я сохраняю файлы для обновления и версию программы прямо в базу, на локальном компьютере пользователя создаётся скриптом файл с текущей версией программы пользователя (или прописывается в settings.ini), при закрытии (или открытии) программы проверяется есть ли в базе новая версия и, если есть, копируются из базы новые файлы с заменой старых и обновляется номер версии в файле версии.

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

procedure instr_w1_OnMouseMove
.....
if (instr.w1.Left+x-x0) < instr.Image1.Left then instr.w1.Left := instr.Image1.Left else if (instr.w1.Left+x-x0) > instr.Image1.Width+10 then instr.w1.Left := instr.Image1.Width+10 else instr.w1.Left:=instr.w1.Left+x-x0; // Изменяем позицию левого края
if (instr.w1.Top+y-y0) < instr.Image1.Top then instr.w1.Top := instr.Image1.Top else if (instr.w1.Top+y-y0) > instr.Image1.Height then instr.w1.Top := instr.Image1.Height else instr.w1.Top:=instr.w1.Top+y-y0; // Изменяем позицию верхнего края

Ага, особенно если в скрипте хранится информация о подключении к MySQL серверу)))
Давно задавал вопрос защиты разработчику, но кроме совета удалить script.pas и хранить пароль в отдельном зашифрованном файле решений ни каких ...
Приходится использовать другие способы защиты.

В самом начале кода вставить:
var x,y: integer=0;
если слово var уже есть, то повторять не надо, просто вставить x,y: integer=0;, и если переменные x, y уже есть нужно выбрать другие имена

procedure form2_Button5_OnClick (Sender: TObject; var Cancel: boolean);
begin
repeat
   while x = y do y:=Trunc(Random*10);
   x:=y;
until x <> 0;     
form2.Edit1.Value:= x;
end;

Примерно так:

var x,y: integer=0;
.......
repeat
   while x = y do y:=Trunc(Random*10);
   x:=y;
until x <> 0;

будет выдавать случайные не повторяющиеся числа от 1 до 9, если нужно до 10, то умножать на 11: Trunc(Random*11)

Подскажите, отчёт сделал по видео инструкции на кнопку Отчёт (SQL), запрос простой, передаю содержимое нескольких полей из базы SQLite. В отчёте в каждом поле перед содержимым появляется символ апостроф ('). Как это поправить? При этом если вывести данные из базы в Grid, всё нормально без лишних символов.

Выяснил, что текстовый файл содержит символы в кодировке KOI-8R, если их удалить код работает.
Попробуйте скормить этот файл, а потом удалить из него последнюю строку...

Сообщений об ошибке нет, делаю sl.LoadFromFile(FileName), потом проверяю количество строк sl.Count, получаю "0". Удаляю часть строк в файле, код начинает работать работать.