| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с кодировкой [D7, MySQL]

comtat ©   (2006-05-04 13:08:00) 

на мускуле koi8-r и при
запросе выводит карякулы

коннект через классы uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers

как мона исправить на win1251 ??

---

comtat   (2006-05-04 16:40:00) [1]

тема закрыта
вот решение

function ANSI2KOI8R(S: string): string;
var
 Ansi_CODE, KOI8_CODE: string;
 i: integer;
begin
 KOI8_CODE := 'бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС-Ъ';
 ANSI_CODE := 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя°ё';
 Result := S;
 for i := 1 to Length(Result) do
   if Pos(Result[i], ANSI_CODE) > 0 then
     Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)];
end;

---

solenko   (2006-05-04 14:21:00) [2]

По идее должно помочь
SET NAMES CP1251

Буду очень благодарен, если Вы перешлете мне sys файл кодировки CP1251 на petrunich@visp.com.ua

---

Наверх