Отправлено: 18.05.11 19:04. Заголовок: Leto DB Server

Добавил функцию:

LETO_GROUPBY(cGroup, cFields, [cFilter], [xScopeTop], [xScopeBottom])

cGroup - имя поля, по которому группируются данные;
cFields - список числовых полей через запятую, которые суммируются. Символ # обозначает к-во записей в группе

Функция возвращает двумерный массив строк.
1-й элемент каждой строки - значение поля cGroup, следующие элементы суммы полей, заданных в cFields, или к-во записей в группе

 Отправлено: 07.07.11 09:42. Заголовок: По поводу фильтра Пр..

По поводу фильтра
Примерно, до июня все работало
Смотрю код - ничего с фильтрами и codepage не менялось (явно, по крайней мере)

Нашел!
Оказывается я поправил передачу команды "intro"
Определение codepage клиента заработало - соответственно фильтр упал :)

PS может проще обратно поломать intro? :)
шЮтка

 Отправлено: 07.07.11 10:48. Заголовок: Да, я тоже проверил,..

Да, я тоже проверил, вернул leto без mt - фильтр в таком случае не работает. А там схема работы была точно такой же.
Так что повода для беспокойства нет

 Отправлено: 08.07.11 15:23. Заголовок: Добавил на сервере ф..

Добавил на сервере функции

letoUseArea( nUserStru, nUserStru, cFileName, cAlias, lShared, lReadOnly, cdp ) --> nAreaId
letoOrdListAdd( nUserStru, cBagName ) --> Nil
letoOrdCreate( nUserStru, cBagName, cKey, cTagName,
lUnique, cFor, cWhile, lAll, nRecNo,
nNext, lRest, lDesc, lCustom,
lAdditive ) --> Nil
letoCloseArea( nUserStru ) --> Nil

Эти функции можно вызывать из udf-функции в модуле letoudf

 Отправлено: 12.07.11 15:12. Заголовок: Обновил LetoDB /* ..

Обновил LetoDB /* $Id: Changelog,v 1.350.2.32 2011/07/08 12:15:46 ptsarenko Exp $ */, собрал, сервер не запускается, пишет:
07/12/11 15:07:45: LetoDB service has had some problems

В чем может быть проблема?

 Отправлено: 12.07.11 18:42. Заголовок: У меня было такое со..

У меня было такое сообщение, когда я случайно инсталлировал службу с subst-диска
Еще вариант - запуск блокирует firewall, например от drweb. Ему надо задать правило для letodb.
Какое сообщение выдается при ручном запуске службы ?

 Отправлено: 12.07.11 19:54. Заголовок: Pasha пишет: Какое ..

Pasha пишет:

цитата:

Какое сообщение выдается при ручном запуске службы ?

Как раз вручную и запускал.
До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит?

Фаервол, антивирусы не устанавливал.

 Отправлено: 12.07.11 20:09. Заголовок: AlexMyr пишет: Как ..

AlexMyr пишет:

цитата:

Как раз вручную и запускал. До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит? Фаервол, антивирусы не устанавливал.

Т.е., сборка с mingw запускается, а с tdm-gcc нет ? Я собирал только с официальным mingw, mingw64 и bcc, и все успешно. Насчет tdm-gcc ничего не могу сказать.
А что говорит по этому поводу event viewer ?

 Отправлено: 12.07.11 20:15. Заголовок: К слову. Копирую из ..

К слову. Копирую из своего лога:

07/01/11 20:24:31: LetoDB service has had some problems

Это я по недосмотру собрал сервер без -D__WIN_SERVICE__, служба уже была инсталлирована ранее, пытался ее запустить, и конечно получил по заслугам

 Отправлено: 13.07.11 10:10. Заголовок: Пересобрал официальн..

Пересобрал официальным mingw, проблема осталась:
07/13/11 10:07:08: LetoDB service has had some problems

В event viewer ничего нет

 Отправлено: 13.07.11 10:54. Заголовок: Собрал без -D__WIN_S..

Собрал без -D__WIN_SERVICE__, перестало записывать в letodb.ini сообщение при старте letodb. При попытке остановить сервер в letodb.log:
07/13/11 10:23:08: Can't STOP the server (not started?)...

Есть версия:
/* $Id: Changelog,v 1.350.2.15 2011/05/31 10:44:43 aokhotnikov Exp $ */

тут все нормально:
07/13/11 10:53:14: Leto DB Server has been started.
Leto DB Server v.2.02 ! INIT: DataPath=, ShareTables=0, MaxUsers=500, MaxTables=5000, CacheRecords=10
07/13/11 10:53:24: Send STOP to server...
07/13/11 10:53:27: Server has been closed.

 Отправлено: 13.07.11 11:12. Заголовок: AlexMyr пишет: Собр..

AlexMyr пишет:

цитата:

Собрал без -D__WIN_SERVICE__,

Для windows надо собирать или с флагом

__WIN_SERVICE__

или с

__WIN_DAEMON__

 Отправлено: 13.07.11 11:19. Заголовок: собрал с -prgflag={w..

собрал с
-prgflag={win}-D__WIN_DAEMON__
#-prgflag={win}-D__WIN_SERVICE__

заработало

 Отправлено: 13.07.11 12:01. Заголовок: А сервис letodb ни н..

А сервис letodb ни на каком компьютере не запускается ?

 Отправлено: 13.07.11 12:05. Заголовок: Службу я надеюсь вы ..

Службу я надеюсь вы инсталлировали ? Т.е.

letodb install

?

 Отправлено: 13.07.11 12:14. Заголовок: Pasha пишет: А серв..

Pasha пишет:

цитата:

А сервис letodb ни на каком компьютере не запускается ?

Letodb крутится на win98 и на win server 2003 еще старая версия (я уже не помню какой сборки).

Pasha пишет:

цитата:

Службу я надеюсь вы инсталлировали ? Т.е. letodb install ?

Нет, просто запускал, как всегда. А где шла речь о letodb install, м.б. я пропустил этот момент?

 Отправлено: 13.07.11 12:38. Заголовок: Семен Семеныч ! Дык ..

Семен Семеныч !
Дык службу надо сначала инсталлировать
А потом запускать из Панель управления - Администрирование - Службы
Разобрались :)

 Отправлено: 13.07.11 12:43. Заголовок: Pasha пишет: Разобр..

Pasha пишет:

цитата:

Разобрались :)

Так, собрал с
#-prgflag={win}-D__WIN_DAEMON__
-prgflag={win}-D__WIN_SERVICE__

потом letodb install, перезапустил комп, все работает.
Спасибо.

 Отправлено: 13.07.11 16:55. Заголовок: Похоже что есть проблема с COPY TO и APPEND FROM !

Привет !
Тестирую LetoDB MT CVS(rel-1-mt)

написал такую прогу

//////////////////////////
PROCEDURE main()
LOCAL _Server := '//127.0.0.1:2812/'

REQUEST LETO
RDDSETDEFAULT( "LETO" )

use (_Server + 'DVIG') new excl
browse()
copy to (_Server + 'WORK')
use
inkey()
use (_Server + 'WORK') new excl
browse()

RETURN

второй browse() почемуто пустой ?!

с APPEND FROM дело похожее

а может я чтото не так делаю !

P.S. в ST версии LeoDB все работает. Я использую COPY ТО и APPEND FROM для обновления структур свойх таблиц

use table new
copy to temp
use
dbcreate( 'table' , aStru )
use table new
append from temp

в SQL-e хорошо там есть ALTER TABLE

 Отправлено: 14.07.11 21:36. Заголовок: sashaBG пишет: втор..

sashaBG пишет:

цитата:

второй browse() почемуто пустой ?! с APPEND FROM дело похожее а может я чтото не так делаю ! P.S. в ST версии LeoDB все работает.

Поправил. На клиенте изменился протокол для этой команды, а сервер не отрабатывал это изменение.

 Отправлено: 15.07.11 19:44. Заголовок: Переименовал (вернул..

Переименовал (вернул) letodb.lib(a) в rddleto.lib(a). Думаю, так будет лучше, все rdd-либы Harbour имеют префикс rdd
Добавил пару строк под комментарием в качестве примера, как собрать клиентскую shared-библиотеку (dll/so/dylib/sl)