powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кодировка ANSI
9 сообщений из 9, страница 1 из 1
Кодировка ANSI
    #40087046
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем добрый день!
Кто знаком кодировками, помогите объяснить чудо :)
В русской 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
Кодировка ANSI
    #40087050
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Lisichkin
Проблема в том что в базу MS SQL для поля FIELD1 уходит битый комментарий.
Код записи в базу и подключения к базе будет?
...
Рейтинг: 0 / 0
Кодировка ANSI
    #40087053
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LisichkinКто объяснит в чем проблема?

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

патамушта win1251 и win1252 это однобайтовые кодировки, ха-ха!
(коммент предназначен автору топика)
...
Рейтинг: 0 / 0
Кодировка ANSI
    #40087055
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И у аффтара, внезапно, однобайтовая Дельфи, ха-ха.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Кодировка ANSI
    #40087064
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Кодировка ANSI
    #40087155
Фотография kdv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кроик Семён,

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

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

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

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


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