На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Буквы национального алфавита , TMemo.Lines.LoadFromFile искажает буквы национального алфавита.
gog2906
Сообщ. #1 ,
    Newbie
    Профиль · PM
    Рейтинг (т): нет
    Здравствуйте.
    При открытии файла который наряду англиских букв содержит буквы национального алфавита с помощью TMemo.Lines.LoadFromFile, национальные буквы заменяются на нечто такое:
    რომ კოდი შეგყავáƒ

    Пишу на Delphi 10.4 Sydney под Windows 10
    Guru ^D^ima
    Сообщ. #2 ,

      Guru
      *******
      Профиль · PM
      Поощрения: 3 Dgm
      Рейтинг (т): 303
      Попробуй так:
      ExpandedWrap disabled
        var
          e:TEncoding;
        begin
          e:=TEncoding.Unicode;
          memo1.Lines.LoadFromFile ('c:\1.txt',e);
        end;
      gog2906
      Сообщ. #3 ,
        Newbie
        Профиль · PM
        Рейтинг (т): нет
        Спасибо, помог TEncoding.UTF8

        Добавлено
        Однако при попытке загрузить очередной файл, получил следующее сообщение об ошибке

        No mapping for the Unicode character exists in the target multi-byte code page.
        Guru ^D^ima
        Сообщ. #4 ,

          Guru
          *******
          Профиль · PM
          Поощрения: 3 Dgm
          Рейтинг (т): 303
          Попался какой-то символ, которого нет в наборе символов на твоем ПК. Или файл поврежден или имеет другую кодировку(скорее всего)
          gog2906
          Сообщ. #5 ,
            Newbie
            Профиль · PM
            Рейтинг (т): нет
            Происодит странная вещь.
            Если файл открыть в Notepad, указывая кодировку Auto-Detect, файл открывается без ошибок и искажения национальных букв. Если потом его сохранить под другим именем, то при открытии этого файла в Delphi, ошибка уже не возникает.
            Получается Notepad умеет обойти (или исправить?) ошибку. Нельзя такое же сделать в Delphi?
            Файлы генерируются автоматически и с большой частотой. Обработать их предварительно в ручную - невозможно!
            Guru ^D^ima
            Сообщ. #6 ,

              Guru
              *******
              Профиль · PM
              Поощрения: 3 Dgm
              Рейтинг (т): 303
              Цитата gog2906 @
              Нельзя такое же сделать в Delphi?

              Выложи проблемный файл сюда, я проверю как сделать лучше, иначе беспредметный разговор получается.
              gog2906
              Сообщ. #7 ,
                Newbie
                Профиль · PM
                Рейтинг (т): нет
                Я постараюсь выложить файл в ближайщие дни.
                MBo
                Сообщ. #8 ,
                  Master
                  ******
                  Профиль · PM
                  Поощрения: 3 Dgm
                  Рейтинг (т): 321
                  >Получается Notepad умеет обойти (или исправить?) ошибку.
                  Наверное, он просто пишет правильный BOM-заголовок
                  gog2906
                  Сообщ. #9 ,
                    Newbie
                    Профиль · PM
                    Рейтинг (т): нет
                    Обрабатываемые файлы генерируются телефонной станцией и содержат персональную информацию.
                    Пришлось перестроить систему чтобы её удалить из файлов.
                    Полученные файлы примерно 11.5 Мб и система на разрешает приатачить их, говоря что неразрешенный размер для данной группы.
                    Уменьшение размера файлов связано с большими трудностями.
                    Нельзя разрешить выложить файл такого размера?
                    gog2906
                    Сообщ. #10 ,
                      Newbie
                      Профиль · PM
                      Рейтинг (т): нет
                      Хочу выложить файл но вроде не получактся.
                      Уменьшил размер до 664 Кб, но всё равно говорит:
                      "Превышен максимальный размер файла, разрешенный для Вашей группы."
                      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                      0 пользователей:


                      Рейтинг@Mail.ru
                      [ Script execution time: 0,0396 ]   [ 16 queries used ]   [ Generated: 8.11.24, 22:32 GMT ]  
                      Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.