Отправлено: 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

 Отправлено: 03.04.10 22:46. Заголовок: При попытке запуска ..

При попытке запуска любого clipper варианта выдаёт ошибку всех баз (после индексации и перезапуска):
Скрытый текст


Окно на полном экране занимает меньше половины экрана:
Скрытый текст


Один раз полностью упала программа, вот отчёт:
error.logerror.log

 Отправлено: 03.04.10 22:56. Заголовок: SkyNET пишет: Окно ..

SkyNET пишет:

цитата:

Окно на полном экране занимает меньше половины экрана:

Наверно нужно было бы ограничить экран программы !
Оператором SETMODE(25,80) или другими координатами, которые используете...

 Отправлено: 03.04.10 23:07. Заголовок: Для терминала GTWVT-..

Для терминала GTWVT- можно подбирать различные шрифты под различное расширение экрана 800х600, 1024х768 и т.д. !
Он лучше GTWIN !
Делал себе настройку шрифтов в программу, но так и не доделал...
Если интересно, то исходники здесь : http://slil.ru/28903762

 Отправлено: 04.04.10 10:26. Заголовок: AndreyZh Что бы не ..

AndreyZh
Что бы не падало с Dos Error 4 , пробни такой трюк SetHandleCount(200)

 Отправлено: 04.04.10 10:37. Заголовок: 1. DOS Error 4. 2. В..

1. DOS Error 4.
2. Выполнение программы легко прерывается нажатием Alt-C (в своих прогах я эту возможность отключаю).

 Отправлено: 04.04.10 11:35. Заголовок: Огромное спасибо все..

Огромное спасибо всем за реакцию! Хотя часть замечаний не является ошибками.

SkyNET

цитата:

При попытке запуска любого clipper варианта выдаёт ошибку всех баз (после индексации и перезапуска):

Одним из "плюсов" Harbour, как обратил внимание - не нужно настраивать ОС. В случает Clipper есть небольшой геморойчик. В данном случае нужно прописать в файлы:

1. win/system32/autoexec.nt (set clipper=f:220)
2. win/system32/config.nt (files=220)

Но есть и другие настройки для Clipper - подробнее можно посмотреть учебник http://www.zhsoft.nm.ru/hand_set/hand_set.htm (если у Вас FireFox, то лучше через главную страницу - не любит он NewMail.ru)/

цитата:

Окно на полном экране занимает меньше половины экрана:

А это уже Harbour... Вызываете свойства окна Windows/вкладка расположение/ставите высоту строки 25.... Far до версии 2.0 тоже имел данный глюк. Остальные вопросы изучу и обязательно отвечу!

 Отправлено: 04.04.10 11:46. Заголовок: AndreyZh пишет: 1. ..

AndreyZh пишет:

цитата:

1. win/system32/autoexec.nt (set clipper=f:220)

Не помню как в Clipper 5.1 , но в 5.2e этого делать не нужно , достаточно править config.nt

 Отправлено: 04.04.10 12:08. Заголовок: Andrey Спасибо! Нав..

Andrey Спасибо!

цитата:

Наверно нужно было бы ограничить экран программы ! Оператором SETMODE(25,80) или другими координатами, которые используете...

В принципе ответил - win настройка терминального окна.

цитата:

Для терминала GTWVT- можно подбирать различные шрифты под различное расширение экрана 800х600, 1024х768 и т.д. ! Он лучше GTWIN ! Делал себе настройку шрифтов в программу, но так и не доделал...

Обязательно буду разбираться с данными терминальными библиотеками, т.к. они позволяют сделать мышинный интерфейс. Что по размеру окон, то в дистрибутиве (не который привёл здесь) имеются шрифты, позволяющие раскрывать окна практически на полный экран при всех разрешениях экрана.

В принципе в дистрибутиве есть "система печати" и его можно скачать (9 mb) http://www.zhsoft.nm.ru/demo/distrib.exe


SkyNET

цитата:

Один раз полностью упала программа, вот отчёт:

В принципе это была самая сложная проблема "брошенные рабочие области", приводил пример:

sele 0
DbSetOrder(1) // Сделует вылет по 9001 ошибке.

Но "Called from : PLOADROUND(791)" вылезал - видно не до конца.... Спасибо. Сейчас проверю!

 Отправлено: 04.04.10 12:27. Заголовок: Что бы не падало с D..

цитата:

Что бы не падало с Dos Error 4 , пробни такой трюк SetHandleCount(200)

В xHarbour нет такого гемора - это чисто шутки Clipper.

цитата:

Не помню как в Clipper 5.1 , но в 5.2e этого делать не нужно , достаточно править config.nt

У меня есть програмки под 5.2, такая же штука. Кроме правки autoexec.nt можно проблему обойти настройкой батника, т.е. делать вызовы программы, например:

ls //f:220

Но об этом всегда забывали админы....

Еще одна "любимая" dos ошибка 5 - не дают полного доступа к сетевому диску...


PSP

цитата:

2. Выполнение программы легко прерывается нажатием Alt-C (в своих прогах я эту возможность отключаю).

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

 Отправлено: 04.04.10 12:35. Заголовок: Исправил "отчетн..

Исправил "отчетную программу" http://get.freesoft.ru/?id=108067

Шрифты, позволяющие работать почти на полном экране - актуально для Vista/7, т.к. не имеющие полноэкранного режима http://get.freesoft.ru/?id=108068

 Отправлено: 04.04.10 12:47. Заголовок: AndreyZh пишет: Ина..

AndreyZh пишет:

цитата:

Иначе будут закрывать "крестиком", что порождает море проблем.

Крест можно отключить. Поищите по форуму.

 Отправлено: 04.04.10 12:48. Заголовок: Andrey Делал себе ..

Andrey

цитата:

Делал себе настройку шрифтов в программу, но так и не доделал... Если интересно, то исходники здесь :

Занятные возможности (некоторым надоело однообразие) - решается настройками Tame версии от 5.0... Но интересно - какое еще практическое применение Вашей программы/библиотеки? Мне кажется, что это может усложнить жизнь (мне) Попытался "погонять" тестовый пример, но мне не удалось поменять ни одной из настроек.

 Отправлено: 04.04.10 12:52. Заголовок: AndreyZh пишет: но ..

AndreyZh пишет:

цитата:

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

Еще как рушатся... :) Только что прервал работу hls.exe в момент сосздания индекса. При следующем запуске:

 Отправлено: 04.04.10 13:30. Заголовок: PSP Еще как рушатся..

PSP

цитата:

Еще как рушатся... :) Только что прервал работу hls.exe в момент сосздания индекса. При следующем запуске:

С этим вопросом хотелось бы сильно разобраться!!!

Clipper... Лишь после 8 попытки мне удалось получить "визуально" испорченый файл! При этом вход в программу происходил без сообщений об ошибках, прога работала нормально... Ситуация порчи индекса (информации) проявилась при проверки логики la/проверки/логика, после операции ремонта всё восстановилось.

xHarbour... Все попытки прервать работы (4 шт) сразу приводили к порче индексного файла и выдачей приведённого Вами сообщения. После ремонта srepharb всё восстанавливалось, в т.ч. не было ошибок!


Гуру Harbour пожалуйста проясните данный вопрос - в чём проблема? В принципе программа должна обрабатывать ошибки открытия файлов не допуская системных сообщений????

++++ В принципе породил данное разрушение, запустив ремонт при параллельно, работающей программе!!! - Это ЖП

 Отправлено: 04.04.10 13:49. Заголовок: ++++ В принципе поро..

цитата:

++++ В принципе породил данное разрушение, запустив ремонт при параллельно, работающей программе!!! - Это ЖП

"Мёртвому - припарка". Использовав обработчик ошибок даю соощение о разрушении файлов и рекомендацию произвести ремонт (переиндексацию). Вопрос - насколько надёжны индексы *.NTX в xHarbour?

 Отправлено: 04.04.10 14:15. Заголовок: AndreyZh пишет: уда..

AndreyZh пишет:

цитата:

удалось получить "визуально" испорченый файл! При этом вход в программу происходил без сообщений об ошибках, прога работала нормально...

Имхо, это - не есть хорошо. Индекс испорчен, но никто об этом не знает... Я думаю, что правильнее так:

цитата:

выдачей приведённого Вами сообщения.

По-крайней мере, пользователь будет сразу знать, что с базой что-то не то...

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

 Отправлено: 04.04.10 15:37. Заголовок: И я все-таки думаю, ..

цитата:

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

Есть ли в xHarbour средство блокирования закрытия окна Windows (блок крестика)?

 Отправлено: 04.04.10 15:53. Заголовок: AndreyZh пишет: Ест..

AndreyZh пишет:

цитата:

Есть ли в xHarbour средство блокирования закрытия окна Windows (блок крестика)?

PSP пишет:

цитата:

Крест можно отключить. Поищите по форуму.

 Отправлено: 04.04.10 16:04. Заголовок: AndreyZh пишет: Ест..

AndreyZh пишет:

цитата:

Есть ли в xHarbour средство блокирования закрытия окна Windows (блок крестика)?

При использовании терминала gtwin можно пользоваться WinAPI:

цитата:

SetConsoleTitle( cTitle ) hWnd := FindWindow( cTitle ) DeleteCloseButton( hWnd ) #PRAGMA BEGINDUMP #include "hbapi.h" #include "windows.h" HB_FUNC( SETCONSOLETITLE ) { hb_retl( SetConsoleTitle( hb_parc( 1 ) ) ) ; } HB_FUNC( FINDWINDOW ) { hb_retnl( (LONG)FindWindow( 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

для терминала gtWVT есть функция GTInfo(). Она в том числе умеет и "крест гасить".

ЗЫ: я пользуюсь Harbour-ом. Про xHarbour точно не подскажу, надеюсь, что на этом уровне все также.

 Отправлено: 04.04.10 16:55. Заголовок: PSP пишет: При испо..

PSP пишет:

цитата:

При использовании терминала gtwin можно пользоваться WinAPI

цитата:

ЗЫ: я пользуюсь Harbour-ом

В Harbour можно использовать стандартный вызов hb_gtInfo( HB_GTI_CLOSABLE, .f. ) и для gtWIN
если его пересобрать с HB_GTWIN_USE_UNDOC_WINAPI
set HB_USER_CFLAGS=%HB_USER_CFLAGS% -DHB_GTWIN_USE_UNDOC_WINAPI