Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3837331 Thu, 20 Aug 2020 10:34:29 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3837331 Уменьшил размер до 664 Кб, но всё равно говорит:
"Превышен максимальный размер файла, разрешенный для Вашей группы."]]> gog2906 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3837242 Wed, 19 Aug 2020 05:08:51 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3837242 Пришлось перестроить систему чтобы её удалить из файлов.
Полученные файлы примерно 11.5 Мб и система на разрешает приатачить их, говоря что неразрешенный размер для данной группы.
Уменьшение размера файлов связано с большими трудностями.
Нельзя разрешить выложить файл такого размера?]]> gog2906 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3836040 Fri, 07 Aug 2020 16:44:58 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3836040 Наверное, он просто пишет правильный BOM-заголовок]]> MBo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3836007 Fri, 07 Aug 2020 10:58:17 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3836007 gog2906 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835884 Thu, 06 Aug 2020 07:02:57 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835884 Цитата gog2906 @
Нельзя такое же сделать в Delphi?

Выложи проблемный файл сюда, я проверю как сделать лучше, иначе беспредметный разговор получается.]]> ^D^ima Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835875 Thu, 06 Aug 2020 05:39:01 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835875 Если файл открыть в Notepad, указывая кодировку Auto-Detect, файл открывается без ошибок и искажения национальных букв. Если потом его сохранить под другим именем, то при открытии этого файла в Delphi, ошибка уже не возникает.
Получается Notepad умеет обойти (или исправить?) ошибку. Нельзя такое же сделать в Delphi?
Файлы генерируются автоматически и с большой частотой. Обработать их предварительно в ручную - невозможно!]]> gog2906 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835833 Wed, 05 Aug 2020 06:14:09 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835833 ^D^ima Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835828 Tue, 04 Aug 2020 18:14:24 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835828
Добавлено
Однако при попытке загрузить очередной файл, получил следующее сообщение об ошибке

No mapping for the Unicode character exists in the target multi-byte code page.]]> gog2906 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835808 Tue, 04 Aug 2020 10:56:48 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835808
    var
      e:TEncoding;
    begin
      e:=TEncoding.Unicode;
      memo1.Lines.LoadFromFile ('c:.txt',e);
    end;
]]> ^D^ima Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835807 Tue, 04 Aug 2020 08:50:42 +0000 Буквы национального алфавита https://forum.sources.ru/index.php?showtopic=419335&view=findpost&p=3835807 При открытии файла который наряду англиских букв содержит буквы национального алфавита с помощью TMemo.Lines.LoadFromFile, национальные буквы заменяются на нечто такое:
რომ კოდი შეგყავáƒ

Пишу на Delphi 10.4 Sydney под Windows 10]]> gog2906 Delphi: Система, Windows API