harbour vs xHarbour Directory() in Korea

Board index FiveWin for Harbour/xHarbour harbour vs xHarbour Directory() in Korea

Posts: 38

Joined: Tue Mar 04, 2008 03:44 PM

harbour vs xHarbour Directory() in Korea
Posted: Fri Oct 09, 2015 02:48 AM

Dear,

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

#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

Posts: 38

Joined: Tue Mar 04, 2008 03:44 PM

Re: harbour vs xHarbour Directory() in Korea
Posted: Mon Oct 12, 2015 06:00 AM

Oriental user,

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

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: harbour vs xHarbour Directory() in Korea
Posted: Mon Oct 12, 2015 07:39 AM

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 (fw): Select all Collapse

//- in Taiwan
REQUEST HB_LANG_ZHB5
REQUEST HB_CODEPAGE_CP950

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

RETURN(NIL)

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

dbmanfwh

Posts: 38

Joined: Tue Mar 04, 2008 03:44 PM

Re: harbour vs xHarbour Directory() in Korea
Posted: Tue Oct 13, 2015 03:30 PM

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 (fw): Select all Collapse

#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 (fw): Select all Collapse

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

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: harbour vs xHarbour Directory() in Korea
Posted: Fri Oct 16, 2015 04:43 AM

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 (fw): Select all Collapse
#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 (fw): Select all Collapse
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.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion