Отправлено: 30.11.14 11:22. Заголовок: Перевожу Clipper на консольный Харбор

Добрый день, уважаемое сообщество!

Перехожу на Харбор, собрал программу, начинаю бороть ошибки несовместимости кода, по мере появления вопросов надеюсь на скорую помощь.
Заранее всем участникам огромное спасибо!

 Отправлено: 02.10.19 16:40. Заголовок: alexmar пишет: Оказ..

alexmar пишет:

цитата:

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

Шаманство какое то
Придется так же при открытии индексов к базам , расширение указывать явно.

 Отправлено: 02.10.19 16:50. Заголовок: alexmar пишет: 2 По..

alexmar пишет:

цитата:

2 По какому типу индекса (NTX, IDX, CDX) бОльшая совместимость между Clipper 5.2e и Harbour?

Я работал раньше с CDX-драйвером. Работало нормально тогда.
Но это давно было и использовал хХарбор терминалку.
хХарборовская терминалка до сих пор отлично пашет даже на слабых компах.

 Отправлено: 03.10.19 10:32. Заголовок: У нас работают задач..

У нас работают задачи как CLIPPER так и HARBOUR одновременно
с одними и теми же базами. Переиндексацию часто делают в DBU
проблем не замечалось. Индексы NTX.
Harbour 3.2.0dev (r1601261444)
Clipper 5.3

 Отправлено: 09.10.19 00:17. Заголовок: Pasha пишет: 3. Деб..

Апну свой вопрос.
alexmar пишет:

цитата:

3 Вопрос по поводу 866 страницы в исходниках. В программе все отображается нормально, а вот кирилические символы в исходниках под дебагером - кракозябры. Есть ли какое-то решение вопроса?

Pasha пишет:

цитата:

3. Дебаггер - это такое же выполнение харбор-кода, как и основной программы. Дебаггер узнает о cp866 только после отработки hb_CdpSelect Возможно, еще надо выдать команду: hb_SetTermCP( "RU866" )

К сожалению, не помогло.
Исходный текст в 866 кодировке в окне дебагера выглядит так:

цитата:

#IfDef HB REQUEST HB_CODEPAGE_RU866 REQUEST HB_LANG_RU866 hb_cdpSelect( "RU866" ) HB_LANGSELECT("RU866") hb_SetTermCP( "RU866" ) #EndIf cName := P_DEFVAL(cName,'"‡ à ¡®â- ï ¯« â "')

Что можно еще сделать? Приложение консольное. Переводить исходники в Win кодировку пока не хочется

 Отправлено: 09.10.19 08:32. Заголовок: Возможно, в самом де..

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

 Отправлено: 09.10.19 08:57. Заголовок: Был неправ. Обычный ..

Был неправ. Обычный терминальный дебагер начал корректно отображать
кириллицу после HB_CDPSELECT ('RU866')

 Отправлено: 09.10.19 15:49. Заголовок: nick_mi пишет: Обыч..

nick_mi пишет:

цитата:

Обычный терминальный дебагер начал корректно отображать кириллицу после HB_CDPSELECT ('RU866')

А где взять и как подключить дебагер ?

 Отправлено: 09.10.19 16:00. Заголовок: Параметр -b в ваше..

Параметр -b в вашем.hbp файле для сборки программы

 Отправлено: 09.10.19 16:39. Заголовок: nick_mi пишет: Пара..

nick_mi пишет:

цитата:

Параметр -b в вашем.hbp файле для сборки программы

не требует библиотек и вызывается стандартно AltD ?

 Отправлено: 09.10.19 17:14. Заголовок: nick_mi пишет: Возм..

nick_mi пишет:

цитата:

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

Скорее всего так и есть
nick_mi пишет:

цитата:

Был неправ. Обычный терминальный дебагер начал корректно отображать кириллицу после HB_CDPSELECT ('RU866')

Наверно вы пользуете стандартный дебагер, а у меня дебагер от alkresin и вызов HB_CDPSELECT ('RU866') не помогает

 Отправлено: 09.10.19 17:56. Заголовок: Где-то натыкался в ф..

Где-то натыкался в форуме, а сейчас не могу найти...
Как запретить DBUseArea при открытии dbf одновременно открывать одноименный индексный файл

 Отправлено: 09.10.19 18:21. Заголовок: SET AUTOPEN OFF..

SET AUTOPEN OFF

 Отправлено: 09.10.19 22:25. Заголовок: спасибо :sm36:..

спасибо

 Отправлено: 11.10.19 08:34. Заголовок: alexmar пишет: а у ..

alexmar пишет:

цитата:

а у меня дебагер от alkresin и вызов HB_CDPSELECT ('RU866') не помогает

Да, дебагер от Кресина я пересобирал, что-бы там правильно отражалась кирилица

 Отправлено: 12.10.19 00:43. Заголовок: а что там нужно подп..

а что там нужно подправить?

 Отправлено: 16.10.19 21:22. Заголовок: Потерялся корректиро..

Потерялся корректированный исходник дебагера, печалька.
Завтра попытаюсь вспомнить, где правил. Там исходный текст
просто конвертил через OemToAnsi, большего не помню

 Отправлено: 17.10.19 11:13. Заголовок: Корректировка дебаге..

Корректировка дебагера Кресина. Там надо добавить строку
hb_OemToAnsi в следующих местах

STATIC FUNCTION SetText( cName, lClear )
.
.
.
FOR i := 1 TO Len( oText:aArray )
IF Chr( 9 ) $ oText:aArray
oText:aArray [ i ] := StrTran( oText:aArray [ i ] , Chr( 9 ), Space( 4 ) )
ENDIF
oText:aArray [ i ] := hb_oemtoansi( oText:aArray [ i ] )
NEXT


STATIC FUNCTION ShowRec( arr, n )
.
.
.
FOR i := 1 TO nFields
FOR j := 1 TO 4
arr1 [ i ,j ] := Hex2Str( arr [ ++n ] )
arr1 [ i , j ] := hb_oemToAnsi ( arr1 [ i ,j ])
NEXT
NEXT

Но это конечно все данные и тексты будет конвертировать. Если есть смешанные данные
надо будет вводить в INI переменные и вставлять логику

 Отправлено: 17.10.19 22:39. Заголовок: спасибо :sm36:..

спасибо

 Отправлено: 24.10.19 01:59. Заголовок: Dima пишет: alexmar..

Dima пишет:

цитата:

alexmar пишет:  цитата: Оказывается нужно было при вызове DbCreateIndex указывать в явном виде имя индексного файла и расширение. Шаманство какое то Придется так же при открытии индексов к базам , расширение указывать явно.

1 Я был неправ. При явном указании расширения Harbour создает индексы с расширениями idx, но внутри структура все-таки cdx файла. Печалько.
2 Проверил совместимость индексов ntx в Clipper 5.2e и Harbour. Похоже совместимы.
3 А вот с совместимостью cdx индексов дела похуже. В режиме чтения они взаимно совместимы. А вот при редактировании получается такая ситуация. Если cdx был создан в Harbour, он и читается и корректируется в Clipper 5.2e вроде-бы без ошибок.
А если был создан в Clipper 5.2e, то после его изменения в Harbour при его изменении в Clipper 5.2e возникает внутренняя ошибка 1210 (рассогласование данных и индекса). В Clipper 5.2e для cdx я использовал библиотеку Six3 (rdd SIXCDX)
Получается для совместной работы Clipper 5.2e и Harbour можно использовать только индексы ntx, но у меня есть таблицы с memo полями в формате fpt, которые ntx не поддерживают. Тупик какой-то Была мысль прикрутить к Clipper 5.2e rdd dbfcdx от Harbour, но вряд ли из этого что-то получится. Может будут у кого-то идеи по поводу совместной работы Clipper 5.2e и Harbour?

 Отправлено: 24.10.19 09:17. Заголовок: alexmar пишет: Може..

alexmar пишет:

цитата:

Может будут у кого-то идеи по поводу совместной работы Clipper 5.2e и Harbour?

В связке с ADS может получится , только версия ADS должна быть одинаковой для
Clipper + соответствующая для Harbour
Идем сюда http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=19
и тянем
Advantage Client Engine
Advantage Clipper RDD
или более раннюю версию