Вверх ↑
Этот топик читают: Гость
Ответов: 93
Рейтинг: 1
#16: 2022-01-06 14:59:57 ЛС | профиль | цитата
https://forum.hiasm.com/topic/65551 Вот, возможно поможет.
карма: 0
HiAsm Studio
0
Ответов: 54
Рейтинг: 0
#17: 2022-01-06 19:00:13 ЛС | профиль | цитата
envoy_sky,
fox-video,
У меня проблема в MySQL. Запрос полностью без кириллицы, а вот в результате уже либо знаки вопроса, либо кракозябры есть использовать кодировщик
карма: 0

0
Ответов: 4544
Рейтинг: 724
#18: 2022-01-06 22:04:50 ЛС | профиль | цитата
LeoN писал(а):
И кроме самого Hiasm этот текст никто прочесть не может
Если не позволяет указать кодировку соединения. А по умолчанию, видимо, работает с UTF-8.

В dbMySQL есть свойство Charset - не помогает? Возможно его нужно установить в UTF-8, а также конвертировать данные при записи/чтении из БД (с помощью компонента Charset).
В пакете для нового FPC, вроде, ручная конвертация не требуется - достаточно установить свойство (оно также добавлено в компоненте DS_MySQL).

Аналогично с компонентами SQLite (для стандартного пакета - здесь).
карма: 26

0
Ответов: 54
Рейтинг: 0
#19: 2022-01-07 00:28:30 ЛС | профиль | цитата
Netspirit,
Я все перепробовал. Не получается

Add(MainForm,2953706,21,105)
{
Width=915
Height=479
link(onCreate,2595462:doOpen,[])
}
Add(DS_MySQL,2595462,91,119)
{
Name="nn"
Server="192.168.0.120"
Username="root"
Password="root"
DBName="eee"
link(onOpen,6985412:doQuery,[])
}
Add(DSC_Query,6985412,140,119)
{
SQL="select * from naselenie.tbs_info;"
DSManager="nn"
link(onQuery,4824754:doStr,[(194,125)(194,90)])
link(onColumns,3337451:doEnum,[(194,132)(194,146)])
}
Add(StringTable,10316170,504,119)
{
Left=5
Top=10
Width=865
Height=270
Point(doAddColumn)
}
Add(MT_String,4824754,217,84)
{
link(onResult,6986319:doCharset,[])
}
Add(MT_Enum,3337451,217,140)
{
link(onItem,10316170:doAddColumn,[])
}
Add(Charset,6986319,280,84)
{
Type=13
Point(doCharset)
link(onCharset,10316170:doAdd,[(408,90)(408,125)])
}

карма: 0

0
Ответов: 200
Рейтинг: 12
#20: 2022-01-07 01:28:46 ЛС | профиль | цитата
LeoN писал(а):
Я все перепробовал

Попробуй такую схему, в стандартном пакете, (не новом). Будет работать?

Add(MainForm,9842539,140,154)
{
Width=915
Height=479
link(onCreate,2595462:doOpen,[])
}
Add(DS_MySQL,2595462,210,168)
{
Name="nn"
Server="192.168.0.120"
Username="root"
Password="root"
DBName="eee"
link(onOpen,11580884:doEvent1,[])
}
Add(DSC_Query,6985412,315,175)
{
SQL="select * from naselenie.tbs_info;"
DSManager="nn"
link(onQuery,4824754:doStr,[(397,181)(397,146)])
link(onColumns,3337451:doEnum,[(397,188)(397,202)])
}
Add(StringTable,10316170,532,175)
{
Left=5
Top=10
Width=865
Height=270
Point(doAddColumn)
}
Add(MT_String,4824754,420,140)
{
link(onResult,10316170:doAdd,[(522,146)(522,181)])
}
Add(MT_Enum,3337451,420,196)
{
link(onItem,10316170:doAddColumn,[])
}
Add(DSC_Query,5827666,315,126)
{
SQL="SET NAMES cp1251 COLLATE cp1251_general_ci"
DSManager="nn"
}
Add(Hub,11580884,259,168)
{
link(onEvent1,5827666:doQuery,[(284,174)(284,132)])
link(onEvent2,6985412:doQuery,[])
}

карма: 2

0
Ответов: 54
Рейтинг: 0
#21: 2022-01-13 13:00:22 ЛС | профиль | цитата
Joiner, Спасибо. Этот способ рабочий. Не проверял только изменение данных, но чтение работает как нужно.
карма: 0

0
21
Сообщение
...
Прикрепленные файлы
(файлы не залиты)