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

Тема в разделе "Delphi - Система", создана пользователем greenbegin, 3 июл 2006.

Статус темы:
Закрыта.
  1. greenbegin

    greenbegin Гость

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

    Silence Гость

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

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

    greenbegin Гость

    пишу строку: uses StrUtils;
    а при компиляции пишет что такое имя (OemToAnsiStr) не определено.
    Что, библиотека RXLib ставится отдельно? Если да, то как ее установить? Я не доставлял библиотеки ни разу.
     
  4. Barmutik

    Barmutik Гость

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

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

    greenbegin Гость

    Зашел на тот сайт. Но что то не нашел ссылку на RxLib.
    Кстати, как ее устанавливать??? Я правда не знаю как.
     
  6. Barmutik

    Barmutik Гость

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

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.469
    Симпатии:
    27
    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...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей