Форум » Для флейма » Помогите протестировать первую xHarbour систему » Ответить
Помогите протестировать первую xHarbour систему
AndreyZh: Уважаемые профи! Наконец перевёл систему на xHarbour (терминальный режим). Если не сложно помогите найти ошибки в её работе (сам уже тестил). Если есть желание, то с удовольствием приму критику в любом виде и отвечу на все вопросы. Система содержит исходный код (+ база очень крупной оптовки за 4 месяца) и варианты Clipper (нужна настройка ОС) и xHarbour (Win32) программ. Для установки скачать в любой каталог и распаковать архив. Все виды паролей - 11. Для создания индексов clipper (s_repair.bat), harbour (srepharb.bat). Справка F1 в любом режиме, инструкции в каталоге document. Для принудительного запуска st.bat (clip)/sth.bat (harb). По системе печати, если интересно - отдельно. Состав комплекса: 1. Оперативная программа. ls.exe (clip)/hls.exe (harb) 2. Администратор и бухгалтерия. la.exe (clip)/hla.exe (harb) 3. Аналитический контур. ldust.exe (clip)/hld.exe (harb) Буду очень благодарен за найденные ошибки и критику в любой форме! Скачка с учётом исправлений всех замечаний на 04.04.2010 (5.92) http://get.freesoft.ru/?id=108083
Dima: PSP пишет: AndreyZh пишет: цитата: По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows В оригинале - FindWindow. (be attentive...) Мдя...
AndreyZh: Петр Да ничего там не вылетает. За всю историю своего флейма (с учетом топика про ламеров) AndreyZh так и не привел ни ОДНОГО примера с ошибкой [x]Harbour. Флейм он и есть флейм. А это вообще при чём? Нет желания помогать - обойдусь! Но хотя бы прочитали сообщение прежде чем "наезжать"! Напомню Вам, а лучше другим, кто желает изучить данную перспективную систему (по материалам моих вопросов): 1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009 2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример: DbSelectArea(0) DbSetIndex(1) 3. Выявил "глюки" препроцессора (описываю только сейчас): #xcommand FOR <i>:=<s> TO <n> DO <*statement*> => FOR <i>:=<s> TO <n> ; <statement> ; END #xcommand IF <cond> THEN <*statement*> => IF <cond> ; <statement>; ENDIF Блок порождает ошибки компиляции, а иногда только вылет при выполнении (clipper обрабатывает): IF <условие> THEN SELE <алиас>; SKIP; LOOP 4. До конца не решена проблема замены TempFile() и многое другое... Думаю мне и многим другим спецам это интересно! Dima Спасибо за советы! Подскажите пожалуйста, что не так с "работой с окнами Win" - сообщение компилятора описал. Тему random давайте опустим - проблему решил, а обсуждение превращается в ....
AndreyZh: Пример с "крестиком" давайте приведу свой код: Вызов: [pre2]PROC Main( cPar ) LOCA nSel:=1, cTxt:="", nI:=1, nSelWork:=1, dD:=Date(), aArr:={}, nSell:=0, nC:=0, lRep:=FALSE // sOp:="9990" #include "cfg.ch" // Глобальные системные установки пакета и конфигурация по df. cnProgramm := "ОперативПр" // Вставка моего заголовка и блокирование закрытия окна pWind("Программа оперативного учёта")[/pre2] Кусок модуля (извините не могу скрывать текст): [pre2] * -------------------------------------------------------------------------- * Замена заголовка окна Win и вставка исходника на С PROC pWind(cTxt) LOCA hW SetConsoleTitle(Alltrim(cTxt)) hW := FindWindows(Alltrim(cTxt)) DeleteCloseButton(hW) RETU * --------------------------------------------------------------------------- * Вставляю сишный код #PRAGMA BEGINDUMP #include "hbapi.h" #include "windows.h" HB_FUNC(SETCONSOLETITLE) { hb_retl( SetConsoleTitle( hb_parc(1) ) ); } HB_FUNC(FINDWINDOWS) { hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) ); } HB_FUNC(DELETECLOSEBUTTON) { DeleteMenu( GetSystemMenu((HWND) hb_parnl(1), FALSE), SC_CLOSE, MF_BYCOMMAND ) ; DrawMenuBar( (HWND) hb_parnl(1) ) ; } #PRAGMA ENDDUMP[/pre2]
Dima: AndreyZh пишет: 1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009 Не вижу проблемы AndreyZh пишет: 2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример: DbSelectArea(0) DbSetIndex(1) И вообще всех с праздником , лично я пошел бай
Dima: AndreyZh пишет: pWind("Программа оперативного учёта") По ходу кирилица не катит ! На англицком пишите.
PSP: AndreyZh пишет: hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) ); В WinAPI не функции FindWindows. Есть FindWindow. Dima пишет: По ходу кирилица не катит ! Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().
AndreyZh: По ходу кирилица не катит ! На англицком пишите. Та же самая ошибка при компиляции unresolved external _FindWindows
PSP: AndreyZh пишет: Та же самая ошибка при компиляции unresolved external _FindWindows Вы ответы читаете? :)
Dima: PSP пишет: Вы ответы читаете? :) Похоже что нет
AndreyZh: PSP Спасибо всё заработало, в том числе с кириллицей! Причём всё подсказывали правильно - я неправильно переписал
Dima: PSP пишет: Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI(). Работает однако. PS я бай ;)
Петр: AndreyZh пишет: А это вообще при чём? Нет желания помогать - обойдусь! Но хотя бы прочитали сообщение прежде чем "наезжать"! Очень хороший способ помочь себе, а также, возможно, другим - написать маленький (по возможности) самодостаточный пример, который приводит к возникновению ошибки. На всякий случай уточняю - это не пример DbSelectArea(0) DbSetIndex(1) Ваши сообщения я читаю, но иногда вы так туманно изъясняетесь, что не одному мне становится непонятно, о чем это вы Нет функции создания файла Hb_create. О DbCreate речь ? Да. Посоветовали (Andrey) http://clipper.borda.ru/?1-4-0-00000527-000-60-0 использовать Да есть она. HB_FTempCreate() Смотри документацию, т.е. xHarbour Language Reference Guide 1.1 Ерунда - последовал Вашему совету (написал сам).
Andrey: AndreyZh пишет: цитата: Окно на полном экране занимает меньше половины экрана: А это уже Harbour... Вызываете свойства окна Windows/вкладка расположение/ставите высоту строки 25.... Это каждый пользователь сам будет делать ? Круто ! Я бы хотел посмотреть на бухгалтеров (в возрасте), как они это будут делать ... Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры ! На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !
AndreyZh: Петр Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совмествное использование индексированных БД системами на разных языках. Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры ! Уже приводил пример Far версии до 2.0 (где они это исправили)... На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя ! Подскажите, плиз как это сделать! P.S. Ответьте пожалуйста на личное послание.
Andrey: AndreyZh пишет: следовательно невозможно совмествное использование индексированных БД системами на разных языках. Да выкинь уже Клипер нафиг, нечего держаться за него ! AndreyZh пишет: Подскажите, плиз как это сделать! Писал ранее ! SETMODE(24,80) AndreyZh пишет: Ответьте пожалуйста на личное послание. Здесь на форуме, я не нашел как отвечать на личное послание ! Отвечаю здесь: могу только сопровождать в установке и консультациях, куда и что зайти. Я не владею бухгалтерскими навыками, да и уже возраст не тот чтоб заморачиваться с этим.
AndreyZh: Писал ранее ! SETMODE(24,80) Попробую. Здесь на форуме, я не нашел как отвечать на личное послание Почта в профиле реальная?
Петр: AndreyZh пишет: Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совместное использование индексированных БД системами на разных языках. Они даже более несовместимы, чем вы себе представляете. К примеру, в [x]Harbour можно создавать мультитеговые NTX индексы c помощью rddInfo( RDDI_MULTITAG, .t., "DBFNTX" ) Еще dbf от [x]Harbour могут содержать поля не совместимые с Clipper: AUTOINC (+), ROWVERSION (^), TIME (T), DAYTIME (@), MODTIME (=) Еще есть несовместимости по блокировкам. Препроцессор в xHarbour, как вы подметили, не совсем Clipper compatible. Отчасти это из-за введения новых опреаторов HAS, IS, LIKE, отчасти из-за того, что в самом Clipper PP содержатся ошибки. И т.д., и т.п. Привыкайте к новым реалиям, или переходите на другой xBase продукт.
Andrey: AndreyZh пишет: Почта в профиле реальная? Да.
AndreyZh: Писал ранее! SETMODE(24,80) Проверил на моей модификации Dbu от 5.2 - работает.. Спасибо! Петр Конечно мой ответ напоминает флуд, но ещё раз прошу - не хотите реально помочь, тогда и не нужно делать сообщения... Они даже более несовместимы, чем вы себе представляете. К примеру, в [x]Harbour можно создавать мультитеговые NTX индексы c помощью rddInfo( RDDI_MULTITAG, .t., "DBFNTX" ) Еще dbf от [x]Harbour могут содержать поля не совместимые с Clipper: AUTOINC (+), ROWVERSION (^), TIME (T), DAYTIME (@), MODTIME (=) Мне пока интересна поддержка средств Clipper, а не расширенные возможности xHarbour. Всё это может быть в будущем! Еще есть несовместимости по блокировкам. Здесь обсуждение не со мной, а с Филатовым. "Его ответ: Индексные файлы xHarbour и Clipper несовместимы и ЗАПРЕЩЕНО их одновременное использование." Это так, но возможно совместное использование баз данных (см. описание ниже). Мне же нужна или абсолютная совместимость или ничего! Препроцессор в xHarbour, как вы подметили, не совсем Clipper compatible. Отчасти это из-за введения новых опреаторов HAS, IS, LIKE, отчасти из-за того, что в самом Clipper PP содержатся ошибки. Повторюсь! Мне нужна поддержка xHarbour средств, которые я использовал в Clipper и расширенные возможности xHarb пока не парят. Если и препроцессор Clipper 5.01 и содержал ошибки, то они мной давно "обойдены". Привыкайте к новым реалиям, или переходите на другой xBase продукт. Хамить не надо! Да? Куда и зачем мне переходить позвольте решение принимать самому на основании глубокого изучения альтернатив, серьёзного тестирования средств разработки, надёжности инструмента, перспективных пожеланий пользователей....
Andrey: AndreyZh пишет: Хамить не надо! Да никто и не хамит ! Дельный совет ! Или хватит возгласов насчет "не совместимости" с Клипером !!! Я тоже советую выкинуть Клипер и сосредоточиться на хХарборе. Я уже писал ранее, после перехода на хХарбор, я МЕНЬШЕ стал тратить время на сопровождение пользователей ! Т.к. программа на хХарборе НАМНОГО СТАБИЛЬНЕЙ работает, чем на Клипере !!!
полная версия страницы