конвертация текста Dos - Win

  • Автор темы greenbegin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

greenbegin

#1
Стоит задача: изменить кодировку текстового файла из DOS на Windows. Подсказали функцию OEMtoShar. Вот только не могу разобраться с синтаксисом этой функции. Все что я пока понял: там используется переменная не типа string, а какого то другого. Будьте добры, не смейтесь, и подскажите на конкретном примере, как используя эту (или подобную) функцию, изменить кодировку текстового файла или переменной типа string, содержащую строку из такого файла.
 
S

Silence

#2
Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }
 
G

greenbegin

#3
Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }
пишу строку: uses StrUtils;
а при компиляции пишет что такое имя (OemToAnsiStr) не определено.
Что, библиотека RXLib ставится отдельно? Если да, то как ее установить? Я не доставлял библиотеки ни разу.
 
B

Barmutik

#4
RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с ссылка
 
G

greenbegin

#5
RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с ссылка
Зашел на тот сайт. Но что то не нашел ссылку на RxLib.
Кстати, как ее устанавливать??? Я правда не знаю как.
 
B

Barmutik

#6
Что конкретно не знаете как? Скачайте инсталяцию Jedi и запустите инсталятор .. он всё сделает за Вас ...
 

vital

Больной Компом Детектед
29.01.2006
2 432
34
#7
function WinToDos(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

и дался вам этот RxLib...
 
Статус
Закрыто для дальнейших ответов.