Автор | Сообщение |
|
| |
Пост N: 64
Зарегистрирован: 12.11.06
|
|
Отправлено: 03.04.10 20:51. Заголовок: Помогите протестировать первую xHarbour систему
Уважаемые профи! Наконец перевёл систему на 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
|
|
|
Ответов - 182
, стр:
1
2
3
4
5
6
7
8
9
10
All
[только новые]
|
|
|
| |
Пост N: 1534
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.04.10 20:52. Заголовок: PSP пишет: AndreyZh..
PSP пишет: цитата: | AndreyZh пишет: цитата: По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows В оригинале - FindWindow. (be attentive...) |
| Мдя...
|
|
|
|
| |
Пост N: 82
Зарегистрирован: 12.11.06
|
|
Отправлено: 04.04.10 20:56. Заголовок: Петр Да ничего там ..
Петр цитата: | Да ничего там не вылетает. За всю историю своего флейма (с учетом топика про ламеров) 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 давайте опустим - проблему решил, а обсуждение превращается в ....
|
|
|
|
| |
Пост N: 83
Зарегистрирован: 12.11.06
|
|
Отправлено: 04.04.10 21:01. Заголовок: Пример с "крести..
Пример с "крестиком" давайте приведу свой код: Вызов: 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("Программа оперативного учёта") Кусок модуля (извините не могу скрывать текст): * -------------------------------------------------------------------------- * Замена заголовка окна 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
|
|
|
|
| |
Пост N: 1535
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.04.10 21:02. Заголовок: AndreyZh пишет: 1. ..
AndreyZh пишет: цитата: | 1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009 |
| Не вижу проблемы AndreyZh пишет: цитата: | 2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример: DbSelectArea(0) DbSetIndex(1) |
| И вообще всех с праздником , лично я пошел бай
|
|
|
|
| |
Пост N: 1536
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.04.10 21:04. Заголовок: AndreyZh пишет: pWi..
AndreyZh пишет: цитата: | pWind("Программа оперативного учёта") |
| По ходу кирилица не катит ! На англицком пишите.
|
|
|
|
| постоянный участник
|
Пост N: 375
Зарегистрирован: 27.01.07
|
|
Отправлено: 04.04.10 21:09. Заголовок: AndreyZh пишет: hb_..
AndreyZh пишет: цитата: | hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) ); |
| В WinAPI не функции FindWindow s. Есть FindWindow. Dima пишет: цитата: | По ходу кирилица не катит ! |
| Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().
|
|
|
|
| |
Пост N: 84
Зарегистрирован: 12.11.06
|
|
Отправлено: 04.04.10 21:11. Заголовок: По ходу кирилица не ..
цитата: | По ходу кирилица не катит ! На англицком пишите. |
| Та же самая ошибка при компиляции unresolved external _FindWindows
|
|
|
|
| постоянный участник
|
Пост N: 376
Зарегистрирован: 27.01.07
|
|
Отправлено: 04.04.10 21:12. Заголовок: AndreyZh пишет: Та ..
AndreyZh пишет: цитата: | Та же самая ошибка при компиляции unresolved external _FindWindows |
| Вы ответы читаете? :)
|
|
|
|
| |
Пост N: 1537
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.04.10 21:14. Заголовок: PSP пишет: Вы ответ..
PSP пишет: Похоже что нет
|
|
|
|
| |
Пост N: 85
Зарегистрирован: 12.11.06
|
|
Отправлено: 04.04.10 21:14. Заголовок: PSP Спасибо всё за..
PSP Спасибо всё заработало, в том числе с кириллицей! Причём всё подсказывали правильно - я неправильно переписал
|
|
|
|
| |
Пост N: 1538
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.04.10 21:16. Заголовок: PSP пишет: Угу. Сей..
PSP пишет: цитата: | Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI(). |
| Работает однако. PS я бай ;)
|
|
|
|
|
| постоянный участник
|
Пост N: 859
Зарегистрирован: 09.10.06
|
|
Отправлено: 04.04.10 22:50. Заголовок: AndreyZh пишет: А э..
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 Ерунда - последовал Вашему совету (написал сам). |
|
|
|
|
|
| постоянный участник
|
Пост N: 1200
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.04.10 04:15. Заголовок: AndreyZh пишет: ц..
AndreyZh пишет: [quote] цитата: Окно на полном экране занимает меньше половины экрана: А это уже Harbour... Вызываете свойства окна Windows/вкладка расположение/ставите высоту строки 25.... [quote] Это каждый пользователь сам будет делать ? Круто ! Я бы хотел посмотреть на бухгалтеров (в возрасте), как они это будут делать ... Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры ! На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !
|
|
|
|
| |
Пост N: 86
Зарегистрирован: 12.11.06
|
|
Отправлено: 05.04.10 09:25. Заголовок: Петр Забыл еще об о..
Петр Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совмествное использование индексированных БД системами на разных языках. цитата: | Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры ! |
| Уже приводил пример Far версии до 2.0 (где они это исправили)... цитата: | На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя ! |
| Подскажите, плиз как это сделать! P.S. Ответьте пожалуйста на личное послание.
|
|
|
|
| постоянный участник
|
Пост N: 1201
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.04.10 10:23. Заголовок: AndreyZh пишет: Под..
AndreyZh пишет: цитата: | следовательно невозможно совмествное использование индексированных БД системами на разных языках. |
| Да выкинь уже Клипер нафиг, нечего держаться за него ! AndreyZh пишет: цитата: | Подскажите, плиз как это сделать! |
| Писал ранее ! SETMODE(24,80) AndreyZh пишет: цитата: | Ответьте пожалуйста на личное послание. |
| Здесь на форуме, я не нашел как отвечать на личное послание ! Отвечаю здесь: могу только сопровождать в установке и консультациях, куда и что зайти. Я не владею бухгалтерскими навыками, да и уже возраст не тот чтоб заморачиваться с этим.
|
|
|
|
| |
Пост N: 87
Зарегистрирован: 12.11.06
|
|
Отправлено: 05.04.10 10:38. Заголовок: Писал ранее ! SETM..
цитата: | Писал ранее ! SETMODE(24,80) |
| Попробую. цитата: | Здесь на форуме, я не нашел как отвечать на личное послание |
| Почта в профиле реальная?
|
|
|
|
| постоянный участник
|
Пост N: 860
Зарегистрирован: 09.10.06
|
|
Отправлено: 05.04.10 10:55. Заголовок: AndreyZh пишет: Заб..
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 продукт.
|
|
|
|
| постоянный участник
|
Пост N: 1202
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.04.10 11:00. Заголовок: AndreyZh пишет: Поч..
AndreyZh пишет: цитата: | Почта в профиле реальная? |
| Да.
|
|
|
|
| |
Пост N: 88
Зарегистрирован: 12.11.06
|
|
Отправлено: 05.04.10 11:33. Заголовок: Писал ранее! SETMOD..
цитата: | Писал ранее! 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 продукт. |
| Хамить не надо! Да? Куда и зачем мне переходить позвольте решение принимать самому на основании глубокого изучения альтернатив, серьёзного тестирования средств разработки, надёжности инструмента, перспективных пожеланий пользователей....
|
|
|
|
| постоянный участник
|
Пост N: 1203
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.04.10 11:54. Заголовок: AndreyZh пишет: Хам..
AndreyZh пишет: Да никто и не хамит ! Дельный совет ! Или хватит возгласов насчет "не совместимости" с Клипером !!! Я тоже советую выкинуть Клипер и сосредоточиться на хХарборе. Я уже писал ранее, после перехода на хХарбор, я МЕНЬШЕ стал тратить время на сопровождение пользователей ! Т.к. программа на хХарборе НАМНОГО СТАБИЛЬНЕЙ работает, чем на Клипере !!!
|
|
|
Ответов - 182
, стр:
1
2
3
4
5
6
7
8
9
10
All
[только новые]
|
|