Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кодировка ANSI / 9 сообщений из 9, страница 1 из 1
29.07.2021, 14:18
    #40087046
Lisichkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
Всем добрый день!
Кто знаком кодировками, помогите объяснить чудо :)
В русской Windows(1251) ANSI файл Delphi 7 содержит строку:
Struc.ProcessField('FIELD1', '', dtInteger, 0, 0, [], uaCreate, 'Порядковый номер в Типовом назначении', nil); // Создание какого-то поля
и к примеру
Struc.ProcessField('FIELD2', '', dtInteger, 0, 0, [], uaCreate, 'Запись блокирована', nil);

В английской Winsows(1252) визуально эти строки превращаются в
Struc.ProcessField('FIELD1', '', dtInteger, 0, 0, [], uaCreate, '?????????? ????? ? ??????? ??????????', nil);
и
Struc.ProcessField('FIELD2', '', dtInteger, 0, 0, [], uaCreate, 'Çàïèñü áëîêèðîâàíà', nil);

Проблема в том что в базу MS SQL для поля FIELD1 уходит битый комментарий.
Кто объяснит в чем проблема?
...
Рейтинг: 0 / 0
29.07.2021, 14:27
    #40087050
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
Lisichkin
Проблема в том что в базу MS SQL для поля FIELD1 уходит битый комментарий.
Код записи в базу и подключения к базе будет?
...
Рейтинг: 0 / 0
29.07.2021, 14:34
    #40087053
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
LisichkinКто объяснит в чем проблема?

Проблема в том, что ты не понимаешь что означает термин "кодировка". Это соответствие
между значением байта (0-255) и буквой. Байты, представляющие русские буквы в кодировке
win1251 соответствуют совсем другим буквам в кодировке win1252, где русские буквы не
предусмотрены от слова "совсем".
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.07.2021, 14:35
    #40087054
kdv
kdv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
Dimitry Sibiryakov,

патамушта win1251 и win1252 это однобайтовые кодировки, ха-ха!
(коммент предназначен автору топика)
...
Рейтинг: 0 / 0
29.07.2021, 14:37
    #40087055
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
И у аффтара, внезапно, однобайтовая Дельфи, ха-ха.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.07.2021, 14:59
    #40087064
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
Lisichkin,

попробуйте:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
//в любом юните (PAS-файле) проекта


IMPLEMENTATION
   //copied from JclWin32.pas
   function MAKELCID(LangId, SortId: WORD): DWORD;
   begin
      Result := (DWORD(SortId) shl 16) or DWORD(LangId);
   end;

INITIALIZATION
   SetThreadLocale(MAKELCID(LANG_RUSSIAN, SORT_DEFAULT));  // требует "uses Windows"
...
Рейтинг: 0 / 0
29.07.2021, 18:38
    #40087155
kdv
kdv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
Кроик Семён,

у него Дельфи 7, а значит всё однобайтовое (и кодировки), а значит советы всякие помогут ненадолго, если помогут вообще.
...
Рейтинг: 0 / 0
29.07.2021, 19:18
    #40087166
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
kdv
Кроик Семён,

у него Дельфи 7, а значит всё однобайтовое (и кодировки), а значит советы всякие помогут ненадолго, если помогут вообще.

Честно говоря, проблема всё одно не понятна.
авторПроблема в том что в базу MS SQL для поля FIELD1 уходит битый комментарий.
Сам MSSQL адекватно воспринимает любую кодировку. Если делать средствами MSSQL, то пофигу.
...
Рейтинг: 0 / 0
29.07.2021, 19:19
    #40087167
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка ANSI
GerasimenkoСам MSSQL адекватно воспринимает любую кодировку.

....пока это ANSI или UTF-16.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кодировка ANSI / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]