Отправлено: 31.08.24 19:04. Заголовок: LetoDB 3.00

https://github.com/elchs/LetoDBf/tree/master
Собираю LetoDBf из последних исходников на Debian GNU/Linux 11 (bullseye) x86_64
Версия ядра 5.10.0-27-amd64
запуск - hbmk2 letodb
Выдаёт кучу ошибок:

root@vm-1dce949a:~/Andrey/LetoDBf# hbmk2 letodb 
 /usr/bin/ld: /usr/lib/harbour/libhbmemio.a(memio.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(hvmall.o): relocation R_X86_64_32S against `.rodata' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(cmdarg.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(eval.o): relocation R_X86_64_32 against symbol `hb_symEval' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(extrap.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(initsymb.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(proc.o): relocation R_X86_64_32S against symbol `hb_symEval' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(runner.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbvmmt.a(harbinit.o): relocation R_X86_64_32 against `.rodata' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(cdpapi.o): relocation R_X86_64_32 against `.bss' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(chrasc.o): relocation R_X86_64_32S against symbol `hb_szAscii' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(console.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(datec.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(dates.o): relocation R_X86_64_32S against `.rodata' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(dateshb.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(errapi.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(file.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(filebuf.o): relocation R_X86_64_32S against `.rodata' can not be used when making a PIE object; recompile with -fPIE 
 /usr/bin/ld: /usr/lib/harbour/libhbrtl.a(filesys.o): relocation R_X86_64_32 against `.rodata.str1.1' can not be used when making a PIE object; recompile with -fPIE 
 .... 
 collect2: error: ld returned 1 exit status 
 hbmk2[letodb]: Error: Running linker. 1 
 gcc '/tmp/hbmk_kZVs1X.dir/server.o' '/tmp/hbmk_kZVs1X.dir/errorsys.o' '/tmp/hbmk_kZVs1X.dir/common.o' '/tmp/hbmk_kZVs1X.dir/errint.o' '/tmp/hbmk_kZVs1X.dir/leto_lnx.o' '/tmp/hbmk_kZVs1X.dir/letoacc.o' '/tmp/hbmk_kZVs1X.dir/letovars.o' '/tmp/hbmk_kZVs1X.dir/letofunc.o' '/tmp/hbmk_kZVs1X.dir/letolist.o' '/tmp/hbmk_kZVs1X.dir/leto_2.o' '/tmp/hbmk_kZVs1X.dir/blowfish.o' '/tmp/hbmk_kZVs1X.dir/common_c.o' '/tmp/hbmk_kZVs1X.dir/lz4.o' '/tmp/hbmk_kZVs1X.dir/lz4net.o' '/tmp/hbmk_kZVs1X.dir/PMurHash.o' '/tmp/hbmk_kZVs1X.dir/hbmk_zyaxX0.o'   -Wl,--start-group -lhbmemio -lhbct -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lm -lpthread -ldl -lrt -lhbpcre -lhbzlib   -Wl,--end-group -s -obin/letodb -L/usr/lib/harbour

Как собрать Лето под Debian ?

 Отправлено: 31.08.24 20:06. Заголовок: Тут вот компилятор с..

Тут вот компилятор сам предлагает:
can not be used when making a PIE object; recompile with -fPIE

 Отправлено: 31.08.24 22:00. Заголовок: PSP пишет: recompil..

PSP пишет:

цитата:

recompile with -fPIE

И куда это вставлять ?
Я очень давно, лет 7 назад собирал под Linux, но тогда сразу собрался.
А сейчас труба...

 Отправлено: 01.09.24 07:36. Заголовок: hbmk2 letodb - это ч..

hbmk2 letodb - это что (подчеркнутое)?

 Отправлено: 01.09.24 19:02. Заголовок: Andrey пишет: И куд..

Andrey пишет:

цитата:

И куда это вставлять ?

в HBP файлик думается

 Отправлено: 01.09.24 23:40. Заголовок: https://i.postimg.cc..

 Отправлено: 02.09.24 09:55. Заголовок: Andrey пишет:И куда ..

Andrey пишет:

цитата:

И куда это вставлять ?

может тут есть про это, запуск hbmk2.exe -help > hbmk2.lst и смотри параметры hbmk2

 Отправлено: 02.09.24 13:37. Заголовок: это опция gcc добавь..

это опция gcc
добавь в HBP строку -pie

 Отправлено: 02.09.24 14:37. Заголовок: Не помогает... https..

Не помогает...

 Отправлено: 02.09.24 16:05. Заголовок: Andrey в протоколе ...

Andrey в протоколе ... recompile with -fPIE, если это к параметрам запуска, то надо так и задавать, причем
hbmk2 [options] [<script[ s ]>] <src[ s ][.prg|.c|.obj|.o|.rc|.res|.def|.po|.pot|.hbl|@.clp|.d|.ch]>

Options:
...
-F<framework> link with <framework> framework (Darwin only)
...
т.е. -help надо смотреть

Дима, говорит про вставку в файл сборки <имя>.hbp
пробуй

 Отправлено: 02.09.24 22:51. Заголовок: Не помогает, не соби..

Не помогает, не собирается...
Там - https://github.com/elchs/LetoDBf/tree/master
Тоже был вопрос про сборку, год назад, но ответа нет.

 Отправлено: 05.09.24 09:11. Заголовок: Поставил флаг в leto..

Поставил флаг в letodb.hbp

-cflag=-fPIE

Такая же ошибка.

И как собрать ?

 Отправлено: 05.09.24 12:02. Заголовок: Пошатай гугл вот так..

Пошатай гугл вот такой строкой , ответов много и решение найдешь
"can not be used when making a PIE object; recompile with -fPIE"

 Отправлено: 05.09.24 13:32. Заголовок: Andrey а так ? ) -c..

Andrey
а так ? )
-cflag=-fno-pie

PS
https://forum.oberoncore.ru/viewtopic.php?f=157&t=6426&start=20

 Отправлено: 05.09.24 15:25. Заголовок: Dima пишет: а так ?..

Dima пишет:

цитата:

а так ? ) -cflag=-fno-pie

Правильнее будет:
-ldflag=-no-pie
потому что это флаг линкера

 Отправлено: 08.09.24 00:02. Заголовок: Спасибо БОЛЬШОЕ ! :..

Спасибо БОЛЬШОЕ !
С этим ключом компиляция прошла нормально !

https://github.com/elchs/LetoDBf/tree/master/source/3rd/lz4
А как делать архив ОДНОГО файла на сервере ?
Что-то примеров нет...
Допустим имею базу в 400 Мб на сервере, легче его там сжать, а потом скопировать к себе, чем сразу копировать к себе.

В LetoDb делал свою функцию, а здесь вроде готовая есть.

 Отправлено: 08.09.24 09:14. Заголовок: Andrey пишет: легче..

Andrey пишет:

цитата:

легче его там сжать, а потом скопировать к себе, чем сразу копировать к себе

Очевидно, что меньший файл скопируется быстрее)

 Отправлено: 08.09.24 15:22. Заголовок: Как сделать полный B..

Как сделать полный BACKUP базы
Доку смотрел на сайте, там ничего про это нет.
В файле letodb.ini есть такие строки:

DataBase = / 
 Backup = /tmp/backup 
 Mask = *.dbf,*.dbt,*.ntx 
 Lock = 1 
 Seconds = 30 
 Wait = 1 
 ArcCmd = tar -cvzf /tmp/backup/leto.tar.gz /tmp/backup/*

И как этим пользоваться ?

 Отправлено: 08.09.24 16:27. Заголовок: Andrey пишет И как э..

Andrey пишет

цитата:

И как этим пользоваться ?

Этим не знаю.
Сам делал в спец. отведенное техническое время, убирал всех user-ов ф-ей LETO_MGKILL() без вопросов, т.е. базы свободны, можно копировать.
По readme.txt понимаю так, делаешь
- leto_lockconn( .T. ) // новые подключения блокируешь
- LETO_LOCKLOCK( [ <lOnOff> ] [, <nSecs> ][, <nDelaySecs> ] ), при этом в ini заполнено сообщение user-ам в переменной Backup_Info,
которое к ним вылезет на экран (в GUI не знаю как это будет и будет ли ...) // по default будет исп. режим (см. readme.txt) New [ default ] behaviour: ... суть все блокировки и т.д.
сохранены, базы освобождены, ...
- запускаем архивацию, например exe, полученный из каталога LetoDbf-master\utils\backup\letobackup.prg + ini для OS Leto_ProcessRun(...)
с ожиданием завершения
- по завершению делаем LETO_LOCKLOCK(.F.) // восстановятся все состояния user-ов по базам, блокировкам и ...
- leto_lockconn( .F. ) // разрешаешь подключение новых user к серверу

 Отправлено: 08.09.24 17:13. Заголовок: SergKis пишет: - за..

SergKis пишет:

цитата:

- запускаем архивацию, например exe, полученный из каталога LetoDbf-master\utils\backup\letobackup.prg + ini для OS Leto_ProcessRun(...) с ожиданием завершения

Там уже встроен алгоритм архивирования ! Зачем пользоваться внешним процессом ?
Да и скорость у него пишут огромная.
https://github.com/elchs/LetoDBf/tree/master/source/3rd/lz4

LZ4 — чрезвычайно быстрое сжатие

LZ4 — это алгоритм сжатия без потерь, обеспечивающий скорость сжатия 400 МБ/с на ядро, масштабируемый с многоядерными ЦП.
Он также имеет чрезвычайно быстрый декодер со скоростью в несколько ГБ/с на ядро, обычно достигая пределов скорости ОЗУ на многоядерных системах.

Скорость можно настраивать динамически, выбирая фактор «ускорения», который жертвует степенью сжатия ради большей скорости.
С другой стороны, также предоставляется производная с высоким сжатием LZ4_HC, жертвующая временем ЦП ради улучшенной степени сжатия.
Все версии обладают одинаковой превосходной скоростью распаковки.

Сервер запустился, вот что в логе letodbf.log:

09.08.2024 13:03:58       UDF file: /root/Andrey/LetoDBF/bin/letoudf.hrb have been loaded. 
 09.08.2024 13:03:58 INFO: LetoDBf Server 3.00 (20240906), will run at port :2812 ( internal also used :2813 ) 
 09.08.2024 13:03:58 INFO: DataPath=/root/Andrey/DATA, ShareTables=0, NoSaveWA=1, Max Tables=999 
 09.08.2024 13:03:58 INFO: LoginPassword=0, CacheRecords=21, LockExtended=0, Max Users=99 
 09.08.2024 13:03:58 INFO: Encrypted LZ4 traffic=N 
 09.08.2024 13:03:58 DEBUG second socket: 4 for errors established 
 09.08.2024 13:03:58 DEBUG thread3() with pipe handle: 5 started .. 

 Отправлено: 08.09.24 17:33. Заголовок: Думаю, что речь идет..

Думаю, что речь идет о Crypt_Traffic = 1 и LETO_TOGGLEZIP( [ <nCompessLevel> [, <cPassword> ] ] )
т.е. шифрования трафика, если сборка без LZ4, То исп. механизм zlib

 Отправлено: 09.09.24 16:52. Заголовок: Установил ЛетоДбф на..

Установил ЛетоДбф на Линукс.
Делаю:

letodb.ini 
 ... 
 Crypt_Traffic = 1  // перестаёт работать прога manage.exe 
                       и при логине основная утилита висит

Далее, добавил ключ как и на Windows

;! У клиента на сервере могут быть запрещены запуски файловых ф-ии из целей безопасности,  
 ;! а сервер и клиенты должны продолжать работу с файлами dbf,  
 ;! т.е. в ini 
 ;!    EnableFileFunc = 0  - если 1, то использование файловых функций (leto_file(), leto_ferase() и т.д.) 
 ;!                          разрешено. В противном случае эти функции ничего не делают или возвращают .F. 
 ;! т.е. код будет работать, а функции leto_file() .. проскакивать не выполняясь

EnableFileFunc = 1

Всё равно прога не возвращает значений функций leto_file(), leto_*()
Возвращает U
Или это нужно как то настраивать в самом Линуксе ?

 Отправлено: 10.09.24 08:18. Заголовок: Andrey пишет Crypt_..

Andrey пишет

цитата:

Crypt_Traffic = 1 // перестаёт работать прога manage.exe и при логине основная утилита висит

Readme.txt

цитата:

Further LetoDBf offers blowfish encrypted network traffic in CBC mode. This is activated on demand in conjunction with network compression, by using the cPassword> parameter in Leto_Togglezip( nLevel, cPassword ). Compression ( plus encryption ) can be activated immediate after a connection is established. NEW: with server option "CRYPT_TRAFFIC" network traffic encryption is demanded to be used by client, this is like above Leto_Togglezip() from the very beginning using a random password. It will block any connection which is not using encryption.

После connect на клиенте надо использовать Leto_Togglezip(), иначе не шифрованные соединения блокируются

 Отправлено: 10.09.24 17:31. Заголовок: SergKis пишет: инач..

SergKis пишет:

цитата:

иначе не шифрованные соединения блокируются

Хоть бы ошибку какую то выдавали...

Тогда получается, что нужна правка в утилите manage.exe
Что наверное будет сложно сделать.

 Отправлено: 10.09.24 20:46. Заголовок: Сервер ЛетоДбф работ..

Сервер ЛетоДбф работает на Debian 11, а моя прога много ругается на leto_F*()
Может что-то на Debian 11 что-то нужно подкрутить ?
Сделал в letodb.ini
EnableFileFunc = 1

Всё равно прога не возвращает значений функций leto_file(), leto_*()
Возвращает U

 Отправлено: 11.09.24 12:05. Заголовок: Andrey пишет: Возвр..

Andrey пишет:

цитата:

Возвращает U

Что значит возвращает U ? nil, что ли ?
leto_file возвращает или .T., или .F., т.е. L
Если это U, то leto_file не тот, какая-то проблема со сборкой клиента

 Отправлено: 11.09.24 19:47. Заголовок: С функцией leto_file..

С функцией leto_file() всё нормально, это я не туда посмотрел.
В Линуксе имена файлов различаются верхний и нижний регистр, т.е. в папке может быть test3.dbf и TEST3.dbf и tEst3.Dbf и т.д.
А я файлы проверяю как в Винде.
Функция leto_directory() не дает ВСЕ имена директорий почему то ....
И как с этим работать ????
Вот по этому коду:

 
          cPath  := "" 
          cMask := "*" 
          cAttr   := "D" 
          cFunc := "leto_Directory" 
          lLeto := hb_IsFunction(cFunc) 
          aDir := hb_ExecFromArray(cFunc, {cPath + cMask, cAttr}) 
          aDir равно "U"

 Отправлено: 21.09.24 22:13. Заголовок: Как различать какой ..

Как различать какой сервер запущен: на Windows или на Linux ?

 Отправлено: 21.09.24 22:55. Заголовок: Andrey Уже в пример..

Andrey
Уже в примере использовал, смотри строки

 
                        a := leto_Udf("UDF_AppGetOptions") 
                        oac:oAppOption := oHmgData() 
                        IF IsArray(a) ; oac:oAppOption:Set(a) 
                        ENDIF 
 

?v oac:oAppOption:GetAll()
или
cTmp := leto_udf( "OS" )

 Отправлено: 25.11.24 16:33. Заголовок: Пытаюсь собрать серв..

Пытаюсь собрать сервер LetoDbf как службу.
В папке LetoDBf-master есть проекты:

letodb.hbp 
 letodbaddon.hbp 
 letodbsvc.hbp 
 letoudf.hbp 
 make_b32.bat 
 make_vc.bat 
 makefile.bc

Сборка сервера под Win проходит: C:\MiniGui\batch\hbmk2.bat /n %* letodb.hbp
А для службы нет.
C:\MiniGui\batch\hbmk2.bat /n %* letodbsvc.hbp
Выдаёт ошибки:

 
 D:\TEMP\hbmk_ebtn39.dir\server.c: 
 D:\TEMP\hbmk_ebtn39.dir\errorsys.c: 
 D:\TEMP\hbmk_ebtn39.dir\common.c: 
 source\server\errint.c: 
 source\server\leto_win.c: 
 source\server\letoacc.c: 
 source\server\letovars.c: 
 source\server\letofunc.c: 
 source\server\letolist.c: 
 source\server\leto_2.c: 
 Warning W8061 c:\borland\bcc58\Include\wspiapi.h 898: Initialization is only partially bracketed in function WspiapiLoad 
  + Full parser context 
  + source\server\leto_2.c, line 52: #include c:\borland\bcc58\Include\ws2tcpip.h 
  + c:\borland\bcc58\Include\ws2tcpip.h, line 768: #include c:\borland\bcc58\Include\wspiapi.h 
  + c:\borland\bcc58\Include\wspiapi.h, line 987: decision to instantiate: int (__stdcall *)() __stdcall WspiapiLoad(unsigned short) 
  + --- Resetting parser context for instantiation... 
  + c:\borland\bcc58\Include\wspiapi.h, line 893: parsing: int (__stdcall *)() __stdcall WspiapiLoad(unsigned short) 
 Warning W8061 c:\borland\bcc58\Include\wspiapi.h 903: Initialization is only partially bracketed in function WspiapiLoad 
  + Full parser context 
  + source\server\leto_2.c, line 52: #include c:\borland\bcc58\Include\ws2tcpip.h 
  + c:\borland\bcc58\Include\ws2tcpip.h, line 768: #include c:\borland\bcc58\Include\wspiapi.h 
  + c:\borland\bcc58\Include\wspiapi.h, line 987: decision to instantiate: int (__stdcall *)() __stdcall WspiapiLoad(unsigned short) 
  + --- Resetting parser context for instantiation... 
  + c:\borland\bcc58\Include\wspiapi.h, line 893: parsing: int (__stdcall *)() __stdcall WspiapiLoad(unsigned short) 
 source\common\blowfish.c: 
 source\common\common_c.c: 
 source\common\PMurHash.c: 
 D:\TEMP\hbmk_fi0mqd.c: 
 Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland 
 Error: Unresolved external '_HB_FUN_HB_GT_GUI_DEFAULT' referenced from C:\MINIGUI_23_12_6\LIB\MINIGUI.LIB|h_error 
 Error: Unresolved external '_HB_FUN_HB_GT_GUI' referenced from D:\TEMP\HBMK_EBTN39.DIR\HBMK_FI0MQD.OBJ 
 hbmk2[letodbsvc]: Error: Running linker. 2

Как исправить ? Что нужно добавить ?

 Отправлено: 30.11.24 20:09. Заголовок: Получилось... Добави..

Получилось...
Добавил в letodbsvc.hbp строку:

{bcc}-lgtgui 
 {bcc}-lhbmemio 
 {bcc}-lhbct 
 {!bcc}hbmemio.hbc 
 {!bcc}hbct.hbc 
 

 Отправлено: 30.11.24 20:59. Заголовок: Установил на сервере..

Установил на сервере Windows 2008 службу, запуск есть.
В лог letodbf.log пишет, что успешно запустился сервер.




Не могу при коннектиться из своей программы - выдаёт ошибку (1) connection error

Если запускать как отдельный ехе-ник (не службу) то коннект к серверу есть.
Что нужно сделать, чтобы служба заработала ?

 Отправлено: 01.12.24 13:16. Заголовок: Можно ли ехе-ник для..

Можно ли ехе-ник для службы (LetoDB.exe) переименовать в LetoDB_srv.exe ?

 Отправлено: 01.12.24 15:13. Заголовок: Andrey пишет: Устан..

Andrey пишет:

цитата:

Установил на сервере Windows 2008 службу, запуск есть

От имени какого пользователя запущена служба?

 Отправлено: 01.12.24 15:30. Заголовок: От админа !..

От админа !
Когда переименовал letodb.exe в letodb_srv.exe и запускаю как службу - запуск есть, коннекта из своей программы НЕТ.
Запускаю letodb.exe как обычную программу - запуск есть, коннект из своей программы ЕСТЬ !
Почему так ?
Хотелось бы иметь ДВА разных ехе-ника.