Было опубликовано на www.foxclub.ru

Function TranslationCP
Lparameters nCurrentCodePage, nNewCodePage, cString
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(nCurrentCodePage) = 0
Error 1914
Return ""
EndIf

If IsValidCodePage(nNewCodePage) = 0
Error 1914
Return ""
EndIf

Local WideCharBuf, MultiByteBuf
WideCharBuf=Replicate(Chr(0),Len(cString)*2)
MultiByteBuf=Replicate(Chr(0),Len(cString))
MultiByteToWideChar;
(nCurrentCodePage;
,0;
,cString;
,Len(cString);
,@WideCharBuf;
,Len(WideCharBuf))

WideCharToMultiByte;
(nNewCodePage;
,0;
,WideCharBuf;
,Len(WideCharBuf);
,@MultiByteBuf;
,Len(MultiByteBuf);
,0,0)

Return MultiByteBuf
endFunc