Отправлено: 31.01.08 11:36. Заголовок: Leto DB Server

Только что открыл на Sourceforge новый проект - Leto DB Server - https://sourceforge.net/projects/letodb

Это мультиплатформенный ( Windows, Unix/Linux ) сервер баз данных, предоставляющий клиентским программам доступ к dbf/cdx файлам, находящимся на удаленном сервере ( можно и на локальном компьютере запускать - в отладочных целях ). В общем, как ADS :).

Проект - на стадии разработки, не все даже базовые функции еще реализованы, до оптимизации дело еще не дошло. Но работает :).
Крутится у меня на сервере несколько дней, подключал до 15 клиентов, пока не падает. Мои программы работают с ним нормально.

Преимущества по сравнению с обычным файл-сервером:
1) Безопасность - базы могут быть в каталоге, недоступном для клиентских компьютеров - никто их случайно не удалит и не повредит.
2) Поскольку базы открываются серверной программой, а не клиентской, ее целостности ничего не грозит при случайном отключении клиентского компьютера.
3) значительное уменьшение сетевого траффика.
4) Должен быть, по идее, выигрыш в скорости.
5) Возможность контроля за пользователями с помощью утилиты manage ( можно придумать и другие формы контроля ).
6) Можно будет сделать транзакции, stored procedures на Харборе, ... и вообще все в наших руках :).

Кто хочет участвовать в разработке, тестировании - пишите.

 Отправлено: 31.01.08 11:42. Заголовок: А NTX-ы поддерживает..

А NTX-ы поддерживает ? А программный код дорабатывать нужно и насколько ?
А то у меня есть задачка на Clipper-е, которая реально работает 10 лет в сети, и нагрузка приличная. Можно было бы потестировать, да и быстродействие сравнить.

 Отправлено: 31.01.08 12:52. Заголовок: Добавьте меня, пожал..

Добавьте меня, пожалуйста
Мой account на sourceforge - ptsarenko
Кстати, где собираетесь вести обсуждение проекта ? Будут ведь не только русскоязычные разработчики

 Отправлено: 31.01.08 12:54. Заголовок: Прямо сейчас ntx не ..

Прямо сейчас ntx не поддерживает, хотя добавить это дело не сложно - просто сам уже много лет ntx'ами не пользуюсь и не понимаю зачем они нужны, если есть cdx :). Но раз есть спрос - добавлю.

 Отправлено: 31.01.08 13:00. Заголовок: Мой account на sourc..

цитата:

Мой account на sourceforge - ptsarenko

Добавил.

цитата:

Кстати, где собираетесь вести обсуждение проекта ? Будут ведь не только русскоязычные разработчики

Да на том же Sourceforge - там 3 форума по умолчанию открыто. И mail list можно там же запустить, если нужда будет.

 Отправлено: 31.01.08 13:06. Заголовок: КСС пишет: А програ..

КСС пишет:

цитата:

А программный код дорабатывать нужно и насколько ?

Нет, просто как обычно вставить строчки для этого RDD:

REQUEST LETO
RDDSETDEFAULT( "LETO" )

Ну и, конечно, пути указать с учетом пути к серверу, например:

//192.168.5.3:2812/data/mydir

 Отправлено: 31.01.08 16:52. Заголовок: alkresin пишет: Кто..

alkresin пишет:

цитата:

Кто хочет участвовать в разработке, тестировании - пишите.

Я хочу, мой е-майл: 30195@mail.ru

Если этот сервер сравним с ADS (мне транзакции не нужны) и переделка программ минимально, то я готов потратить деньги предприятия на него (для ADS-денег нет, тогда пускай родного разработчика поддержат).
У меня стоит остро вопрос разгрузки файл-сервера. 15-16 рабочих мест (каждый юзер запускает 2-3 мои задачи [~180-файлов в каждой] и еще штук 8-10 докуменов одновременно) и 2-х ядерный P4 начинает тормозить.

 Отправлено: 31.01.08 21:52. Заголовок: Сделал небольшие изм..

Сделал небольшие изменения для сборки под xharbour
Александр, подскажите, что это может быть и где копать

Соединяюсь локально, WinXP
Сначала пытаюсь создать файл:

Local cFile := '//127.0.0.1:2812/e/hb/test/_first'

dbCreate(cFile, {{'STR', 'C', 20, 0}})
выдается ошибка
Error LETO/1021 Data type error: -011:20

при открытии тоже:

dbUseArea(.t.,, '//127.0.0.1:2812/e/hb/test/account')

Error LETO/1021 Data type error: -003:21

 Отправлено: 01.02.08 00:41. Заголовок: Pasha пишет: Сделал..

Pasha пишет:

цитата:

Сделал небольшие изменения для сборки под xharbour

А у меня не собирается под хХарбором !
Подскажи пожалуйста где и что править (я не слишком силен в этом)....

 Отправлено: 01.02.08 09:23. Заголовок: Что за ошибка при сб..

Что за ошибка при сборке ? Если на HB_FT_IMAGE, это значит, что обновление на CVS еще недоступно. Обновись еще раз, Changelog должен быть 1.2

 Отправлено: 01.02.08 09:57. Заголовок: Changelog уже 1.3 Ал..

Changelog уже 1.3
Александр, на use и dbCreate у меня остались ошибки

 Отправлено: 01.02.08 10:15. Заголовок: Касательно возвращае..

Касательно возвращаемого кода ( 003:21, 011:20 ) - это временная система для обозначения ошибок.
Если стоит вот такое, это значит, что после двоеточия - стандартный код ошибки при выполнении операции на сервере, описанный в error.ch
В нашем случае - 20 - EG_CREATE, 21 - EG_OPEN, что не очень информативно :).
А e/ у вас в пути - это каталог ?

 Отправлено: 01.02.08 10:31. Заголовок: Andrey пишет: А у м..

Andrey пишет:

цитата:

А у меня не собирается под хХарбором ! Подскажи пожалуйста где и что править (я не слишком силен в этом)....

Изменения, сделанные Pasha, отправил по email.
Надо будет новый build сделать.

 Отправлено: 01.02.08 10:32. Заголовок: Это диск. Кстати, ка..

Это диск. Кстати, как надо указывать каталог с диском для win-сервера ?
А как быть, если нет статического IP-адреса сервера ?
если указать
dbUseArea(.t.,, '//servername:2812/e/letodb/test')
Выдается ошибка 101
Я конечно подсмотрел адрес через ping, поставил:
dbUseArea(.t.,, '//192.168.0.216:2812/e/letodb/test')
Но все равно Выдается ошибка 101
Т.е. ругается функция leto_getIpFromPath, не может выделить адрес 192.168.0.216

 Отправлено: 01.02.08 10:33. Заголовок: alkresin пишет: Над..

alkresin пишет:

цитата:

Надо будет новый build сделать.

Может быть, выкладывать собранные letodb.exe и letodb.lib прямо на sourceforge, для тех, кто не скачивает с CVS ?

 Отправлено: 01.02.08 11:09. Заголовок: Это диск. Кстати, ка..

цитата:

Это диск. Кстати, как надо указывать каталог с диском для win-сервера ?

Вот поэтому и ошибка. Весь путь, начиная с '/' после номера порта передается на сервер, сервер добавляет его к содержимому "DataPath", прописанному в ini - файле ( если есть ) и использует для открытия файла.
Поэтому, если обязательно нужен диск, попробуйте форму //127.0.0.1:2812/e:/hb/test/_first, а лучше - пропишите в letodb.ini
DataPath = e:/hb
и тогда при открытии: //127.0.0.1:2812/test/_first

По поводу имени вместо ip я проверю

 Отправлено: 01.02.08 11:11. Заголовок: Может быть, выкладыв..

цитата:

Может быть, выкладывать собранные letodb.exe и letodb.lib прямо на sourceforge, для тех, кто не скачивает с CVS ?

Исходники там выложены в секции Download. Бинарник сервера тоже можно выложить, а вот rddleto.lib - не вижу смысла, потому что тогда придется кучу их выкладывать, для разных С и Харбор компиляторов, их версий

 Отправлено: 01.02.08 11:16. Заголовок: С адресами как ваш 1..

С адресами как ваш 192.168.0.216, действительно, глупая ошибка была в leto_getIpFromPath() - уже поправил на CVS

 Отправлено: 01.02.08 11:25. Заголовок: Хочу принять участие..

Хочу принять участие в тестировании . orsv04@mail.ru

 Отправлено: 01.02.08 11:26. Заголовок: Блин, никак не могу ..

Блин, никак не могу найти исправления, вижу только
letodb-0.1.src.zip Mirror 56682 0 Platform-Independent Source .zip

Или я что-то не догоняю ?

 Отправлено: 01.02.08 11:31. Заголовок: На email же отправил..

На email же отправил

 Отправлено: 01.02.08 11:34. Заголовок: Ура ! Есть первый ко..

Ура ! Есть первый коннект

Для windows-сервера:
letodb.ini (должен быть на сервере)
DataPath = e:/hb/test

Должен быть прямой слеш

соединяюсь:
dbUseArea(.t.,, '//127.0.0.1:2812/test')

Но выплыла еще ошибка:
? FieldPos('First')

Выдает 1

А обращение по имени поля:
? First

Переменная не существует First

Если указать:

? Field->First

То все нормально

Вроде бы rdd тут ни при чем
Или я что-то не понимаю, или это какая-то особенность harbour (я тестирую пока с ним, до xHb дело еще не дошло)

 Отправлено: 01.02.08 11:34. Заголовок: Хочу принять участие..

цитата:

Хочу принять участие в тестировании . orsv04@mail.ru

Ну, email для этого не нужен. Лучше всего, забирай исходники с CVS - это нетрудно или подожди чуть - я исправленный zip выложу на Sourceforge как build2

 Отправлено: 01.02.08 11:37. Заголовок: А обращение по имени..

цитата:

А обращение по имени поля: ? First Переменная не существует First Если указать: ? Field->First То все нормально

Странно, я всегда именно так и указываю, без field->

 Отправлено: 01.02.08 11:42. Заголовок: Проверь тот же тест ..

Проверь тот же тест с dbfcdx, без сервера

 Отправлено: 01.02.08 11:44. Заголовок: alkresin пишет: На ..

alkresin пишет:

цитата:

На email же отправил

Получил, тоже не собирается.

 Отправлено: 01.02.08 11:51. Заголовок: Какая ошибка ? Что в..

Какая ошибка ?
Что в make_b32.log ?

 Отправлено: 01.02.08 11:53. Заголовок: Pasha пишет: Что в ..

Pasha пишет:

цитата:

Что в make_b32.log ?

MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
bcc32 -c -Iinclude;Z:\xHarbour\include -d -D__WIN32__ -oobj\b32\leto1.obj source\client\leto1.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\client\leto1.c:
Warning W8065 source\client\leto1.c 336: Call to function 'leto_NetName' with no prototype in function leto_ConnectionNew
Warning W8069 source\client\leto1.c 336: Nonportable pointer conversion in function leto_ConnectionNew
Warning W8004 source\client\leto1.c 1162: 'ptr' is assigned a value that is never used in function letoPutValue
Warning W8065 source\client\leto1.c 1383: Call to function 'hb_setGetCPtr' with no prototype in function letoCreate
Error E2342 source\client\leto1.c 1383: Type mismatch in parameter 'sSource' (wanted 'signed char *', got 'int') in function letoCreate
Warning W8065 source\client\leto1.c 1541: Call to function 'hb_setGetCPtr' with no prototype in function letoOpen
Error E2342 source\client\leto1.c 1541: Type mismatch in parameter 'sSource' (wanted 'signed char *', got 'int') in function letoOpen
Error E2451 source\client\leto1.c 1639: Undefined symbol 'uiFlags' in function letoOpen
Warning W8057 source\client\leto1.c 1812: Parameter 'pOrderInfo' is never used in function letoOrderListAdd
Warning W8057 source\client\leto1.c 1834: Parameter 'pOrderInfo' is never used in function letoOrderListDelete
Warning W8057 source\client\leto1.c 2009: Parameter 'pOrderInfo' is never used in function letoOrderDestroy
*** 3 errors in Compile ***

** error 1 ** deleting obj\b32\leto1.obj

 Отправлено: 01.02.08 11:54. Заголовок: alkresin пишет: Про..

alkresin пишет:

цитата:

Проверь тот же тест с dbfcdx, без сервера

Та же ошибка. Вопрос снят. Наверное, дело в ключах компилятора

 Отправлено: 01.02.08 11:55. Заголовок: Andrey пишет: MAKE ..

Andrey пишет:

цитата:

MAKE Version 5.2 Copyright (c) 1987, 2000 Borland bcc32 -c -Iinclude;Z:\xHarbour\include -d -D__WIN32__ -oobj\b32\leto1.obj source\client\leto1.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\client\leto1.c: Warning W8065 source\client\leto1.c 336: Call to function 'leto_NetName' with no prototype in function leto_ConnectionNew

Это было в первоначальном варианте, исправлено еще вчера

 Отправлено: 01.02.08 11:57. Заголовок: А, дошло В makefile...

А, дошло
В makefile.bc сними комментарий со строки
# XHARBOUR = yes

 Отправлено: 01.02.08 12:00. Заголовок: Может быть, выклады..

цитата:

Может быть, выкладывать собранные letodb.exe и letodb.lib прямо на sourceforge, для тех, кто не скачивает с CVS

САМОЕ оптимальное

 Отправлено: 01.02.08 12:02. Заголовок: Pasha пишет: В make..

Pasha пишет:

цитата:

В makefile.bc сними комментарий со строки # XHARBOUR = yes

Нет там такой строчки, вообще !!!

 Отправлено: 01.02.08 12:07. Заголовок: Значит, у тебя стары..

Значит, у тебя старые сырцы

 Отправлено: 01.02.08 12:17. Заголовок: Pasha пишет: Значит..

Pasha пишет:

цитата:

Значит, у тебя старые сырцы

А где взять новые ?

Там только:
letodb-0.1.src.zip Mirror 56682 0 Platform-Independent Source .zip

 Отправлено: 01.02.08 12:35. Заголовок: Сделал еще одно испр..

Сделал еще одно исправление, теперь можно и по имени сервер называть:

use //MYSERVER:2812/data/test.dbf

 Отправлено: 01.02.08 12:36. Заголовок: Андрей, опять выслал..

Андрей, опять выслал по email patch.zip

 Отправлено: 01.02.08 12:40. Заголовок: Vlad04, вопрос в том..

Vlad04, вопрос в том, какую именно rddleto.lib выкладывать, их же может быть много разных - для Harbour, xHarbour, WIndows, Linux, Borland C, MS Visual C и пр. С компиляторы, посчитайте число возможных комбинаций :).
Поэтому проще выложить исходники - одни на все случаи жизни.

 Отправлено: 01.02.08 15:01. Заголовок: Changelog'и пост..

Changelog'и постим в https://sourceforge.net/forum/forum.php?forum_id=779825 - форум "Developers" на Sourceforge.

 Отправлено: 01.02.08 16:52. Заголовок: Проверил я его сегод..

Проверил я его сегодня на "старых" версиях [x]Harbour - до ноября 2007 и обнаружил, что с ними есть проблемы. Буду разбираться, а пока, если у вас Harbour не с CVS, не торопитесь тестировать.

 Отправлено: 01.02.08 20:13. Заголовок: Теперь работает и на..

Теперь работает и на "старых" версиях, изменения выложены на CVS

 Отправлено: 01.02.08 21:15. Заголовок: Александр, не могу р..

Александр, не могу разобраться
При открытии таблицы под xHb на клиенте в leto1.c leto_ParseRec после строки 401
на pField = pArea->lpFields; происходит gpf при любом обращении к pField->any,
такое впечатление, что память не выделена под pArea->lpFields. xHarbour с CVS.
Еще одна мелочь. В console.prg замените ExeName() на HB_Argv(0), чтобы не
прилинковывать тулз. Я сам не стал, по changelog увидел, что модуль обновлялся
сегодня, а у меня еще версии 1.1

 Отправлено: 01.02.08 23:21. Заголовок: Память под pArea-..

Память под pArea->lpFields выделяется в верхнем слое RDD - workarea.c, hb_waSetFieldExtent() ( вызов SELF_SETFIELDEXTENT из letoOpen() ).
Она может быть не выделена, если в вызове SELF_SETFIELDEXTENT стоит 0 полей - это может произойти, если неправильно интерпретированы данные с сервера. А может случиться, что память была выделена, но потом значение указателя чем-то затерто.

 Отправлено: 02.02.08 10:34. Заголовок: Выяснил, что gpf воз..

Выяснил, что gpf возникает только на xHb CVS, на старой (июльской) весии ок
Делаю scope, еще не постил. Передаю команду на сервер, и на сервере отрабатываю
DBOI_SCOPETOP, DBOI_SCOPETOPCLEAR итд. Это правильный подход ? Еще не сбрасывал на CVS, проверяю
Как лучше делать DBOI_KEYVAL ? Вычислять на клиенте или запрашивать с сервера ?
Для DBOI_KEYSIZE думаю добавить еже один элемент в LETOTAGINFO. Правильно ?

Увидел такую несовместимость. После OrdListAdd() в dbfdcx автотматически устанавливается 1-й индекс, а в letodb надо еще выдавать dbSetOrder(1)

 Отправлено: 02.02.08 15:10. Заголовок: Нашел, в чем проблем..

Нашел, в чем проблема со свежим xHarbour. Вот она:

2008-01-10 11:47 UTC+0100 Miguel Angel Marchuet <miguelangel/at/marchuet.net>

Он изменил базовую структуру rdd AREA, зараза!

А в каждом RDD ( в т.ч. и у нас - rddleto.h ) эта структура дублируется, и в конце добавляются специфичные для этого RDD поля.
Что с этим делать, чтоб с предыдущими версиями xHarbour использовалась старая структура, а с новейшей - новая, я пока не знаю.

цитата:

Делаю scope, еще не постил. Передаю команду на сервер, и на сервере отрабатываю DBOI_SCOPETOP, DBOI_SCOPETOPCLEAR итд. Это правильный подход

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

цитата:

Как лучше делать DBOI_KEYVAL ? Вычислять на клиенте или запрашивать с сервера ?

На клиенте. Все, что можно, надо делать на клиенте, чтоб не загружать сервер лишней работой.

цитата:

Для DBOI_KEYSIZE думаю добавить еже один элемент в LETOTAGINFO. Правильно ?

Угу.

 Отправлено: 02.02.08 15:28. Заголовок: alkresin пишет: Учт..

alkresin пишет:

цитата:

Учти, что на сервере открывается одна копия таблицы для всех, и если ты установишь там scope, то он и у других пользователей, использующих эту таблицу, появится - представляю себе их удивление :).

Понятно. Я этого не заметил. Значит, буду делать по другому, так, как сделан bFilter
Relations тоже прийдется отрабатывать на сервере

 Отправлено: 02.02.08 15:32. Заголовок: alkresin пишет: Наш..

alkresin пишет:

цитата:

Нашел, в чем проблема со свежим xHarbour. Вот она: 2008-01-10 11:47 UTC+0100 Miguel Angel Marchuet <miguelangel/at/marchuet.net> Он изменил базовую структуру rdd AREA, зараза!

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

 Отправлено: 02.02.08 15:42. Заголовок: Не было там резервны..

Не было там резервных полей. Он вставил новое поле до lpfields и 2 - после. Поэтому workarea.c присваивает значение lpfields, а у нас оно попадает в другое место, lpfields остается неинициализированным.
И дело не в том, свежие сырцы или нет. Если б он это не сейчас сделал, а 3 месяца назад, какая разница ? Все равно - с одной версией работало б, с другой - нет.
Придется, наверное, 2 экземпляра rddleto.h держать и примечание оставить для пользователей xHarbour > 10.01.08, чтоб переименовывали свое xrddleto.h в rddleto.h ...

 Отправлено: 02.02.08 17:44. Заголовок: Добавил scope..

Добавил scope

 Отправлено: 02.02.08 21:53. Заголовок: Добавил OrdKeyVal()..

Добавил OrdKeyVal()

 Отправлено: 03.02.08 13:16. Заголовок: Александр, я столкну..

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

Сделал отдельный модуль на клиенте: letomgmt.c:

#include "hbapi.h"
#include "rddleto.h"


int leto_getIpFromPath( char * sSource, char * szAddr, int * piPort, char * szPath );
LETOCONNECTION * leto_ConnectionFind( char * szAddr, int iPort );
LETOCONNECTION * leto_ConnectionNew( char * szAddr, int iPort );
long int leto_Recv( HB_SOCKET_T hSocket );
char * leto_firstchar( void );
int leto_getCmdItem( char ** pptr, char * szDest );

static int leto_DataSendRecv( LETOCONNECTION * pConnection, char * sData, ULONG ulLen )
{
if ( hb_ipSend( pConnection->hSocket, sData, (ulLen)? ulLen:strlen(sData), -1, 1 ) <= 0 )
{
return 0;
}
return leto_Recv( pConnection->hSocket );
}

HB_FUNC( LETO_FILE )
{
LETOCONNECTION * pConnection;
char szFile[_POSIX_PATH_MAX + 1];
char szAddr[96];
int iPort;

if( ISCHAR(1) && leto_getIpFromPath( hb_parc(1), szAddr, &iPort, szFile ) &&
( ( pConnection = leto_ConnectionFind( szAddr, iPort ) ) ||
( pConnection = leto_ConnectionNew( szAddr, iPort) ) ) )
{
char szData[_POSIX_PATH_MAX + 16];

sprintf( szData,"file;%s;\r\n", szFile );

if ( !leto_DataSendRecv( pConnection, szData, 0 ) )
{
hb_retl( FALSE );
}
else
{
char * ptr = leto_firstchar();
leto_getCmdItem( &ptr, szData ); ptr ++;

hb_retl( szData[0] == 'T' );
}

}
else
hb_retl( FALSE );
}

снял static с используемых функций в leto1.c. Чтобы не добавлять LETO_FILE к rdd. Ok ?
Или организовать клиентскую библиотеку по другому ?
Сейчас отлаживаю

на сервере написал:

ELSEIF cItem == "file"
cReply := hs_file( oUser,Substr(cCommand,nPos1+1) )

...

Function hs_file( oUser,cCommand )
Local cFile, nPos := 1
IF Empty( cFile := GetCmdItem( cCommand,nPos,@nPos ) )
Return "-002"
ENDIF
Return "+" + File(oApp:DataPath+cFile)


Вообще, хорошо бы для сервера windows, да и для самбы сделать поиск IP-адреса по сетевому пути, если подключен сетевой диск. Это возможно ?
Было бы как в ADS
В целом, получается неплохо. И интернет-сервер (аналог AIS), и сервер по ЛВС в одном флаконе

 Отправлено: 03.02.08 19:40. Заголовок: Добавил LETO_FILE() ..

Добавил LETO_FILE() - аналог File(), а также обработку OrdBugExt() и OrdNumber()

 Отправлено: 03.02.08 22:27. Заголовок: Отлично! Я сам плани..

Отлично! Я сам планировал эту функцию сделать, а, может, и другие файловые - в ADS мне их сильно не хватало.
Вот только static int leto_DataSendRecv() по-моему, не стоило делать, надо использовать ту, что есть из leto1.c - избегаем дублирования кода и, главное, желательно, чтобы все функции, работающие непосредственно с сокетом, были собраны в одном месте - легче потом менять в случае чего.
И насчет scope - я считаю, что нет нужды возвращать тип и значение scope с сервера, все это прекрасно клиент сам может определить, зачем же сервер зря утруждать ...

цитата:

Вообще, хорошо бы для сервера windows, да и для самбы сделать поиск IP-адреса по сетевому пути, если подключен сетевой диск. Это возможно ?

Сделать то можно, раз ADS смогли :), но не знаю как. И, вообще-то, считаю это ненужным и даже вредным с точки зрения безопасности данных.
Все известные мне DBMS используют имя сервера/ip, порт, имя базы и таблиц, для доступа к данным, а где именно хранится база, пользователь не знает и знать не должен - это важное преимущество подобных систем. У тебя никогда не случалось, что пользователь случайно удалял данные с сервера, просто щелкая мышкой по окну файлового менеджера ? У меня было ... Поэтому важно, чтобы каталог с данными не был расшарен - и то, что наш сервер позволяет скрыть данные, я считаю существенным преимуществом.
А ADS позволяет это в силу исторических причин, он ведь начинался с версии для Novell 3.12 и IPX протокола.

 Отправлено: 03.02.08 22:53. Заголовок: alkresin пишет: Вот..

alkresin пишет:

цитата:

Вот только static int leto_DataSendRecv() по-моему, не стоило делать, надо использовать ту, что есть из leto1.c - избегаем дублирования кода и, главное, желательно, чтобы все функции, работающие непосредственно с сокетом, были собраны в одном месте - легче потом менять в случае чего. И насчет scope - я считаю, что нет нужды возвращать тип и значение scope с сервера, все это прекрасно клиент сам может определить, зачем же сервер зря утруждать ...

ok, переделаю

 Отправлено: 04.02.08 11:14. Заголовок: alkresin пишет: Поэ..

alkresin пишет:

цитата:

Поэтому важно, чтобы каталог с данными не был расшарен - и то, что наш сервер позволяет скрыть данные, я считаю существенным преимуществом.

Поддерживаю обеими руками !!! Сколько я намучился с SHARED папками, это можно целые рассказы писать....

 Отправлено: 04.02.08 11:20. Заголовок: Да, Pasha, поставь н..

Да, Pasha, поставь на letomgmn.c свой копирайт - ты же его original author.

 Отправлено: 04.02.08 11:43. Заголовок: Есть вопрос, не отно..

Есть вопрос, не относящийся к Leto DB
Можно ли сделать локализацию самого компилятора ?
Я пытался найти процедуру, проверяющую допустимость идентификатора, но безуспешно. Вернее, нашел, но не везде. Может быть, используются средства bison ?
Для чего это надо. Например, при использовании Ole многие классы поддерживают поля и методы с русскими идентификаторами. Аналогично в dbf-файлах могут быть русские имена полей. Напрашивается добавить эти средства в сам компилятор, то есть добавить возможность сборки с определенной кодовой страницей
Во многих языках уже есть поддержка национальных идентификаторов. Старые бастионы падают. Длинные идентификаторы, локализация... Почему не сделать такое и для харбора ?

 Отправлено: 04.02.08 13:05. Заголовок: В смысле, названия п..

В смысле, названия переменных и полей db - на русском, или что-то еще ?

 Отправлено: 04.02.08 13:17. Заголовок: alkresin пишет: В с..

alkresin пишет:

цитата:

В смысле, названия переменных и полей db - на русском, или что-то еще ?

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

Leto. По поводу StoredProc: мысль такая. Подготовить модуль в виде hrb-файла на сервере
По команде с клиента загружать-выгружать его. Отдельная команда на вызов функции из этого модуля с передачей параметров и возвратом результата
На сервере перед вызовом функции из hrb устанавливать все окружение каждой открытой РО для этого пользователя: номер записи, фильтр итд.
Запоминать это состояние. После отработки функции передавать на клиент кроме результата еще и новое состояние изменившихся РО. На клиенте его отрабатываеть
Какие будут идеи ?

Кстати, Pritpal Bedi не говорил, чем он собирается заниматься ? Чтобы мы не делали одно и тоже.
Я, к примеру, думаю начать делать relations

 Отправлено: 04.02.08 13:52. Заголовок: Только алиасы РО на ..

Только алиасы РО на сервере и на клиенте будут отличаться. Нужна будет функция для получения истинного алиаса

 Отправлено: 04.02.08 15:16. Заголовок: Да, и не более того...

цитата:

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

Ну что тут сказать ... Если кто-то заинтересован в таком локализованном компиляторе, пусть делает. Подними этот вопрос в developer'ском листе - может, кто заинтересуется. Лично я как-то привык уже, что имена переменных, команд, функций - на английском, мне это кажется удобным - легко отличать их от текстовых строк на русском. А программа с русскими идентификаторами показалась бы, пожалуй, неудобочитаемой... С полями в база вопрос еще интереснее - тогда ведь программы на других xBase диалектах не смогут открыть такой файл. Я бы такими средствами локализации не пользовался.

По stored procedures надо еще подумать. Может, стоит восстанавливать состояние РО после выполнения ? Сначала, мне кажется, надо реализовать схему запуска процессов и межпроцессного взаимодействия - мы же не будем выполнять их основным процессом, они могут быть достаточно длительными. Значит, загружать/выгружать hrb будет как раз тот дополнительный процесс.

О намерениях Pritpal Bedi ничего не знаю, он со мной после запроса write access не контактировал. Сегодня, кстати, обратился Miguel Angel Marchuet ( он сейчас один из основных контрибуторов в xHarbour ? ) - я его сразу озадачил той проблемой с изменением workarea :).

По алиасам - это предусмотрено:

имя алиаса, как его знает клиент, передается из letoOpen() сразу после имени файла - т.е., должно передаваться, сейчас там пустая строка.
И на сервере оно читается, но никак не используется. Надо будет создать HSArea:cAlias и присвоить ему это значение.

 Отправлено: 04.02.08 21:42. Заголовок: Переделал scope, отп..

Переделал scope, отправил на CVS

Одну свою большую программу с letodb так и не смог запустить, не открывается 5-й по порядку открытия файл. Непонятно почему, имя задано правильно. 4 файла БД с индексом открылись успешно
Ошибка в лог:
02/04/08 19:14:46: Open error (12-1001): e:/db/test/com/people_
Если вместо people_.dbf путаюсь открыть другой файл, выдается ошибка с таким же кодом
Непонятно. Пока отставил, запустил другую программу. БД открылась успешно ! Большинство режимов работают, но не все
Иногда программа зависает, иногда выдает ошибку на различных операциях
Пока не локализовал, разбираюсь. Результат считаю хорошим, я на это так быстро и не расчитывал
Пока тестовые примеры c ошибками не даю, попытаюсь разобраться сам

 Отправлено: 04.02.08 22:43. Заголовок: 02/04/08 19:14:46: O..

цитата:

02/04/08 19:14:46: Open error (12-1001): e:/db/test/com/people_

А точно 12-1001 ? Может, 21-1001 ? Ведь 12 == EG_NOFUNC, вроде ни при чем ?
А вообще странно. У меня никаких проблем нет, все программы, что скомпилил - работают, файлов по 10 открывают ( у меня больше не бывает обычно ).

 Отправлено: 04.02.08 23:28. Заголовок: Я скопировл из лога...

Я скопировл из лога. Покопаюсь сам, странная ситуация
У меня тоже другая программа всю БД без проблем открыла

Одну ошибку локализовал
dbSeek(space(n)) попадает в server.prg на

IF Empty( xKey := GetCmdItem( cCommand,nPos+1,@nPos ) )
Return "-002"
ENDIF

Надо вычислять длину ключа и передавать ее вместе с ключем. И учитывать, что сам ключ может содержать нулевой байт. Т.е в leto_SendRecv надо передавать размер пакета напрямую, а не вычислять по strlen()

 Отправлено: 04.02.08 23:54. Заголовок: Как правильно создав..

Как правильно создавать индекс в OrdCreate, если его надо создать в том же каталоге, что и dbf ? Передавать имя файла индекса без //ip-adr:port/... ?
Должна ли учитываться настройка DataPath в letodb.ini ?
Наверное, надо добавить oApp:DataPath в hs_createindex

ordCreate( oApp:DataPath+cBagName,cTagName,cKey,&("{||"+cKey+"}"),lUnique )

 Отправлено: 05.02.08 09:37. Заголовок: Надо вычислять длину..

цитата:

Надо вычислять длину ключа и передавать ее вместе с ключем. И учитывать, что сам ключ может содержать нулевой байт. Т.е в leto_SendRecv надо передавать размер пакета напрямую, а не вычислять по strlen()

Сделаю.

Насчет OrdCreate:
//ip-adr:port/ и так на сервер не передается.
Если имя индекса передано с путем, то надо добавлять oApp:DataPath, если без, то нужна дополнительная проверка: если имя индекса совпадает с именем dbf, то не добавляем oApp:DataPath ( он автоматически размещается там же, где и dbf ), если другое имя - то добавляем.

 Отправлено: 05.02.08 10:20. Заголовок: Ясно Александр, а ка..

Ясно
Александр, а как насчет создания вычисляемых readonly полей ? CalcFields дали бы существенное сокращение траффика для случая, когда в основной таблице содержится код (например) справочника, и надо выбрать его наименование
Такое есть в sql-запросах, но до них еще далеко. Такие выборки эффективнее, чем relations, так как будет использоваться данные одной, а не 2-х РО, без лишних seek и выборки данных записи
Это были бы ф-ии вида:

AddCalcField(cFieldName, cFieldType, nLen, nDec, cAlias, cKeyExpr, cRelField)
динамически добавляет поле
DelCalcField(cFieldName)
удаляет

 Отправлено: 05.02.08 10:42. Заголовок: Хм... Виртуальное по..

Хм... Виртуальное поле, вычисляемое на сервере из логически связанных таблиц ? Очень интересная идея. Мне нравится.

 Отправлено: 05.02.08 11:19. Заголовок: Ну да Примерно такое..

Ну да
Примерно такое есть в Delphi-TDataset, правда там оно не вычисляется на сервере

 Отправлено: 05.02.08 11:36. Заголовок: Я смогу заниматься l..

Я смогу заниматься letodb до конца этой недели. Думаую повылавливать мелкие несовместимости. Затем примерно 2 недели меня не будет, и потом подключусь опять, где-то с конца февраля

 Отправлено: 05.02.08 12:13. Заголовок: http://www.letodb.or..

http://www.letodb.org/ - Спасибо Патрику ( Patrick Mast )

 Отправлено: 05.02.08 12:28. Заголовок: Предполагаемые напра..

Предполагаемые направления работы:

1) Тестирование, тестирование, тестирование ...
2) Проверить, что еще осталось не сделанным из базовых функций - и сделать. Первые претенденты - ordListAdd, ordListClear, ordListDelete - после них можно будет сделать поддержку ntx. Ну и relations, конечно.
3) Насколько это возможно и целесообразно, код сервера должен быть переписан на C, особенно вот это :

IF cItem == "skip"
...
ELSEIF cItem == "seek"
...
4) Процессы и, возможно, потоки. Я подумал, что можно было бы реализовать потоки на уровне С - это должно быть не сложным, и тогда можно будет разгрузить основной поток, передав туда, например, посылку ответов.
5) С использованием процессов и потоков - реализация транзакций, stored procedures, ...
6) Ну и расширения разные, типа вот этих виртуальных полей

 Отправлено: 05.02.08 13:08. Заголовок: Судя по всему автори..

Судя по всему авторизация, и все с ней связанное, в LetoDB не предполагается ?

 Отправлено: 05.02.08 13:33. Заголовок: Предполагается. В in..

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

 Отправлено: 05.02.08 13:45. Заголовок: alkresin пишет: шту..

alkresin пишет:

цитата:

штука-то довольно простая в реализации

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

 Отправлено: 05.02.08 15:07. Заголовок: Честно говоря, я не ..

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

 Отправлено: 05.02.08 15:08. Заголовок: alkresin пишет: 4) ..

alkresin пишет:

цитата:

4) Процессы и, возможно, потоки. Я подумал, что можно было бы реализовать потоки на уровне С - это должно быть не сложным, и тогда можно будет разгрузить основной поток, передав туда, например, посылку ответов.

А какими средствами, если не использовать mt xHb ?
Тем более, надо расчитывать и на unix, и на windows - сервер

 Отправлено: 05.02.08 15:10. Заголовок: Pasha, я скинул на C..

Pasha, я скинул на CVS изменения, чтоб работало со свежим xHarbour, не мог бы проверить ?

 Отправлено: 05.02.08 15:12. Заголовок: alkresin пишет: пос..

alkresin пишет:

цитата:

после них можно будет сделать поддержку ntx.

Отдельные rdd выделять не будем ? Сделать что-то вроде LetoConnection(...), и в качестве параметра - используемый rdd ?

Еще необходимы Request на используемые кодовые страницы, но это еще на этапе сборки сервера

 Отправлено: 05.02.08 15:16. Заголовок: А какими средствами,..

цитата:

А какими средствами, если не использовать mt xHb ? Тем более, надо расчитывать и на unix, и на windows - сервер

Написать.
В xHarbour эти средства большие и сложные, потому что надо было обеспечить корректную работу vm, стека и пр. в условиях mt. Здесь же можно сделать запуск потока только на С уровне, чтобы функция, работающая в этом потоке, не трогала Харборовский стек. Мне кажется, что это не особенно трудоемкое дело.

 Отправлено: 05.02.08 15:17. Заголовок: alkresin пишет: Pas..

alkresin пишет:

цитата:

Pasha, я скинул на CVS изменения, чтоб работало со свежим xHarbour, не мог бы проверить ?

Я с работы на CVS не достучусь. Разве что через browse cvs скачивать Вечером получу только.
Это для текущих сырцов, как я понимаю ?

 Отправлено: 05.02.08 15:20. Заголовок: Отдельные rdd выделя..

цитата:

Отдельные rdd выделять не будем ? Сделать что-то вроде LetoConnection(...), и в качестве параметра - используемый rdd ?

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

 Отправлено: 05.02.08 15:21. Заголовок: Это для текущих сырц..

цитата:

Это для текущих сырцов, как я понимаю ?

Да.

 Отправлено: 05.02.08 15:34. Заголовок: К разговору о перспе..

К разговору о перспективах:

очень заманчиво выглядит возможность использовать это дело для доступа к данным на сервере с мобильного устройства ( КПК, смартфона ).
У ADS нет ведь клиентских библиотек для доступа с их серверу, а у нас теперь есть.
Лежишь на пляже и проверяешь, сколько тебе зарплаты начислили :), или добавляшь запись в специальную таблицу, а stored proc ее обрабатывает и предпринимает соответствующие действия, например, сообщения рассылает.

 Отправлено: 05.02.08 15:43. Заголовок: Сделать харбор для s..

Сделать харбор для symbian, что ли ? :)

 Отправлено: 05.02.08 15:53. Заголовок: Выглядит очень заман..

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

 Отправлено: 05.02.08 16:04. Заголовок: Сделать харбор для s..

цитата:

Сделать харбор для symbian, что ли ?

Харбор уже работает на мобильных устройствах под Windows Mobile. Просто прилинковать Leto RDD и - вперед. Хотя, конечно, надо еще проверить, как оно будет работать с Интернет - соединением.

 Отправлено: 05.02.08 16:06. Заголовок: Поскольку, к примеру..

цитата:

Поскольку, к примеру, stored proc - фактически полноценное приложение, я себе смутно представляю, как обеспечить безопасность данных на сервере.

Вопрос, конечно, серьезный. Но, с другой стороны, stored proc ведь не любой пользователь помещает, а администратор, он должен знать, что делает.

 Отправлено: 05.02.08 16:59. Заголовок: alkresin пишет: о, ..

alkresin пишет:

цитата:

о, с другой стороны, stored proc ведь не любой пользователь помещает, а администратор, он должен знать, что делает

Да, но сервер должен знать, что он именно с администратором общается

 Отправлено: 05.02.08 18:23. Заголовок: Это если помещать че..

Это если помещать через клиентскую программу и RDD. А если их может разместить только администратор руками на сервере, а клиент может только запустить на исполнение по имени - это уже другая ситуация.

 Отправлено: 05.02.08 19:30. Заголовок: alkresin пишет: Pas..

alkresin пишет:

цитата:

Pasha, я скинул на CVS изменения, чтоб работало со свежим xHarbour, не мог бы проверить ?

Все заработало

 Отправлено: 05.02.08 20:30. Заголовок: Отлично! Значит, мож..

Отлично! Значит, можно build2 делать.

 Отправлено: 05.02.08 20:37. Заголовок: Какая-то проблема с ..

Какая-то проблема с блокировками

select order
dbAppend()
Field->Type:='01'
dbcommit()
dbunlock()

rlock()
Field->Stock:='01'
dbcommit()
dbunlock()

вываливается на 2-м коммите

Ошибка LETO/1021 Data type error: -015
Алиас ORDER
Вызов из DBCOMMIT(0)

 Отправлено: 05.02.08 21:08. Заголовок: Разобрался я с мисти..

Разобрался я с мистическим 5-м файлом :)

В индексном выражении было обращение к StrZero. А к серверу эта функция не подлинкована. Добавил Request

С этим надо что-то делать. Нужен какой-то джентльменский набор функций. Можно хотя бы взять из описания Ads список поддерживаемых функций, да и еще добавить своих, харборовских :)

 Отправлено: 05.02.08 21:48. Заголовок: Такой набор функций ..

Такой набор функций

Request ;
ABS,;
ALLTRIM,;
AT,;
CHR,;
CTOD,;
DATE,;
DAY,;
DELETED,;
DESCEND,;
DTOC,;
DTOS,;
EMPTY,;
I2BIN,;
L2BIN,;
LEFT,;
LEN,;
LOWER,;
LTRIM,;
MAX,;
MIN,;
MONTH,;
PAD,;
PADC,;
PADL,;
PADR,;
RAT,;
RECNO,;
RIGHT,;
ROUND,;
RTRIM,;
SPACE,;
STOD,;
STR,;
STRZERO,;
SUBSTR,;
TIME,;
TRANSFORM,;
TRIM,;
UPPER,;
VAL,;
YEAR

И специфика Ads

/*
Ads-specific functions
Request ;
CONTAINS,;
COLLATE,;
CTOT,;
CTOTS,;
LOWERW,;
NOW,;
REVERSE,;
STOTS,;
TODAY,;
TSTOD,;
UPPERW
*/

Добавляем ?

 Отправлено: 05.02.08 22:14. Заголовок: Какая-то проблема с ..

цитата:

Какая-то проблема с блокировками

Исправил.

цитата:

Добавляем ?

Добавляем.

 Отправлено: 05.02.08 22:40. Заголовок: Seek ведет себя по-д..

Seek ведет себя по-другому
Если тип ключа не совпадает с типом индекса, то dbfcdx просто возвращает .f., а letodb поднимает ошибку

 Отправлено: 05.02.08 22:53. Заголовок: теперь с блокировкам..

теперь с блокировками порядок

 Отправлено: 05.02.08 23:20. Заголовок: На сегодня я иссяк :..

На сегодня я иссяк :) Список багов исчерпан

 Отправлено: 06.02.08 00:30. Заголовок: alkresin пишет: что..

alkresin пишет:

цитата:

чтоб работало со свежим xHarbour, не мог бы проверить ?

Я хочу проверить, но так и не собрал ничего на хХарборе !
Сам ехе-ник letodb.exe собрался, а из папки "manager" не собирается, требует библиотеку 'HBCT.LIB'
и сборка сама для HARBOUR'a ...

 Отправлено: 06.02.08 10:22. Заголовок: Небольшая инструкция..

Небольшая инструкция по использованию ( по просьбе Андрея ).

1) Сервер предназначен для работы c dbf/cdx файлами ( ntx тоже добавим ), расположенными на севере в локальной сети или Интернете. На своем локальном компьютере его имеет смысл использовать только для проверки и отладки.

2) Чтобы запустить сервер, просто запустите letodb.exe ( letodb - в Linux ) из того каталога, который вы для него выберите. После запуска сервер не создает окна, а просто размещается в памяти, при этом создается запись в letodb.log, расположенном по умолчанию в каталоге, откуда сервер запущен. В этот же лог пишутся сообщения об остановке сервера, о проблемах при открытии/создании dbf, и аварийные сообщения, если сервер вдруг слетит ( не должен :) ).
Останавливается сервер командой letodb.exe stop.

3) При необходимости можно создать файл letodb.ini в каталоге запуска сервера ( под Linux - можно еще в /etc ). В настоящее время поддерживаются следующие опции (указаны значения по умолчанию):
Port = 2812 - номер порта
DataPath = - каталог с базами
Log = letodb.ini - путь и имя журнала
Lower_Path = 0 - для Linux, 1 - если надо переводить пути и имена файлов в нижний регистр.

Если указан DataPath, то он будет добавляться к пути при открытии файла. Например,

DataPath = d:\data

a открываете файл вы командой

USE "192.168.3.5:2812/dbsklad/test"

В этом случае сервер будет открывать файл d:\data\dbsklad\test.dbf

4) Чтобы скомпилировать вашу программу для работы с Leto db, надо:
a) добавить в список библиотек rddleto.lib
b) добавить в программу 2 строчки:
REQUEST LETO
RDDSETDEFAULT( "LETO" )
в) откорректировать пути к базам с учетом имени/ip сервера и порта. Если у вас в программах пути задаются где-то в одном месте, лучше - в ini файле или в параметрах, передаваемых программе, это сделать легко и просто.
В идеальном случае после этого ваша программа должна заработать с Leto db сервером ( у меня почти сразу так и получилось ), в реальном - возможны проблемы, т.к. не все функции еще реализованы.

5) Если вы запустили сервер на локальном компьютере, то путь должен быть: //127.0.0.1:2812/...

6) По утилитам в каталоге utils/manage:

bld.bat предназначен для компиляции manage.prg - GUI утилита, для сборки нужен HwGUI.
Консольная утилита console.prg собирается вашими стандартными средствами, которыми вы собираете свои одно-файловые программы, надо только добавить rddleto.lib в список библиотек.

 Отправлено: 06.02.08 10:34. Заголовок: Выложил на Sourcefor..

Выложил на Sourceforge build2 - поправлены все несовместимости с разными версиями Harbour/xHarbour, поисправлены некоторые ошибки, добавлены некоторые базовые функции.

 Отправлено: 06.02.08 10:42. Заголовок: Andrey пишет: и сбо..

Andrey пишет:

цитата:

и сборка сама для HARBOUR'a

Здесь можно поспорить
По крайней мере названия библиотек не согласуются с Harbour SVN.

Но это же не проблема - поменять название библиотеки, добавить или удалить что-то..

 Отправлено: 06.02.08 15:20. Заголовок: Andrey пишет: Сам е..

Andrey пишет:

цитата:

Сам ехе-ник letodb.exe собрался, а из папки "manager" не собирается, требует библиотеку 'HBCT.LIB' и сборка сама для HARBOUR'a ...

Так где ж ее взять ???

 Отправлено: 06.02.08 15:26. Заголовок: В xHarbour она назыв..

В xHarbour она называется ct.lib - надо исправить в bld.bat

 Отправлено: 06.02.08 16:05. Заголовок: Понял, спасибо ! Тол..

Понял, спасибо ! Только я в Harbour'e не нашел HBCT. Хотя он у меня свежий.

 Отправлено: 06.02.08 16:09. Заголовок: Andrey, я так думаю,..

Andrey, я так думаю, что тестировать нужно сервер, не manager. Тем более у тебя такие планы были..

 Отправлено: 06.02.08 16:11. Заголовок: Harbour библиотека H..

Harbour библиотека HBCT находится в contrib.

 Отправлено: 06.02.08 16:15. Заголовок: alkresin пишет: Log..

alkresin пишет:

цитата:

Log = letodb.ini - путь и имя журнала

Поправочка ! Строка должна иметь вид:
Log = letodb.log

 Отправлено: 06.02.08 16:30. Заголовок: Понял, спасибо ! Тол..

цитата:

Понял, спасибо ! Только я в Harbour'e не нашел HBCT. Хотя он у меня свежий.

Свежий - это откуда ? C SVN ? Строил из исходников ? Тогда чтоб построить hbct.lib, надо зайти в contrib/hbct и там запустить make_32.bat

 Отправлено: 06.02.08 17:41. Заголовок: Andrey пишет: Так г..

Andrey пишет:

цитата:

Так где ж ее взять ?

Выложил готовую к использованию сборку LetoDB по адресу:

http://minigui.mylivepage.ru/file/?fileid=4563

Тестировал в локальном варианте на простом консольном примере:

//----------------------------------------------------------------------------//

Function Main()

REQUEST LETO
RDDSETDEFAULT( "LETO" )

USE "//192.168.0.63:2812/data/test"

Browse()

USE

Return nil

//----------------------------------------------------------------------------//

Программа работает, хотя и тормозит в Browse на Win98
Консольный manager также нормально работает при нажатии 1-2-3

 Отправлено: 06.02.08 21:02. Заголовок: Скачал билд2. Собра..

Скачал билд2.
Собрал хХарбором letodb.exe и библиотеку.
Сделал тестовый пример на Ххарборе, тот что Филатов выше выложил.
только пути другие: USE "//127.0.0.1:2812/@/data/test"
Запускаю сервер, далее тест получаю:
Error LETO/1021 Data type error: -003:21-1001 |

Останавливаю все. Беру сборку Филатова, запускаю свой пример на хХарборе, база открывается, броуз показывает.
Что делать ???

И по ходу, а где хранится история открытия баз, когда и кем (с какой машины) она была открыта ?
И еще у Филатова, сервер нигде не отображается, ни в трее, ни в окне, ни где. Это не есть ХОРОШО !

 Отправлено: 06.02.08 22:39. Заголовок: Еще бы сделать, чтоб..

Еще бы сделать, чтобы для seek передавался произвольный ключ. А сейчас, к примеру, ключ, содержащий символ ';', будет обрезан

что-то вроде в letoSeek:

if( ( bType = leto_ItemType( pKey ) ) != pArea->pTagCurrent->KeyType )
{
sprintf( szData,"goto;%d;-3;%s;\r\n", pArea->hTable,
(pArea->pTagCurrent)? pArea->pTagCurrent->TagName:"" );
if ( !leto_SendRecv( pArea, szData, 0, 1021 ) ) return FAILURE;
}
else
{
USHORT uiTemp;
uiKeyLen = letoKeyToStr( pArea, szKey, bType, pKey );
sprintf( szData,"seek;%d;%s;%c%c;", pArea->hTable,
(pArea->pTagCurrent)? pArea->pTagCurrent->TagName:"",
(bSoftSeek)? 'T':'F', (bFindLast)? 'T':'F' );
uiTemp = strlen(szData);
*(USHORT *) (szData + uiTemp) = uiKeyLen;
memcpy(szData + uiTemp + 2, szKey, uiKeyLen);
memcpy(szData + uiTemp + 2 + uiKeyLen, "\r\n", 2);
szData[uiTemp + 4 + uiKeyLen] = '\0';

if ( !leto_SendRecv( pArea, szData, uiTemp + 4 + uiKeyLen, 1021 ) ) return FAILURE;
}

и в hs_seek

IF Empty( nId := Val( GetCmdItem( cCommand,1,@nPos ) ) )
Return "-002"
ENDIF
IF Empty( cOrder := GetCmdItem( cCommand,nPos+1,@nPos ) )
Return "-002"
ENDIF
IF Empty( cFlags := GetCmdItem( cCommand,nPos+1,@nPos ) )
Return "-002"
ENDIF
nKeyLen := Bin2I(Substr( cCommand, nPos+1, 2))
xKey := Substr( cCommand, nPos+3, nKeyLen )


только в этом коде вываливается gpf на *(USHORT *) (szData + uiTemp) = uiKeyLen;
не пойму почему

 Отправлено: 07.02.08 09:45. Заголовок: Andrey пишет: тольк..

Andrey пишет:

цитата:

только пути другие: USE "//127.0.0.1:2812/@/data/test"

А что такое /@ ?

 Отправлено: 07.02.08 10:02. Заголовок: Pasha пишет: Еще бы..

Pasha пишет:

цитата:

Еще бы сделать, чтобы для seek передавался произвольный ключ. А сейчас, к примеру, ключ, содержащий символ ';', будет обрезан

Надо. Ключ ведь теоретически и несимвольный может быть, и с 0 - как ты сам писал раньше. Поэтому тут для передачи надо использовать ту же схему, которая используется для передачи записи.
Ты, наверное, уже заметил, что посылка ( в обоих направлениях ) сделана в двух форматах:
1) Простая символьная , признак конца - \r\n
2) Та, что может содержать несимвольную информацию - это когда запись передается с сервера или поля для записи в базу на сервер ( в char полях ведь что угодно может быть ) - в этом случае каждое символьное поле предваряется байтами с его длиной и в начале всей посылки стоит информация о ее длине ( \r\n могут ведь и char поле случайно встретиться ) в таком формате:
1 байт - N количество байтов с информацией о длине посылки (до 10)
N байт - длина посылки в специальном формате - функция leto_n2b() ( и leto_b2n() - для обратного преобразования ). Я не использую здесь стандартные функции, потому что формат хранения числа на клиенте и на сервере может быть разным, в зависимости от железа/ОС.

 Отправлено: 07.02.08 11:01. Заголовок: Понятно Может, сдела..

Понятно
Может, сделать для seek двоичную структуру пакета, когда на сервере процедура обработки seek будет переписана на C ?

 Отправлено: 07.02.08 12:15. Заголовок: Да нет, я сегодня сд..

Да нет, я сегодня сделаю, наверное.

 Отправлено: 07.02.08 22:45. Заголовок: Немного поправил исп..

Немного поправил использование каталогов при открытии и создании файлов

 Отправлено: 08.02.08 11:08. Заголовок: У меня есть такая фу..

У меня есть такая функция - реструктуризация таблицы (выполняется, естественно, монопольно)
Для ее работы необходимы файловые операции rename/delete
Добавляем ? И как быть с безопасность данных ?

 Отправлено: 08.02.08 12:27. Заголовок: Pasha пишет: Добавл..

Pasha пишет:

цитата:

Добавляем ? И как быть с безопасность данных ?

Мое мнение,
так же как и в случае со stored proc, сначала нужно разобраться с управлением пользователей.
Т.е. перед выполнением любого запроса/действия нужно убедиться, уполномочен ли обьект установивший подключение на выполнение таких действий.

 Отправлено: 08.02.08 13:10. Заголовок: Петр пишет: Мое мне..

Петр пишет:

цитата:

Мое мнение, так же как и в случае со stored proc, сначала нужно разобраться с управлением пользователей.

Есть предложения, как это реализовать ?

 Отправлено: 08.02.08 14:16. Заголовок: Добавляем. По безопа..

Добавляем. По безопасности - важно то, что эти операции можно сделать только с помощью Leto, т.е.:
1) если это предусмотрел автор программы ( а не рядовой user, не знающий куда деть руки ), а он должен знать, что делает
2) эти операции не опаснее, чем zap, например
3) авторизацию на сервере мы, так или иначе, сделаем - и там в опциях можно будет указать, например, что на удаление/переименование имеет право только админ.

 Отправлено: 08.02.08 15:18. Заголовок: alkresin пишет: Доб..

alkresin пишет:

цитата:

Добавляем. По безопасности - важно то, что эти операции можно сделать только с помощью Leto, т.е.: 1) если это предусмотрел автор программы ( а не рядовой user, не знающий куда деть руки ), а он должен знать, что делает 2) эти операции не опаснее, чем zap, например 3) авторизацию на сервере мы, так или иначе, сделаем - и там в опциях можно будет указать, например, что на удаление/переименование имеет право только админ.

То что все операции делаются с помощью серверов - это понятно.
По первому пункту - знать то он должен, а на практике..

Если мы считаем операцию ZAP небезопасной - мы можем на сервере ее и не выполнять. Закрыть таблицу, переименовать в какой-то dbf.bak и создать новую с именем и структурой прежней - быстрый бэкап, или более медленный - сохранить каким либо образом все данные и сделать ZAP.

Только я вот не понял - в существующем варианте letodb допускает конкурирующих юзерей или нет?

По третьему пункту - если этим никто еще не занимается, то я могу внести на рассмотрение свои предложения, правда только после того как решу проблему гриппа..

 Отправлено: 08.02.08 17:40. Заголовок: Петр пишет: По трет..

Петр пишет:

цитата:

По третьему пункту - если этим никто еще не занимается

Я не занимаюсь

 Отправлено: 08.02.08 19:36. Заголовок: Только я вот не поня..

цитата:

Только я вот не понял - в существующем варианте letodb допускает конкурирующих юзерей или нет?

Да.

цитата:

По третьему пункту - если этим никто еще не занимается, то я могу внести на рассмотрение свои предложения,

Ждем.