MultiByteToUTF convert и обратно

[mrCloud]

не подскажите как конвертировать MultiByte в UTF и обратно?

[Пепел Феникса]

все семейство UTF кодировок итак считается мультибайтовой.
да и UTF который?

так что сформируйте сначало нормально вопрос.

[mrCloud]

в UTF8 просто есть файл там строки идут в этой кодировке пример

43 6F 6E 74 72 6F 6C 6C 65 72 31

[Пепел Феникса]

и вы не знаете их кодировки и хотите при этом чтото получить?
а может они шифрованные?

[mrCloud]

Кодировка 936, извините что сразу не указал , она точно не шифрована

[Пепел Феникса]

примерно так:

function C936toWideChar(b:array of byte):WideString;
begin
 SetLength(Result,Length(b));
 SetLength(Result,MultiByteToWideChar(936,0,@b[Low(b)],Length(b),@Result[1],Length(Result)));
end;

компилируется, но проверить не на чем.
с полученным WideString можете сделать уже что угодно.

[mrCloud]

а обратно ?

[Пепел Феникса]

type
 TDinByteArray=array of Byte;

function WideChartoC936(str:WideString):TDinByteArray;
begin
 SetLength(Result,Length(str));
 SetLength(Result,WideCharToMultiByte(936,0,@str[1],Length(str),@Result[0],Length(Result),nil,nil));
end;

примерно так.

[mrCloud]

а можно как нибудь переделать чтобы был не динамический массив а в 128 байт?

[Пепел Феникса]

type
 T128ByteArray=array[0..127] of Byte;

function WideChartoC936(str:WideString):T128ByteArray;
begin
 ,WideCharToMultiByte(936,0,@str[1],Length(str),@Result[0],Length(Result),nil,nil);
end;