Форум » LetoDB, HbNetio. » Leto DB Server » Ответить
Leto DB Server
Pasha: Добавил функцию: LETO_GROUPBY(cGroup, cFields, [cFilter], [xScopeTop], [xScopeBottom]) cGroup - имя поля, по которому группируются данные; cFields - список числовых полей через запятую, которые суммируются. Символ # обозначает к-во записей в группе Функция возвращает двумерный массив строк. 1-й элемент каждой строки - значение поля cGroup, следующие элементы суммы полей, заданных в cFields, или к-во записей в группе
alx_on: По поводу фильтра Примерно, до июня все работало Смотрю код - ничего с фильтрами и codepage не менялось (явно, по крайней мере) Нашел! Оказывается я поправил передачу команды "intro" Определение codepage клиента заработало - соответственно фильтр упал :) PS может проще обратно поломать intro? :) шЮтка
Pasha: Да, я тоже проверил, вернул leto без mt - фильтр в таком случае не работает. А там схема работы была точно такой же. Так что повода для беспокойства нет
Pasha: Добавил на сервере функции 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
AlexMyr: Обновил 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 В чем может быть проблема?
Pasha: У меня было такое сообщение, когда я случайно инсталлировал службу с subst-диска Еще вариант - запуск блокирует firewall, например от drweb. Ему надо задать правило для letodb. Какое сообщение выдается при ручном запуске службы ?
AlexMyr: Pasha пишет: Какое сообщение выдается при ручном запуске службы ? Как раз вручную и запускал. До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит? Фаервол, антивирусы не устанавливал.
Pasha: AlexMyr пишет: Как раз вручную и запускал. До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит? Фаервол, антивирусы не устанавливал. Т.е., сборка с mingw запускается, а с tdm-gcc нет ? Я собирал только с официальным mingw, mingw64 и bcc, и все успешно. Насчет tdm-gcc ничего не могу сказать. А что говорит по этому поводу event viewer ?
Pasha: К слову. Копирую из своего лога: 07/01/11 20:24:31: LetoDB service has had some problems Это я по недосмотру собрал сервер без -D__WIN_SERVICE__, служба уже была инсталлирована ранее, пытался ее запустить, и конечно получил по заслугам
AlexMyr: Пересобрал официальным mingw, проблема осталась: 07/13/11 10:07:08: LetoDB service has had some problems В event viewer ничего нет
AlexMyr: Собрал без -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.
Pasha: AlexMyr пишет: Собрал без -D__WIN_SERVICE__, Для windows надо собирать или с флагом __WIN_SERVICE__ или с __WIN_DAEMON__
AlexMyr: собрал с -prgflag={win}-D__WIN_DAEMON__ #-prgflag={win}-D__WIN_SERVICE__ заработало
Pasha: А сервис letodb ни на каком компьютере не запускается ?
Pasha: Службу я надеюсь вы инсталлировали ? Т.е. letodb install ?
AlexMyr: Pasha пишет: А сервис letodb ни на каком компьютере не запускается ? Letodb крутится на win98 и на win server 2003 еще старая версия (я уже не помню какой сборки). Pasha пишет: Службу я надеюсь вы инсталлировали ? Т.е. letodb install ? Нет, просто запускал, как всегда. А где шла речь о letodb install, м.б. я пропустил этот момент?
Pasha: Семен Семеныч ! Дык службу надо сначала инсталлировать А потом запускать из Панель управления - Администрирование - Службы Разобрались :)
AlexMyr: Pasha пишет: Разобрались :) Так, собрал с #-prgflag={win}-D__WIN_DAEMON__ -prgflag={win}-D__WIN_SERVICE__ потом letodb install, перезапустил комп, все работает. Спасибо.
sashaBG: Привет ! Тестирую 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
Pasha: sashaBG пишет: второй browse() почемуто пустой ?! с APPEND FROM дело похожее а может я чтото не так делаю ! P.S. в ST версии LeoDB все работает. Поправил. На клиенте изменился протокол для этой команды, а сервер не отрабатывал это изменение.
Pasha: Переименовал (вернул) letodb.lib(a) в rddleto.lib(a). Думаю, так будет лучше, все rdd-либы Harbour имеют префикс rdd Добавил пару строк под комментарием в качестве примера, как собрать клиентскую shared-библиотеку (dll/so/dylib/sl)
полная версия страницы