Перекодировка ANSI в OEM

← →
Kot_ (2006-01-18 15:00) [0]

Доброго времени суток. Возникла такая проблема: необходимо преобразовать строку символов, ansi кодировка, в строку с кодировкой OEM как это осуществить?
Нашел функцию AnsiToOem но разобраться с ней не могу, справка на английском. Подскажите, как она работает.

← →
DSKalugin © (2006-01-18 15:49) [1]

В интернете есть готовые ищи гуглом
oem2ansi
ansi2oem

или используй функции ВинАПИ
CharToOem
OemToChar

← →
Kot_ (2006-01-18 18:00) [2]

спасибо

← →
Kot_ (2006-01-18 18:21) [3]

если кому понадобится

function Ansi2OEM(const S : string) : string;
// Конвертирует строку из кодировки Windows в DOS кодировку
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
CharToOem(pChar(S),pChar(Result));
end;

Перекодировка ANSI в OEM Найти похожие ветки