Отправлено: 04.05.15 22:44. Заголовок: Вопросы новичка...

Взял последнюю версию с "Новая страница с бинарниками", установил на Win2008 Server, чуток помучился с портом...
Собрал на МиниГуи+BCC 551 - \MiniGui\batch\hbmk2.bat rddleto.hbp
Получил rddleto.lib - 131072 байт - правильный ли размер ?
И еще Warning-и лезут:
lib\.hbmk\win\bcc\rddsys.c:
source\client\letocl.c:
source\client\leto1.c:
source\client\letomgmn.c:
source\common\blowfish.c:
source\common\common_c.c:
source\common\hbip.c:
TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation
/P32 lib\rddleto.lib -+ lib\.hbmk\win\bcc\rddsys.obj -+ lib\.hbmk\win\bcc\letocl.obj -+ lib\.hbmk\win\bcc\leto1.obj -+ lib\.hbmk\win\bcc\letomgmn.obj -+ lib\.hbmk\win\bcc\blowfish.obj -+ lib\.hbmk\win\bcc\common_c.obj -+ lib\.hbmk\win\bcc\hbip.objWarning: 'rddsys' not found in library
Warning: 'letocl' not found in library
Warning: 'leto1' not found in library
Warning: 'letomgmn' not found in library
Warning: 'blowfish' not found in library
Warning: 'common_c' not found in library
Warning: 'hbip' not found in library

Так должно быть или нет ?

Вопрос сразу напрашивается с путями - как писать правильно "\" или "/" :
Local cPathServer := "//127.0.0.1:2812/"
cPathServer := cPathServer +"DATE_TEST_PATH\test.dbf"

Помню что где то обсуждали, а результат не запомнил...

 Отправлено: 04.05.15 22:56. Заголовок: Пиши "пионера..

Пиши "пионера"

 Отправлено: 04.05.15 23:24. Заголовок: Andrey пишет:Получил..

Andrey пишет:

цитата:

Получил rddleto.lib - 131072 байт - правильный ли размер ?

у меня rddleto.lib - 134656 (сечас пересобрал). Собираю:
@echo off
cls
echo ... wait ...
set path=e:\minigui\harbour\bin;c:\borland\bcc55\bin;
if exist .\bin\letodb.exe del .\bin\letodb.exe > nul
if exist .\bin\.hbmk\win\bcc\*.obj del .\bin\.hbmk\win\bcc\*.obj > nul

hbmk2.exe -info -comp=bcc -trace rddleto.hbp letodb.hbp > _hbmk2.txt

протокол:Скрытый текст

hbmk2: Autodetected platform: win hbmk2: Using Harbour: e:\minigui\harbour\bin e:\minigui\harbour\include e:\minigui\harbour\lib e:\minigui\harbour\bin e:\minigui\harbour\contrib e:\minigui\harbour\addons hbmk2: Using C compiler: c:\borland\bcc55\bin\bcc32.exe hbmk2: Target up to date: lib\rddleto.lib hbmk2: Autodetected platform: win hbmk2: Using Harbour: e:\minigui\harbour\bin e:\minigui\harbour\include e:\minigui\harbour\lib e:\minigui\harbour\bin e:\minigui\harbour\contrib e:\minigui\harbour\addons hbmk2: Using C compiler: c:\borland\bcc55\bin\bcc32.exe hbmk2: Compiling Harbour sources... hbmk2: Harbour compiler command (embedded): (e:\minigui\harbour\bin\harbour.exe) -n2 source\server\server.prg -n -w -q0 -es2 -D__BM -D__WIN_SERVICE__ -obin\.hbmk\win\bcc\ -ic:\borland\bcc55\Include -ie:\minigui\harbour\include -iinclude hbmk2: Compiling... hbmk2: C/C++ compiler command: bcc32.exe -c -q -CP437 -d -O2 -OS -Ov -Oc -Oi -6 -D__WIN_SERVICE__ -D__BM -tW -tWM -w -Q -w-sig- -nbin\.hbmk\win\bcc -Ic:\borland\bcc55\Include -Ie:\minigui\harbour\include -Iinclude bin\.hbmk\win\bcc\server.c bin\.hbmk\win\bcc\errorsys.c bin\.hbmk\win\bcc\letobm.c bin\.hbmk\win\bcc\common.c bin\.hbmk\win\bcc\letoserv.c source\server\errint.c source\server\leto_win.c source\server\letoacc.c source\server\letovars.c source\server\letofunc.c source\server\letolist.c source\server\leto_2.c source\common\blowfish.c source\common\common_c.c bin\.hbmk\win\bcc\server.c: bin\.hbmk\win\bcc\errorsys.c: bin\.hbmk\win\bcc\letobm.c: bin\.hbmk\win\bcc\common.c: bin\.hbmk\win\bcc\letoserv.c: source\server\errint.c: source\server\leto_win.c: Warning W8004 source\server\leto_win.c 116: 'State' is assigned a value that is never used in function leto_ServiceControlHandler source\server\letoacc.c: source\server\letovars.c: source\server\letofunc.c: Warning W8012 source\server\letofunc.c 1348: Comparing signed and unsigned values in function leto_CheckClientVer source\server\letolist.c: source\server\leto_2.c: source\common\blowfish.c: source\common\common_c.c: hbmk2: Linking... bin\letodb.exe hbmk2: Linker command: ilink32.exe @C:\Users\MASTE_~1\AppData\Local\Temp\5eqzvd.lnk hbmk2: Linker script: -Gn -Tpe -Lc:\borland\bcc55\Lib;c:\borland\bcc55\Lib\PSDK;e:\minigui\harbour\lib -aa c0w32.obj bin\.hbmk\win\bcc\server.obj bin\.hbmk\win\bcc\errorsys.obj bin\.hbmk\win\bcc\letobm.obj bin\.hbmk\win\bcc\common.obj bin\.hbmk\win\bcc\letoserv.obj bin\.hbmk\win\bcc\errint.obj bin\.hbmk\win\bcc\leto_win.obj bin\.hbmk\win\bcc\letoacc.obj bin\.hbmk\win\bcc\letovars.obj bin\.hbmk\win\bcc\letofunc.obj bin\.hbmk\win\bcc\letolist.obj bin\.hbmk\win\bcc\leto_2.obj bin\.hbmk\win\bcc\blowfish.obj bin\.hbmk\win\bcc\common_c.obj, bin\letodb.exe, nul, rddbm.lib hbextern.lib hbdebug.lib hbvmmt.lib hbrtl.lib hblang.lib hbcpage.lib gtcgi.lib gtpca.lib gtstd.lib gtwin.lib gtwvt.lib gtgui.lib hbrdd.lib hbuddall.lib hbusrrdd.lib rddntx.lib rddcdx.lib rddnsx.lib rddfpt.lib hbrdd.lib hbhsx.lib hbsix.lib hbmacro.lib hbcplr.lib hbpp.lib hbcommon.lib kernel32.lib user32.lib gdi32.lib advapi32.lib ws2_32.lib iphlpapi.lib winspool.lib comctl32.lib comdlg32.lib shell32.lib uuid.lib ole32.lib oleaut32.lib mpr.lib winmm.lib mapi32.lib imm32.lib msimg32.lib wininet.lib hbpcre.lib hbzlib.lib cw32mt.lib import32.lib, , Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

 Отправлено: 05.05.15 00:13. Заголовок: Dima пишет: Пиши &#..

Dima пишет:

цитата:

Пиши "пионера"

 Отправлено: 05.05.15 00:54. Заголовок: Есть чуть меньше 100..

Есть чуть меньше 100 файлов справочников (весит меньше мегабайта).
Нужно периодически, два-четыре раза в месяц стаскивать эти справочники на локальную машину.
Вопрос, как лучше сделать, чтобы быстро это операция проходила ?
1) Вариант открывать каждую базу справочника на LetoDB и через транзакцию записывать на локальную машину.
2) Вариант копировать каждый файл справочника через LETO_MEMOREAD() и записывать на локальную машину.

Только как правильно можно реализовать 2-ой вариант ? Подскажите пожалуйста.

 Отправлено: 05.05.15 11:05. Заголовок: andrey пишет: цита..

andrey пишет:

цитата:

цитата: Пиши "пионера"

 Отправлено: 05.05.15 11:43. Заголовок: Теперь понял ! :sm5..

Теперь понял !

 Отправлено: 05.05.15 15:52. Заголовок: Andrey пишет: 1) Ва..

Andrey пишет:

цитата:

1) Вариант открывать каждую базу справочника на LetoDB и через транзакцию записывать на локальную машину. 2) Вариант копировать каждый файл справочника через LETO_MEMOREAD() и записывать на локальную машину.

Наверное, второй вариант быстрее. Впрочем, попробуйте, сравните.
В первом случае транзакции не помогут - они предназначены для записи данных. Для буферизации чтения после открытия каждого файла на сервере ставьте leto_setSkipBuffer( количество_записей_в_буфере ).

Для второго варианта

cBuf := leto_memoRead( путь/имя_файла)
hb_memowrit( путь/имя_файла, cBuf )

 Отправлено: 05.05.15 22:12. Заголовок: alkresin пишет: Для..

alkresin пишет:

цитата:

Для второго варианта cBuf := leto_memoRead( путь/имя_файла) hb_memowrit( путь/имя_файла, cBuf )

Спасибо БОЛЬШОЕ ! Буду пробовать этот вариант, мне он кажется проще.
А какой максимальный размер можно передать через cBuf ?

А если надо несколько (10) больших баз из сотни полей и общим весом 150-200 Мб переносить. Как быть в этом случае ?
Может там их на сервере zip-пом сжать (будет примерно 3 Мб), перетащить архив как файл, а уже на локальной машине распаковать и уже добавлять в локальные базы.

 Отправлено: 05.05.15 22:48. Заголовок: Andrey пишет: Может..

Andrey пишет:

цитата:

Может там их на сервере zip-пом сжать (будет примерно 3 Мб), перетащить архив как файл, а уже на локальной машине распаковать и уже добавлять в локальные базы.

Пробовать надо Андрей.

 Отправлено: 06.05.15 09:21. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А какой максимальный размер можно передать через cBuf ?

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

цитата:

Может там их на сервере zip-пом сжать ...

Вообще говоря, не вижу большого смысла использовать letodb для этих процедур. Если надо просто время от времени переписывать группу файлов, почему не использовать ftp или rsync, предназначенные именно для подобных целей.

 Отправлено: 06.05.15 10:49. Заголовок: alkresin пишет: не ..

alkresin пишет:

цитата:

не вижу большого смысла использовать letodb для этих процедур

Понятно. Просто эти функции хотелось бы сделать как дополнение.
А так основные базы буду переделывать под letodb.

 Отправлено: 13.05.15 22:54. Заголовок: Сделал чтение/запись..

Сделал чтение/запись справочников через файловые функции LETO_MemoRead/LETO_MemoWrite.
Тестовая база:
1) 70 файлов примерно общий весом 1 Мб.
2) Старенький нетбук Самсунг 10 дюймов экран, WinXP Home, сеть WiFi 54 Мб
3) Интернет WiFi - через сотовый телефон оператор МТС
4) Местонахождение - комп в г.Севастополе, сервер LetoDB в Москве
Скорость передачи всех файлов МЕНЬШЕ минуты !!! Классно !!!
Это я еще ставлю INKEGUI(100) для красоты прорисовки бегунка...

 Отправлено: 14.05.15 10:57. Заголовок: Andrey пишет:Сделал ..

Andrey пишет:

цитата:

Сделал чтение/запись справочников через файловые функции

Сделай Browse\TsBrowse на них (с ведением) и гонять никуда не надо. Проверено деревня под Питером (Билаин, МТС) клиент, сервер в Риге.

 Отправлено: 14.05.15 13:55. Заголовок: SergKis пишет: Сдел..

SergKis пишет:

цитата:

Сделай Browse\TsBrowse на них (с ведением) и гонять никуда не надо.

Это проба.
Browse\TsBrowse чуть позже буду делать, пока отдельную задачу реализовать надо, загрузка базы на локальную машину.
Пока пробую, привыкаю...

 Отправлено: 14.05.15 15:21. Заголовок: Сделал копирование б..

Сделал копирование баз с LetoDB на локальную машину.
10 файлов общим размером 136 Мб копируются на локальную машину за 2 мин. 33 сек.
Вот это скорость....
Нафиг нужны всякие fpt и другое если можно сделать самому для юзера.
Всё бросаю и перехожу на LetoDB !!!

 Отправлено: 19.05.15 22:07. Заголовок: Использую пока у себ..

Использую пока у себя гибрид:
1) главное меню МиниГуи (кнопочки, рюшечки ...), по кнопке вызывается
2) exe-ник терминалка (таблицы пока все в терминалке).
Терминалку конечно же переделаю, но времени на это много нужно.
Хочу сделать у себя отправку заказов сразу на LetoDB, т.е. правится таблица заказов на терминалке, передает НОМЕР ЗАПИСИ которая правилась юзером в главную программа на МиниГуи.
А главная программа отправляет эту запись в LetoDB.
Вопрос такой - как организовать передачу номера записи между своими программами ?
По таймеру не хочу... Программа многопользовательская.

 Отправлено: 20.05.15 12:25. Заголовок: Andrey пишет:Вопрос ..

Andrey пишет:

цитата:

Вопрос такой - как организовать передачу

Можно посмотреть в сторону сообщения WM_COPYDATA смотри:
SAMPLES\Applications\DbfView\source\userfun.prg
SAMPLES\Applications\RunCmd\RunCmd.prg
как сделать посылку из WVT не скажу (надо смотреть), мои такие изыскания закончились 2-мя вариантами,
т.к. менять wvt модуль надо полюбому, то вполне можно:
1. коннект с лето перенести туда и запись перебросить уже не проблемма (это практически одна ф-я с параметрами)
2. запускать на run (с отрывом) прогу, которая делает тоже самое в фоне

 Отправлено: 20.05.15 12:25. Заголовок: Andrey пишет:Вопрос ..

Andrey пишет:

цитата:

Вопрос такой - как организовать передачу

Можно посмотреть в сторону сообщения WM_COPYDATA смотри:
SAMPLES\Applications\DbfView\source\userfun.prg
SAMPLES\Applications\RunCmd\RunCmd.prg
как сделать посылку из WVT не скажу (надо смотреть), мои такие изыскания закончились 2-мя вариантами,
т.к. менять wvt модуль надо полюбому, то вполне можно:
1. коннект с лето перенести туда и запись перебросить уже не проблемма (это практически одна ф-я с параметрами)
2. запускать на run (с отрывом) прогу, которая делает тоже самое в фоне

 Отправлено: 20.05.15 16:43. Заголовок: SergKis пишет: 2. з..

SergKis пишет:

цитата:

2. запускать на run (с отрывом) прогу, которая делает тоже самое в фоне

У меня есть уже есть в фоне главная программа.
Как туда передать НОМЕР измененной записи и как принять это сообщение ?

SAMPLES\Applications\RunCmd\RunCmd.prg посмотрел и ни фига не понял...

 Отправлено: 20.05.15 17:13. Заголовок: Andrey пишет: Как т..

Andrey пишет:

цитата:

Как туда передать НОМЕР измененной записи и как принять это сообщение ?

глянь MiniGUI\SAMPLES\Advanced\HMGTALK\

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

 Отправлено: 24.05.15 13:00. Заголовок: Andrey пишет: Сдела..

Andrey пишет:

цитата:

Сделал копирование баз с LetoDB на локальную машину. 10 файлов общим размером 136 Мб копируются на локальную машину за 2 мин. 33 сек. Вот это скорость....

Сделал обратную процедуру копирование ОДНОЙ базы на LetoDB (сервер где-то в Москве).
База с мемо полями, общий вес 2,5 Мб - кол-во полей 12, из них 3 мемо поля. Кол-во записей 5000.
Время копирования на LetoDB - 8 мин.
А если будет 15000 записей ?
Блин... скорость не та... Пробовал делать через транзакции, программа виснет глухо, потом развисает.
База копируется, только поведение программы у юзеров будет
Что делать ?
Выгрузка на LetoDB нужна один раз для первоначальной работы, ну может и с некоторой периодичностью.
Не будешь же сидеть и ждать когда базы зальются у юзеров...

 Отправлено: 24.05.15 14:39. Заголовок: Andrey пишет: Время..

Andrey пишет:

цитата:

Время копирования на LetoDB - 8 мин

что то долго. какова скорость инета ?

 Отправлено: 24.05.15 15:21. Заголовок: Dima пишет: что то ..

Dima пишет:

цитата:

что то долго. какова скорость инета ?

Хорошее ! Это в коде что-то не так сделано. Доделаю пример выложу.

 Отправлено: 25.05.15 09:04. Заголовок: Подключение не ADSL ..

Подключение не ADSL случаем?

 Отправлено: 25.05.15 12:35. Заголовок: PSP пишет: Подключе..

PSP пишет:

цитата:

Подключение не ADSL случаем?

Обычное ! Быстрое...
Скачивание с сайта на ура, а запись на сервер - тормоза. Что-то в коде не указываю наверное...

 Отправлено: 25.05.15 13:23. Заголовок: Может там их на серв..

цитата:

Может там их на сервере zip-пом сжать (будет примерно 3 Мб), перетащить архив как файл, а уже на локальной машине распаковать и уже добавлять в локальные базы.

Достаточно добавить в server.prg строку:

Request __Run

и можно будет добавить в letoudf.prg функцию, которая бы вызывала внешний архиватор, и возвращала бы клиенту тело упакованного файла. Но такой способ мне не нравится, так как у клиентов появится возможность с помощью letodb запускать на сервере что угодно.

 Отправлено: 25.05.15 14:01. Заголовок: Pasha пишет: Reques..

Pasha пишет:

цитата:

Request __Run

А нельзя разве добавить request hb_zipfile и пожать средствами Harbour минуя внешний архиватор ?

 Отправлено: 25.05.15 14:05. Заголовок: Pasha пишет: Но так..

Pasha пишет:

цитата:

Но такой способ мне не нравится, так как у клиентов появится возможность с помощью letodb запускать на сервере что угодно

Сделать для админа, т.е. только для разработчика программ !
Клиентам такой возможности не давать. Т.е. создание архива и распаковка только программисту.

Dima пишет:

цитата:

А нельзя разве добавить request hb_zipfile и пожать средствами Harbour минуя внешний архиватор ?

Вот, вот внутренним архиватором - средствами Harbour !

 Отправлено: 25.05.15 14:24. Заголовок: Наверное, так и сдел..

Наверное, так и сделаю. Добавлю к серверу letodb модуль letozip.prg
Модуль будет необязательный, и, если его подключить при сборке сервера, будет добавлен соответствующий функционал.

 Отправлено: 25.05.15 14:43. Заголовок: Pasha пишет: Наверн..

Pasha пишет:

цитата:

Наверное, так и сделаю. Добавлю к серверу letodb модуль letozip.prg

Ура !!!

Pasha пишет:

цитата:

Модуль будет необязательный, и, если его подключить при сборке сервера

Обязательным ! Зачем подключать, добавка к коду небольшая.
Всем нужно будет потом, все оценят.... Можно будет архивы (картинки, .doc, .xls ) zip-ованые пересылать !

И примерчик небольшой С БЕГУНКОМ как использовать !
Спасибо БОЛЬШОЕ !

 Отправлено: 26.05.15 17:54. Заголовок: Всем привет ! Опять ..

Всем привет !
Опять уперся в стену.
Сделал программу на МиниГуи - скачивание баз с ЛетоДБ просто быстрый !
Делаю обратную программу загрузку ОДНОЙ базы на ЛетоДБ - тормоза. Ну думаю неправильно сделал, ан нет.
Спасибо ОГРОМНОЕ SergKis за помощь, он сделал классную тестовую программу.
Просто на Харборе - терминалка, считает мемо поля для размера буфера транзакции и
моя база просто загружается ВЛЁТ !
Вот тесты:
Transaction No
//18.15.100.50:1234/test/TestCopy.dbf Recno:4283 Время загрузки базы - 00:04:52

Transaction Yes
// расчет длины строки базы по мемо полям и по структуре базы:
{8, 8, 4, 25, 129, 187, 362, 40, 45, 40, 1, 10}
// длина записи - 860
//кол-во записей для расчета буфера транз. - 1000
// кол-во строк в буф. транз. - 700
// размер буфера транзакции - 860000
//18.15.100.50:1234/test/TestCopy.dbf Recno:4283 Время загрузки базы - 00:00:02
За 0,2 сек. база загружается на сервер.... Просто супер !
Делал и другие тесты, рабочая база 80 Мб с кучей мемо-полей загружается за 1 мин. 24 сек.

Компилировал исходник Харбором из поставки МиниГуи - последним,
Harbour 3.2.0dev (r1504082220), библиотеку LetoDB (letodb-2.15-b3.src.zip) тоже компилировал этим Харбором.
Сервер поставил готовый как службу из letodb-2.15-b3.bcc.zip

Переходим теперь к самой программе собранной на Harbour MiniGUI Extended Edition 2.4.6 - 2015.04.22
Она не особо большая, несколько менюшек, выгрузка для ЛетоДБ - ехе-ник размером 4 Мб.
Выгрузка базы без транзакции на МиниГуи занимае 8 мин.12 сек., хотя у тестовой программы 04:52, алгоритм одинаков.
Причем бегунок при загрузке замирает периодически... Но программа не вешается.
Перетащил алгоритм загрузки с ТРАНЗАКЦИЯМИ к себе заново, думал - полетит.... Ага, обломись...
С такими же параметрами как у тестовой программы база загружается... 5 минут ... и программа периодически просто вешается (выскакивает в поле окна Программа не отвечает)... Пробовал по совету SergKis уменьшать буфер транзакции, время выгрузки чуток увеличивается, и программа чуток меньше вешается...
Короче полный облом....

Кто пробовал делать загрузку файлов на сервер LetoDB на МиниГуи ?
Может дело в МиниГуи ? Поделитесь опытом, куда копать ?

 Отправлено: 26.05.15 18:35. Заголовок: Добавил на сервере l..

Добавил на сервере letodb 2 функции: leto_Zip и leto_UnZip
Собирать сервер надо командой:

hbmk2 -env:__ZIP=yes letodb.hbp

Как использовать эти функции - я написал в инструкции.

Андрей, а из-за чего весь сыр-бор ? Загрузка базы на сервер - это разовая операция, и какая разница, будет она выполняться очень быстро или просто быстро ?
letodb - это все-таки прежде всего СУБД, и зачем его перегружать несвойственными СУБД действиями ?

 Отправлено: 26.05.15 22:16. Заголовок: Pasha пишет: Андрей..

Pasha пишет:

цитата:

Андрей, а из-за чего весь сыр-бор ?

Да большая непонятка, на голом Харборе ВСЁ быстро, как переделываем на МиниГуи становиться МЕДЛЕННО....
Что там влияет... Ну хоть бы не за 0,2 сек но не за 5 минут же...
Это при базе всего в 5000 записей. А если будет 40000 то всё, можно идти обедать.
Согласен, разовая операция загрузка базы, боюсь как бы в другом месте тормоза не вылезли потом.
Нельзя там посмотреть, что такого в МиниГуи делается, что задача на транзакциях вешается ?

Может я неправильно собрал саму либу ? Я про это уже спрашивал.
Делал так \MiniGui\batch\hbmk2.bat rddleto.hbp Размер либы - 131072
Содержимое build.log
lib\.hbmk\win\bcc\rddsys.c:
source\client\letocl.c:
source\client\leto1.c:
source\client\letomgmn.c:
source\common\blowfish.c:
source\common\common_c.c:
source\common\hbip.c:
TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation
/P32 lib\rddleto.lib -+ lib\.hbmk\win\bcc\rddsys.obj -+ lib\.hbmk\win\bcc\letocl.obj -+ lib\.hbmk\win\bcc\leto1.obj -+ lib\.hbmk\win\bcc\letomgmn.obj -+ lib\.hbmk\win\bcc\blowfish.obj -+ lib\.hbmk\win\bcc\common_c.obj -+ lib\.hbmk\win\bcc\hbip.objWarning: 'rddsys' not found in library
Warning: 'letocl' not found in library
Warning: 'leto1' not found in library
Warning: 'letomgmn' not found in library
Warning: 'blowfish' not found in library
Warning: 'common_c' not found in library
Warning: 'hbip' not found in library
Где можно взять готовую и проверенную rddleto.lib на тесты ?

 Отправлено: 26.05.15 22:24. Заголовок: Andrey пишет: Делал..

Andrey пишет:

цитата:

Делал так \MiniGui\batch\hbmk2.bat rddleto.hbp Размер либы - 131072

Andrey пишет:

цитата:

на голом Харборе ВСЁ быстро

Либа то та же если я верно понял !? Если так , то она тут не причем.

Andrey пишет:

цитата:

Нельзя там посмотреть, что такого в МиниГуи делается

Что то в GUI фейсе делаешь не так , коли тормоза. По идее скорость не должна
сильно отличаться а в идеале должна быть одинакова что в консоли что в GUI.

Andrey пишет:

цитата:

Нельзя там посмотреть, что такого в МиниГуи делается, что задача на транзакциях вешается ?

Внутри транзакции надеюсь ты не воткнул обновление бегунка ?

 Отправлено: 26.05.15 23:13. Заголовок: Dima пишет: Внутри ..

Dima пишет:

цитата:

Внутри транзакции надеюсь ты не воткнул обновление бегунка ?

Нет конечно.
Dima пишет:

цитата:

Либа то та же если я верно понял !?

Да, собирал и консоль и МиниГуи с одной либой.

 Отправлено: 27.05.15 08:36. Заголовок: Есть смысл переделат..

Есть смысл переделать загрузку/выгрузку БД на сервер letodb через архивные операции, поскольку их поддержка уже сделана. Это будет самый быстрый способ.

 Отправлено: 27.05.15 09:45. Заголовок: Андрей, убирать бегу..

Андрей, убирать бегунок не пробовал ? Просто чтобы проверить, как он влияет на время ?

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

alkresin пишет:

цитата:

Андрей, убирать бегунок не пробовал ?

Совсем убирал. Так же подвисает и столько же времени проходит.
Дело всё таки в МиниГуи наверно. Сейчас доделаю тест и выложу, может что-то я не так делаю.

Pasha пишет:

цитата:

Есть смысл переделать загрузку/выгрузку БД на сервер letodb через архивные операции, поскольку их поддержка уже сделана. Это будет самый быстрый способ.

Спасибо БОЛЬШОЕ !!!

 Отправлено: 27.05.15 22:41. Заголовок: Пытаюсь пробовать Ts..

Пытаюсь пробовать TsBrowse из Минигуи со связкой LetoDb.
Как лучше организовать просмотр базы на LetoDB по условию ?
Допустим в базе есть числовое поле KOD, я построил индекс на локальном компе по этому полю (можно потом будет держать на сервере, это пока не важно).
Как задать показ в TsBrowse записи допустим по KOD==1 ?

Я всегда делал по условному индексу, было моментально. Хочу послушать как другие делают.
Можно с помощью фильтра:
cExp := "KOD==1"
DbSetFilter( &("{||" + cExp + "}"), cExp )

Что посоветуете ?

 Отправлено: 28.05.15 07:55. Заголовок: Как лучше организова..

цитата:

Как лучше организовать просмотр базы на LetoDB по условию ? Допустим в базе есть числовое поле KOD, я построил индекс на локальном компе по этому полю (можно потом будет держать на сервере, это пока не важно). Как задать показ в TsBrowse записи допустим по KOD==1 ?

Надо использовать scope

 Отправлено: 04.06.15 23:14. Заголовок: Вот сделал тестовые ..

Вот сделал тестовые программы - https://cloud.mail.ru/public/Lr52/WR9soGyFn
TEST_DBF.hbp - терминалка сделанная SergKis, я чуток подправил. Закачивает базу на сервер супер быстро.
Сборка под МиниГуи для терминалки.

DbftoServer.hbp - загрузка dbf на сервер. При dbf без мемо-полей, тоже летает. Как появляются мемо-поля, то всё - кранты на сервер качает ну просто с ТОРМОЗАМИ. Если сервер стоит локально (//127.0.0.1:2812/test/), то ТОМОЗОВ НЕТ !!!
Сборка под МиниГуи.

DbfFromServer.hbp - скачивает dbf с сервера. Быстро скачивает, есть мемо-поля, или нет - скорость хорошая.
Сборка под МиниГуи.

Тестовые базы тоже в архиве. Папка /test/ - на сервере должна быть обязательна.
Ну не знаю еще как выделить из пути (//127.0.0.1:2812/test/) папку для файлов....

Библиотеку rddleto.lib не выкладываю.

Просьба потестить примеры, может кто подскажет как ускорить загрузку dbf с мемо-полями ?
Вариант загрузки баз через архивные операции - буду пробовать.
А какой буфер для файловых операций использовать MAX можно ?
А то файл на 150 мб комп то прочитает, а сервер его примет ?

 Отправлено: 05.06.15 10:22. Заголовок: DbftoServer работает..

DbftoServer работает медленно с транзакциями или без ? Конечно, надо использовать транзакции.

 Отправлено: 05.06.15 10:33. Заголовок: Pasha пишет: DbftoS..

Pasha пишет:

цитата:

DbftoServer работает медленно с транзакциями или без ?

Работает (просто тормоза) с транзакциями. Программа просто подвисает и не регирует. Потом развисает, до окончания следующей транзакции.
В качестве примера загрузить с транзакцией Test2.dbf (без мемо полей) - будет очень быстро, а потом загрузить TestCop2.dbf ( с мемо полями) - ну просто тормоза... Загружать нужно не локально (//127.0.0.1:2812/test/), локально тоже быстро работает.
Хотя простой (терминалка) пример test_dbf.prg загружает базу с мемо-полями - просто на ура, очень быстро !
Алгоритм один и тот же. Харбор тоже одинаков. Разница: терминалка и МиниГуи.

 Отправлено: 05.06.15 10:58. Заголовок: Прогнал тест с транз..

Прогнал тест с транзакциями:

Локально - 3 сек
По сетке - 6 сек

Если без транзакций:

Локально - 13 сек
По сетке - 29 сек

 Отправлено: 05.06.15 11:32. Заголовок: Pasha пишет: Прогна..

Pasha пишет:

цитата:

Прогнал тест с транзакциями:

По сетке может будет и быстро. Я гонял тесты на внешний сервер. Даже на 2 внешних сервера.
Результат тормоза...

 Отправлено: 05.06.15 11:38. Заголовок: Андрей, есть утилита..

Андрей, есть утилита iperf. Она позволяет очень объективно оценить канал связи между двумя компьютерами. Если есть доступ к управлению удаленными серверами, проверь с помощью этой утилиты эффективность канала. Может соединение получается медленное.
В инете полно инфы. А так, вот простой пример: http://windowsnotes.ru/programs/izmeryaem-skorost-seti-programmoj-iperf/

 Отправлено: 05.06.15 12:11. Заголовок: PSP пишет: Может со..

PSP пишет:

цитата:

Может соединение получается медленное.

Спасибо БОЛЬШОЕ !
Буду тестить, а то действительно может и не там грабли нашёл....

 Отправлено: 06.06.15 13:07. Заголовок: Установил последний ..

Установил последний LetoDb (с zip) на другой сервер. Прогнал тесты и вот результаты:
База 60тыс.записей с кучей мемо-полей общим размером 118Мб загружается на сервер в 85 транзакций за 2:30
Я в ауте... Установил первый сервер LetoDB и попал на
Тот тест который долго проходил на первом сервеое LetoDB из 5000 записей и размером 3.3 Мб за 5 минут
проходит на новом сервере всего за 8 транзакции - 2 сек.
Вот такие тесты....
Все проблемы в установке первого сервера, хотя он и работает нормально.
Правда порт там длинный (30200), и нельзя ввести это число в утилиту manage.exe !
Просьба увеличить кол-во знаков ввода в утилиту manage.exe.
Как бороться/настроить Win2008 под моим первым LetoDB ? Кто может подсказать, что там нужно подкрутить ?

 Отправлено: 06.06.15 13:50. Заголовок: Andrey пишет: Прось..

Andrey пишет:

цитата:

Просьба увеличить кол-во знаков ввода в утилиту manage.exe.

Есть сырец http://www.kresin.ru/down/letodb/letodb-2.15-b3.src.zip , исправь и собери.

Andrey пишет:

цитата:

Тот тест который долго проходил на первом сервеое LetoDB из 5000 записей и размером 3.3 Мб за 5 минут

Чем отличаются сервера что такая большая разница ?

 Отправлено: 06.06.15 22:31. Заголовок: Dima пишет: Есть сыр..

Dima пишет:

цитата:

Есть сырец http://www.kresin.ru/down/letodb/letodb-2.15-b3.src.zip , исправь и собери.

Да нет у меня hwgui, не установлен. Да и другие тоже потом с этим (недостаток знака) столкнуться.

Первый сервер в Москве на Win2008 Sever порт 30200
Второй в моём городе на Win2012 Server порт 2812
Сегодня-завтра попробую установить сервер на Linux'e у знакомого.
Не знаю почему такая большая разница. Понял что дело не в LetoDB, а в самом сервере на котором он стоит.
Само LetoDB - отличная база ! Спасибо авторам !!!

 Отправлено: 06.06.15 22:54. Заголовок: Номер порта не при ч..

Номер порта не при чем я думаю. Возможно файер встроенный что то блочит или еще что.

 Отправлено: 06.06.15 23:47. Заголовок: Сервер LetoDb устано..

Сервер LetoDb установлен на CentOS release 6.5 (Final) - сам сервак на clodo.ru

1) База 5000 записей и размером 3.3 Мб проходит за 8 транзакции - 2 сек.
2) База 60 тыс.записей с кучей мемо-полей общим размером 118Мб загружается на сервер за 85 транзакций - 4:19
программа чуток подтормаживает, но всё равно классная скорость.
Вывод однозначен, в ТОРМОЗАХ при загрузке базы - виновата сама машина первого сервера, а не LetoDB.

 Отправлено: 07.06.15 13:27. Заголовок: Andrey пишет: Вывод..

Andrey пишет:

цитата:

Вывод однозначен, в ТОРМОЗАХ при загрузке базы - виновата сама машина первого сервера, а не LetoDB.

Установлен ли в letodb.ini на сервере параметр

Optimize = 1

Желательно его установить.

 Отправлено: 07.06.15 13:29. Заголовок: Pasha пишет: Устано..

Pasha пишет:

цитата:

Установлен ли в letodb.ini на сервере параметр Optimize = 1 Желательно его установить.

Нет не установлен.
Установлю и попробую.
Спасибо !

 Отправлено: 09.06.15 07:54. Заголовок: Просьба увеличить ко..

цитата:

Просьба увеличить кол-во знаков ввода в утилиту manage.exe.

Увеличил

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

Pasha пишет:

цитата:

Увеличил

Спасибо Большое !

 Отправлено: 10.06.15 17:15. Заголовок: Dima пишет: Понял ч..

Dima пишет:

цитата:

Понял что дело не в LetoDB, а в самом сервере на котором он стоит.

Финиш... Не трогал первый сервер несколько дней, решил попробовать отправить заново тест DbftoServer.ехе с танзакциями.
И о чудо тест прошёл за 2 сек. Пример пересобирал с уже новой библиотекой, с zip-ом (т.е. последняя).
Библиотеку собирал через Харбор из последнего МиниГуи. Библиотека собралась без ошибок.

Думаю дай попробую старую библиотеку ( letodb-2.15-b3.src.zip с сайта http://www.kresin.ru/letodb.html )
Пересобралась библиотека с предупреждениями:
lib\.hbmk\win\bcc\rddsys.c:
source\client\letocl.c:
source\client\leto1.c:
source\client\letomgmn.c:
source\common\blowfish.c:
source\common\common_c.c:
source\common\hbip.c:
TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation
/P32 lib\rddleto.lib -+ lib\.hbmk\win\bcc\rddsys.obj -+ lib\.hbmk\win\bcc\letocl.obj -+ lib\.hbmk\win\bcc\leto1.obj -+ lib\.hbmk\win\bcc\letomgmn.obj -+ lib\.hbmk\win\bcc\blowfish.obj -+ lib\.hbmk\win\bcc\common_c.obj -+ lib\.hbmk\win\bcc\hbip.objWarning: 'rddsys' not found in library
Warning: 'letocl' not found in library
Warning: 'leto1' not found in library
Warning: 'letomgmn' not found in library
Warning: 'blowfish' not found in library
Warning: 'common_c' not found in library
Warning: 'hbip' not found in library
И пример с этой библиотекой пять ушёл в ТОРМОЗА - закачка файла 6:24 !!!

Вернул новую библиотеку rddleto.lib, опять пересобрал пример.
И облом... Сервак теперь не работает !
Пример теперь уже новый тормозит на закачке базы с транзакциями.
После работы, буду перегружать сервер...
Одни непонятки...

А как получить номер версии библиотеки клиента rddleto.lib ?
Почему на сервере лог-файл читаешь написано: Leto DB Server v.2.15b3, а у себя в программе
запрашиваешь LETO_GETSERVERVERSION() - пишет Leto DB Server v.2.15 ?

 Отправлено: 11.06.15 10:42. Заголовок: Одни непонятки... ..

цитата:

Одни непонятки...

А параметр

Optimize = 1

установлен ? и сервер letodb после этого перегружался ? Надо сделать стоп-старт для службы letodb

цитата:

А как получить номер версии библиотеки клиента rddleto.lib ?

Вызвать
dbInfo(DBI_RDD_VERSION)

 Отправлено: 11.06.15 11:28. Заголовок: Pasha пишет: А пара..

Pasha пишет:

цитата:

А параметр Optimize = 1 установлен ?

Да, установил сразу же. Стоп-старт тоже было сделано !

Pasha пишет:

цитата:

Вызвать dbInfo(DBI_RDD_VERSION)

Сделал:
#include "rddleto.ch"
#include "letocdp.ch"
#include "dbinfo.ch"
cMsg := "Соединение для " + cPathServer + " - УСПЕШНО !;;"
cMsg += " Номер коннекта:" + HB_NtoS(LETO_GETCURRENTCONNECTION()) + ";"
cMsg += " Версия сервера:" + LETO_GETSERVERVERSION() + ";"
cMsg += "IP адрес клиента:" + LETO_GETLOCALIP() + ";"
cMsg += " Путь клиента:" + LETO_PATH() + ";"
cMsg += " Версия клиента:" + dbInfo(DBI_RDD_VERSION) + ";" <<-- 66 строка

Выдаёт ошибку:
Error DBCMD/2001 Файл не открыт: DBINFO
Called from DBINFO(0)
Called from MYLETODB(66)

Что не так делаю ?

 Отправлено: 11.06.15 11:36. Заголовок: dbInfo требует откры..

dbInfo требует открытой рабочей области, вестимо

 Отправлено: 11.06.15 11:40. Заголовок: Pasha пишет: dbInfo..

Pasha пишет:

цитата:

dbInfo требует открытой рабочей области, вестимо

Т.е. не открыв базу, я не могу узнать версию клиента LetoDB ?
А если по умолчанию будет стоять драйвер DBFCDX ? Как тогда я узнаю версию клиента LetoDB ?
Очень неудобно.
А нельзя сделать функцию типа LETO_GETCLIENTVERSION() ?

 Отправлено: 11.06.15 11:50. Заголовок: Да, неудобно то, что..

Да, неудобно то, что у функции rddInfo() нет соответствующей команды, и приходится использовать dbInfo.
А для dbInfo неважно, какой драйвер стоит по умолчанию. Надо, чтобы вызов был из рабочей области, которая использует нужный rdd

Отдельную функцию - конечно, можно добавить

 Отправлено: 11.06.15 12:03. Заголовок: Pasha пишет: Отдель..

Pasha пишет:

цитата:

Отдельную функцию - конечно, можно добавить

Спасибо БОЛЬШОЕ !

Проблема при создании индекса. Делаю так:
MsgDebug(cIndex,cTag,cFileIndx,cFilterTo)
INDEX ON &cIndex TAG(cTag) TO (cFileIndx) FOR &cFilterTo ADDITIVE

В окне перед созданием индекса вывожу имя файла cFileIndx -> D:\TEMP\tmp_base_leto_1.cdx
А на создании индекса программа рушиться и пишет:
Error LETO/1006 Ошибка создания: D:\LETODB.Server\D:\TEMP\tmp_base_leto_1.cdx (DOS Error 123)

Как задать создание индекса на локальном компе ?
Или на сервере LetoDB, можно как то задавать ?
Т.е. база на LetoDB, а индекс строю на локальном компе (он временный, на один раз).

 Отправлено: 11.06.15 13:05. Заголовок: Локально индекс не с..

Локально индекс не создается. А для создания индекса на сервере надо указать путь относительно DataPath

 Отправлено: 11.06.15 13:27. Заголовок: Спасибо Pasha ! :sm3..

Спасибо Pasha !

 Отправлено: 11.06.15 14:38. Заголовок: Создал 3 индекса на ..

Создал 3 индекса на сервере. Как переключаться на них ?
Вот код который перестал работать:
SELECT WTOVAR
DBSETORDER(1)
GOTO TOP
SEEK(nKod)
DO WHILE WTOVAR->KOD == nKod
....
SKIP
ENDDO

Подскажите пожалуйста как переделать код для LetoDB !

 Отправлено: 11.06.15 18:21. Заголовок: Как бы не видно сам ..

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

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

Pasha пишет:

цитата:

Как индекс создается, остается ли он открытым, непонятно.

Индексные файлы на сервере создаются (визуально вижу). База и индексы открыты.
Может дело еще в одной базе, более подробный код:

SELECT WSPISOK // база локальная открыта DBFCDX монопольно

DO WHILE !EOF()

ProcessMessages() // Чтобы форма НЕ замирала

nKod := WSPISOK->KOD

SELECT WTOVAR
DBSETORDER(1)
GOTO TOP
SEEK(nKod)
// MsgDebug( FOUND() )
DO WHILE WTOVAR->KOD == nKod
// расчёт
....
SKIP
ENDDO

SELECT WSPISOK
WSPISOK->KOD1 := ...
// запись расчётов
SKIP
ENDDO

До переделки под Leto - этот код считал.
Нашёл - SEEK(nKod) перестал работать !!!
FOUND() Всегда возвращает .F. Почему ? Чем можно заменить ?

 Отправлено: 11.06.15 20:42. Заголовок: Понятнее не стало. В..

Понятнее не стало. В цикле:

DBSETORDER(1)
GOTO TOP
SEEK(nKod)
DO WHILE WTOVAR->KOD == nKod
...

Кстати, go top здесь лишний.
Можно проверить, что за индекс открыт.
После

DBSETORDER(1)

выдать
? OrdKey()
? OrdName()
? OrdFor()

и тому подобное

 Отправлено: 11.06.15 21:27. Заголовок: Всего кода я конечно..

Всего кода я конечно не видел
Andrey пишет:

цитата:

SELECT WSPISOK

Возможно после нужен WSPISOK->(Dbgotop())

Если это рабочий код а не просто пример его надо переделать.

 
 WSPISOK->(Dbgotop())  
  
 DO WHILE !WSPISOK->(EOF()) 
  
 ProcessMessages() // надеюсь тут нет смены Алиаса ? 
  
 nKod := WSPISOK->KOD 
  
 WTOVAR->(DBSETORDER(1)) // лучше вынести до DO WHILE !WSPISOK->(EOF()) если там где ...не меняется ордер 
  
  
   If WTOVAR->(dbSEEK(nKod)) 
 WTOVAR->(dbOrderInfo(DBOI_SCOPEBOTTOM,,,nkod))  
 DO WHILE !WTOVAR->(eof()) 
 .... 
 WTOVAR->(DbSKIP()) 
 ENDDO 
 WTOVAR->(dbOrderInfo(DBOI_SCOPEBOTTOMCLEAR))  // упс я забыл добавить...забил се мозк Minigui ;) 
   endif 
  
 WSPISOK->KOD1 := ... 
 // запись расчётов 
 WSPISOK->(DBSKIP()) 
 ENDDO  
 

 Отправлено: 12.06.15 13:04. Заголовок: Pasha пишет: Кстати..

Pasha пишет:

цитата:

Кстати, go top здесь лишний.

Согласен. Но на всякий случай...

цитата:

Можно проверить, что за индекс открыт. После DBSETORDER(1)

SELECT WTOVAR
DBSETORDER(1)
SEEK(nKod)
lRet := FOUND()
MsgDebug(lRet,nMaster,ALIAS(), OrdKey(), OrdName(), OrdFor() )
DO WHILE WTOVAR->KOD == nKod

Поставил. И сразу обнаружил фигню:
Возвращает: F, 33, WTOVAR, "STR(KOD)+STR(KVIP)", "tovarvip", "!DELETED()"
Наверно где то в коде по другому срабатывает...
У меня есть в коде "STR(KOD)+STR(KVIP)", но эта выборка идёт после выбора из Tbrowsa oBrw1 после
расчета количества KOD ! Там вообще другой prg и строиться новое окно с Tbrowse oBrw3.
cFileTag := PATH_TEMP + "tmp_tovar_leto_tag.cdx"
DEFINE WINDOW Form_Tov3 ;
....
SELECT WTOVAR
DBSetOrder( 1 )
goto TOP
// файл для SCOPE
cTag := 'tovarvip'
cKey := 'STR(KOD)+STR(KVIP)'
lUnq := .F.
//OrdCreate( cFileTag, cTag, cKey, &( '{||'+cKey+'}' ), lUnq)
OrdCreate( , cTag, cKey, &( '{||'+cKey+'}' ), lUnq)

DEFINE TBROWSE oBrw3 ;
......
cFileTag использовал для локальной отладки, а потом убрал вообще.
Ничего не понимаю, как вновь созданный индес может менять своё значение "KOD" на "STR(KOD)+STR(KVIP)"...

 Отправлено: 12.06.15 13:10. Заголовок: Dima пишет: Если эт..

Dima пишет:

цитата:

Если это рабочий код а не просто пример его надо переделать.

Рабочий ! В отдельной программе работает.
Dima пишет:

цитата:

ProcessMessages() // надеюсь тут нет смены Алиаса ?

Стандартная функция минигуи DO EVENTS
Не меняет алиас.

 Отправлено: 12.06.15 13:17. Заголовок: Блин..... Нашёл в па..

Блин..... Нашёл в папке чужой индексный файл, который совпадает с именем базы....
Ларчик открывается вообще просто....
Терпеть не могу это автооткрытие индексов !!! Опять попал на старые
Всегда отключал его и делал имена файлов индексов отличные от имени базы!
Как для LetoDB отключить открытие индексов автоматом вместе с базой ?
На всякий случай....

 Отправлено: 12.06.15 13:28. Заголовок: Pasha пишет: выдать..

Pasha пишет:

цитата:

выдать ? OrdKey() ? OrdName() ? OrdFor() и тому подобное

Приведи пожалуйста еще функции какие можно использовать для Leto...
А то от стандартного CDX перестали работать.

 Отправлено: 12.06.15 13:28. Заголовок: Andrey пишет: Как д..

Andrey пишет:

цитата:

Как для LetoDB отключить открытие индексов автоматом вместе с базой ?

Ни как , обсуждали уже. И Павел отказался это исправлять.

 Отправлено: 13.06.15 13:36. Заголовок: Dima пишет: Ни как ..

Dima пишет:

цитата:

Ни как , обсуждали уже. И Павел отказался это исправлять.

Понял, Спасибо !

 Отправлено: 14.06.15 16:47. Заголовок: Как пройтись по папк..

Как пройтись по папкам на LetoDB и получить список всех файлов вида "/папка/папка/файл" ?

Сделал код, но он кривоватый, не учитывает вложенные папки...
aDir := {}
aDir0 := Leto_Directory( M->cPubPathLeto , "D" )
aFile0 := Leto_Directory( M->cPubPathLeto + "*.*" )
IF LEN(aDir0) > 0
FOR nI := 1 TO LEN(aDir0)
cPath := aDir0[nI,1]
IF cPath == "." .OR. cPath == ".."
ELSE
aFile := Leto_Directory( M->cPubPathLeto + cPath + "/*.*" )
FOR nJ := 1 TO LEN(aFile)
AADD( aDir, "/"+cPath + "/" + aFile[nJ,1] )
NEXT
ENDIF
NEXT
ENDIF
IF LEN(aFile0) > 0
FOR nI := 1 TO LEN(aFile0)
AADD( aDir, aFile0[nI,1] )
NEXT
ENDIF
aFile := ASORT(aDir)

 Отправлено: 14.06.15 17:14. Заголовок: Andrey http://clipp..

Andrey
http://clipper.borda.ru/?1-4-0-00001051-000-0-0-1427848859

 Отправлено: 14.06.15 17:44. Заголовок: Спасибо Dima ! То чт..

Спасибо Dima ! То что надо !

 Отправлено: 14.06.15 20:03. Заголовок: Сделал еще 2 проекта..

Сделал еще 2 проекта-теста на МиниГуи.
Копирование файлов через Leto_MemoRead(), Leto_MemoWrit() и создание zip-архива с отправкой на LetoDB.
Исправил 2 предыдущих проекта.
Общий архив - https://cloud.mail.ru/public/GiWn/cEYHCiBVT
Комментарии и критика приветствуются !

 Отправлено: 14.06.15 20:24. Заголовок: alkresin пишет: An..

alkresin пишет:

цитата:

Andrey пишет: цитата: А какой максимальный размер можно передать через cBuf ? Насколько я помню, ограничений нет, но все в пределах разумного...

У меня получается передавать 3-5 Мб через cBuf по интенету. В локалке наверно можно и больше.
Какой размер нужно передавать чтобы на всех машинах (включая и слабые компы) не вылетала программа ?
Если файл размером 29Мб - программа не вылетает, только не копирует файл и всё. Может кто еще попробует...
cBuff := HB_MemoRead(cFile) - сколько может считать эта функция ?
Какое ограничение по размеру нужно ставить при копировании файла ?

 Отправлено: 17.06.15 12:02. Заголовок: Попробуйте определят..

Попробуйте определять размер файлов с помощью leto_FileSize() и потом, если надо, передавать его по частям c помощью leto_Fileread()

 Отправлено: 17.06.15 16:42. Заголовок: alkresin пишет: Поп..

alkresin пишет:

цитата:

Попробуйте определять размер файлов с помощью leto_FileSize() и потом, если надо, передавать его по частям c помощью leto_Fileread()

А какой размер МАХ для передачи нужно делать ?
И еще вопрос: как определить по базе - кем она открыта: DBFCXD или LETO ?

 Отправлено: 18.06.15 07:59. Заголовок: И еще вопрос: как оп..

цитата:

И еще вопрос: как определить по базе - кем она открыта: DBFCXD или LETO ?

Надо выдать leto_mgGetTables(), и затем искать в полученном массиве, открыта ли таблицы на сервере letodb.

 Отправлено: 18.06.15 11:34. Заголовок: Pasha пишет: Надо в..

Pasha пишет:

цитата:

Надо выдать leto_mgGetTables(), и затем искать в полученном массиве, открыта ли таблицы на сервере letodb.

Спасибо !

 Отправлено: 18.06.15 11:46. Заголовок: Выходит ошибка при с..

Выходит ошибка при старте локального сервера (Win8.1) Leto DB Server v.2.15b3 :
06/18/15 11:44:18: Server has been closed.
06/18/15 11:44:29: LetoDB service has had some problems: 1063

Что за ошибка ?
Через службы сервер запускается.

 Отправлено: 18.06.15 12:18. Заголовок: Не работает мой код ..

Не работает мой код для Leto на нескольких серверах, работает только на одном. Что делать, куда "копать" ?

Имею сервер Leto DB Server v.2.15b3 - letodb.exe 998912 04.06.15 установлен на всех компах.
1) Windows Server 2008 - код работает ТОЛЬКО на этом сервере.
2) Windows Server 2012 R2 - код не работает.
3) Windows 8.1 Prof - сервер локальный - код не работает.

Код примерно такой:Скрытый текст

SELECT WZAIV nSelZaiv := SELECT() DBSETORDER(1) SELECT WMASTER nSelMast := SELECT() DO WHILE ! (nSelMast)->( EOF() ) aCalc := { 0, 0, 0, 0, 0, 0, 0 } nMaster := WMASTER->KMASTER SELECT WZAIV DBSETORDER(1) // это на всякий случай GOTO TOP // убирал для пробы - всё без разницы SEEK(nMaster) lRet := FOUND() //MsgDebug(lRet,nMaster,ALIAS(), OrdKey(), OrdName(), OrdFor() ) DO WHILE WZAIV->KMASTER == nMaster IF WZAIV->KDATE == 1 aCalc[1]++ .......... SKIP ENDDO SELECT WMASTER WMASTER->ZPR := aCalc[1] ............ SELECT(nSelMast) dbSkip(1) ProcessMessages() // ОБЯЗАТЕЛЬНО ! ENDDO

Не работает SEEK(nMaster)
lRet := FOUND()
lRet для компа 2) и 3) возвращает .F.
Ладно бы на всех не работало, это я бы на косячил, но на ОДНОМ 1) же работает ....

 Отправлено: 18.06.15 15:35. Заголовок: dbSeek() не найдет к..

dbSeek() не найдет ключ в следующих случаях:

1. Открыт не тот индекс
2. Такого ключа в индексе нет
3. Ключ в индексе есть, но он не попадает в установленный фильтр/scope

вроде все. Еще, конечно, может быть битый индекс.

 Отправлено: 18.06.15 16:15. Заголовок: Pasha пишет: Еще, к..

Pasha пишет:

цитата:

Еще, конечно, может быть битый индекс.

Я же его делаю каждый раз, после открытия базы. Значит битым не может быть.
Буду делать отдельный тест тогда...

 Отправлено: 20.06.15 20:06. Заголовок: alkresin пишет: Поп..

alkresin пишет:

цитата:

Попробуйте определять размер файлов с помощью leto_FileSize() и потом, если надо, передавать его по частям c помощью leto_Fileread()

Я смотрю, в hbip.c есть такой фрагмент:

         /* Set internal socket send buffer to 64k, 
          * this should fix the speed problems some users have reported 
          */ 
          hb_ipSetBufSize( hSocket, 0xFFFFFF, 0xFFFFFF ); 
 

где задается размер буфера для передачи. Надо полагать, что данные все равно передаются фрагментами по 64k ? Кстати, в чем там задается размер ? 0xFFFFFF это вроде не 64k

 Отправлено: 30.06.15 15:31. Заголовок: Pasha пишет: где за..

Pasha пишет:

цитата:

где задается размер буфера для передачи. Надо полагать, что данные все равно передаются фрагментами по 64k ? Кстати, в чем там задается размер ? 0xFFFFFF это вроде не 64k

Видно сложный вопрос, раз нет ответа... Очень жалко...

 Отправлено: 30.06.15 15:33. Заголовок: Сделал тестовый прим..

Сделал тестовый пример.
Алгоритм простой - выборка из базы по SEEK и SKIP - суммирование по 7 полям и
запись этих 7 полей в локальную базу на компе пользователя.
Итого 13 раз нужно просчитать по базе.

Убрал лишний вывод на экран. Наверно тормоза МиниГуи были из-за него.
Теперь скорость просто чумовая:

База 100 000 записей с мемо-полями: ~120 Мб
Расчет по простому индексу 13 позиций:
1) локальная DBFCDX - 00:00:00
2) локальная LETO - 00:00:01
3) интернет LETO - 00:01:49

База 1 000 000 записей с мемо-полями: ~1,2 Гб
Расчет по простому индексу 13 позиций:
1) локальная DBFCDX - 00:00:06
2) локальная LETO - 00:00:09
3) интернет LETO - 00:18:15

Открыть в TBROWSE миллион записей из базы, которая находиться
неизвестно где (на просторах интернета) - это просто пипец (как говорит Аллочка из Универа)

Вывод: связка Harbour + LetoDB + MiniGui - отличная вещь в работе.
Это при том, что используется простой старый алгоритм, без переделки под Leto !

2 вопроса к форумчанам:
1) Протестируйте кто нибудь по сетке это пример. Ну нет у меня сетки под рукой. Там путь просто набить и будет работать.
2) Как улучшить алгоритм для Leto ?
Пример тут - https://cloud.mail.ru/public/DkoH/nSzvMbeCh

 Отправлено: 01.07.15 01:35. Заголовок: Как проверить на сер..

Как проверить на сервере LetoDB - подключена ли функция LTON ?

 Отправлено: 01.07.15 08:14. Заголовок: Например, задать фил..

Например, задать фильтр:

set filter to LTON(<lExpr>)==1

и затем вызвать:
leto_IsFiltOptim()

Если вернет .t. - значит, функция выполняется на сервере

 Отправлено: 01.07.15 09:14. Заголовок: Pasha пишет: set fi..

Pasha пишет:

цитата:

set filter to LTON(<lExpr>)==1 и затем вызвать: leto_IsFiltOptim() Если вернет .t. - значит, функция выполняется на сервере

Что-то сложноватая проверка.... А нет ли более простой ?
По типу hb_IsFunction( cFunc )
Программу ставишь и помнить надо - есть на сервере та или иная функция. Затратно как то.
А так у себя в коде поставил проверку - нет такой функции на сервере и уже понятней станет.
Это сейчас, когда ставишь сервер, помнишь, а потом забудется и будешь потом

 Отправлено: 01.07.15 12:36. Заголовок: Должна сработать фун..

Должна сработать функция (хотя она немного не для этих целей):

leto_UdfExist("LTON")

или (для соединения, которое не является текущим):

leto_UdfExist("//localhost:2812/LTON")

 Отправлено: 01.07.15 14:21. Заголовок: Pasha пишет: leto_U..

Pasha пишет:

цитата:

leto_UdfExist("LTON")

Сработало ! Спасибо !

Pasha пишет:

цитата:

Можно еще добавить перед внешним циклом: leto_SetSkipBuffer(<побольше>) Тогда и он будет выполняться быстрее, так как запросов к серверу будет меньше.

А сколько <побольше> ?
Диапазон подскажи...

 Отправлено: 01.07.15 15:25. Заголовок: Прикидывайте сами. Р..

Прикидывайте сами. Размер буфера зависит только от размера и содержимого записей. Запись передается подпакованная, без лишних пробелов.
Пусть размер записи 100 байт. Передаваемый с сервера размер (он непостоянный) - пусть будет 40 байт.
Тогда, если установлен leto_SetSkipBuffer(1000), размер буфера с содержимым 1000 записей будет примерно 40000 байт. Из этих соображений и надо исходить. Соображение примерно те же, что и при передаче больших файлов.
leto_SetSkipBuffer устанавливается для каждой рабочей области отдельно. Перед большим циклом его
можно установить большим, а после выполнения цикла - вернуть стандартное значение:
leto_SetSkipBuffer(10)

Для циклов, внутри которых выполняется обновление данных с блокировкой каждой записи, skip-буфер сбрасывается, поэтому его увеличивать нет смысла.

 Отправлено: 01.07.15 16:10. Заголовок: Паша, а сколько врем..

Паша, а сколько времени "живет" этот буфер? 1 сек?
С какого момента отсчет начинается?
Что произойдет, если это время закончится раньше, чем закончится выборка в цикле?
Что произойдет, если это время закончится в момент передачи уже выбранных данных с сервера клиенту?

 Отправлено: 01.07.15 16:19. Заголовок: Да, 1 секунда. По ок..

Да, 1 секунда. По окончании которой данные с сервера будут запрашиваться повторно.
Отсчет времени идет после получения данных с сервера, так что время отклика сервера для проверки актуальности буфера роли не играет.

 Отправлено: 01.07.15 16:55. Заголовок: Вот в такой обычной ..

Вот в такой обычной конструкции увеличение чего нужно использовать: skip- или seek- буфера? Или и того, и другого?

DBSeek( <...> )
WHILE <...>
....
DBSkip()
END

 Отправлено: 01.07.15 19:19. Заголовок: Для последовательной..

Для [индексно]последовательной выборки (а это как раз она) надо использовать skip-буфер.
Для индексной, а это seek, причем seek по частичному ключу не катит, надо использовать seek-буфер.
Пример - ну скажем, есть список абонентов с адресами, которые выбираются по справочнику населенных пунктов и улиц.
Если для этих справочников задействовать seek-буфер, то наиболее часто используемые элементы справочника окажутся в seek-буфере, и в конце концов число обращений к ним (операций seek) резко уменьшится.

 Отправлено: 01.07.15 21:50. Заголовок: Всё понятно. Спасибо..

Всё понятно. Спасибо за объяснение.

 Отправлено: 02.07.15 19:32. Заголовок: Использую bat-файл с..

Использую bat-файл с командой:
"C:\Program Files\CVSNT\cvs.exe" -d:pserver:anonymous@letodb.cvs.sourceforge.net:/cvsroot/letodb co -P -r rel-1-mt letodb

При старте выдаёт окно с ошибкой:


Но потом вроде нормально загружает обновления.

Так должно быть или нет ?

 Отправлено: 02.07.15 20:15. Заголовок: Andrey в заголовке о..

Andrey
в заголовке окна слово "advert" по-моему явно указывает на рекламу.

 Отправлено: 02.07.15 22:32. Заголовок: PSP пишет: в заголо..

PSP пишет:

цитата:

в заголовке окна слово "advert" по-моему явно указывает на рекламу.

Да кто же знает, что это за хрень...
Раздражает, вот и спрашиваю.

 Отправлено: 02.07.15 23:14. Заголовок: Пытаюсь собрать серв..

Пытаюсь собрать сервер Лето по инструкции:
Для сборки сервера с поддержкой функций leto_Zip и leto_Unzip необходимо установить
макрос __ZIP:
hbmk2 -env:__ZIP=yes letodb.hbp

Нужно подключить функцию из tools: LTON на сервере letodb
Для этого надо в source\server.prg добавить строку:
request lton
в letodb.hbp добавить строку:
-lhbct
и пересобрать сервер letodb

Вот letodb.hbp
Скрытый текст

# # $Id: letodb.hbp,v 1.8.2.6 2015/05/26 15:01:20 ptsarenko Exp $ # #-env:__BM=yes -env:__ZIP=yes -inc -obin/letodb -iinclude -n -w -q0 -es2 #-warn=max -prgflag={unix}-D__LINUX_DAEMON__ -prgflag={unix}-D__LINUX__ {__BM}-prgflag=-D__BM #-prgflag={win}-D__WIN_DAEMON__ -prgflag={win}-D__WIN_SERVICE__ -cflag={allmsvc}-D_CRT_SECURE_NO_DEPRECATE -cflag={win}-D__WIN_SERVICE__ {__BM}-cflag=-D__BM -gui -mt {__BM}-lrddbm {__ZIP}-lhbziparc {__ZIP}-lhbmzip {__ZIP}-lminizip -lhbct source/server/server.prg source/server/errorsys.prg source/server/errint.c {unix}source/server/leto_lnx.c {win}source/server/leto_win.c source/server/letoacc.c source/server/letovars.c source/server/letofunc.c source/server/letolist.c source/server/leto_2.c {__BM}source/server/letobm.prg {__ZIP}source/server/letozip.prg source/common/blowfish.c source/common/common_c.c source/common/common.prg {__BM}source/common/letoserv.prg

В make_b32.bat прописал:
@echo off
SET HB_PATH=Z:\MiniGUI\Harbour

Сделал....

Затем запустите make_b32.bat, и исполняемый файл сервера letodb.exe будет создан в каталоге bin/,
а библиотека rdd rddleto.lib - в каталоге lib/.


Не создаётся....
Вот make_b32.log
Скрытый текст

MAKE Version 5.2 Copyright (c) 1987, 2000 Borland bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letocl.obj source\client\letocl.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\client\letocl.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\leto1.obj source\client\leto1.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\client\leto1.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letomgmn.obj source\client\letomgmn.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\client\letomgmn.c: Warning W8060 source\client\letomgmn.c 742: Possibly incorrect assignment in function HB_FUN_LETO_SETSEEKBUFFER bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\hbip.obj source\common\hbip.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\common\hbip.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\common_c.obj source\common\common_c.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\common\common_c.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\blowfish.obj source\common\blowfish.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\common\blowfish.c: Z:\MiniGUI\Harbour\bin\harbour.exe -iinclude;Z:\MiniGUI\Harbour\include -n -q0 -w -es2 -gc0 -d__WIN_SERVICE__ source\client\rddsys.prg -oobj\b32\rddsys.c bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\rddsys.obj obj\b32\rddsys.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland obj\b32\rddsys.c: IF EXIST "lib\rddleto.lib" del "lib\rddleto.lib" > NUL TLIB "lib\rddleto.lib" /0 @MAKE0000.@@@ TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation +obj\b32\letocl.obj & +obj\b32\leto1.obj & +obj\b32\letomgmn.obj & +obj\b32\hbip.obj & +obj\b32\common_c.obj & +obj\b32\blowfish.obj & +obj\b32\rddsys.obj & + IF EXIST "lib\leto.lib" del "lib\leto.lib" > NUL TLIB "lib\leto.lib" /0 @MAKE0001.@@@ TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation +obj\b32\letocl.obj & +obj\b32\hbip.obj & +obj\b32\common_c.obj & +obj\b32\blowfish.obj & + Z:\MiniGUI\Harbour\bin\harbour.exe -iinclude;Z:\MiniGUI\Harbour\include -n -q0 -w -es2 -gc0 -d__WIN_SERVICE__ source\server\server.prg -oobj\b32\server.c bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\server.obj obj\b32\server.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland obj\b32\server.c: Z:\MiniGUI\Harbour\bin\harbour.exe -iinclude;Z:\MiniGUI\Harbour\include -n -q0 -w -es2 -gc0 -d__WIN_SERVICE__ source\common\common.prg -oobj\b32\common.c bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\common.obj obj\b32\common.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland obj\b32\common.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letofunc.obj source\server\letofunc.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\letofunc.c: Warning W8012 source\server\letofunc.c 1348: Comparing signed and unsigned values in function leto_CheckClientVer bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letolist.obj source\server\letolist.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\letolist.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\leto_2.obj source\server\leto_2.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\leto_2.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letoacc.obj source\server\letoacc.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\letoacc.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\letovars.obj source\server\letovars.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\letovars.c: bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\leto_win.obj source\server\leto_win.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\leto_win.c: Warning W8004 source\server\leto_win.c 104: 'State' is assigned a value that is never used in function leto_ServiceControlHandler Warning W8004 source\server\leto_win.c 262: 'dwWaitTime' is assigned a value that is never used in function HB_FUN_LETO_SERVICEDELETE bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\errint.obj source\server\errint.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland source\server\errint.c: Z:\MiniGUI\Harbour\bin\harbour.exe -iinclude;Z:\MiniGUI\Harbour\include -n -q0 -w -es2 -gc0 -d__WIN_SERVICE__ source\server\errorsys.prg -oobj\b32\errorsys.c bcc32 -c -Iinclude;Z:\MiniGUI\Harbour\include -d -tWM -D__WIN32__ -D__WIN_SERVICE__ -oobj\b32\errorsys.obj obj\b32\errorsys.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland obj\b32\errorsys.c: IF EXIST "bin\letodb.exe" del "bin\letodb.exe" > NUL bcc32 @MAKE0002.@@@ Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland Turbo Incremental Link 5.66 Copyright (c) 1997-2002 Borland Error: Unresolved external '_HB_FUN_LTON' referenced from Z:\LETODB CVS\LETODB\OBJ\B32\SERVER.OBJ ** error 1 ** deleting bin\letodb.exe

Библиотека есть - Z:\MiniGUI\Harbour\lib\hbct.lib
Что не так делаю ?