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

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

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

PSP пишет:

цитата:

AndreyZh пишет: цитата: По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows В оригинале - FindWindow. (be attentive...)

Мдя...

 Отправлено: 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 давайте опустим - проблему решил, а обсуждение превращается в ....

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

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

AndreyZh пишет:

цитата:

1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009

Не вижу проблемы
AndreyZh пишет:

цитата:

2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример: DbSelectArea(0) DbSetIndex(1)

И вообще всех с праздником , лично я пошел бай

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

AndreyZh пишет:

цитата:

pWind("Программа оперативного учёта")

По ходу кирилица не катит !
На англицком пишите.

 Отправлено: 04.04.10 21:09. Заголовок: AndreyZh пишет: hb_..

AndreyZh пишет:

цитата:

hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) );

В WinAPI не функции FindWindows. Есть FindWindow.

Dima пишет:

цитата:

По ходу кирилица не катит !

Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().

 Отправлено: 04.04.10 21:11. Заголовок: По ходу кирилица не ..

цитата:

По ходу кирилица не катит ! На англицком пишите.

Та же самая ошибка при компиляции unresolved external _FindWindows

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

AndreyZh пишет:

цитата:

Та же самая ошибка при компиляции unresolved external _FindWindows

Вы ответы читаете? :)

 Отправлено: 04.04.10 21:14. Заголовок: PSP пишет: Вы ответ..

PSP пишет:

цитата:

Вы ответы читаете? :)

Похоже что нет

 Отправлено: 04.04.10 21:14. Заголовок: PSP Спасибо всё за..

PSP

Спасибо всё заработало, в том числе с кириллицей! Причём всё подсказывали правильно - я неправильно переписал

 Отправлено: 04.04.10 21:16. Заголовок: PSP пишет: Угу. Сей..

PSP пишет:

цитата:

Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().

Работает однако.

PS
я бай ;)

 Отправлено: 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 Ерунда - последовал Вашему совету (написал сам).

 Отправлено: 05.04.10 04:15. Заголовок: AndreyZh пишет: ц..

AndreyZh пишет:
[quote]
цитата:
Окно на полном экране занимает меньше половины экрана:

А это уже Harbour... Вызываете свойства окна Windows/вкладка расположение/ставите высоту строки 25.... [quote]

Это каждый пользователь сам будет делать ? Круто !
Я бы хотел посмотреть на бухгалтеров (в возрасте), как они это будут делать ...

Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры !
На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !

 Отправлено: 05.04.10 09:25. Заголовок: Петр Забыл еще об о..

Петр
Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совмествное использование индексированных БД системами на разных языках.

цитата:

Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры !

Уже приводил пример Far версии до 2.0 (где они это исправили)...

цитата:

На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !

Подскажите, плиз как это сделать!


P.S. Ответьте пожалуйста на личное послание.

 Отправлено: 05.04.10 10:23. Заголовок: AndreyZh пишет: Под..

AndreyZh пишет:

цитата:

следовательно невозможно совмествное использование индексированных БД системами на разных языках.

Да выкинь уже Клипер нафиг, нечего держаться за него !


AndreyZh пишет:

цитата:

Подскажите, плиз как это сделать!

Писал ранее !
SETMODE(24,80)

AndreyZh пишет:

цитата:

Ответьте пожалуйста на личное послание.

Здесь на форуме, я не нашел как отвечать на личное послание !
Отвечаю здесь: могу только сопровождать в установке и консультациях, куда и что зайти.
Я не владею бухгалтерскими навыками, да и уже возраст не тот чтоб заморачиваться с этим.

 Отправлено: 05.04.10 10:38. Заголовок: Писал ранее ! SETM..

цитата:

Писал ранее ! SETMODE(24,80)

Попробую.

цитата:

Здесь на форуме, я не нашел как отвечать на личное послание

Почта в профиле реальная?

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

 Отправлено: 05.04.10 11:00. Заголовок: AndreyZh пишет: Поч..

AndreyZh пишет:

цитата:

Почта в профиле реальная?

Да.

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

Хамить не надо! Да? Куда и зачем мне переходить позвольте решение принимать самому на основании глубокого изучения альтернатив, серьёзного тестирования средств разработки, надёжности инструмента, перспективных пожеланий пользователей....

 Отправлено: 05.04.10 11:54. Заголовок: AndreyZh пишет: Хам..

AndreyZh пишет:

цитата:

Хамить не надо!

Да никто и не хамит ! Дельный совет ! Или хватит возгласов насчет "не совместимости" с Клипером !!!
Я тоже советую выкинуть Клипер и сосредоточиться на хХарборе.
Я уже писал ранее, после перехода на хХарбор, я МЕНЬШЕ стал тратить время на сопровождение пользователей !
Т.к. программа на хХарборе НАМНОГО СТАБИЛЬНЕЙ работает, чем на Клипере !!!

 Отправлено: 05.04.10 11:55. Заголовок: Andrey пишет: Дельн..

Andrey пишет:

цитата:

Дельный совет !

+1

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

AndreyZh пишет:

цитата:

но ещё раз прошу - не хотите реально помочь, тогда и не нужно делать сообщения...

Не все зависит от моих "хотелок". Дело в том, что иногда вы пишете информацию, которая не является полной или корректной, иногда откровенные глупости (хочется надеяться, что по незнанию).
Все это могут читать и другие новички, и у них может сложиться неправильное мнение.
А я все таки модератор Может вас просто забанить, тем самым дав время документацию почитать?

 Отправлено: 05.04.10 12:50. Заголовок: Петр пишет: А я все..

Петр пишет:

цитата:

А я все таки модератор

Боюсь что уже нет

 Отправлено: 05.04.10 12:57. Заголовок: Спасибо Dima и что м..

Спасибо Dima и что мне теперь с эти делать

 Отправлено: 05.04.10 13:03. Заголовок: Петр пишет: и что м..

Петр пишет:

цитата:

и что мне теперь с эти делать

Виртуально пожать руку Pasha и поздравить его тоже с назначением

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

Dima пишет:

цитата:

Виртуально пожать руку Pasha и поздравить его тоже с назначением

Ок

 Отправлено: 06.04.10 12:22. Заголовок: Добрый день! Сегодн..

Добрый день!

Сегодня начал первые тесты у клиентов и был неприятно удивлён! Напомню, что неоднократно тестировал xHarbour приложения, сравнивая по скорости с clipper 5.01 аналогами и на моём ПК (XP Prof, AMD Atlon 3200, 2Gb, SATA 160Gb) вне зависимости от наличия фоновых приложений скорость у xHarbour на ВСЕХ операциях получалась в 2-3 раза выше (в основном БД была меньше 100Mb). Пока установил в 3 фирмах (во всех конфигурациях теста скорость xHarbour, как и 5-8 лет назад на 10-30% НИЖЕ):

1. фирма. Не выделенный сервер, все ПК (XP Prof, примерно класса Celer 2400/512Mb/120Gb). Harbour хуже, как в локальном, так и по сети. БД 300Mb.

2. фирма. Выделенный Windows Server 2005 (крутой). Оперативные режимы и отчёты xHarbour тормознее на 40%. БД 170Mb.

3. фирма. Не выделенный XP Prof (2 ядерный пень), рабочие станции дохлые под Win 98. xHarbour с рабочих станций медленнее на 10-20%. БД 730Mb.

Везде фоном были запущенны различные офисные программы 1С, офис, Paint, Browse. Вопросы:

1. Какие версии? Какая может быть причина? Почему у меня скорость xHarbour получалась в 2-3 раза быстрее, чем у Clipper.
2. Кто нибудь сравнивал быстродействие по сети аналогичных программ на Harbour и Clipper с одинаковым типом индексных файлов и большим размером баз данных? Какие результаты?


После обеда ещё потестю в паре фирм с очень хорошей техникой, но зоопарком ОС от Win2000-Seven. Но уже "сомневаюсь". Очень надеюсь на Ваши ответы, прогнозы и рекомендации по настройке ОС (пока не смены формата БД).

 Отправлено: 06.04.10 13:31. Заголовок: Так в чем заключаетс..

Так в чем заключается проблема ? Раньше тест xHb был быстрее, чем сейчас ?
Первое предположение - раньше Вы тестировали на релизе годичной давности, а сейчас собрали на текущей версии. Проверьте это предположение.
А конкретно можно что-то сказать, если Вы покажете свой тест.

 Отправлено: 06.04.10 13:54. Заголовок: AndreyZh пишет: Оче..

AndreyZh пишет:

цитата:

Очень надеюсь на Ваши ответы, прогнозы и рекомендации по настройке ОС

Попробуй разобраться с предназначением/использовать для работы следующую функцию из ядра xHarbour:

цитата:

/* * * Operating system functions for Win32 * * Program to check and set Windows Registry settings * for safe networking - all versions of Windows to XP SP2 * * * Also includes check for buggy VREDIR.VXD under Win95 * and if the correct patch file is found - run it. */ #include "directry.ch" FUNCTION OS_NETREGOK( lSetIt, lDoVista ) LOCAL rVal:= .T., cKeySrv, cKeyWks IF lSetIt == NIL lSetIt:= .F. ENDIF IF lDoVista == NIL lDoVista:= .T. ENDIF IF !lDoVista .AND. OS_ISWINVISTA_OR_LATER() // 06/12/09 changed from OS_ISWINVISTA() * ELSEIF OS_ISWIN9X() rVal:= QueryRegistry( 0,"System\CurrentControlSet\Services\VxD\VREDIR","DiscardCacheOnOpen",1, lSetIt ) ELSE cKeySrv:="System\CurrentControlSet\Services\LanmanServer\Parameters" cKeyWks:="System\CurrentControlSet\Services\LanmanWorkStation\Parameters" lSetIt:= lSetIt .AND. ( OS_ISWINNT() .OR. OS_ISUSERANADMIN() ) // 06/12/09 Only Try to set registry if Admin authority for Win2000 or later // Server settings rVal:= rVal .AND. QueryRegistry( 0, cKeySrv, "CachedOpenLimit", 0, lSetIt ) rVal:= rVal .AND. QueryRegistry( 0, cKeySrv, "EnableOpLocks", 0, lSetIt) // Q124916 rVal:= rVal .AND. QueryRegistry( 0, cKeySrv, "EnableOpLockForceClose", 1, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeySrv, "SharingViolationDelay", 0, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeySrv, "SharingViolationRetries", 0, lSetIt) IF OS_ISWINVISTA_OR_LATER() // // 06/12/09 If SMB2 is enabled then turning off oplocks does not work so SMB2 is required to be turned off on Server rVal:= rVal .AND. QueryRegistry( 0, cKeySrv,"SMB2",0, lSetIt ) ENDIF // Workstation settings rVal:= rVal .AND. QueryRegistry( 0, cKeyWks, "UseOpportunisticLocking", 0, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeyWks, "EnableOpLocks", 0, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeyWks, "EnableOpLockForceClose", 1, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeyWks, "UtilizeNtCaching", 0, lSetIt) rVal:= rVal .AND. QueryRegistry( 0, cKeyWks, "UseLockReadUnlock", 0, lSetIt) IF OS_ISWIN2000_OR_LATER() rVal:= rVal .AND. QueryRegistry( 0, "System\CurrentControlSet\Services\MRXSmb\Parameters","OpLocksDisabled",1, lSetIt ) ENDIF ENDIF RETURN( rVal )

Дополнительно рекомендуется изучить эту ссылку.

 Отправлено: 06.04.10 14:48. Заголовок: AndreyZh пишет: Как..

AndreyZh пишет:

цитата:

Какие версии? Какая может быть причина? Почему у меня скорость xHarbour получалась в 2-3 раза быстрее, чем у Clipper.

Все зависит от ваших исходников, т.е. как вы работаете с БАЗОЙ .... Если используете оператор SET FILTER, то в Клипере он быстрей чем на Харборе, из-за его реализации (там присутствует оптимизация по фильтру). Я уже писал об этом.
А так как вы тестировали на локальной машине, то и исходники свои не оптимизировали на сеть.
Мне пришлось перелопачивать свои исходники и переделывать выборку по базам....

AndreyZh пишет:

цитата:

Кто нибудь сравнивал быстродействие по сети аналогичных программ на Harbour и Clipper с одинаковым типом индексных файлов и большим размером баз данных? Какие результаты?

Да я сравнивал. Базы по 300-400 полей. Объем от 60-200 Мб. Выборка из базы (условная индексация) 0.2-10 сек.
Если нужно обработать группу записей, то делай выборку (условный индекс) обрабатывай, потом закрывай индекс.
Для сети - отказывайся от SET FILTER (под Харбором он медленный ! Читай выше...) и переделывай свой алгоритм обработок.
Харбор все равно быстрей чем Клипер даже по сети. У меня задача на 50000 абонентов на Клипере считалась 5-6 часов, а на Харборе тот же самый алгорим считал за 2 часа.
Я сам на переделку угробил тоже много времени, но зато сейчас хоть легче стало. Сейчас пытаюсь построить работу с базами так, чтоб можно было перейти на LetoDB....
И буду иметь у себя в задаче СРАЗУ: 1) локальный вариант, 2) сетевой (Файл-Сервер), 3) Терминальный
и 4) сетевой (Клиент-Сервер)

 Отправлено: 06.04.10 14:57. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Дополнительно рекомендуется изучить эту ссылку.

AndreyZh пишет:

цитата:

Увы - даже с русским языком плохо, с англицких ещё хуже

 Отправлено: 06.04.10 14:58. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если используете оператор SET FILTER, то в Клипере он быстрей чем на Харборе, из-за его реализации (там присутствует оптимизация по фильтру). Я уже писал об этом.

У него RDD NTX , о какой оптимизации речь (может я чего пропустил) ?

 Отправлено: 06.04.10 15:01. Заголовок: Dima пишет: У него ..

Dima пишет:

цитата:

У него RDD NTX , о какой оптимизации речь (может я чего пропустил) ?

Это тогда я пропустил....
Я про свой опыт написал. И еще это относится к Клиперу 5.3 !

 Отправлено: 06.04.10 15:08. Заголовок: Добрый день! Спасиб..

Добрый день!

Спасибо за ответы - вечером буду серьёзно думать! Сейчас с админом будет тестить с "крайней" на сегодня конторе, но на первый взляд ситуация аналогична всем предыдущим. Справочно set filter и другие "тормозные" операции не использую, в нескольких режимах есть loca for <> whil <> на десяток записей. Но не в этом суть вопросов.

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

Есть программа (ранее просто массированный ввод и извлечение информации, сейчас перевёл основную систему на xHarbour). Код и механизмы работы с dbf + ntx абсолютно идентичны с сборке на clipper и xHarbour. Тесты дома на базах до 100 mb давали двойное преимущество по скорости программ xHarbour - у клиентов на их сетях, ПК, ОС и базах размера больше 200 mb программа на xHarbour стала (пусть иногда немного) проигрывывать clipper программе.

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

AndreyZh пишет:

цитата:

нескольких режимах есть loca for <> whil <> на десяток записей

Переделать на конструкцию:
индексный файл + SEEK а уж потом whil <> ....
Скорость возрастет !

 Отправлено: 06.04.10 19:06. Заголовок: Добрый вечер! Я в п..

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

Я в печали по поведению xHarbour, в моей задаче... Пока о моей задаче в целом (результаты, уже финальных тестов по скорости). Тесты проводились корректно (в начале первый прогон, затем прогон для снятия данных).

1. Локальный ПК. Сложный отчёт. База 90Mb. Замечу, что большое количество записей в некоторых таблицах большой роли не играет (дома перепроверил на фирме с другой спецификой операций):

Clipper.. - 1' 35"
xHarbour - 40"

2. Рабочая станция, база на сервере, копий проги на других ПК не запущено. База 90Mb, другой (более лёгкий отчёт):
Clipper... - 48"
xHarbour - 34"

3. Рабочая станция, база на сервере, ЗАПУЩЕНЫ КОПИИ ПРОГИ на других ПК. База 90Mb, другой (более лёгкий отчёт):
Clipper... - 3' 12"
xHarbour - 8' 24"

4. Локальный ПК. Сложный отчёт. База 560Mb:

Clipper.. - 3' 18"
xHarbour - 4' 52"

5. Рабочая станция, база на сервере, копий проги на других ПК не запущено. База 560Mb, другой (более лёгкий отчёт):
Clipper... - 1' 30"
xHarbour - 2' 15"

6. Рабочая станция, база на сервере, ЗАПУЩЕНЫ КОПИИ ПРОГИ на других ПК. База 90Mb, другой (более лёгкий отчёт):
Clipper... - 5' 30"
xHarbour - более 10 минут.

Попытки админа поиграть параметрами сети не привели к коррекции результатов. Из этого делаю вывод, что при малом объеме данных xHarbour более продуктивно использует Ram и различные кэш являясь при этом более медленной системой.

 Отправлено: 06.04.10 19:16. Заголовок: Попробую ответить на..

Попробую ответить на Ваши пожелания.

Andrey

цитата:

Переделать на конструкцию: индексный файл + SEEK а уж потом whil <> .... Скорость возрастет !

А як же? Конечно такая конструкция loca for <> whil <> используется при наличии "основного" ключевого поля, при этом условия For плавающее, т.е. индекс нельзя предусмотреть.

Dima

цитата:

У него RDD NTX , о какой оптимизации речь (может я чего пропустил) ?

Наверное давно активно работали с Clipper 5.01? В него только начали вносить "элементы" технологии RDD для работы с базами/индексами fox, dBase, paradox, а с NTX clipper машина работает напрямую... Полностью на RDD перешли только с 5.2, что резко снизило (на 20-30%) скорость работы, в том числе с индексами NTX (это одна из причин моего отказа от перехода (по основной системе) на "свежии" версии, хотя на другой и сделал переход, т.ч. статистика достаточная).

 Отправлено: 06.04.10 19:35. Заголовок: Dima gfilatov2002 ..

Dima
gfilatov2002

Техническую документацию понимаю Всё, что описано Григорием уже давно пройденный в исследованиях этап...


Andrey

цитата:

Да я сравнивал. Базы по 300-400 полей. Объем от 60-200 Мб. Выборка из базы (условная индексация) 0.2-10 сек. Если нужно обработать группу записей, то делай выборку (условный индекс) обрабатывай, потом закрывай индекс.

Не стояла задача оптимизации по скорости - она более чем достаточна.. Просто xHarbour меня сильно соблазнил, тем, что не меняя "ничего" можно резко (в 2 раза повысить скорость приложения). Но этот опыт лишний раз меня убедил, что сравнения систем (баз данных и т.д.) нужно проводить на "пограничных" состояниях

цитата:

и переделывай свой алгоритм обработок

Это и является основным способом радикальных ускорений конкретных режимов. Для примера <4. Локальный ПК. Сложный отчёт. База 560Mb:
Clipper.. - 3' 18" xHarbour - 4' 52"> годовой анализ рентабельности товаров в зависимости от сезонности. Отчёт "стырил" с навороченной конфы 1С - для сравнимой фирмы (18 8.1 MS Sql) она проводила данный анализ за несколько часов


Pasha

цитата:

Так в чем заключается проблема ? Раньше тест xHb был быстрее, чем сейчас ?

Нет - выявилась "яма" в скоростных возможностях xHarbour!


Здесь облом! Начинается этап пользовательских тестов на устойчивость данных при массированном вводе информации с 3-8 рабочих мест...

 Отправлено: 06.04.10 20:13. Заголовок: AndreyZh А слабо по..

AndreyZh
А слабо показать на самодостаточном живом примере что Xharbour работает уступает по скорости Clipper ?

AndreyZh пишет:

цитата:

выявилась "яма" в скоростных возможностях xHarbour!

Может быть "яма" в ваших алгоритмах ?

 Отправлено: 06.04.10 20:45. Заголовок: 1. Я все-таки совету..

1. Я все-таки советую обратить внимание на Harbour. По части совместимости с clipper он сейчас мало в чем уступает, а по некоторым моментам превосходит xHarbour. А по скорости Harbour сейчас превосходит xHarbour в среднем в 2 раза. Об это пишут и разработчики xHb, да я и сам проводил эти тесты.

2. Надо использовать трюк в функции fsCommit в модуле rtl\filesys.c. Об этом здесь многократно писалось.

3. Для совместно открытых файлов используйте блокировку индекса на чтение

dbOrderInfo(DBOI_READLOCK,,, .t.)

Этот дает выигрыш в производительности в разы.

 Отправлено: 06.04.10 21:48. Заголовок: AndreyZh пишет: Про..

AndreyZh пишет:

цитата:

Просто xHarbour меня сильно соблазнил, тем, что не меняя "ничего" можно резко (в 2 раза повысить скорость приложения). Но этот опыт лишний раз меня убедил, что сравнения систем (баз данных и т.д.) нужно проводить на "пограничных" состояниях

Это вы конечно исходили из ложных предпосылок. Если виртуальная машина работает в 2 раза быстрее, то это совсем не значит, что доступ к диску происходит в 2 раза быстрее или сетевые операции в 2 раза быстрее начинают выполнятся. Узкие места все равно остаются.
Теперь по сравнению систем. xHarbour приложение у вас является 32 разрядным win приложением и выполняется, как и положено любому нативному Windows приложению. Clipper приложение выполняется под NTVDM. Для чистоты эксперимента возьмите сборку xHarbour для DOS (есть такие) и сравните.

Pasha пишет:

цитата:

А по скорости Harbour сейчас превосходит xHarbour в среднем в 2 раза.

Это да, но работа в сети сильно нивелирует разницу в скорости виртуальных машин. И в сухом остатке можно рассчитывать на 6-10%.
Но если писать серверную часть, то конечно, как написал Miguel Angel Marchuet: "the result is impressive".

 Отправлено: 06.04.10 21:53. Заголовок: Dima А слабо показа..

Dima

цитата:

А слабо показать на самодостаточном живом примере что Xharbour работает уступает по скорости Clipper

Я как бы просто описал результаты тестов - суть есть некий критический объем БД, которую программа должна обрабатывать, превышая который xHarbour (dbf + ntx) начинает работать медленнее, чем clipper 5.01 (dbf + ntx) и всё. У меня "растройство", а Вы ещё издеваетесь При желании сами сгенерируйте набор связанных таблиц объёмом более 300Mb и попробуйте...

цитата:

Может быть "яма" в ваших алгоритмах ?

В тестах не сравнивались скорости алгоритмов обработки данных, а сравнивалась скорость обработки данных программами на Clipper 5.01 и xHarbour (сборка 12.2009) по единообразным алгоритмам. Если же Вы сомневаетесь в моём профессионализме разработчика - дайте мне свою небольшую программу и я её ускорю в пару раз.


Pasha

цитата:

Я все-таки советую обратить внимание на Harbour. По части совместимости с clipper он сейчас мало в чем уступает, а по некоторым моментам превосходит xHarbour. А по скорости Harbour сейчас превосходит xHarbour в среднем в 2 раза. Об это пишут и разработчики xHb, да я и сам проводил эти тесты.

Вполне возможно! Но первой мне попалась инструкция для новичков от Верченко Андрея, по этому и использовался xHarbour, да и казалось, что продукт от коммерческих разработчиков должен быть более тщательно проработан. Если Вас не затруднит перекомпилируйте систему из моей ссылки в первом сообщении (все исходники, bat) приложены и я с удовольствием (и на пользу дела) проведу повторное тестирование на скорость, а так же в дальнейшем на надёжность системы на Harbour.

цитата:

2. Надо использовать трюк в функции fsCommit в модуле rtl\filesys.c. Об этом здесь многократно писалось. 3. Для совместно открытых файлов используйте блокировку индекса на чтение dbOrderInfo(DBOI_READLOCK,,, .t.) Этот дает выигрыш в производительности в разы.

Все рекомендации очень полезны (и будут мной задействованы в будущем). Но сейчас была другая задача.

 Отправлено: 06.04.10 22:19. Заголовок: AndreyZh пишет: Есл..

AndreyZh пишет:

цитата:

Если же Вы сомневаетесь в моём профессионализме разработчика - дайте мне свою небольшую программу и я её ускорю в пару раз.

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

     
     crVall  := AllTrim(Upper(nameVal)) 
     &crVall := IF(Upper(Left(crVall,1))=='C', AllTrim(zVal),; 
                IF(Upper(Left(crVall,1))=='N', Val(zVal),; 
                IF(Upper(Left(crVall,1))=='D', Ctod(AllTrim(zVal)),; 
                IF(Upper(Left(crVall,1))=='L', ".T." $ Upper(zVal),"")))) 
  
 

 Отправлено: 06.04.10 22:23. Заголовок: Петр даже знаю како..

Петр
даже знаю какой будет ответ от AndreyZh .............

PS
Тем не менее с удовольствием посмотрю на его оптимизированный код.
И я по ходу совсем не прикалываюсь !!!!!!!!!!! Это к Топикстартеру относится.

 Отправлено: 07.04.10 01:01. Заголовок: Pasha пишет: 2. Над..

Pasha пишет:

цитата:

2. Надо использовать трюк в функции fsCommit в модуле rtl\filesys.c. Об этом здесь многократно писалось.

А можно еще раз написать про это ? А то делаешь поиск по сайту здесь, а поиск "косячит", т.е. не дает результата....
Заранее спасибо !

Pasha пишет:

цитата:

3. Для совместно открытых файлов используйте блокировку индекса на чтение dbOrderInfo(DBOI_READLOCK,,, .t.)

Дайте пожалуйста пример небольшой... Хотя бы конструкцию... Я хочу на своей большой системе попробовать...
Заранее спасибо !

 Отправлено: 07.04.10 09:27. Заголовок: Andrey пишет: А мож..

Andrey пишет:

цитата:

А можно еще раз написать про это ?

http://clipper.borda.ru/?1-4-0-00000477-000-10001-0-1257415410

 Отправлено: 07.04.10 09:39. Заголовок: 2. В модуле rtl\..

2. В модуле rtl\filesys.c в начале fsCommit надо вставить 4 строки, так:

HB_EXPORT void hb_fsCommit( FHANDLE hFileHandle )
{
HB_THREAD_STUB
HB_TRACE(HB_TR_DEBUG, ("hb_fsCommit(%p)", hFileHandle));
/*
Working hb_fsCommit() on Windows.
Personally I'm not a fun of this because it deeply interact with
internal OS buffering scheme.
in source/rtl/filesys.c add at the beginning of function hb_fsCommit()
(line: 2467 just before HB_STACK_UNLOCK)
*/
#if defined(HB_OS_WIN_32)
hb_fsSetIOError( TRUE, 0 );
return;
#endif

3. Выборки из файла можно выполнять так:

dbOrderInfo(DBOI_READLOCK,,, .t.)
dbSeek(..)
while ...
if ...
endif
skip
enddo
dbOrderInfo(DBOI_READLOCK,,, .f.)

Это блокировка индекса на чтение. Она выполняется всегда при любой навигавии по таблице, т.е. в операциях seek/skip/goto
Если выборка состоит из 100 строк, то блокировка/разблокировка будет выполняться 100 раз, и выборка будет тормозить.
Если блокировку сделать перед выборкой, то выборка будет выполняться быстро.
Но злоупотреблять READLOCK не стоит, поскольку на время блокировки эти данные недоступны для чтения с других станций.

 Отправлено: 07.04.10 12:10. Заголовок: Доброго дня! Вопрос..

Доброго дня!

цитата:

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

Смотрю на код... Что похожее есть у меня в программе... Если это "наезд", то пошукайте код еще и такое найдёте... Иногда, добавляя возможности в систему натыкаюсь на блоки написанные еще в 1992 году (см. funcanzh.prg) - они работают, так зачем их трогать?

В приведённом примере есть несколько "некрасивостей", но вне зависимости от этого у меня схожий блок выполняется единожды при запуске программы и занимает по времени 0.001 секунды и как проверить его оптимальность не знаю?

цитата:

даже знаю какой будет ответ от AndreyZh .............

Мне это очень интересно? Какой следует ожидать от меня ответ?


Ладно - это флуд, обед заканчивается, краткая инфа:

Под тест попала самая худшая аппратная конфигурация (сервер celer 1700 (без кэш)/128Mb/IDE 80Gb, раб.станции ещё хуже - всё под win 98). Это конечно "мрак" но всех устраивала работа dos программы. Радует, что xHarbour вариант вообще запустился, но в силу жутких тормозов девушки категорически отказались от дальнейшего тестирования.

Примечание. В winXP кириллица отражалась как заголовок окна, а под win 98 НЕТ. Не "кидайте в меня", но где-то около 150 ПК продолжает работать под win 98 и несколько win 95 (и я не мог заставить руководство избавиться от этого "мусора").

 Отправлено: 07.04.10 12:27. Заголовок: AndreyZh пишет: Под..

AndreyZh пишет:

цитата:

Под тест попала самая худшая аппратная конфигурация (сервер celer 1700 (без кэш)/128Mb/IDE 80Gb, раб.станции ещё хуже

Нормальный компьютер

цитата:

ещё хуже - всё под win 98

Под win98 тормозит терминал gtwin. Используйте gtwvt

 Отправлено: 07.04.10 16:53. Заголовок: Добрый вечер. УВЫ!!..

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

УВЫ!!! С прискорбием сообщаю, что система на Clipper 5.01 пересобранная на xHarbour провалила тест на надёжность.

Тестирование проводилось на стабильно работающей мощной технике (рабочие станции XP Prof/Home Celer от 2400/RAM от 512/SATA от 160, выделенный сервер 4 ядерный Xeon/RAID 10/RAM 4Gb, сеть 100mb/1Gb). Существующая программа показывает стабильную работу (до 1
разрушения индексов в 6 месяцев) при весьма большой нагрузке до 10 операторов на запись + 50 КПК в двух системах мобильной торговли + 8 точек внешних автоматических заказов). Все процессы записи завершаются функциями (что гарантирует (у clipper) её успешность):
DbUnlockAll()
DbCommitAll()

Суть теста - 5 операторов одновременно вводят по 10 накладных + ввод 30 фин.документов + с 5 рабочих мест построение отчётов. Данная нагрузка не порушила данные, но операторы заметили глюк - после завершения массированной записи документов на одном (физически разные ПК) рабочем месте программа не могла в течении 3 минут произвести сохранения (были блокированны ресурсы) хотя формально блокировки были сняты.. Потом "просыпаясь" данные всё таки сохранялись.

То есть и как при тесте скорости, так и здесь возникает ощущение, что xHarbour виртуальная машина работает с неким КЭШ, который создаёт иллюзию скорости на малом объёме данных, а при его "переполнении" (выгрузки на физический носитель) включаются "тормоза".

Затем начался "садизм" - обычная практика пользователей. При этом НИКТО НЕ ПРОИЗВОДИЛ ввод данных в базу. Делалось закрытие программ "крестиком" и перезагрузкой ПК (на 3 рабочих местах). Система на Clipper спокойно к этому относится, т.к. до этого все данные "выдавлены после записи на физический носитель". Возникли проблемы:

1. Процессы оставили часть файлов заблокированными.
2. После корректного завершения программы с остальных рабочих мест система стала резко тормозить даже при запуске на сервере.
3. После принудительного закрытия блокированных файлов средствами MS WinServer 2008 была проведена проверка "логической целостности", обнаружившая разрушение данных.
4. Просмотр файлов средствами DBU показал физическое разрушение Dbf файлов (не тех, которые принудительно закрывали).


РЕЗЮМЕ. Перевод существующей, тщательно отработанной системы на Clipper посредством компилятора xHarbour не обеспечивает:

1. Ускорения работы системы на БОЛЬШИХ базах;
2. Стабильность и устойчивость системы скорее всего снизится.


РЕШЕНИЕ. При острой необходимости перевода существующей Clipper системы на (x)Harbour её необходимо радикально переделывать и желательно под SQL Server, например ADS, MS SQL Express, FireBird, MySql...


P.S. У меня осталось два вида тестирования (на завта), просто любопытство на будущее:

1. Проверка работоспособности на Win95;
2. Проверка ситуации с Win 98 (просто плохая совместимость с данной системой или Win98 в качестве сервера) на конторе, где сервер (выделенный MS Windows Server 2003 и большинство рабочих станций на Win 98).