Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi + DBF = кодировка / 6 сообщений из 6, страница 1 из 1
15.01.2003, 08:00:25
    #32090835
Славочка
Славочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
Откываю в DBGrid через ADO таблицу DBF. В результате в Grid-е вместо русских букв полная лабуда. Изменяю свойства Grid-а Font.charset:=OEM.....
Теперь всё по русски. Но есть ли такая функция в DELPHI которая переводит текст из одной кодировки в другую. Например чтобы по русски написала результат:
ShowMessage(ADOQuery1.FieldValues('name'))
где 'name' - это текстовое поле в таблице, содержащее русский текст.

Надеюсь что понятно изложил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2003, 08:23:05
    #32090841
Voha
Voha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
Никогда не работал с АДО, но думаю гдето должен подгружаться драйвер языка. А на счет функции посмотри OEMToChar, помоему должна подойти.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2003, 08:43:59
    #32090847
Славочка
Славочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
Voha >>
что-то похожее, но никак не могу понять её синтаксис, не подскажешь?????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2003, 08:59:34
    #32090852
Voha
Voha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
Попробуй так :



функция
var
Str:PChar;
begin
GetMem(StrOem, длина поля);
OEMToChar(PChar(ADOQuery1.FieldValues('name')),Str);
ShowMessage(String(Str));
FreeMem(Str);
end;
Должно получиться чтото подобное, вобщето я работал в обратном преобразовании символов, все четко работает. Если что гдето чтото подправишь.

Синтаксис есть подробный в хелпе.
1 параметр - строка для преобразования
2 п. - куда преобразовывать.
И все. Если гдето я не прав прошу прощения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2003, 10:59:17
    #32090928
Славочка
Славочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
Voha >>
Всё получилось!!!!! Огромное СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2003, 22:02:11
    #32091480
NightSpider
NightSpider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + DBF = кодировка
А какой версии DBF были?
Когда я пытался открывать таблицы FoxPro 2.5,2.6 была такая же кака.
Потом просто открыл базу в 5 фоксе, он ее просто предложил сделать update и все замечательно заработало, без всяких там OEMToChar(PChar(ADOQuery1.FieldValues('name')),Str);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi + DBF = кодировка / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 897ms
Закрыть
start [/forum/search_topic.php?author=Kadik&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 5ms
get forum list:
 13ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 153ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 644ms
total:  897ms
x
x
Закрыть


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