Look at this example:
Code: Select all
#include <hmg.ch>
Function Main()
Local cPortuguese:="EXPLICAÇÃO"
Local cSpanish:="EXPLICACIÓN"
Local cPolish:="WYJAŚNIENIE"
DBCREATE("Test", {{"UNICODE", "C", 20, 0},{"ANSI", "C", 20, 0},{"LANGUAGE", "C", 20, 0}},, .T.)
DBAPPEND()
REPLACE UNICODE WITH cPortuguese
REPLACE ANSI WITH hb_UTF8ToStr(cPortuguese,"CP850")
REPLACE LANGUAGE WITH "Portuguese/CP850"
DBAPPEND()
REPLACE UNICODE WITH cSpanish
REPLACE ANSI WITH hb_UTF8ToStr(cSpanish,"CP850")
REPLACE LANGUAGE WITH "Spanish/CP850"
DBAPPEND()
REPLACE UNICODE WITH cPolish
REPLACE ANSI WITH hb_UTF8ToStr(cPolish,"CP852")
REPLACE LANGUAGE WITH "Polish/CP852"
MSGINFO( hb_strToUTF8 ( FIELD->ANSI, "CP852" ), "ANSI/UNICODE" )
MSGINFO( STR(HMG_LEN(ALLTRIM(FIELD->ANSI))) )
Return Nil