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

 Отправлено: 04.04.10 17:53. Заголовок: Добрый вечер! 1. Сп..

Добрый вечер!

1. Спасибо за советы! Но по "крестику" мало, что понял - наверное "не дорос". Можно ли его блокировать, собирая как у меня в xHarbour - стандартным (упрощенным) образом?

2. Переделал всё с учётом Ваших замечаний, добавив шрифты и настройки Win под Dos (5.92 mb) http://get.freesoft.ru/?id=108083

3. "Нарыл" еще несовместимостей:

- Нет функции Random. Есть hb_random, hb_randomInt, но они глючат
- Нет функции создания файла Hb_create. Хотя компилятор на её отсутствие не ругается.

Спасибо за помощь!

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

AndreyZh пишет:

цитата:

1. Спасибо за советы! Но по "крестику" мало, что понял - наверное "не дорос"

В своей проге где нить в самом начале напиши
Local hWnd

SetConsoleTitle( "Blabla" )
hWnd := FindWindow( "Blabla" )
DeleteCloseButton( hWnd )

* вместо Blabla напиши то что тебе нужно
Там же где то вставь код

 
 #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  
  
 

AndreyZh пишет:

цитата:

- Нет функции Random. Есть hb_random, hb_randomInt, но они глючат

Что значит глючат ? Параметры этих функций смотрел ?

AndreyZh пишет:

цитата:

Нет функции создания файла Hb_create

О DbCreate речь ?

 Отправлено: 04.04.10 18:52. Заголовок: В своей проге где ни..

цитата:

В своей проге где нить в самом начале напиши

Сейчас проверю... Уже несложно, т.к. отделил "различия" кода на Clipper и xHarbour.

Что это? Вставка исходника на C в код программы? (Задача весьма актуальна)

цитата:

Что значит глючат ? Параметры этих функций смотрел ?

А як же! Глюк выражается в вылете программы, даже ErrorBlock не ловит. Например на коде:
nRand:=HB_Random(1,99999) // Отловлено обрамлением паузой wait

цитата:

О DbCreate речь ?

Да. Посоветовали (Andrey) http://clipper.borda.ru/?1-4-0-00000527-000-60-0 использовать Да есть она. HB_FTempCreate() Смотри документацию, т.е. xHarbour Language Reference Guide 1.1 Ерунда - последовал Вашему совету (написал сам).

 Отправлено: 04.04.10 19:06. Заголовок: AndreyZh пишет: Что..

AndreyZh пишет:

цитата:

Что это? Вставка исходника на C в код программы? (Задача весьма актуальна)

Ну да :)
Вот готовый примерчиг ;)

 
 Proc main 
 Local hWnd 
 SetConsoleTitle( "Blabla" ) 
 hWnd := FindWindow( "Blabla" ) 
 DeleteCloseButton( hWnd )  
 wait // а крестик и не доступен ;) 
 return  
  
  #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   
    
   
  
 

 Отправлено: 04.04.10 19:09. Заголовок: Dima пишет: hWnd :=..

Dima пишет:

цитата:

hWnd := FindWindow( "Blabla" )

Для надежности можно сделать так

Do While ( hWnd:= FindWindow( "Blabla" ) ) == 0
Enddo

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

AndreyZh пишет:

цитата:

Например на коде: nRand:=HB_Random(1,99999)

у мну номано сработал код.

 Отправлено: 04.04.10 19:18. Заголовок: Dima По примерам с..

Dima

По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows

 Отправлено: 04.04.10 19:25. Заголовок: у мну номано сработа..

цитата:

у мну номано сработал код

Малость не до конца описал текст:

proc a()
loca nRand, cfile

nRand := hb_random(1,99999)
wait str(nrand) // РАБОТАЕТ

whil .t.

nRand := hb_random(1,99999) // УЖЕ ВЫЛЕТАЕТ
cfile := alltrim( str(nRand) )+".txt"
if !File(cfile)
EXIT
endi

endd
retu

 Отправлено: 04.04.10 19:36. Заголовок: AndreyZh пишет: nRa..

AndreyZh пишет:

цитата:

nRand := hb_random(1,99999) // УЖЕ ВЫЛЕТАЕТ

У меня работает НОРМ.
А что пишет когда вылетает ?

По ходу можно обойтись без рандом , например так
? seconds() // вместо hb_random

или более извращенно
? hb_md5(str(seconds())) // вместо hb_random

 Отправлено: 04.04.10 19:46. Заголовок: А что пишет когда вы..

цитата:

А что пишет когда вылетает ?

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

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

AndreyZh пишет:

цитата:

что молчит гад

error.log не пробовал смотреть ?

Xharbour или Harbour ?

 Отправлено: 04.04.10 19:56. Заголовок: AndreyZh пишет: Но ..

AndreyZh пишет:

цитата:

Но это сейчас не важно

Думаю важно. Не может вылетать на ровном месте.
Возможно в чем то другом причина.
Ради прикола запустил в цикле до 1 лимона
nRand := hb_random(1,99999) // УЖЕ ВЫЛЕТАЕТ

Сработало как часы.

 Отправлено: 04.04.10 20:10. Заголовок: Думаю важно. Не може..

цитата:

Думаю важно. Не может вылетать на ровном месте. Возможно в чем то другом причина. Ради прикола запустил в цикле до 1 лимона nRand := hb_random(1,99999) // УЖЕ ВЫЛЕТАЕТ Сработало как часы.

Создал аналогичный блок и так же сработало без ошибок.... К сожалению, что было уже затёр, но если Вы скачали первый тестовый пример, то вылет на функции zTemp модуля xharbour.prg

 Отправлено: 04.04.10 20:13. Заголовок: error.log не пробова..

цитата:

error.log не пробовал смотреть ?

Как ни странно, но файл не создавался.

цитата:

Xharbour или Harbour ?

xHarbour

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

AndreyZh пишет:

цитата:

xHarbour

версия (сборка) ?

 Отправлено: 04.04.10 20:21. Заголовок: версия (сборка) ? 1..

цитата:

версия (сборка) ?

1.2.1 от декабря 2009

 Отправлено: 04.04.10 20:30. Заголовок: AndreyZh пишет: 1.2..

AndreyZh пишет:

цитата:

1.2.1 от декабря 2009

Самопал или где то брал готовую ?

Проверил на
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6693)
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6225)

Твой пример работает без проблем в том числе и в цикле до 1 лимона.

 Отправлено: 04.04.10 20:34. Заголовок: Да ничего там не выл..

Да ничего там не вылетает.
За всю историю своего флейма (с учетом топика про ламеров) AndreyZh так и не привел ни ОДНОГО примера с ошибкой [x]Harbour. Флейм он и есть флейм.

 Отправлено: 04.04.10 20:44. Заголовок: Петр пишет: В Harbo..

Петр пишет:

цитата:

В 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

Буду знать. Спасибо!

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

AndreyZh пишет:

цитата:

По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows

В оригинале - FindWindow.
(be attentive...)