Отправлено: 12.03.10 09:02. Заголовок: CODEPAGE

Хочу переходить с xHarbour на Harbour из последних сборок, но столкнулся с тем, что некоторый код не могу перевести, поскольку не пойму, как подключить кириллическую кодовую страницу.
Конструкция:

 
 REQUEST HB_CODEPAGE_RU866 
 hb_setCodePage('RU866')

не работает...
подскажите пожалуйста...

 Отправлено: 12.03.10 10:40. Заголовок: используйте hb_cdpSe..

используйте hb_cdpSelect() или Set( _SET_CODEPAGE )

 Отправлено: 12.03.10 11:23. Заголовок: Петр пишет: использ..

Петр пишет:

цитата:

используйте hb_cdpSelect() или Set( _SET_CODEPAGE )

а у меня ругается при вызове этой функции... :(
Пишет Unresolved external ...

 Отправлено: 12.03.10 16:30. Заголовок: spair2k Вероятно ну..

spair2k
Вероятно нужно прилинковать Hbextern.lib

 Отправлено: 04.09.12 10:52. Заголовок: spair2k пишет: Хочу..

spair2k пишет:

цитата:

Хочу переходить с xHarbour на Harbour из последних сборок

Я тоже собрался это делать. У меня программа на xHarbour'e GTWVT-терминал 866-кодировка.

Подскажите какие нюансы нужно учитывать при переходе ?

Как правильно в начале программы задать 866 кодировку ?

 Отправлено: 04.09.12 11:19. Заголовок: hb_cdpSelect("RU..

hb_cdpSelect("RU866")

если будет ругаться, то вначале добавить

#include "hbextcdp.ch"

а правильно так:

IF Empty( cTermCP )
cTermCP := "PLISO"
ELSE
cTermCP := Upper( cTermCP )
ENDIF
IF Empty( cHostCP )
cHostCP := "PLMAZ"
ELSE
cHostCP := Upper( cHostCP )
ENDIF
lBoxChar := !Empty( lBoxChar )
hb_cdpSelect( cHostCP )
hb_SetTermCP( cTermCP, cHostCP, lBoxChar )

смотреть \harbour\tests\gtkeys.prg
и читать Changelog
2006-02-04 17:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
...
The new three .prg functions:
HB_SETKEYCP( <cTermCP> [,<cHostCP>] )
HB_SETDISPCP( <cTermCP> [,<cHostCP>] [,<lBoxChar>] )
HB_SETTERMCP( <cTermCP> [,<cHostCP>] [,<lBoxChar>] )
...
<cTermCP> is encoding used on external (terminal) side
<cHostCP> is encoding used internally, if not given then
current code page set HB_SETCODEPAGE() is used.
some of GTs which uses unicode output may
ignore <cTermCP>
<lBoxChar> is optional parameter which interacts with dispbox()
output disabling switching to alternate character
set in some GTs. It effectively causes that if internal
(host) code page contains some letters on the box char
positions then they will be shown also by box drawing
functions like dispbox() instead of CP437 characters.
In some cases it could be useful. By default lBoxChar
is not set and GTs which can switch between standard
and alternate character set (GTCRS, GTSLN) will try to
use alternate character set for box drawing functions.

 Отправлено: 04.09.12 16:37. Заголовок: AlexMyr ПАСИБО БОЛЬ..

AlexMyr
ПАСИБО БОЛЬШОЕ !

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

У меня для хХарбора есть вызов z:\xHarbour\bin\bld_b32.bat !

Как сделать аналогично для Харбора ?

 Отправлено: 04.09.12 17:02. Заголовок: Для Dos navogator вы..

Для Dos navogator вызов по расширению

prg{ c:\dev\harbour\bin\hbmk2.exe -p #.prg >#.log}

для Far наверное

z:\Harbour\bin\hbmk2.exe !

 Отправлено: 04.09.12 17:34. Заголовок: AlexMyr пишет: для ..

AlexMyr пишет:

цитата:

для Far наверное z:\Harbour\bin\hbmk2.exe !

Нет, вот так работает для Far:
z:\hb30\Bin\HBMK2.EXE -gtwin !.! > !.log -run
-gtwin : терминал GTWIN
-run : запуск сразу программы

А вообще классная штука HBMK2.EXE

 Отправлено: 05.09.12 10:37. Заголовок: spair2k и Andrey ..

spair2k и Andrey

цитата:

Хочу переходить с xHarbour на Harbour

А какие Вы хотите получить преимущества от такого перехода. Понятно, если бы на GUI.

 Отправлено: 05.09.12 10:41. Заголовок: Vlad04 пишет: Понят..

Vlad04 пишет:

цитата:

Понятно, если бы на GUI.

А тут в чем преимущество, в красивых рюшечках?

 Отправлено: 05.09.12 13:55. Заголовок: Vlad04 пишет: А как..

Vlad04 пишет:

цитата:

А какие Вы хотите получить преимущества от такого перехода.

1) Харбор быстрей хХарбора, здесь на форуме тесты приводились.
2) Возможность использовать MinGW и собирать приложения х64.
3) Терминал GTWVT на Харборе поддерживает создание дочерних окон программы.
?:\hb30\tests\wvtext.prg

 Отправлено: 08.10.12 05:57. Заголовок: Привет всем ! Может..

Привет всем !

Может мой вопрос и повторяется но все же задам.
dbf файл создан в dos, что нужно чтобы при редактировании базы данные сохранялись и отображались (ТSBROWSE) в кодировке 866
использую версию Harbour MiniGUI Extended Edition 2.1.5 - 2012.09.12

 Отправлено: 08.10.12 08:13. Заголовок: HB_CDPSelect( "R..

REQUEST HB_CODEPAGE_RU866
HB_CDPSelect( "RU866" )

 Отправлено: 08.10.12 09:42. Заголовок: Все равно не отображ..

Все равно не отображается dos база в код.866 в TSBROWSE, если корректируешь то данные сохраняются в RU1251.

 Отправлено: 08.10.12 09:50. Заголовок: При старте программы..

При старте программы надо задать:

REQUEST HB_CODEPAGE_RU866
REQUEST HB_CODEPAGE_RU1251
HB_CDPSelect( "RU1251" )

при открытии файла надо указывать 866-ю страницу:

USE ... CODEPAGE "RU866"

 Отправлено: 08.10.12 10:33. Заголовок: Спасибо ! Все работа..

Спасибо ! Все работает.

 Отправлено: 17.04.14 00:17. Заголовок: Опять фигня с кодиро..

Опять фигня с кодировками...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903)
Терминал GTWVT, в программе стоит:
REQUEST HB_CODEPAGE_RU866
hb_SetCodepage( "RU866" )
REQUEST HB_LANG_RU866
HB_LANGSELECT("RU866")
hb_cdpSelect("RU866")
Wvt_SetCodePage(255) // #define OEM_CHARSET 255 - from wingdi.h
Wvt_SetFont( 'Terminal', 18, 10, 0 )

Считываю файлы с директории на русском языке:
Импорт из системы ГОРОД.doc
Конфигурация программы.doc

В программе считываются как:
╚ьяюёє шч ёшёєхь√ ├╬╨╬─.doc
╩юэїшуєёрўш  яёюуёрьь√.doc

Вывожу на экран преобразовав функцией HB_ANSITOOEM().
Получается фигня:
Импосу из сисуемы ГОРОД.doc
Конхигусачия псогсаммы.doc

Что не так делаю ?

 Отправлено: 17.04.14 10:12. Заголовок: Andrey пишет: Импос..

Andrey пишет:

цитата:

Импосу из сисуемы ГОРОД.doc Конхигусачия псогсаммы.doc

Это на хорватском ?

В какой кодировке содержимое файлов которые считываешь ?

 Отправлено: 17.04.14 13:24. Заголовок: Перед тем как считат..

Перед тем как считать файлы проверяю ? hb_SetCodepage() , возвращает "RU866"
Имена файлов в папке только на русском...

 Отправлено: 17.04.14 13:59. Заголовок: сделал вот такой про..

сделал вот такой простой тест на Harbour 3.2

 
 proc main 
 local amas 
  
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
 amas:=directory("*.doc") 
 aeval(amas,{|x| qout(x[1])}) 
     
 return  
 

Имена вывалились нормально на русском .