Page 1 of 1
harbour vs xHarbour Directory() in Korea
Posted: Fri Oct 09, 2015 2:48 am
by dbmanfwh
Dear,
Appear differently in harbour and xHarbour in Korea.
xHarbour appears rightly.
Is there solution?
Code: Select all
#include "fivewin.ch"
#include "Directry.ch"
* KOREAN LANGUAGE directory test
* harbour VS xHarbour
* --------------------------------------
FUNCTION main()
* --------------------------------------
LOCAL nI := 0
LOCAL aDir := Directory("*.", "DR" )
For nI := 1 to LEN( aDir )
? nI, aDir[nI][F_NAME]
IF nI >= 5
EXIT
ENDIF
Next
RETURN NIL
Also
xHarbour:
Trim(" xharbour ", .t.) => "xHrbour" Ok
harbour :
Trim(" xharbour ", .t.) => Error
Re: harbour vs xHarbour Directory() in Korea
Posted: Mon Oct 12, 2015 6:00 am
by dbmanfwh
Oriental user,
Is not there problem in Taiwan, China, Japan in harbour?
There was no problem in clipper.
Re: harbour vs xHarbour Directory() in Korea
Posted: Mon Oct 12, 2015 7:39 am
by richard-service
dbmanfwh wrote:Oriental user,
Is not there problem in Taiwan, China, Japan in harbour?
There was no problem in clipper.
Hi dbmanfwh,
I know use Harbour need to add these code below:
Code: Select all
//- in Taiwan
REQUEST HB_LANG_ZHB5
REQUEST HB_CODEPAGE_CP950
MEMVAR oApp
*--
FUNCTION Main()
*--
PUBLIC oApp := TAplication():New()
oApp:Activate()
RETURN(NIL)
Re: harbour vs xHarbour Directory() in Korea
Posted: Tue Oct 13, 2015 3:30 pm
by dbmanfwh
Hi Rechard,
Thank you about reply.
If program that you make was compiled perfectly, you are a happy person.
Because I make program like you, I compiled, but error occurs.
Moreover, Harbour was difficult because do not offer hblang.hbx and hbcpage.hbx from very first time.
Put getting upside two files, but end becomes error.
Harbour seems to be more difficult environment tender than xHarbour.
Want to convert from xHarbour to Harbour, but to give up Harbour in Korea may be better.
Basically, know and do according to windows language of the country ...
Code: Select all
#include "fivewin.ch"
#include "Directry.ch"
#include "hbextcdp.ch"
#include "hbextlng.ch"
* KOREAN LANGUAGE directory test
* harbour VS xHarbour
REQUEST HB_LANG_ZHB5
REQUEST HB_CODEPAGE_CP950
// REQUEST HB_LANG_EN
// REQUEST HB_CODEPAGE_CP949 // KOREAN => Unresolved
* --------------------------------------
FUNCTION main()
* --------------------------------------
LOCAL nI := 0
LOCAL aDir := Directory("*.", "DR" )
For nI := 1 to LEN( aDir )
? nI, aDir[nI][F_NAME]
IF nI >= 5
EXIT
ENDIF
Next
RETURN NIL
Code: Select all
Compiling...
Harbour 3.2.0dev (r1501292255)
Copyright (c) 1999-2015, http://harbour-project.org/
Compiling 'directorytest.prg' and generating preprocessed output to 'directorytest.ppo'...
Lines 4744, Functions/Procedures 1
Generating C source output to 'directorytest.c'... Done.
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
directorytest.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_FR850C' referenced from C:\FIVEWIN\SAMPLES\DIRECTORYTEST.OBJ
* Linking errors *
Re: harbour vs xHarbour Directory() in Korea
Posted: Fri Oct 16, 2015 4:43 am
by richard-service
dbmanfwh wrote:Hi Rechard,
Thank you about reply.
If program that you make was compiled perfectly, you are a happy person.
Because I make program like you, I compiled, but error occurs.
Moreover, Harbour was difficult because do not offer hblang.hbx and hbcpage.hbx from very first time.
Put getting upside two files, but end becomes error.
Harbour seems to be more difficult environment tender than xHarbour.
Want to convert from xHarbour to Harbour, but to give up Harbour in Korea may be better.
Basically, know and do according to windows language of the country ...
Code: Select all
#include "fivewin.ch"
#include "Directry.ch"
#include "hbextcdp.ch"
#include "hbextlng.ch"
* KOREAN LANGUAGE directory test
* harbour VS xHarbour
REQUEST HB_LANG_ZHB5
REQUEST HB_CODEPAGE_CP950
// REQUEST HB_LANG_EN
// REQUEST HB_CODEPAGE_CP949 // KOREAN => Unresolved
* --------------------------------------
FUNCTION main()
* --------------------------------------
LOCAL nI := 0
LOCAL aDir := Directory("*.", "DR" )
For nI := 1 to LEN( aDir )
? nI, aDir[nI][F_NAME]
IF nI >= 5
EXIT
ENDIF
Next
RETURN NIL
Code: Select all
Compiling...
Harbour 3.2.0dev (r1501292255)
Copyright (c) 1999-2015, http://harbour-project.org/
Compiling 'directorytest.prg' and generating preprocessed output to 'directorytest.ppo'...
Lines 4744, Functions/Procedures 1
Generating C source output to 'directorytest.c'... Done.
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
directorytest.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_FR850C' referenced from C:\FIVEWIN\SAMPLES\DIRECTORYTEST.OBJ
* Linking errors *
Hi Moon,
I use Harbour for 64bit that working. I use xHarbour for 32bit.
How about use xHarbour? or ask Charles Kwon offer good solution.