// Перевод STRING/Blob  в UTF- 16  
Function integer MultiByteToWideChar(&
UINT       CodePage ,        /* code page */  &
ulong       dwFlags,          /* character-type options  */ &
ref blob    InpMultiByteStr,  /* input blob data */ &
int          inpdatalen,       /* number of bytes in string */ &
ref blob   OutpWideCharStr,  /* wide-character buffer  */ &
int          outpdatalen       /* size of buffer */ )  library "KERNEL32.DLL"
									  

// Перевод из UTF- 16  в char
Function integer WideCharToMultiByte(&
UINT       CodePage,    &
ulong      dwFlags,           /* character-type options  */ &
ref blob   InpWideCharStr,    /* input wide-character blob data */ &
int          inpdatalen,        /* number of bytes in string */ &				
ref blob   OutpMultiByteStr,  /* output blob  buffer  */ &
int         outpdatalen ,      /* size of buffer */   &
ref        string lpDefaultChar,     /* Pointer to the character to use if a wide character cannot be represented in the specified code page. */ &
ref boolean  lpUsedDefaultChar  ) Library "KERNEL32.DLL"
// Для справки : CP_UTF8= 65001   Window- 1251 = 1251 

//of_convert1251(as_input)
//Конвертер из UTF8 в Win1251
Boolean lb_cnv
String ls_ret, ls_def , ls_s ,  ls_marker
Blob  lbl_in , lbl_out
Int i , li_inlen, li_outlen

i =  LEN(as_input)
//Ограничение по длине строки - в половину макс. integer. Если надо больше - по частям
IF i< 1  OR IsNull(i) OR i> 16200   THEN ; Return as_input ; END IF

ls_marker='!1*byt56;z%'

lbl_in = BLOB(as_input+ls_marker+' ') ;  li_inlen = LEN(lbl_in) 

li_outlen =  2 *li_inlen +  1  ; li_inlen += 1  
lbl_out = BLOB(Space(li_outlen+ 2 ))  //Заготовить blob-массив

i = This.MultiByteToWideChar(  65001 ,  0 , lbl_in, li_inlen , lbl_out, li_outlen )
IF i< 0  THEN ; Return as_input ; END IF

SetNull(ls_def) 
lbl_in = lbl_out

i = This.WideCharToMultiByte(  1251 ,  0 , lbl_in, li_outlen , lbl_out , li_outlen , ls_def, lb_cnv)

IF i< 0  THEN ; Return as_input ; END IF 

ls_ret = String(lbl_out)
i=LASTPOS(ls_ret,ls_marker) 
IF i> 1  THEN ;	ls_ret = LEFT(ls_ret, (i -  1 ) ) ; END IF	


Return ls_ret