Page 3 of 3

MessageBoxTimeout

Posted: Wed Nov 27, 2013 12:34 am
by Pablo César
Hi Marek,

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
I made for Spanish, Portuguese and Polish the PRG file is UTF-8 and saves in DBF in ANSI. Give a look to ANSI in polish if is right written.

Re: MessageBoxTimeout

Posted: Wed Nov 27, 2013 6:11 am
by mol
Everything is Ok.
Thanks for sample!

Re: MessageBoxTimeout

Posted: Wed Nov 27, 2013 12:15 pm
by danielmaximiliano
+10 Pablo que buen ejemplo