Перекодировка текста DOS-Windows

[natasha]

Пожалуйста, помогите!
Меня такая ситуация
я считываю информацию из текстового файла
файл формата DOS

мне необходимо преобразовать данную информацию, которая в строковом виде, в формат Windows

пытаюсь использовать функцию OemToChar, выдают ошибку
в связи с тем, что при считывание файла получает строкрвую величену, а для работы с функцией OemToChar входная величина PChar.

[FaTaL]

OemToAnsi Вам должна помочь. Кстати как то я писал DLL для изменения кодировок файла там только две процедуры, Из DOC в ANSI и обратно. Могу кинуть.

[Serge_Bliznykov]

вот, выдернул из JEDI (JclStrings.pas)

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

//---------------------------------------------------------------
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

p.s. OEM = Dos кодировка (866)
ANSI - кодировка Windows (Win-1251)
to - по русски "В" ;-)

[Stilet]

Я так на всякий случай напомню что

The OemToAnsi function is obsolete.

Заменена на

The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string. (OEM stands for original equipment manufacturer.) This function supersedes the OemToAnsi function.

[natasha]

Спасибо!!!!!!!

Все работает!!!