? TranslationCP( 65001 ,  1251 , lcS) &&  65001  -  UTF- 8  

Function TranslationCP
Lparameters tnCurrentCodePage, tnNewCodePage, tcString 

Declare Integer IsValidCodePage in WIN32API ;
    integer nCodePage
Declare Integer MultiByteToWideChar in WIN32API ;
    integer CodePage,;
    integer Flags,;
    string MultyByteStr,;
    integer MultiByteStrLen,;
    string @ WideCharStr,;
    integer WideCharStrLen

Declare Integer WideCharToMultiByte in WIN32API ;
    integer CodePage,;
    integer Flags,;
    string MultyByteStr,;
    integer MultiByteStrLen,;
    string @ WideCharStr,;
    integer WideCharStrLen,;
    integer ,;
    integer

If IsValidCodePage(tnCurrentCodePage) =  0  or IsValidCodePage(tnNewCodePage) =  0 
    Return NULL
EndIf

Local lcWideCharBuf, lcMultiByteBuf, lnLen
lcWideCharBuf = Replicate(Chr( 0 ), Len(tcString) *  2  +  2 )
lcMultiByteBuf = Replicate(Chr( 0 ), Len(tcString) +  1 )

MultiByteToWideChar(tnCurrentCodePage,  0 , tcString + chr( 0 ) + chr( 0 ), - 1 , @lcWideCharBuf, Len(tcString) +  1 )

lnLen = WideCharToMultiByte(tnNewCodePage,  0 , lcWideCharBuf , - 1  ,@lcMultiByteBuf ,Len(lcMultiByteBuf) , 0  , 0 )
if lnLen >  0 
	lcMultiByteBuf = left(lcMultiByteBuf, lnLen -  1 )
endif

Return lcMultiByteBuf

Function FromUTF8
Lparameters tcString 

Declare Integer MultiByteToWideChar in WIN32API ;
    integer CodePage,;
    integer Flags,;
    string MultyByteStr,;
    integer MultiByteStrLen,;
    string @ WideCharStr,;
    integer WideCharStrLen

Local lcWideCharBuf, lnLen, lcRet

lcWideCharBuf = Replicate(Chr( 0 ), Len(tcString) *  2  +  2 )

lnLen = MultiByteToWideChar( 65001 ,  0 , tcString + chr( 0 ) + chr( 0 ), - 1 , @lcWideCharBuf, Len(tcString) +  1 )

if lnLen =  0 
	lcRet = ''
else
	lcRet = strconv(left(lcWideCharBuf, (lnLen -  1 ) *  2 ),  6 )
endif

Return lcRet