Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перекодировка ANSI в OEM [D7, Win2k, WinXP]


Kot_ ©   (2006-01-18 15:00:00) 

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


Kot_   (2006-01-18 18:21:00) [1]

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

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


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

спасибо


DSKalugin   (2006-01-18 15:49:00) [3]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо