On-line: PSP, гостей 1. Всего: 2 [подробнее..]
АвторСообщение
постоянный участник


Пост N: 1362
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 21.01.18 10:31. Заголовок: LetoDb fork


https://github.com/elchs/LetoDBf
https://github.com/elchs/LetoDBf/blob/master/README.md
Кто-нибудь пробовал или использует в продакшене?

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 125 , стр: 1 2 3 4 5 6 7 All [только новые]


постоянный участник


Пост N: 1363
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 21.01.18 16:08. Заголовок: Попробовал. Наткнулс..


Попробовал. Наткнулся на вылет OrdKeyNo(), которого не было с "оригинальным" LetoDB. На этом эксперименты пока закончены)

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 575
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 09.02.18 01:04. Заголовок: Использую, доволен. ..


Использую, доволен. Оригинальную ("нашу") версию не юзал, начал сразу с форка.

Был момент, когда Rolf (elch) пропал куда-то из эфира и стало немного ссыкотно. Сейчас вроде активничает.

Если есть что обсудить - welcome.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6718
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 09.02.18 14:14. Заголовок: Sergy пишет: Ориги..


Sergy пишет:

 цитата:
Оригинальную ("нашу") версию не юзал, начал сразу с форка.


А что есть какие то полезные плюшки в форке в отличии от нашей ?

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 576
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 09.02.18 19:01. Заголовок: Dima пишет: А что е..


Dima пишет:

 цитата:
А что есть какие то полезные плюшки в форке в отличии от нашей ?


На этот вопрос грамотно ответить не смогу, тк плотному знакомству с оригинальным вариантом что то постоянно мешало. Например:

1) необходимость (?) указания для каждой операции адреса коннекта для каждого файла, например: вместо привычного USE tablename ... писать USE (cConnectPath+"tablename") ... Может это и не так на самом деле, но в каждом примере фигурировал примерно такой синтаксис команд. Слишком много кода перелелывать ради не очень понятной перспективы. В форке делается один раз Leto_Connect("191.168.x.x:2812") и всё. Все остальные USE, INDEX, SELECT и тп работают вообще без каких либо модификаций по сравнению с привычным DBFNTX. Единственное что - пришлось кое-где пошаманить с фильтрами, чтобы они фильтровали на сервере, а не на клиенте. Для этого заменяю потихоньку, одно за другим, выражения вроде:

SET FILTER TO (table->date >= d1) .AND. (table->date <= d2)

на

tmp := "(table->date >= 0d" +DTOS(d1)+ ") .AND. (table->date <= 0d" +DTOS(d2)+ ")"
SET FILTER TO &tmp

Процесс творческий и небыстрый, зато результат на удивление приятный в плане скорости работы.

2) Мелочь конечно, но сама идея передавать при каждом вызове Leto_Somefunc(...) неведомую мне UserStru противоречит моим принципам программирования. Если есть некий набор данных, который нужен серверу, а не клиенту - зачем его хранить на клиенте и каждый раз передавать серверу при вызове функции ? Пусть сервер его сам у себя и хранит. Места в памяти и на диске достаточно.

Ну и пара мелочей:

3) Рольф организовал "двухканальный" обмен данными между клиентом и сервером. Т.е. после каждой операции передачи пакета не теряется время на получение сигнала ACK (пакет получен), а сразу передаётся следующий - один за одним. Для обмена сообщениями о некорректном приеме пакетов (NO-ACK) используется второй порт (обычно 2813). И по нему 99,99% времени ничего не передается вообще - тк в большинстве случаев проблем передачи нет как таковых. В случае получения NO-ACK происходит генерация ошибки стандартным способом. Таким образом, вместо миллионов ACK-ACK-ACK..., забивающих канал связи и фрагментирующих пакеты - клиент и сервер изредка (!) кидают NO-ACK по соседнему порту, что должно давать прирост производительности. Я лично не проверял, но почему-то верю ... )))

4) Не знаю, было ли реализовано в оригинале, но Рольф рекомендует после Leto _Connect(...) сразу вызывать Leto_ToggleZip(1) - чтобы включить быстрый алгоритм LZ4 для сжатия пакетов на лету. При копировании обычных dbf дает прирост производительности 20-40%, что само по себе неплохо. Это я проверял лично.

Вот такие мои впечатления за примерно полгода знакомства с "crazy russians db engine, modified with german accuracy..." или что то типа того, как писал Рольф.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1718
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 09.02.18 21:07. Заголовок: Sergy пишет Для этог..


Sergy пишет
 цитата:
Для этого заменяю потихоньку, одно за другим, выражения вроде:


это, точно, надо делать ?
в примере test_filt.prg есть
 
PRIVATE nNumTop, nNumBot
...
nNumTop := 1004
nNumBot := 1010
SET FILTER TO NUM >= nNumTop .AND. NUM <= nNumBot
? "with FORCEOPT = .F."
? DbFilter(), "; optimized:", LETO_ISFLTOPTIM()

?
#ifndef __XHARBOUR__ /* -> RTE cause of missing filter sync */
SET( _SET_FORCEOPT, .T. )

#endif
SET FILTER TO NUM >= nNumTop .AND. NUM <= nNumBot
? "with FORCEOPT = .T."
? DbFilter()
? "--> optimized:", LETO_ISFLTOPTIM()
...

readme_rus.txt

 цитата:

функции dbSetFilter(). Фильтр, который может быть выполнен на сервере, называется оптимизированным.
Если фильтр не может быть выполнен на сервере, он является неоптимизированным. Такой фильтр
является медленным, поскольку с сервера все равно запрашиваются все записи, которые затем
фильтруются на клиенте. Чтобы задать оптимизированный фильтр, необходимо, чтобы в логическом
выражении для фильтра отсутствовали переменные или функции, определенные на клиенте.
Чтобы проверить, является ли фильтр оптимизированным, надо вызвать функцию LETO_ISFLTOPTIM().




Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1719
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 09.02.18 21:12. Заголовок: PS. Сори, не туда н..



PS. Сори, не туда нажал.
т.е. в "нашей" версии из за переменных фильтр не оптимизирован, а тут показан, что оптимизирован.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 577
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 09.02.18 22:51. Заголовок: SergKis пишет: т.е...


SergKis пишет:

 цитата:
т.е. в "нашей" версии из за переменных фильтр не оптимизирован, а тут показан, что оптимизирован.



Не очень понял про отличия "нашей" и "форк" версии в отношении оптимизированных фильтров, но компиляция и запуск test_filt.prg выдает следующее:

Testing filtering for DBFCDX                   

ordSetFocus( "NAME" )
seek 1001 Petr 09/02/18 - Ok
seek 1010 Andrey 18/02/18 - Ok

NUM >= 1004 .AND. NUM <= 1010 ; optimized: .F.
go top 1005 Alexey 13/02/18 - Ok
go bottom 1008 Vladimir 16/02/18 - Ok
seek 0 / / - Ok
seek 1010 Andrey 18/02/18 - Ok

with FORCEOPT = .F.
NUM >= nNumTop .AND. NUM <= nNumBot ; optimized: .F.

with FORCEOPT = .T.
NUM >= nNumTop .AND. NUM <= nNumBot
--> optimized: .F.
go top 1005 Alexey 13/02/18 - Ok
go bottom 1008 Vladimir 16/02/18 - Ok
seek 0 / / - Ok
seek 1010 Andrey 18/02/18 - Ok


cName $ NAME ; 'Alex' $ NAME - optimized: .F.
go top 1003 Alexander 11/02/18 - Ok
go bottom 1005 Alexey 13/02/18 - Ok
seek 0 / / - Ok
count 42 - Ok




Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1720
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 09.02.18 23:14. Заголовок: Sergy пишет выдает с..


Sergy пишет
 цитата:
выдает следующее


Ясненько.
Я см. только по тексту примера, нет установленного форк, из него понял, как понял

Увидел, прицепленный rdd SIXCDX, что не плохо.
 
leto_DbDriver( [ <cNewDriver> ], [ <cMemoType> ], [ <nBlocksize> ] )
==> aInfo
убрааны
LETO_SETSEEKBUFFER( nRecsInBuf ) ==> 0
! DEPRECATED !

LETO_SETFASTAPPEND( lFastAppend ) ==> .F.
! DEPRECATED !
не использовал.

Leto_FCopyToSrv( cLocalFileName, sServerFileName[, nStepSize ] )
==> lSuccess
Leto_FCopyFromSrv( cLocalFileName, sServerFileName[, nStepSize ] )
==> lSuccess
Copy a file from/ to client to/ from server, where:
инересненько

с переменными PUBLIC\PRIVATE пробовал ?
cExpr := Leto_VarExprCreate( "Memvar1 [, MemvarX ]", @aArr )
Repeatedly call after each occasion of changed value:
Leto_VarExprSync( aArr )
Clean up with:
Leto_VarExprClear( aArr )

LETO_VAREXPRTEST( cExpression ) ==> lContainMemvar

Return TRUE ( .T. ) if <cExpression> contains memvars

LETO_VAREXPRCREATE( cExpression [, @aLetoVar ] ) ==> cModifiedExpression
...

если объявленное в readme.txt работает, то есть движение вперед

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 578
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 10.02.18 00:01. Заголовок: До серверных процеду..


До серверных процедур (RPC, UDF) и обмена переменными пока не дошел.

Пока изучаю возможности фонового взаимодействия с LetoDB сервером в отдельных потоках.

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

SET FILTER TO table->client $ hListSelectedClients

Работает шустро, удобно и понятно: в хэш можно выбрать хоть одного клиента, хоть сотню - на производительности это почти никак не скажется. ASCAN() по массиву выбранных клиентов тормозит: чем больше клиентов, тем сильнее.

Сам бы подкинул Рольфу идею, но похоже, что я ему уже мозг вынес и он поставил меня в игнор...

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1721
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.02.18 02:40. Заголовок: Sergy пишет что прин..


Sergy пишет
 цитата:
что принципиально мешает передавать от клиента на сервер массивы и хэши


массивы передаются, как параметры в UDF функции и возврат обратно. массив в hash в udf получить просто,
т.е. исп. вместо set filter ... udf функцию для уст.\снятия фильтра с hash.
еще вариант, можно исп.
leto_SetEnv( xScope, xScopeBottom, xOrder, cFilter, lDeleted )
aRecNo := leto_dbEval()
leto_ClearEnv( xScope, xScopeBottom, xOrder, cFilter )
в "нашей" версии aRecNo положить в SkipBufer и обработать записи
DO WHILE ! eof()
...
SKIP
ENDDO
в "форк" не знаю, можно ли так делать ?


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1722
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.02.18 11:36. Заголовок: посмотрел "форк&..


посмотрел "форк" на наличие HB_FUNC
 
LETO_PARSEREC( cRecBuf ) --> nil
LETO_PARSERECODRS( cRecBuf ) --> nil
не увидел, не есть хорошо
режим работы
* UDF_dbEval function returns buffer with records by order <xOrder>, and for condition,
* defined in <xScope>, <xScopeBottom>, <cFilter>, <lDeleted> parameters
* Function call from client:

leto_ParseRecords( leto_Udf('UDF_dbEval', <xScope>, <xScopeBottom>, <xOrder>, <cFilter>, <lDeleted> ) )
while ! eof()
...
skip
enddo
dbInfo( DBI_CLEARBUFFER )

удобен



Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1723
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.02.18 11:52. Заголовок: Sergy пишет у меня м..


Sergy пишет
 цитата:
у меня много таких вот конструкций:
SET FILTER TO table->client $ hListSelectedClients


можно заменить на
cKli := ','
while !eof()
cKli += alltrim(table->client)+','
skip
end
потом
SET FILTER TO &( ','+table->client+',' $ '"'+cKli+'"' )


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 579
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 10.02.18 13:57. Заголовок: SergKis пишет: масс..


SergKis пишет:

 цитата:
массивы передаются, как параметры в UDF функции и возврат обратно. массив в hash в udf получить просто,
т.е. исп. вместо set filter ... udf функцию для уст.\снятия фильтра с hash.
еще вариант, можно исп.
leto_SetEnv( xScope, xScopeBottom, xOrder, cFilter, lDeleted )
aRecNo := leto_dbEval()
leto_ClearEnv( xScope, xScopeBottom, xOrder, cFilter )
в "нашей" версии aRecNo положить в SkipBufer и обработать записи
DO WHILE ! eof()
...
SKIP
ENDDO
в "форк" не знаю, можно ли так делать ?


Больше 20 лет занимаюсь Clipper/Harbour - но честно говоря, почти ничего не понял из вышесказанного, сорри

Что за SkipBuffer и зачем в него класть aRecNo ?

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 580
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 10.02.18 13:59. Заголовок: SergKis пишет: пос..


SergKis пишет:

 цитата:

посмотрел "форк" на наличие HB_FUNC

LETO_PARSEREC( cRecBuf ) --> nil
LETO_PARSERECODRS( cRecBuf ) --> nil
не увидел, не есть хорошо
режим работы
  * UDF_dbEval function returns buffer with records by order <xOrder>, and for condition,  
* defined in <xScope>, <xScopeBottom>, <cFilter>, <lDeleted> parameters
* Function call from client:

leto_ParseRecords( leto_Udf('UDF_dbEval', <xScope>, <xScopeBottom>, <xOrder>, <cFilter>, <lDeleted> ) )
while ! eof()
...
skip
enddo
dbInfo( DBI_CLEARBUFFER )



удобен
Не пользовался, но в readme.txt есть пометка:

see new LETO_DBEVAL() as powerful alternative, or sample of UDF_dbEval() in tests/letoudf.prg

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 581
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 10.02.18 14:00. Заголовок: SergKis пишет: можн..


SergKis пишет:

 цитата:
можно заменить на
cKli := ','
while !eof()
cKli += alltrim(table->client)+','
skip
end
потом
SET FILTER TO &( ','+table->client+',' $ '"'+cKli+'"' )



В паре мест делаю примерно похожим образом, но это 'костыли': чем длиннее строка, тем медленнее она будет обрабатываться. Хотелось-бы нормальное решение.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6719
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 10.02.18 14:27. Заголовок: Sergy пишет: Хотело..


Sergy пишет:

 цитата:
Хотелось-бы нормальное решение.


В Leto Павел делал BM фильтры , не подходит ?

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 582
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 10.02.18 15:41. Заголовок: Dima пишет: В Leto ..


Dima пишет:

 цитата:
В Leto Павел делал BM фильтры , не подходит ?


Поддержка rushmore bitmap фильтров в форке никуда не делась и для многократной выборки - вполне: сначала выбрать нужные записи, потом уже по ним работать. Например в DbEdit().

А для единичного отчета, когда Пете нужен отчет по всем его клиентам из Пензы за текущий квартал, а Васе - из Уфы за предыдущий год, то получается у каждого - минимум два прохода по таблице продаж. Причем первый из них - так и не оптимизирован хэшем, а второй - вообще лишний.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1724
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.02.18 17:43. Заголовок: Sergy пишетпочти нич..


Sergy пишет
 цитата:
почти ничего не понял из вышесказанного


Leto сервер может подключать hrb файл с пользовательскими функциями при наличии оного.
Пример letoudf.hrb, получаемый из letoudf.prg. Функции вызываются с клиента, исполняются на сервере.
Им могут передаваться параметры типов: C,N,L,D,A, которые можно применять на сервере.
В "нашей" версии первым в функцию передается nUserStru. Условно можно назвать номером соединения со стороны
сервера с клиентом. Кроме получения данных соединения, nUserStru можно исп. как префикс файлов (подкаталог)
для получаемых на сервере файлов выборок и возврата на клиента списка имен файлов, для открытия и дальнейшего
исп. на клиенте, с удалением после работы. То, что в "форк" убран nUserStru, не уверен что это хорошо, надо посмотреть.

В "форк" LETO_DBEVAL( [ <cBlock> ], [ <cFor> ], [ <cWhile> ], [ nNext ], [ nRecord ], [ lRest ] ) ==> aResults
возвращает массив RecNo для исп. в BM фильтрах или собственными dbGoto(...)
В "нашей" версии кроме BM фильтров и dbGoto(...) есть механизм на сервере заполнения SkipBuffer (это буфер
для nn записей), исп. при работе leto серверов (можно уст. кол-во строк в буфере есть ф-я). По этому буферу
идет работа на клиенте dbSkip() и т.д.. Формируем SkipBuffer выполнением ф-ии на сервере
leto_ParseRecords( leto_Udf('UDF_dbEval', <xScope>, <xScopeBottom>, <xOrder>, <cFilter>, <lDeleted> ) )
на входе leto_ParseRecords строка. Получается аналог SET FILTER TO ..., т.е. минимум изм. кода старой проги. Далее работа в цикле.
В "форк" отсутствие leto_ParseRecords, по мну, БАААЛЬШОЙ минус, не смертельный, но ...



Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 583
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 11.02.18 01:46. Заголовок: Более-менее понятно,..


Более-менее понятно, но очень уж зависимо от конкретной реализации. Пытаюсь по максимуму использовать стандартизованный интерфейс харборовских RDD и не использовать без особой необходимости Leto_xxx(). Ведь если через пару-тройку лет появится какой-нибудь WinterDB - опять всё переписывать?

У меня половина юзеров работает с базой удаленно, через RDP. Для них - данные локальны и выборка идет через dbfntx. Другя половина - как обычно, через сеть. Сначала полностью через dbfntx, сейчас - без особой спешки все больше и больше операций переключаю на LetoDBf.

Форк интересен (для меня) тем, что открыв таблицу один раз VIA "dbfntx" (rdp-локально) или VIA "leto" (по сети) я больше ничего не модифицирую в коде. Максимум - оптимизирую фильтр для выполнения на сервере. Но он точно так же будет работать как с leto, так и с dbfntx.

Пока оставил на "сладкое" некоторые моменты в программе, которые нельзя решить "влоб": как например, не могу отказаться от простого фильтра по хэшу или фильтра, реагирующего на нажатия кнопок на клавиатуре (живой поиск), например:

SET FILTER TO MyFilter()

Да, сделав специфические заточки под Leto, я потеряю совместимость с dbfntx. Пока непонятно - будет ли стоить овчинка выделки. Проект большой и раскорячить его мне не хотелось бы. В данный момент у меня даже сетевые юзеры при отсутствии коннекта с LetoDB получат сообщение при входе, но продолжат работать, как ни в чем ни бывало. Чуть медленнее, чем "обычно" (к которому они уже привыкли), но работать.

Понятно, что и локальных rdp-юзеров можно переключить полностью на локальный Leto сервер. И более того - с точки зрения целостности данных так и сделаю. Но процесс перевода небыстр, а для юзеров нужны всё новые и новые фичи, а не только ускорение старых.

Такие вот мысли...

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1725
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 11.02.18 10:01. Заголовок: Sergy пишет опять вс..


Sergy пишет
 цитата:
опять всё переписывать?


можно исп. обертки функции\классы\препроцессор(leto_file.ch в "форк")
If RddName() == 'LETO'
...
Else
...
EndIf
исп. leto_sum(...), leto_group(...), можно пробнуть адаптировать их под работу без сервера или Пашу попросить это сделать, если очень надо.

 цитата:
Но процесс перевода небыстр, а для юзеров нужны всё новые и новые фичи, а не только ускорение старых.


На новые фичи перейти мне удалось только внедрением letodb с новой организацией базы на cdx (старая ntx), т.е. загрузка на сервер старой и организация переноса изменений (записи таблиц) с новой базы в старую. Новые фичи работают на letodb, старые как было, постепенно старые режимы переключаю на letodb



Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 584
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 11.02.18 11:49. Заголовок: SergKis пишет: На но..


SergKis пишет:
 цитата:
На новые фичи перейти мне удалось только внедрением letodb


Новые фичи - я имел в виду новые функции программы, никак не связанные со структурой/обработкой базы данных. Например, штрихкодирование документов, товаров, новые виды отчетов и тд и тп.

 цитата:
с новой организацией базы на cdx (старая ntx)


Вот это уже интересно для меня. Что такого принципиально интересного есть в cdx, чего нет в ntx ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1726
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 11.02.18 13:57. Заголовок: Sergy пишет Что тако..


Sergy пишет
 цитата:
Что такого принципиально интересного есть в cdx, чего нет в ntx ?


наличие тегов в одном индексном файле + SET AUTOPEN ON - подключение индекса автоматом, результат - целостность базы.
INDEX ON DtoS(DATADOK)+CLIENT+VID_OPER+TIME_DOK TAG PERIOD
INDEX ON CLIENT+DtoS(DATADOK)+VID_OPER+TIME_DOK TAG CLIENT
И Ваш SET FILTER _FIELD->CLIENT $ hList... превращается в простые быстрые операции SET SCOPE ...
OrdSetFocus('CLIENT')
FOR i := 1 TO Len(hList...)
cKli := ...
SET SCOPE TO cKli, cKli // или leto_SetEnv(cKli, cKli,...)
GO TOP
// TBROWSE или что то еще
...
тоже за период d1, d2
OrdSetFocus('PERIOD')
FOR i := 1 TO Len(hList...)
cKli := ...
SET SCOPE TO DtoS(d1)+cKli, DtoS(d2)+cKli // или leto_SetEnv(DtoS(d1)+cKli,DtoS(d2)+ cKli,...)
GO TOP
// TBROWSE или что то еще
...


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6721
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 11.02.18 14:12. Заголовок: Таки да Scope или же..


Таки да Scope или же BM фильтр работает очень шустро.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 586
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 11.02.18 20:44. Заголовок: Dima пишет: Таки да..


Dima пишет:

 цитата:
Таки да Scope или же BM фильтр работает очень шустро.


SET SCOPE работает еще со времен Clipper, с DBFNTX - точно так-же, как и DBFCDX. Это базовые функции любой Харборовской RDD. Тоже самое и с bitmap фильтрами.

AUTOPEN ... да, наверное это удобно - вместо
USE table INDEX table NEW
писать
USE table NEW
. Экономия - целых два слова в одной команде. ))

Кстати, тут недавно наш админ поковырялся с 1с - там оказывается, народ извращается с этим монстром так: выносит индексные и прочие временные файлы на RAM-диск. Почему-то был уверен, что RAM-диски канули в лету вместе с DOS 6.22 - ан нет, в 2018 году этот метод ещё жив.

Родилась идея - засунуть *.dbf файлы на шустрый SSD, а индексы - размещать на серверном RAM диске (чтобы флэш-память не изнашивалась понапрасну). Придется поковырять синтаксис команд USE ... INDEX ... - но мне кажется, овчинка будет стоить выделки. Может кто-то уже пробовал?

SET AOUTOPEN тут точно не поможет...

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 587
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 11.02.18 20:59. Заголовок: SergKis пишет: налич..


SergKis пишет:
 цитата:
наличие тегов в одном индексном файле + SET AUTOPEN ON - подключение индекса автоматом, результат - целостность базы.


Не очень понимаю - какая принципиальная разница - одна таблица и 2-3 индекса рядом с ней или одна таблица и один индексный файл.
Кроме этого, в некоторых случаях (выборка по всей таблице с какими-нибудь экзотическими условиями, для которых нет смысла держать отдельный ntx/cdx) индекс может быть совсем не нужен - SKIP по нему будет выполняться гоооооорааааааздо медленнее, чем по dbf таблице без индекса.

SergKis пишет:

 цитата:
На новые фичи перейти мне удалось только внедрением letodb с новой организацией базы на cdx (старая ntx)


Так и осталось непонятным, что именно ПРИНЦИПИАЛЬНО есть в CDX, чего нет в NTX ?

Читал наших гуру (Viktor & Przemek) - они писали, что никаких сколь нибудь существенных отличий (для программиста) между DBFCDX и DBFNTX в реализации Harbour нет. CDX занимает меньше места на диске (легкая компрессия дерева), но требует чуть больше памяти (для того, чтобы развернуть сжатые данные). В общем и целом - тож на тож выходит.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1366
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 11.02.18 21:10. Заголовок: Существенный прирост..


Существенный прирост при использовании letodb можно получить, если использовать udf-функции, выполняемые на сервере. Все операции с базой выполняются локально на сервере. На клиент возвращается только результат.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 5722
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 12.02.18 09:59. Заголовок: PSP пишет: Существе..


PSP пишет:

 цитата:
Существенный прирост при использовании letodb можно получить, если использовать udf-функции,


Да, это точно, подтверждаю.
Можно посмотреть пример http://abonent4.ru/letodb/

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1728
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 12.02.18 11:06. Заголовок: Sergy пишет SET SCOP..


Sergy пишет
 цитата:
SET SCOPE работает еще со времен Clipper


обеспечивалось сторонними либами Comix, SixNsx,...

 цитата:
индекс может быть совсем не нужен - SKIP по нему будет выполняться гоооооорааааааздо медленнее, чем по dbf таблице без индекса.


Достаточно одной таблетки SET ORDER TO 0 и ок!
letodb так, по умолчанию, делает при открытии таблица (AUTOPEN ON) и не важно кто и сколько раз ее открыл, нужны или нет тэги для работы, главное, модификация записей по части ключей, не сломает базу, с ntx надо правильно подключать все файлы, что бы не разрушить базу.

 цитата:
одна таблица и 2-3 индекса рядом с ней или одна таблица и один индексный файл.


это у справочников так, у инф. таблиц больше, на SixNsx есть 44 тега (работает оч.давно и очень надежно), а как если бы они были отдельными файлами ...
"Чисто гтпотетичечки, ... теоретически ...", к примеру ваш CLIENT в таблице, добавим 2а тега
INDEX ON CLIENT ... // список клиентов с информацией
INDEX ON CLIENT ... UNIQUE // реал. список клиентов в информации
если есть код территории еще
INDEX ON KODTER ... UNIQUE // реал. список территорий в информации
INDEX ON KODTER+CLIENT ... UNIQUE // реал. список клиентов по территория в информации
INDEX ON KODTER+CLIENT ... // список всех территорий по клиентам в информации
теперь можем без отборов давать
1.уник. список клиентов в tbrowse, ставить галочки и отработать выборку по галачкам по тэгу не уник. клиентов.
2. уник. список территорий в tbrowse, ставить галочки, по ним собрать для tbrowse (уник. KODTER+CLIENT) список клиентов, поставить галочки и отработать их по не уник. тэгу KODTER+CLIENT
добавленные тэги не мешают жить таблице, но позволяют быстро работать при выборках.
Если это отдельными ntx файлами, да в разных модулях\проектах - головная боль будет, при обеспечении надежности\целосности.

 цитата:
между DBFCDX и DBFNTX в реализации Harbour нет


и очень хорошо.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3666
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 12:07. Заголовок: Я бегло смотрел Leto..


Я бегло смотрел LetoDBf, когда он только появился, но до сих пор руки не доходили даже до простейшего теста. Наконец попробовал.
Установил новую службу, благо название у нее отличается от старой. Если обе службы слушают один порт (2812), то они мешают друг другу, что понятно. Надо их запускать по очереди.

Сделал простейший тест производительности, не самодостаточный, взял пару файлов master-detail, размером 2M и 8M. Запустил локально.

Тест такой:

Function Main( cPath )
Local i := 0, nSec
Field CF1, CF2

REQUEST LETO
RDDSETDEFAULT( "LETO" )
SET DATE FORMAT "dd/mm/yy"

IF Empty( cPath )
cPath := "//127.0.0.1:2812/temp/"
ELSE
cPath := "//" + cPath + Iif( Right(cPath,1) $ "/\", "", "/" )
ENDIF

? leto_Connect(cPath)
use f1 new index f1
use f2 new index f2

nSec := Seconds()
select f1
go top
while ! eof()

select f2
dbSeek(f1->CF1+f1->CF2)
while ! eof() .and. CF1 = f1->CF1 .and. CF2 = f1->CF2
i ++
skip
enddo
select f1
skip

enddo
? Seconds() - nSec, i
close all

leto_disconnect()

Return Nil


Старый (оригинальный, "наш") letodb управился за 31 сек. Кстати, обратите внимание, команде use не надо указывать никаких
дополнительных строк коннекта. Это было необходимо в ранних версиях.

LetoDBf не смог открыть файлы в папке temp, хотя путь есть в строке коннекта. Но это думается мелочь, которую можно подработать в процессе.
Зато тест он прогнал за 18 сек, что впечатляет. Другие тесты пока не гонял, и разницу в функциональности не исследовал.
В любом случае можно сказать, что Рольф проделал не просто большую, а огромную работу, и проект интересный.

Дима, кажется ты не стал использовать letodb из-за отсутствия серверных relations, которые есть в ads.
Рольф судя по доке их сделал (я не пробовал), но только в режиме No_Save_WA = 1.


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1729
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 12.02.18 12:18. Заголовок: Pasha пишет Рольф пр..


Pasha пишет
 цитата:
Рольф проделал не просто большую, а огромную работу, и проект интересный.


README.md

 цитата:
LetoDBf client lib ( used by your application ) became fully MultiThread save, each thread opens its own
connection to the server. Threads, threads threads .., wherever you look.


т.е. клиентская библиотека полностью MultiThread

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1575
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 12.02.18 12:19. Заголовок: Sergy пишет: Так и ..


Sergy пишет:

 цитата:
Так и осталось непонятным, что именно ПРИНЦИПИАЛЬНО есть в CDX, чего нет в NTX ?



Ну так и почитайте документацию (xhb-diff.txt).
И multitag indexes, если что, NTX поддерживает.


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3667
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 12:37. Заголовок: Обратил внимание, чт..


Обратил внимание, что тест для letodb отработал без No_Save_WA = 1, а для letodbf - с этой настройкой.
Попытался запустить тест для letodbf без No_Save_WA = 1. Неудача: похоже файлы открыты без индекса, ошибка: workarea not indexed
То есть шероховатости конечно имеются.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 591
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 13:33. Заголовок: Pasha пишет: LetoDB..


Pasha пишет:

 цитата:
LetoDBf не смог открыть файлы в папке temp, хотя путь есть в строке коннекта. Но это думается мелочь, которую можно подработать в процессе.
Зато тест он прогнал за 18 сек, что впечатляет.


Не вижу в тексте Leto_ToggleZip(1) - попробуй пожалуйста - интересно посмотреть на твой результат. Функция должна стоять сразу после Leto_Connect()

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 592
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 13:36. Заголовок: SergKis пишет: т.е...


SergKis пишет:

 цитата:
т.е. клиентская библиотека полностью MultiThread


С недавних пор MT для клиента LetoDBf можно отключить при сборке библиотеки. Не знаю, кому это может понадобиться, но при этом теряется одно из интересных преимуществ - "двухканальность", когда по одному порту идут сплошным потоком данные, а по соседнему - только редкая инфа об ошибках в пакетах.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3668
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 13:48. Заголовок: С Leto_ToggleZip(1) ..


С Leto_ToggleZip(1) получилось резкое падение производительности: запустил 10 минут назад, и все жжжжжжжжддддддуууууууууууууу.
Прошло 15 минут - надоело, нажал alt+c, ctrl+c - нифига, задача висит. Пришлось его кувалдой таскменеджером
Впрочем, для локального теста так и должно быть, но не так же сильно.
Так что я не стал бы использовать эту фичу. В letodb (я так буду называть оригинальный проект, в отличие от letodbf) тоже есть сжатие пакетов, но в своей работе я его тоже не использовал.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 593
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 14:02. Заголовок: Pasha пишет: Обрат..


Pasha пишет:

 цитата:

Обратил внимание, что тест для letodb отработал без No_Save_WA = 1, а для letodbf - с этой настройкой.


Паша, поясни пожалуйста, зачем самый "первый" режим (когда No_Save_WA = 0) нужен. Я правильно понимаю, что сервер открывает таблицу, делает по ней выборку и вместо того, чтобы закрыть её - отправляет в отстойник. Если она кому-то понадобится - сервер забирает ее из detached area и использует вновь. Но ведь в этот момент никто не может открыть эту таблицу? Какой вообще в этом смысл, если изначально планируется, что с базой работает более чем один юзер? Пока один делает выборку - другому предлагается пойти покурить? Вряд-ли - скорее всего, я что-то крупно не понял в англицком...


Жесткий оффтопик:

И ещё - вымораживает, когда программисты (сам когда-то был таким) пишут в диалогах: "Не использовать выборку тра-ля-ля [v]". Т.е. положительный ответ (галка) несет отрицательный результат (не использовать). Ппц...
Напомнило - "Вы не придете сегодня на работу ?" - "Да. Не приду". Или "Нет. Не приду".
Тоже самое - с No_Save_WA=1. Да. Единица. Не использовать сохранение рабочих областей.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 594
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 14:06. Заголовок: Pasha пишет: С Leto..


Pasha пишет:

 цитата:
С Leto_ToggleZip(1) получилось резкое падение производительности: запустил 10 минут назад, и все жжжжжжжжддддддуууууууууууууу.


Чет явно не то...
Может Leto_ToogleZip(1) включил, а сервак был запущен - оригинальный, не форк ?

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3669
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 14:20. Заголовок: Там же протокол совс..


Там же протокол совсем разный. Если перепутать клиент и сервер, то программа сразу свалится.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1367
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 12.02.18 16:06. Заголовок: Sergy пишет: Паша, ..


Sergy пишет:

 цитата:
Паша, поясни пожалуйста, зачем самый "первый" режим (когда No_Save_WA = 0) нужен.


Да, мне тоже интересны подробности работы этой настройки. Паша, если можно, просвети.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 596
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 16:20. Заголовок: SergKis пишет: INDEX..


SergKis пишет:
 цитата:
INDEX ON KODTER ... UNIQUE // реал. список территорий в информации
INDEX ON KODTER+CLIENT ... UNIQUE // реал. список клиентов по территория в информации
INDEX ON KODTER+CLIENT ... // список всех территорий по клиентам в информации


Не очень понятен смысл примера, в DBFNTX работает так:

Если есть INDEX ON KODTER+CLIENT TO ...
То SEEK cKodTer (без уточнения клиента) даст первое вхождение нужного KODTER.
Можно указать SEEK cKodTer+cClient - тогда поиск будет по территории + нужному клиенту. Всё это - по одному индексу.

Т.е. другими словами, вместо индексов, частично использующих одни и те-же данные:

INDEX ON DTOS(table->date)+STR(table->seller,5)+STR(table->buyer,5)+STR(table->invoice) TO table1
INDEX ON DTOS(table->date)+STR(table->seller,5)+STR(table->buyer,5) TO table2
INDEX ON DTOS(table->date)+STR(table->seller,5) TO table3
INDEX ON DTOS(table->date) TO table4

Можно построить только один, первый. И все "неполные" выборки по нему будут работать норм: как выборка на дату, так и выборка по дате+продавцу, так и выборка по дате+продавцу+клиенту.
Вот если нужно быстро найти все накладные покупателя - тогда да, нужен отдельный индекс, тк "перепрыгнуть" в выражении через "продавца" не выйдет.
Думаю, что и DBFCDX так может. Поэтому мне не очень понятен смысл в 44 тегах/индексах... Для 99% моих ситуаций хватает одного-двух. Совсем недавно столкнулся с возможной (?) необходимостью в третьем индексе для одной из таблиц, но знакомство с LetoDBf дает возможность подумать - может и обойдусь без индекса, раз данные будут шустро выбираться на сервере...

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3671
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 16:30. Заголовок: Почитайте эту старую..


Почитайте эту старую тему:
http://clipper.borda.ru/?1-7-0-00000037-000-0-0-1486290536

В режиме No_Save_WA = 0, а этот режим является основным для letodb, сервер не открывает для каждого клиента одну и ту же таблицу, а использует одну и туже pArea, если таблица уже открыта. Соответственно сервер делает не физическую блокировку записи ли таблицы, а логическую.
Для No_Save_WA = 1 для каждой команды use с клиента сервер открывает свою копию рабочей области, и соответственно выполняет уже физические блокировки. Этот режим считался в letodb экспериментальным, я сам его никогда не использовал, и не скажу, допилил ли его Александр в конце концов.

В letodbf похоже основным сделан режим No_Save_WA = 1. Но точно я не скажу.
Так что для меня вопрос: "зачем самый "первый" режим (когда No_Save_WA = 0) нужен" стоит как бы наоборот: "зачем нужен второй ?".

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1368
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 12.02.18 16:34. Заголовок: Pasha пишет: Почита..


Pasha пишет:

 цитата:
Почитайте эту старую тему:


Я читал ее. Но она как-то затухла. Поэтому остались вопросы.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3672
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 12.02.18 16:46. Заголовок: В конце концов, смот..


В конце концов, смотрим доку:

LetoDB:

No_Save_WA = 0 - Когда этот режим установлен, при каждом вызове dbUseArea()
сервер действительно открывает файл и создает новую рабочую
область (workarea) - в режиме по умолчанию каждый
файл открывается сервером только один раз и образуется одна
реальная рабочая область для этого файла для всех клиентов.
Теоретически это режим может увеличить производительность
при большом количестве активных клиентов, но он недостаточно
тестировался, поэтому для рабочих приложений рекомендуется
использовать режим по умолчанию.


LetoDBf:

No_Save_WA = 1 - server mode of internally handling database tables
1 each dbUseArea() will cause a real file open operation by the OS,
identical to what client requested, so workareas at the server are same as
at client side. [ WA number, alias, filter conditions, relations ]
0 each table is opened only one time, this workarea 'exchanged' in between client
requests. so only one connection will have access to the table at a time.
No relations active at server, Alias names at server are different from
the client.
Recommend '1' if you plan to execute functions at server side ( UDF ).


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1730
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 12.02.18 16:59. Заголовок: Sergy пишет Не очень..


Sergy пишет
 цитата:
Не очень понятен смысл примера...


Смысл в том, что введенные unique тэги уже являются готовой выборкой, переключив та тэг
INDEX ON KODTER ... UNIQUE // реал. список территорий в информации (в справочнике может быть стопятсот тыс. позиций)
SetOrdFocus('KODTR')
GO TOP
tbrowse(...) // связав со справочником территорий и взяв наименование и ...
имеем список реальных территорий, где можем поставить галочку\выбрать - для получения списка клиентов этой территории, т.е.
INDEX ON KODTER+CLIENT ... UNIQUE // реал. список клиентов на выбранной территории
SetOrdFocus('KODTER_CLI')
SET SCOPE TO cKodTer, cKodTer
GO TOP
tbrowse(...) // реал. список клиентов территории, связав со справочником клиентов берем наименование и ...
отмечаем галками\выбором нужных клиентов и у нас готовы параметры запроса для тэга
INDEX ON KODTER+CLIENT ... // список всех территорий по клиентам в информации
вот тут и выполняем запрос по установкам выше. территория+клиенты, помеченные галкой.
период я отбросил для упрощения примера.

 цитата:
Поэтому мне не очень понятен смысл в 44 тегах/индексах


Смысл в том, что нет выборок типа select * from ..., а простыми переключениями тэгов отображаются таблицы в разных разрезах


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1369
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 12.02.18 17:07. Заголовок: Pasha пишет: В конц..


Pasha пишет:

 цитата:
В конце концов, смотрим доку:

LetoDB:

No_Save_WA = 0 - Когда этот режим установлен, при каждом вызове dbUseArea()
сервер действительно открывает файл и создает новую рабочую
область (workarea) - в режиме по умолчанию каждый
файл открывается сервером только один раз и образуется одна
реальная рабочая область для этого файла для всех клиентов.



Сто раз смотрел)) Формулировка уж какая-то нечёткая)
Совпадает ли поведение letodb и letodbf при одинаковых установках этого параметра?
Как 0 или 1 отражается на выполнении udf? (это "Recommend '1' if you plan to execute functions at server side ( UDF )" применимо к оригиналу?)
Нет ли возможности выяснить, допилил ли Александр это?

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 597
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 12.02.18 17:14. Заголовок: Pasha пишет: В конц..


Pasha пишет:

 цитата:
В конце концов, смотрим доку:

LetoDB:

No_Save_WA = 0 - Когда этот режим установлен, при каждом вызове dbUseArea()
сервер действительно открывает файл и создает новую рабочую
область (workarea) - в режиме по умолчанию каждый
файл открывается сервером только один раз и образуется одна
реальная рабочая область для этого файла для всех клиентов.
Теоретически это режим может увеличить производительность
при большом количестве активных клиентов, но он недостаточно
тестировался, поэтому для рабочих приложений рекомендуется
использовать режим по умолчанию
.


Сорри, для непонятливых:

Для LetoDb (не форк):

"Когда режим установлен": No_Save_WA = 1 ??
"Режим по умолчанию": No_Save_WA = 0 ?

Для обоих версий:
Если No_Save_WA = 0 - в каждый момент времени таблицей может пользоваться только один клиент:
 цитата:
so only one connection will have access to the table at a time

???

Зачем такой режим нужен в принципе? Ведь заявлено, что "теоретически может дать прирост производительности при большом количестве клиентов". Получается, что-то типа USE table EXCLUSIVE ?
Что-то скорее всего, я не догоняю...

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1731
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 12.02.18 17:34. Заголовок: Вроде так было: No_S..


Вроде так было:
No_Save_WA = 0 - идет оптимизация открытий таблиц, одна таблица, открытая несколькими клиентами открывается один раз в области WA
при No_Save_WA = 1 каждый запрос на открытие любой таблицы получает новую область WA
А.Кресин занимался доводкой этого режима, кто то сильно тестировал и был положительный результат

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1370
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 12.02.18 20:59. Заголовок: Только Александр Кре..


Только Александр Кресин может ответить, видимо...

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 598
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 13.02.18 00:02. Заголовок: SergKis пишет: Смыс..


SergKis пишет:

 цитата:
Смысл в том, что нет выборок типа select * from ..., а простыми переключениями тэгов отображаются таблицы в разных разрезах


Сергей, спасибо за разъяснения. Никогда не пользовался UNIQUE индексами, нужно будет посмотреть на них гораздо пристальнее.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3673
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 13.02.18 09:59. Заголовок: PSP пишет: Только А..


PSP пишет:

 цитата:
Только Александр Кресин может ответить, видимо...



Ну давайте еще раз разжуем режим No_Save_WA.
Пусть два клиента открывают одну и ту же таблицу.
Как это делается в режиме No_Save_WA = 0
Поток для 1-го клиента выполняет команду use в монопольном режиме. Поток для 2-го не делает use, а разделяет уже открытую таблицу с 1-м потоком. Причем запросы к таблице от обеих клиентов выполняются без задержки, одновременно.

В режиме No_Save_WA = 1 поток для 1-го клиента выполняет команду use shared. Поток для 2-го - аналогично, т.е на сервере эта таблица открыта два (несколько) раз.
Для letodb 1-й режим - основной, в работе оба режима отличаются способом блокировки: в 1-м выполняется логическая виртуальная блокировка, то есть создаются списки блокированных записей, во втором - блокировка средствами rdd.
Ну и во втором режиме поскольку таблицы открыты как shared, их может открыть стороннее приложение.

В letodbf основным является 2-й режим, ну и в нем судя по всему реализованы еще дополнительные возможности, я уже упоминал серверные relations.

Какой режим лучше - надо тестировать. Я этим не занимался.
Ну и вопрос "а нахрена вообще такой-то режим" наверное задавать не стоит. Для нас "мамы всякие нужны, мамы всякие важны". Наверное что-то лучше будет работать в первом режиме, а что-то во втором.


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3674
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 13.02.18 10:11. Заголовок: Sergy пишет: Сергей..


Sergy пишет:

 цитата:
Сергей, спасибо за разъяснения. Никогда не пользовался UNIQUE индексами, нужно будет посмотреть на них гораздо пристальнее.



А есть еще индексы с условием for, тоже удобная штука. Поддерживаются и в ntx, и в cdx

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3675
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 13.02.18 10:43. Заголовок: Sergy пишет: Не виж..


Sergy пишет:

 цитата:
Не вижу в тексте Leto_ToggleZip(1)



Не работает совсем этот Leto_ToggleZip. Тест зависает на первом use
В логе найдено:

02.13.2018 10:39:57 INFO: connected 127.0.0.1:51141 test_db.exe CP: EN DF: dd/mm/yy conn-ID 0
02.13.2018 10:40:01 ERROR thread2() leto_SockRec != ulRecvLen
02.13.2018 10:40:01 INFO: disconnect 127.0.0.1:51141 test_db.exe users=(1 : 1 : 1), tables=(0 : 0)

Сервер собран с harbour 3.2 + mingw64
Клиент harbour 3.2 + bcc55
letodbf скачивал вчера

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1371
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 13.02.18 11:11. Заголовок: Pasha пишет: Ну дав..


Pasha пишет:

 цитата:
Ну давайте еще раз разжуем режим No_Save_WA.


Спасибо за разъяснения. Остался один вопрос: доделал ли Кресин режим "1".

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3676
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 13.02.18 12:17. Заголовок: Pasha пишет: Не раб..


Pasha пишет:

 цитата:
Не работает совсем этот Leto_ToggleZip. Тест зависает на первом use



Ага, нашел, где собака порылась:

readme.txt
BCC55 and maybe also newer ones have a problem with compiling LZ4 compression library, you will
get this case slower ZLib compression. This must fit together for client lib and server when you
want to use network traffic compression. It is configured by this "{!bcc}" at top in the ".hbp" files.


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1732
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 13.02.18 12:58. Заголовок: Pasha пишет Ну и во ..


Pasha пишет
 цитата:
Ну и во втором режиме поскольку таблицы открыты как shared, их может открыть стороннее приложение.


С No_Save_WA = 0 получить режим shared для таблиц можно, поставив в ini Share_Tables = 1, т.е. таблицы может открывать стороннее приложение.

 цитата:
А есть еще индексы с условием for,


Замечание правильное. В индексных выражениях условие FOR я подразумевал обязательным, т.е.
INDEX ON KODTER ... FOR ! Deleted() UNIQUE
...
работа с инф. тэга не зависит от режима SET DELETAD ON\OFF подключенного модуля.
Что еще добавлять в FOR это уже по ситуации.
Наличие тега для доступа к удаленным записям
INDEX ON ID ... FOR Deleted()
считаю обязательным в таблицах задач.


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3677
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 13.02.18 13:34. Заголовок: Прогнал тест по сети..


Прогнал тест по сети.
LetoDB (клиент bcc, не пересобирал) - 184 сек
LetoDBf + mingw32:
несжатые пакеты 121 сек
сжатые пакеты 110 сек


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1372
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 13.02.18 15:51. Заголовок: Это большая разница...


Это большая разница.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3678
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 14.02.18 08:55. Заголовок: SergKis пишет: Нали..


SergKis пишет:

 цитата:
Наличие тега для доступа к удаленным записям
INDEX ON ID ... FOR Deleted()
считаю обязательным в таблицах задач.



Я при удалении записи полностью ее очищаю. Так что удаленные записи оказываются по индексу всегда "сверху".
И обхожусь без дополнительного тега.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1733
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 10:10. Заголовок: Pasha пишет И обхожу..


Pasha пишет
 цитата:
И обхожусь без дополнительного тега.


В записи есть поля ID_DTM_ADD, ID_DTM_MOD, ID_DTM_DEL отражающие TimeStamp (C или @ типов), запись никогда не очищается (длительность действия год) как и идентификатор записи - все это государственно отчетные показатели. Организация тэгов, как показано выше, позволила упростить запросы по отчетности (лог журналы тоже есть - они уже для доп. разбирательств). Да и для внутр. исп. тэг по удаленным оказался полезным, начальнику любого уровня глянуть на browse что где наколбасили.



Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3679
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 14.02.18 10:28. Заголовок: SergKis пишет: В за..


SergKis пишет:

 цитата:
В записи есть поля ID_DTM_ADD, ID_DTM_MOD, ID_DTM_DEL отражающие TimeStamp (C или @ типов), запись никогда не очищается



Это же неиндескные поля, для индекса их значение до лампочки. Может у вас задача другая ? У меня если запись удалена, она просто используется для добавления новых из пула удаленных. Схема простая: go top, если первая запись удалена и индексное выражение пустое - она используется, если нет - то dbAppend

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1734
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 10:29. Заголовок: PS letodb с триггеро..


PS
letodb с триггером, оказался ОЧЕНЬ полезным для решения этих задач.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1735
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 10:37. Заголовок: Pasha пишет У меня е..


Pasha пишет
 цитата:
У меня если запись удалена, она просто используется для добавления новых из пула удаленных


Так очищать запись нельзя и повторно использовать тоже. Если так делать, надо городить огород на текстовые логи для добывания инф. для проверяющих организаций. Скажу так, ВСЕ клиенты не хотят проверяющим давать инф. из этих логов, у проверяющих есть начальные данные (их системы) и им надо дать конечные, без промежуточных


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1736
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 10:49. Заголовок: PS Выделенный на зап..


PS
Выделенный на запись ID не должен повторно использоваться в течении года. Модификация по ID записи возможна, отражается в ID_DTM_MOD и user кто делал, при удалении запись "замораживается"

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 599
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 14.02.18 11:27. Заголовок: Pasha пишет: Ну дав..


Pasha пишет:

 цитата:
Ну давайте еще раз разжуем режим No_Save_WA.
Пусть два клиента открывают одну и ту же таблицу.
Как это делается в режиме No_Save_WA = 0
Поток для 1-го клиента выполняет команду use в монопольном режиме. Поток для 2-го не делает use, а разделяет уже открытую таблицу с 1-м потоком. Причем запросы к таблице от обеих клиентов выполняются без задержки, одновременно.

В режиме No_Save_WA = 1 поток для 1-го клиента выполняет команду use shared. Поток для 2-го - аналогично, т.е на сервере эта таблица открыта два (несколько) раз.
Для letodb 1-й режим - основной, в работе оба режима отличаются способом блокировки: в 1-м выполняется логическая виртуальная блокировка, то есть создаются списки блокированных записей, во втором - блокировка средствами rdd.
Ну и во втором режиме поскольку таблицы открыты как shared, их может открыть стороннее приложение.

В letodbf основным является 2-й режим, ну и в нем судя по всему реализованы еще дополнительные возможности, я уже упоминал серверные relations.

Какой режим лучше - надо тестировать. Я этим не занимался.
Ну и вопрос "а нахрена вообще такой-то режим" наверное задавать не стоит. Для нас "мамы всякие нужны, мамы всякие важны". Наверное что-то лучше будет работать в первом режиме, а что-то во втором.


Спасибо за разъяснения.
Очень прошу не расценивать мои слова "а зачем такой режим вообще нужен" как персональное оскорбление. Просто у меня вызвала недоумение цитата Рольфа:

 цитата:
so only one connection will have access to the table at a time


Поэтому и не мог понять, в чем смысл. Нужно будет попробовать потестировать. Жаль, что в данном режиме не поддерживается прямое указание алиасов для полей таблиц. У меня с давних времен все компилируется с опцией -m, поэтому все поля во всех выражения, в тч фильтрах и relation всегда идут только с алиасом.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1737
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 13:52. Заголовок: Sergy пишет У меня с..


Sergy пишет
 цитата:
У меня с давних времен все компилируется с опцией -m, поэтому все поля во всех выражения, в тч фильтрах и relation всегда идут только с алиасом.


В чем "выгода" от применения алиаса для тек. обл. в уст. filtra ?
Со времен S87 с -m этого не делаю, в 5.2 какое то время писал определения FIELD ..., потом "забыл" и _FIELD->... так же не использую - все прекрасно понимается, для переменных памяти исп. венгерскую запись.
Для однообразного кода (это на любителя) отказался и от SET RELATION, перейдя на подводы с анализом - неудобств в связи с этим не испытал, а иногда и выигрывал, когда с течением времени, надо было менять алгоритм подвода, не нашли тут, делаем др. подводы или ищем в др. алиасах.
Когда много критериев для отбора (сложный фильтр), использую массив блоков кода для каждого критерия и если "условно" все элементы, выполненные по Eval, дадут .T. => запись в отборе.


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3680
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 14.02.18 14:36. Заголовок: SergKis пишет: Так ..


SergKis пишет:

 цитата:
Так очищать запись нельзя и повторно использовать тоже. Если так делать, надо городить огород на текстовые логи для добывания инф. для проверяющих организаций. Скажу так, ВСЕ клиенты не хотят проверяющим давать инф. из этих логов, у проверяющих есть начальные данные (их системы) и им надо дать конечные, без промежуточных



У вас проверяющие в базах копаются, что ли ? Жесть.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1738
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 14:45. Заголовок: Pasha пишет У вас пр..


Pasha пишет
 цитата:
У вас проверяющие в базах копаются, что ли ? Жесть.


Сами не лезут, просят выгрузить в excel то то и то то, с ID, ID_DTM_ADD, ID_DTM_MOD, ID_DTM_DEL + ID_DTM_ANULIR (анулированные докум.). Ежемесячно для них форм. xml файлы для загрузки в eds систему (по налогам контролируют), маленькие фирмы вводят руками документы в эту систему, к примеру, через хром.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1739
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 14:51. Заголовок: PS Когда просят выгр..


PS
Когда просят выгрузить, в лучшем случае сидят в соседней комнате или стоят над "душой", т.е. формировать надо быстро.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1740
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 14:54. Заголовок: PPS Раньше проявлять..


PPS
Раньше проявлять сделки с клиентом, надо было при превышении 1000 eur за месяц, сейчас со 150 eur.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3681
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 14.02.18 15:01. Заголовок: До чего дошел прогре..


До чего дошел прогресс :)

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 40
Зарегистрирован: 22.01.14
ссылка на сообщение  Отправлено: 14.02.18 15:36. Заголовок: SergKis пишет Модифи..


SergKis пишет

 цитата:
Модификация по ID записи возможна, отражается в ID_DTM_MOD и user кто делал, при удалении запись "замораживается"


А запись с пометкой удаленная? И делаете ли Вы когда-нибудь PACK?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1741
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 14.02.18 16:33. Заголовок: ZAlex пишет А запись..


ZAlex пишет
 цитата:
А запись с пометкой удаленная? И делаете ли Вы когда-нибудь PACK?


Да, запись с пометкой удаленная и команда PACK не используется от слова никогда.
Есть еще понятие свободная\занятая запись (осталась от времен S87), когда записи в таблицу добавляются страницей, к примеру по 300 (из ini установки берется) записей за раз. Но пока не определился оставлять этот механизм или нет для letodb.


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 601
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 15.02.18 12:40. Заголовок: SergKis пишет: В че..


SergKis пишет:

 цитата:
В чем "выгода" от применения алиаса для тек. обл. в уст. filtra ?


Х.е.з., если честно. Это "сейчас" есть умный Харбор, а "тогда" нужна была четкая и полная уверенность в том, что переменная в каком-нибудь выражении не перепутается с именем поля. Поэтому для себя решил, что -m будет дисциплинировать и я не поленюсь добавлять к имени поля название алиаса. Со временем я оценил "лишний труд" и это дало определенные плоды: при модификации имен/типов/размеров полей простым текстовым поиском по исходникам можно легко найти и внести изменения в тех местах, которые могут затронуть эти изменения.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3683
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 16.02.18 10:09. Заголовок: PSP пишет: Это боль..


PSP пишет:

 цитата:
Это большая разница.



Я случайно заметил, что в letodb.ini, который идет с LetoDBf, стоит параметр:
Cache_Records = 21

Так что тест выполнялся в неравных условиях.
Добавил в тест вызов leto_SetSkipBuffer(21)

Собрал тест с letoDB + mingw32, чтобы условия были совсем уж равными.
Результат по сети - 123 сек, что практически совпадает с тестом LetoDBf
Тест для LetoDBf кстати собирал с флажком -mt, чтобы задействовать преимущество использования двух портов.

Я даже несколько обескуражен результатом. Конечно, может быть новшества LetoDBf сыграют в каких-то других условиях, тест то больно простой.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1373
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 16.02.18 10:16. Заголовок: Это хорошо) У меня п..


Это хорошо)
У меня программа с letodbf в некоторых местах падает с GPF 0xc0000005 ACCESS VIOLATION.
Не могу найти причину. Пока нет времени разбираться. С оригинальным letodb всё нормально.


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1746
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 16.02.18 10:38. Заголовок: Pasha пишет Конечно,..


Pasha пишет
 цитата:
Конечно, может быть новшества LetoDBf сыграют в каких-то других условиях, тест то больно простой.


Мои ощущения, letoDBf поведением приближен к стандартному rdd (+SIXCDX), добавлено поведение SBM сервера и попытка перенести public\private переменные (синхронизацией, кешированием) на сторону сервера, для использования в filtrах и т.д.
Даст это прирост скорости или нет - это не первостепенный вопрос.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3684
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 16.02.18 10:47. Заголовок: SergKis пишет: попы..


SergKis пишет:

 цитата:
попытка перенести public\private переменные (синхронизацией, кешированием) на сторону сервера, для использования в filtrах и т.д.



Хоть я не разбирался, для синхронизации нужен принудительный вызов Leto_VarExprSync ? При этом все значения public/private передаются на сервер, что ли ?
Не очень понятно, зачем это все нужно. Предположим, в строке для фильтра есть использование переменной памяти. При изменении значения переменной фильтр должен менять поведение, что ли ?
Я избегаю использовать переменные памяти, предпочитаю local/static. Фильтры, которые после установки динамически изменялись бы, мне не нужны. Это какая-то экзотика.
Сконструировать строку для фильтра, задав в ней нужные параметры, не составляет особой проблемы. И зачем городить этот огород ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1747
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 16.02.18 10:53. Заголовок: Pasha пишет Сконстру..


Pasha пишет
 цитата:
Сконструировать строку для фильтра, задав в ней нужные параметры, не составляет особой проблемы. И зачем городить этот огород ?


Полностью согласен. С какой целю сделано, не ясно.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3685
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 16.02.18 11:11. Заголовок: Глянул Leto_VarExprS..


Глянул Leto_VarExprSync.
Есть массив синхронизируемых переменных. Клиент хранит для каждой значение предыдущей синхронизации.
Если значение изменилось, на сервер передается команда LetoVarSet
Если изменилось значение скажем 20-ти переменных - будет 20 команд.
Как бы можно было бы обойтись одной, сделать что-то вроде LetoVarsSet.


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1748
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 16.02.18 11:13. Заголовок: PSP пишет У меня про..


PSP пишет
 цитата:
У меня программа с letodbf в некоторых местах падает с GPF 0xc0000005 ACCESS VIOLATION.
Не могу найти причину


Судя по Changelog.txt сборки пекутся как пирожки, т.е. сыровато еще состояние


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1374
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 16.02.18 12:04. Заголовок: SergKis пишет: Судя..


SergKis пишет:

 цитата:
Судя по Changelog.txt сборки пекутся как пирожки, т.е. сыровато еще состояние


Согласен. Поэтому и не спешу искать)

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 602
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 16.02.18 13:10. Заголовок: SergKis пишет: Судя..


SergKis пишет:

 цитата:
Судя по Changelog.txt сборки пекутся как пирожки, т.е. сыровато еще состояние


Не собираюсь никого защищать, но с лета-осени 2017г никаких существенных для программиста изменений не было.

Насколько мой английский мне позволяет понять ситуацию - Рольф закусился с Linux/SMB сервером: там обнаружился странный косяк: два приложения (сервер Leto и обычная программа на DBFCDX/DBFNTX) пытаются в монопольном режиме получить доступ к файлу и оба... успешно его получают. Судя по переписке в форуме - похоже что решил.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1749
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 16.02.18 14:00. Заголовок: Sergy пишет Не собир..


Sergy пишет
 цитата:
Не собираюсь никого защищать, но с лета-осени 2017г никаких существенных для программиста изменений не было.


Так я и не нападаю, надо пробовать в тестовом режиме, если видны плюсы перехода.
Для себя, пока, не вижу необходимости переходить, хотя режим No_Save_WA = 1 интересует в letoDB, но руки не доходят.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1750
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 16.02.18 14:04. Заголовок: Sergy пишет там обна..


Sergy пишет
 цитата:
там обнаружился странный косяк: два приложения (сервер Leto и обычная программа на DBFCDX/DBFNTX) пытаются в монопольном режиме получить доступ к файлу и оба... успешно его получают


Share_Tables = 1 для меня основной, т.к. letodb+httpserver+hb приложение работают на одну базу

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 603
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 16.02.18 17:27. Заголовок: SergKis пишет: Shar..


SergKis пишет:

 цитата:
Share_Tables = 1 для меня основной, т.к. letodb+httpserver+hb приложение работают на одну базу


Для меня тоже, но для одного кекса потребовалось одновременно запустить на одну базу две разных программы, время от времени требующим монопольный доступ. И если Leto+Leto работает, DBFxxx+DBFxxx работает, а вот Leto+DBFxxx - именно под Линуксом - не выходило.
Это я к тому, что дело вовсе не в сырости версии форка как таковой: возникла специфическая задача, походу её решили и весьма нетривиальным способом.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3686
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 17.02.18 11:51. Заголовок: SergKis пишет: Shar..


SergKis пишет:

 цитата:
Share_Tables = 1 для меня основной, т.к. letodb+httpserver+hb приложение работают на одну базу



Производительность без Share_Tables = 1 намного выше, чем с ним. Теряются преимущества работы с dbf в монопольном режиме, а они существенные.
Если стороннему non-harbour приложению также надо иметь доступ к базам letodb, то это возможно организовать посредством ole-сервера, см. utils\olesrv
Но это только для win-платформы

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 605
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 17.02.18 13:12. Заголовок: Pasha пишет: Я даже..


Pasha пишет:

 цитата:
Я даже несколько обескуражен результатом. Конечно, может быть новшества LetoDBf сыграют в каких-то других условиях, тест то больно простой.


Интересно. Я тоже в одном месте был "обескуражен". Хотелось-бы понять: это особенность форка или в принципе, LetoDB. Рольф обиделся и в молчанку стал играть...

Суть теста такова: открывается таблица без индекса и по ней делается большое количество GO INT(RAND(RECCOUNT()))

Скрытый текст


Компилировал вот так:
letodb.hbc
-W3
-es0
-n
-mt
hbct.hbc

Будет несколько минут времени - прогони плиз его у себя на обоих вариантах: основном и форковском. Интересно сравнить. Может это LetoDB(f), а может у меня настройки какие-то кривые - все в общем летает, а тут - скорость в 40! раз ниже, чем у DBFNTX по сети.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3687
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 17.02.18 13:32. Заголовок: Я правильно понял, ч..


Я правильно понял, что этот тест LetoDBf прогоняет в 40 раз медленнее, чем LetoDB ?
В любом случае, сразу можно сказать, что для GO INT(RAND(RECCOUNT())) skip buffer не помогает, а мешает. Вместо одной записи сервер передает клиенту 10, или что там в настройках. А они не нужны.
Поэтому лучше перед такими goto задать leto_SetSkipBuffer(1). Ну а потом вернуть прежнее значение, потому что для обычных выборок эта настройка очень важна.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 606
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 17.02.18 15:07. Заголовок: Сорри, не в 40, а в ..


Сорри, не в 40, а в 24 раза LetoDBf получается медленнее, чем DBFNTX по сети:
 
1) cConnect = 192.168.1.120:2812
2) cDir = w:\hb\data\
3) cFileName = invcheck
4) nSkipBuffer = 21
Table w:\hb\data\invcheck.dbf is reachable locally. OK
LetoDBf - connect ok.
Table invcheck.dbf is opened, it has 957046 records, 66.63 MB

Testing 10000 jumps via DBFNTX: 221 ms, 45248.9 jumps/sec
Testing 10000 jumps via LETO: 5347 ms, 1870.2 jumps/sec

Press any key to exit


SkipBuffer можно задать из командной строки, можно поправить в тексте программы. Менял и так и эдак - без особого прироста производительности.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6729
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 17.02.18 15:35. Заголовок: Sergy пишет: DBFNTX..


Sergy пишет:

 цитата:
DBFNTX по сети:


А ежели не лень , сделай тест с CDX.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 607
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 17.02.18 15:48. Заголовок: Dima пишет: А ежел..


Dima пишет:

 цитата:

А ежели не лень , сделай тест с CDX.


Индексов CDX у меня нет, от слова "совсем". Но делал без индексов, просто USE table EXCLUSIVE NEW - пофиг: в обоих случаях процентов на 10 быстрее, но в итоге:
 
Testing 10000 jumps via DBFNTX: 198 ms, 50505.1 jumps/sec (no index)
Testing 10000 jumps via LETO: 5212 ms, 1918.6 jumps/sec (no index)


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1753
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.02.18 16:04. Заголовок: Sergy Что покажет у..


Sergy Что покажет установка BM фильтра на массив RecNo() и обработка в цикле всех записей ?


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 608
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 17.02.18 16:25. Заголовок: SergKis пишет: Что ..


SergKis пишет:

 цитата:
Что покажет установка BM фильтра на массив RecNo() и обработка в цикле всех записей ?


Честно говоря, не знаю.
У меня вопрос возник в одном, не слишком типичном месте: сначала идет выборка, собираются по некому сложному условию куча записей в массив RECNO(), а потом по ним идет DBEDIT().
После переключения данного фрагмента кода на LetoDBf юзеры (неожиданно), все как один, стали жаловаться на "тормоза": курсор переходил от записи к записи с задержкой около секунды.
После того, как вернул работу на "стандартный" DBFNTX - тормоза исчезли, а я пытаюсь понять: что-же это такое могло быть.

Перекомпилировать сервер под BMDBFNTX нет особого смысла: я уже изменил логику в этом месте программы полностью, отказавшись от массива RECNO() в пользу локальной таблицы с выбранными данными. Работает и с LetoDBf и DBFNTX без тормозов вообще.

Просто остался чисто спортивный интерес: что это было - ошибка в форке или у меня что-то не так настроено.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1754
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.02.18 17:11. Заголовок: Sergy пишет я уже из..


Sergy пишет
 цитата:
я уже изменил логику в этом месте программы полностью, отказавшись от массива RECNO() в пользу локальной таблицы с выбранными данными.


с изменением алгоритма все понятно, а с массивом recno(), BM filtra на сервере, ясности нет

 цитата:
Перекомпилировать сервер под BMDBFNTX нет особого смысла


Так и сборка с __BM = Yes, как говорится, "есть не просит", а без нее не попробуешь

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1377
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 17.02.18 19:36. Заголовок: Вот хоть стреляйте м..


Вот хоть стреляйте меня, но я утверждаю, что Letodb показывает свои примущества только в случае обработки запросов с помощью udf-функций (эдакий псевдо sql-сервер с произвольно-самопальным синктасисом)))). В остальных случаях всё зависит от сетевого оборудования/соединения и дисковой системы сервера. На гигабитной сетке или, если на серваке raid-10, может случиться так, что обычный файловый режим будет быстрее.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 1755
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.02.18 21:07. Заголовок: PSP пишет свои приму..


PSP пишет
 цитата:
свои примущества только в случае обработки запросов с помощью udf-функций


Так и не спорим об этом. Перенос деиствий на сторону сервера требует опр. затрат., написания кода ...
На первом этапе, мин. телодвижениями, надо встроить летодб в старый код, не проиграв сильно в скорости.
Если был массив recno(), наверно надо применить BM фильтр, был SET FILTER TO ... сделать его оптимистическим, ...
В "нашей" версии есть простой механизм для работы на сервере, заменяя SET FILTER TO ...
 
leto_ParseRecords( leto_Udf('UDF_dbEval', <xScope>, <xScopeBottom>, <xOrder>, <cFilter>, <lDeleted> ) )
while ! eof()
...
skip
enddo
dbInfo( DBI_CLEARBUFFER )

Для меня, к примеру, 180 сек или 120 сек без разницы (клиенту в большинстве тоже, он так и так не успеет кофе попить),
15 минут и 5 мин. есть разница.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 609
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 17.02.18 22:26. Заголовок: PSP пишет: Вот хоть..


PSP пишет:

 цитата:
Вот хоть стреляйте меня, но я утверждаю, что Letodb показывает свои примущества только в случае обработки запросов с помощью udf-функций (эдакий псевдо sql-сервер с произвольно-самопальным синктасисом)))). В остальных случаях всё зависит от сетевого оборудования/соединения и дисковой системы сервера. На гигабитной сетке или, если на серваке raid-10, может случиться так, что обычный файловый режим будет быстрее.


Не очень понятно, какая разница - как именно будут выбраны записи: при помощи UDF функции или при помощи server-side простейшего фильтра. Самое главное, что во время этой выборки - на клиент попадет то и только то, что требуется, ничего лишнего: ни неподходящих по условию записей, ни страниц из индексных файлов, необходимых, чтобы выбрать эти самые записи. Ничего. Только запрошенные данные.

И совершенно понятно, что в определенных условиях, например, при наличии 2х1Gb сетки, быстрого диска и тп можно в теории получить аналогичный результат. Но что будет с этой сеткой, если будет хотя-бы десяток юзеров, гоняющих туда-сюда гигабайтные таблицы? А если юзеров больше? А если канал - не локальная сеть, а интернет?

А конкретно LetoDB(f) тут вообще ни причем. Просто удобный движок для ленивых талантливых программистов, написавших много (ооочень много?) лет назад удачный код, который оказался актуален до сих пор.

И второй момент: безопасность/целостность данных. Пофиг даже на скорость. Гораздо правильнее, когда в данные не лезет 10-50-100 разных машин с вирусами/шифровальщиками/битой_памятью/плохо_обжатыми_коннекторами/высохшими_аккумуляторами_ИБП/итп (тьфу*3). Есть сервер и на нем локальный диск. Один процесс оперирует всеми локальными данными, высылая по сети только РЕЗУЛЬТАТ.



А уж будет это Oracle или MongoDB - тоже пофиг. Кому милее арбуз, а кому - свиной хрящик.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1378
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 18.02.18 08:16. Заголовок: Sergy пишет: какая ..


Sergy пишет:

 цитата:
какая разница - как именно будут выбраны записи: при помощи UDF функции или при помощи server-side простейшего фильтра


В таком случае, наверное, минимальная. Если фильтр возможно построить на стороне сервера.
Если структура таблиц такова, что оптимизированный фильтр невозможно построить, то при использовании udf - это не проблема. Функции работатют с данными на стороне сервера полностью.
Я имел в виду, что простая замена rdd вряд ли решит проблему скорости. Вы убедились на своем же примере.

 цитата:
И второй момент: безопасность/целостность данных. Пофиг даже на скорость. Гораздо правильнее, когда в данные не лезет 10-50-100 разных машин с вирусами/шифровальщиками/битой_памятью/плохо_обжатыми_коннекторами/высохшими_аккумуляторами_ИБП/итп (тьфу*3). Есть сервер и на нем локальный диск. Один процесс оперирует всеми локальными данными, высылая по сети только РЕЗУЛЬТАТ.


И чем тут udf не вписывается?))

зы. А так-то спорить тут не о чем. Каждый делает, как привык)


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3689
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 19.02.18 09:33. Заголовок: Sergy пишет: Сорри,..


Sergy пишет:

 цитата:
Сорри, не в 40, а в 24 раза LetoDBf получается медленнее, чем DBFNTX по сети:



Да, так и есть. Правда, я проверил с не с ntx, а с cdx, и не с letodbf, а с letodb, но разница получилась такого порядка. Причем локально разница меньше, в 8-9 раз. Думаю, что причину здесь уже разжевали, повторяться не буду.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 611
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 19.02.18 13:36. Заголовок: Спасибо за тест, всё..


Спасибо за тест, значит дело не в форке и не кривых настройках у меня.

Всё понятно, кроме этой фразы:
Pasha пишет:

 цитата:
Причем локально разница меньше, в 8-9 раз.


Как это "локально разница меньше" ?

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3690
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 19.02.18 13:57. Заголовок: По сети разница ~ в ..


По сети разница ~ в 24 раза (dbfntx быстрее)
Локально - в 8-9 раз (dbfntx быстрее)


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 612
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 19.02.18 14:35. Заголовок: Значит dbfntx по сет..


Значит dbfntx по сети в три раза быстрее, чем локально ???
Как такое вообще может быть ?

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3691
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 19.02.18 15:01. Заголовок: Нет. И не вообще мед..


Нет. И не вообще медленнее, а конкретно эта операция.
Для dbfntx: по сети медленнее (грубо) в 3 раза чем локально
Для letodb: по сети медленнее в 10 раз чем локально

Локально letodb медленнее чем dbfntx локально в 8 раз
Получаем (буржуазная лженаука арифметика): по сети letodb медленнее чем dbfntx в 8*10/3 ~ в 24 раза


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 613
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 21.02.18 12:44. Заголовок: Выяснил - всё нормал..


Выяснил - всё нормально у LetoDB(f) с производительностью в режиме GO INT(RAND() * RECCOUNT()).
Мой косяк: вместо RECCOUNT() в коде использовался nSize:
  aRecords := ARRAY(nSize)  
FOR i:=1 TO nSize
aRecords[ i ] := INT(RAND()*nSize)
NEXT i

Соотв. вместо того, чтобы "прыгать" по всей таблице, выполнялись GO только по первым 10000 записям, которые легко помещаются в кэш винды. После исправления всё встало на свои места:
 
...
Testing 10000 jumps via DBFNTX: 59614 ms, 167.7 jumps/sec
Testing 10000 jumps via LETO: 6508 ms, 1536.6 jumps/sec
...
Testing 10000 jumps via DBFNTX: 36694 ms, 272.5 jumps/sec
Testing 10000 jumps via LETO: 6717 ms, 1488.8 jumps/sec
...
Testing 10000 jumps via DBFNTX: 22936 ms, 436.0 jumps/sec
Testing 10000 jumps via LETO: 6655 ms, 1502.6 jumps/sec

Причем с каждым запуском DBFNTX "разгоняется", но все равно, до Leto ему далеко.

Посыпаю голову пеплом. Leto рулит.

Спасибо: 1 
ПрофильЦитата Ответить
постоянный участник




Пост N: 2134
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.11.18 22:52. Заголовок: Начал смотреть LetoD..


Начал смотреть LetoDBf + hmg 18.10 (все bcc сборка).
Перенес родные примеры (test_....prg и demo4.prg из Tsb_Basic)
Кому интересно, то тут сервер и пример https://my-files.ru/459f68

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 2135
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.11.18 23:13. Заголовок: Упс. удалили :sm28:..


Упс. удалили , разделил на 2е части
1. сервер, запуск letodb.exe, останов letodb.exe stop https://my-files.ru/eirnf2
2. hmg пример https://my-files.ru/vsdbm0

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1484
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 18.11.18 11:27. Заголовок: SergKis пишет: Упс...


SergKis пишет:

 цитата:
Упс. удалили , разделил на 2е части
1. сервер, запуск letodb.exe, останов letodb.exe stop https://my-files.ru/eirnf2
2. hmg пример https://my-files.ru/vsdbm0



Выложи, если не влом, на другой хостинг. Этот что-то барахлит.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 2136
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 18.11.18 13:56. Заголовок: PSP пишет на другой ..


PSP пишет
 цитата:
на другой хостинг


Тут https://ru.files.fm/u/2q3wzejj#sign

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6141
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.12.18 06:16. Заголовок: - rddleto.li..


        - rddleto.lib:          Harbour client library for access to LetoDBf server. 
Copyright 2017-2018 Rolf 'elch' Beckmann
Source code is available at https://github.com/elchs/LetoDBf.


Классно ребята на себя продукт перевели.
Или они его заново с нуля написали ?

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1130
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 07.12.18 09:19. Заголовок: Там вроде все правил..


Там вроде все правила приличия соблюдены, вот первый абзац readme проекта:

"please note the trailing f, this is the elch fork of the famous LetoDB Database Server, for the origin see: https://sourceforge.net/p/letodb/code/ci/master/tree/ or visit the original inventor: http://kresin.ru/en/letodb.html"

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 670
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 03.06.21 01:03. Заголовок: Работал, никого не т..


Работал, никого не трогал с LetoDBf, датированным 2018-01-21... Всё нормально работало, вот решил обновиться... Оказывается, где-то с лета 2018г Rolf Beckmann добавил в свой проект заголовочный файл leto_std.ch, который все стандартные команды вроде COPY, APPEND, SORT, DELETE и тп - жестко перенастраивает на использование функций leto_dbCopy, leto_dbApp, leto_dbSort и тп...

В моем проекте такое не пройдет, тк он ведется еще со времен Clipper 5.01 ))

Ну, думаю, чай не лыком шит, отключил в letodb.hbc использование данного заголовочного файла и пересобрал проект. Запустил letodb сервер как службу windows и... посыпались ошибки вроде такой:

Error LETO/1001 Ошибка открытия: \data\messages
Alias().............. ""
oError:args.......... NIL
---------------------
DBUSEAREA( 0 )
NETUSE( 2753 )
ADDMESSAGE( 65 )
USERCHANGE( 1652 )
MAIN( 220 )

То есть сервер Leto "вдруг" неожиданно стал искать таблицы в папке без указания диска... Хотя в letodb.ini ничего не менялось и путь как был, так и остался: DataPath = f:\work\data

Откатил версию программы на предыдущую, которая была скомпилирована со "старой" версией от 2018 года и... все заработало, как ни в чем не бывало... Сервер - "новый", клиентские программы - "старые".

Что я мог упустить ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3753
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.06.21 10:59. Заголовок: Sergy пишет вот реши..


Sergy пишет
 цитата:
вот решил обновиться...


И на какую версию обновились ?

 цитата:
То есть сервер Leto "вдруг" неожиданно стал искать таблицы в папке без указания диска...


Может тут зацепилось readmy.txt пункт "5.1.3 successful connected to server"
 цитата:

This root path is equal a SET DEFAULT TO setting, so if your filenames contain *no path separator,
all new files will be created directly in <DataPath>.
The filenames can have optional OS dependent leading '\' or '/', example: /mydbf.dbf, that will force
them into the <DatPath> directory, despite a given "SET DEFAULT" to a subdirectory.

For blank, pure filename the "SET DEFAULT TO ... " setting, when set *before* Leto_Connect() will name
an additive sub-directory to <DataPath>. Example: "SET DEFAULT TO data" will put all NEW files without
path separator into:
[drive:]\path\to\data_diretory\data
!! Allowed for "DEFAULT" is only one single path, NOT ENDING WITH ';' OR ":" !!
The example setting of "SET PATH TO system;tmp" will lead to search for files in:
[drive:]\path\to\data_diretory\system and [drive:]\path\to\data_diretory\tmp
If you use: DbUseArea( ,, cFile, .. ) and it is not in the DEFAULT directory, but in one directory given
by SET PATH, it will be opened without further needed action from you.
Both DEFAULT and PATH recognize the <DataPath>, what means a "SET DEFAULT TO to\data_diretory\data" will
lead to a DEFAULT directory: '[drive:]\path\to\data_diretory\data' as given as "SET DEFAULT TO data".
!! Again, both settings of "DEFAULT" and "PATH" apply to filenames without any path seperator '\' or '/'.



Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 671
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 03.06.21 11:17. Заголовок: SergKis пишет: И на..


SergKis пишет:

 цитата:
И на какую версию обновились ?


Да вот прямо на самую последнюю, что есть на GitHub - 2021-04-29


 цитата:
Может тут зацепилось readmy.txt пункт "5.1.3 successful connected to server"


Спасибо за наводку, почитаю.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 672
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 07.06.21 23:33. Заголовок: Разобрался с причино..


Разобрался с причиной, но не понимаю, как вылечить: после каждого открытия таблицы значение RDDSETDEAFULT() возвращается на "LETO", хотя раньше по умолчанию был "DBFNTX" и он прекрасно сохранял свое значение после единственной его установки сразу после Leto_Connect()

У меня часть таблиц загружается в локальную папку и там быстро обрабатывается, соотв. услуги LetoDBf сервера явно ни к чему. Поэтому и дефолтный драйвер такой.

Почему с недавних пор стал "слетать" RDDSETDEFAULT() ? Принудительно конечно можно перед и после каждого USE наставить оберток, но не нравятся мне такие костыли...

Откатился на предыдущую версию LetoDBf, от 2018-01-21, перекомпилировал и перезапустил letodbsvc, rddletoaddon - все тоже самое, перескакивает дефолтный драйвер с DBFNTX на LETO

Психанул, восстановил папку с Харбором целиком - поведение RDDSETDEFAULT стало нормальным...

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7386
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 08.06.21 15:41. Заголовок: Sergy пишет: Прину..


Sergy пишет:

 цитата:
Принудительно конечно можно перед и после каждого USE наставить оберток, но не нравятся мне такие костыли...


Давно пора сваять свою функцию по открытию баз , что то типа USEDB (не важно)
В ней юзать dbusearea , открывать базы с нужным RDD , там же индексы открывать и тд и тп и тогда
лечение не понадобится

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 673
Зарегистрирован: 08.07.06
ссылка на сообщение  Отправлено: 15.06.21 14:08. Заголовок: Dima пишет: Давно п..


Dima пишет:

 цитата:
Давно пора сваять свою функцию по открытию баз , что то типа USEDB (не важно)
В ней юзать dbusearea , открывать базы с нужным RDD , там же индексы открывать и тд и тп и тогда
лечение не понадобится


Согласен. Поэтому мною давно написан свой NetUse(), единый для всех вариантов. C обработкой ошибок и тп... Но блин, что за фигня со "слетом" дефолтного драйвера... Пока нашел "затесавшуюся" библиотеку letodb.o в каталоге LIB. Поменял на старую - заработало все норм. Но почему компиляция более "старой" библиотеки не приводит к замене объектного кода... Ладно, буду потихоньку разбираться.

Кто нибудь использует сейчас LetoDBf ? Какой версии ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3763
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 15.06.21 15:00. Заголовок: Sergy пишет Какой в..


Sergy пишет
 цитата:
Какой версии ?


Эту https://github.com/alcz/LetoDBf
Default rdd "LETO", локальные "DBFCDX" ставлю в открытии, т.к. это может быть и mem: файл
Сборка msvc 2019 (hb 3.2 и своя hmg также на msvc 2019), добавлена LV866, ф-ии hrb файла перенесены в тело сервера, используется на базу совместно с LetoDb 1.0 версии.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4225
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.02.23 06:52. Заголовок: Тут продолжу ответ и..


Тут продолжу ответ из темы "Новая версия Расширенного релиза библиотеки MiniGui" для sashaBG (Пост N: 199)
SergKis пишет
 цитата:
По мне надо сделать
1. ...
2. ...
3. ...


4. Для LetoDb 1.0 (2-а потока) у меня сделано, но можно и для LetoDb 2.0 (много поточного применить) ф-ю сервера для запуска работы приложения в фоновом потоке, оказалось удобно
Тут Скрытый текст

Варианты использования:
- есть клиент отслеживающий события для почты и sms, поймав его, делает запись в dbf на сервере о событии и запускает на эту запись RecNo и базу на сервере программу отправки писем и sms-ок (с одной записи до 9 адресов может отправить). Отчеты и прочая работа на LetoDbF
- расчеты длительного времени
- отборы и т.д.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 201
Зарегистрирован: 15.09.05
ссылка на сообщение  Отправлено: 17.02.23 11:48. Заголовок: Спасибо за идею


Спасибо за идею!

У меня неможко по другому все организовано. Есть программа Serv.exe. Она написана на MiniGUIext и работает MT режиме. Ее роль:
1.управлят LetoDB: запуск, остановка самое главное мониторить не упал ли он , если упал запускает
2.Выполнять критические по скорости операции с базами на серевер (всякие сложные расчеты, ну и перемен в структур таблиц и т.д) . Т.е. Я использую удаленные процедуры и функции через NETIO

Клиент подключается одновременно к LetoDB для работы с таблицами (чтение , запись, справки и ...) через порт 2812 и к NETO (Serv.exe) порт 2941 для работы с удаленными процедурами.

TsBrowse я использую для помощи при заполнении нек. полей на форме :


Я просто удалил Стринговую часть функции dbsetfilter, так как на LetoDB передаятся только она
и в ЛОГ файле ошибки исчезли.

( cAlias )->( dbSetFilter( {|| ob:FilterFTS_Line( cFind, lUpper, lAll, ob ) }, ;
"" ) )
//"ob:FilterFTS_Line( cFind, lUpper, lAll, ob)" ) )

Фильтр работает на клиенте, но пока меня ето устраивает. Если придется, то тогда буду подключать фильтрацию со стороны LetoDB

Спасибо еще раз за Ваши ответы Сергей!
Желаю доброго здоровья!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4226
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 17.02.23 14:03. Заголовок: sashaBG пишет У меня..


sashaBG пишет
 цитата:
У меня неможко по другому все организовано. Есть программа Serv.exe. Она написана на MiniGUIext и работает MT режиме. Ее роль:


Т.к. начало LetoDb у меня было 2010-2011 год, то ничего проще как AutoIt3 для управления сервером не нашел, к тому же доступа к серверу клиента, как Admin не было, то написал простенький текст AutoIt3. Т.е. LetoDb 1.0 порт 2812, LetoDbF порт 2816(,2817 если надо) и для LetoDbf на hmg ext Admin программа управления user-ами:
1. добавить\удалить\заменить (user\password)
2. списки работающих клиентов (table tsbrowse просмотр + клиенту сделать Kill принудительно
3. в эту программу добавляются режимы работ для запусков ф-ей UDF_Run(...).
Дальше работа с сервером (базой) ТОЛЬКО с клиента
Тут AutoIt3 для работы с LetoDbF https://TransFiles.ru/hqhdo
Если архив развернуть в hmg Advanced\LetoDBf\Server и переименовать letodb.exe => letoDBf.exe и запустить letostart.exe, то в tray будет простое меню и LetoDBf.exe будет запущен и отслеживаться наличия в памяти
Для LetoDb 1.0 letostart1.exe почти такой же добавлен режим замены версии LetoDb.exe (кладем рядом letodb.new и AutoIt останавливает работу LetoDb.exe, переименовывает его и заменяет letodb.new => LetoDb.exe и запускает). Так было сделано из за отсутствия доступа на сервер клиента.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4228
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 19.02.23 14:45. Заголовок: sashaBG пишет Я испо..


sashaBG пишет
 цитата:
Я использую удаленные процедуры и функции через NETIO


NETIO работает на удаленные соединения ? Между разными районами города, между городами LetoDb 1.0 прекрасно справляется с обменом данными в таком варианте и с UDF_Run(...). Или NETIO только в локальной сети используется ? Когда то давно мне NETIO не зашла.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 202
Зарегистрирован: 15.09.05
ссылка на сообщение  Отправлено: 19.02.23 17:33. Заголовок: Работает


Работает и в локальной сет и удаленно.
Без проблем.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4229
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 19.02.23 17:56. Заголовок: sashaBG пишет Работа..


sashaBG пишет
 цитата:
Работает и в локальной сет и удаленно.


Т.е. на сервере запускается 2-а сервера:
1. LetoDb
2 NETIO
и Ваша hmg ext программа наблюдает что бы оба были в памяти ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4230
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 20.02.23 08:02. Заголовок: sashaBG пишет Фильтр..


sashaBG пишет
 цитата:
Фильтр работает на клиенте, но пока меня ето устраивает


Как Вы боретесь с :nLen значением для TsBrowse при фильтрации ? Сразу, спасибо за ответы
При установке фильтра идет пробег по базе для подсчета :nLen, потом включается показ TsBrowse с этим :nLen. Если другой клиент[ы] будет изменять базу (добавят запись и не одну), то в фильтре будет одно кол-во строк, а в :nLen другое, что приводит к ошибкам рисования TsBrowse (возможно до полного краха). Я старался max уйти от использования фильтров, а если этого было не избежать, то обязательно выбирал в др. файл на сервере (все нужные поля). В результате усложняется написание кода. Пока я с этим боролся (LetoDb 2.0) и не смог довести до конца, появился LetoDbF, куда я и переполз довольно быстро, т.к. код мало отличается от RDD DBFCDX. При фильтрации (да и в др. случаях) делаю отбор (он "летает") с сервера "узких" файлов (если надо на них делаю TAG-и, типа order by sql запросов), связываю выборку по SET RELATION ... с нужными таблицами сервера и TsBrowse работает на выборку со всеми полями сервера. В этом случае использование фильтров из oBrw:FilterData\FilterFTS(...) на выборку безопасно, :nLen не меняется.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 203
Зарегистрирован: 15.09.05
ссылка на сообщение  Отправлено: 20.02.23 21:29. Заголовок: Да именно так


Да именно так:
На сервере запускается 2-а сервера:
LetoDb и NETIO

hmg ext программа содержит сервер NETIO и наблюдает что бы LetoDB был живой в памяти.
Естествно, в hmg ext програме на всех местах где могли быть критичесеские ошибки есть "begin sequence".

С проблемами связаные с :nLen я тоже сталкивался и поетому не использую TsBrowse для основной навигации по отфильтрованых через FilterFTS(...) таблиц.
TsBrowse у меня только в той Help функции для выбора чего-то.

Сергей у меня не так много знаний по етой библиотеке, как у Вас! Спасибо, что Вы развиваете ее вместе с Григорием!

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 125 , стр: 1 2 3 4 5 6 7 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 188
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет