Как сконвертировать Unicode-строку с символами русского алфавита в строку ANSI-1251

Black Doomer пишет:Суть такова.
У нас есть WString Ptr, указывающий на Unicode-строку с символами русского алфавита.
Как сконвертировать её в строку типа ZString в кодировке ANSI-1251 (вариант кодировки ANSI для русского языка) и вернуть указатель на неё типа ZString Ptr?

Заранее благодарен.

Код:

Function UTFTOASCII(ByVal text As WString Ptr) As ZString Ptr
   Var blen = WideCharToMultiByte (CP_ACP,0,text,-1,0,0,0,0)
   Dim As ZString ptr wbuf
   wbuf= allocate( blen )
   WideCharToMultiByte (CP_ACP,0,text,-1,Cast(LPSTR,wbuf),blen,0,0)
   Return wbuf
End Function

Black Doomer пишет:Попробовал, но пока в обратную сторону, из ANSI в Unicode. Работает, но результат выдаёт в кодировке UTF-16LE, а нужен UTF-8 без BOM.
Можно как-нибудь сделать, чтобы именно в него конвертировалось?

Код:

#define GME cdecl Alias
#include once "windows.bi"
Dim Shared AS WString Ptr WStrResult
Declare Function unicode GME "unicode" (ProcStr AS ZString Ptr) AS WString Ptr

Function unicode GME "unicode" (ProcStr AS ZString Ptr) AS WString Ptr Export
  Var OutLen = MultiByteToWideChar(CP_ACP, 0, ProcStr, -1, 0, 0)
  Dim AS WString Ptr WStrTemp = CAllocate(OutLen)
  MultiByteToWideChar(CP_ACP, 0, ProcStr, -1, WStrTemp, OutLen)
  OutLen = WideCharToMultiByte(CP_UTF8, 0, WStrTemp, -1, 0, 0, 0, 0)
  WStrResult = Reallocate(WStrResult, OutLen)
  WideCharToMultiByte(CP_UTF8, 0, WStrTemp, -1, CPtr(LPSTR, WStrResult), OutLen, 0, 0)
  Deallocate(WStrTemp)
  Return WStrResult
End Function

Код:

#define GME cdecl Alias
#include once "windows.bi"
Dim Shared AS ZString Ptr WStrResult
Declare Function unicode GME "unicode" (ProcStr AS ZString Ptr) AS ZString Ptr

Function unicode GME "unicode" (ProcStr AS ZString Ptr) AS ZString Ptr Export
  Var OutLen = MultiByteToWideChar(CP_ACP, 0, ProcStr, -1, 0, 0)
  Dim AS WString Ptr WStrTemp = CAllocate(OutLen*2+2)
  MultiByteToWideChar(CP_ACP, 0, ProcStr, -1, WStrTemp, OutLen)
  OutLen = WideCharToMultiByte(CP_UTF8, 0, WStrTemp, -1, 0, 0, 0, 0)
  WStrResult = Reallocate(WStrResult, OutLen)
  WideCharToMultiByte(CP_UTF8, 0, WStrTemp, -1, CPtr(LPSTR, WStrResult), OutLen, 0, 0)
  Deallocate(WStrTemp)
  Return WStrResult
End Function


? *unicode(@"Hello Мир") ' Буфер содержит кодированную инфу в UTF8
Sleep

Black Doomer пишет:trew, похоже работает, спасибо! Вы меня уже в который раз выручаете.)
Есть только один вопрос. Почему MultiByteToWideChar(CP_ACP, 0, ProcStr, -1, 0, 0) вернул размер буфера, подходящий для ANSI-строки, но неприемлемый для UTF-16LE? Или это я чего-то не понял?