CP 852

CP 852

Postby nbatocanin » Mon Aug 09, 2021 3:39 pm

Hi to all :)

I want to use CP 852 in my FW/Harbour program. I use:

HB_CdpSelect ("HR852")

but not all characters are displayed correctly.

Regards, NB
nbatocanin
 
Posts: 3
Joined: Sat Jul 28, 2012 10:32 pm

Re: CP 852

Postby Antonio Linares » Mon Aug 09, 2021 6:03 pm

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42103
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: CP 852

Postby nbatocanin » Wed Aug 11, 2021 12:18 am

Thanks Antonio, I know this text, but it doesn't help me. I will try to explain the problem. In plain Harbour, this program use CP 852 codepage:

Code: Select all  Expand view  RUN
REQUEST HB_CODEPAGE_HR852

function Main()

   local cName := Chr(143) + Chr(134) + Chr(172) + Chr(159) + ;
            Chr(166) + Chr(167) + Chr(230) + Chr(231) + Chr(209) + Chr(208)

    HB_CdpSelect ("HR852")

    ? cName

return nil


This program writes: ĆćČ莞ŠšĐđ as I expected. But, this is not working in FiveWin version. Can anyone help me to make a similar FiveWin program that uses CP 852?

I apologize if I asked a stupid question, searched the manual and the forum and did not find a solution to this problem.

Regards, Nenad
nbatocanin
 
Posts: 3
Joined: Sat Jul 28, 2012 10:32 pm

Re: CP 852

Postby nageswaragunupudi » Thu Aug 12, 2021 1:52 pm

Code: Select all  Expand view  RUN
#include "fivewin.ch"

REQUEST HB_CODEPAGE_HR852

function Main()

   local cName := Chr(143) + Chr(134) + Chr(172) + Chr(159) + ;
            Chr(166) + Chr(167) + Chr(230) + Chr(231) + Chr(209) + Chr(208)

    HB_CdpSelect ("HR852")

    ? hb_strtoutf8( cName )

return nil
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10643
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: CP 852

Postby nbatocanin » Thu Aug 12, 2021 3:46 pm

Thank you, although I wrote too simple example :))

How do I create GET of such variables?

Regards, NB
nbatocanin
 
Posts: 3
Joined: Sat Jul 28, 2012 10:32 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 104 guests