harbour vs xHarbour Directory() in Korea

[dbmanfwh]

Dear,

Appear differently in harbour and xHarbour in Korea.
xHarbour appears rightly.
Is there solution?

Code: Select all  Expand view

#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

[dbmanfwh]

Oriental user,

Is not there problem in Taiwan, China, Japan in harbour?
There was no problem in clipper.

[richard-service]

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  Expand view

//- in Taiwan
REQUEST HB_LANG_ZHB5
REQUEST HB_CODEPAGE_CP950

MEMVAR oApp
*--
FUNCTION Main()
*--
   PUBLIC oApp := TAplication():New()
   oApp:Activate()

RETURN(NIL)
 

[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  Expand view

#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  Expand view

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 *

 

[richard-service]

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  Expand view

#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  Expand view

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.