Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Шурик Ш © (2002-10-24 11:38:00)
Подскажите пожалуйста. Мне необходимо прочитать таблицу DBF, которая сделана в ДОСе. Я работаю с ней через БДЕ, но его содержимое написанное русскими буквами не читабельно. Просматриваю файл через Far, он читабелен в кодировке "ДОС". Как мне его прочитать?

Barabashka (2002-10-25 11:16:00) [1]
Это значит, что все другие проги, которым надо будут настройки
Configurations>Driver>Native>BDASE будут использовать твои....и как они после этого станут работать, поизвестно.
лучше сразу в реестр писать, прдварительно сохранив то, что там
было, а потом вернуть, при выходе из программы
Uses …….,registry;
………
procedure TForm1.edit_reestr;
var MyReestr:TRegistry;
begin
MyReestr:=TRegistry.Create;
MyReestr.RootKey:=HKEY_LOCAL_MACHINE;
if myReestr.OpenKey("\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\DBASE\TABLE CREATE",false) then
begin
sreestr:=MyReestr.ReadString("level");{запомнить, а что собственно было до нас}
MyReestr.WriteString("level","5");{пишем свое}
MyReestr.CloseKey;
end;
end;
После этого создание dbf-файла происходит в досовской структуре…
По-хорошему, надо вернуть после себя настройки, которые были до этого

procedure TForm1.restore_reestr;
begin
MyReestr.RootKey:=HKEY_LOCAL_MACHINE;
if myReestr.OpenKey("\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\DBASE\TABLE CREATE",false) then
begin
MyReestr.WriteString("level",sreestr);{вернули то, что там было.}
MyReestr.CloseKey;
end;
MyReestr.free;
end;
Для других ключей аналогично. Их в реестре можно глянуть.

Я уже когда-то давала тут этот ответ.

Шурик Ш (2002-10-24 13:37:00) [2]
2 Leshik © (24.10.02 13:31)
Спасибо! Это действительно помогло! А что значит, то что я сделал?

sniknik (2002-10-24 13:35:00) [3]
Это не ошибка,
для начала измени в
BDE Administrator-е:
Configurations>Driver>Native>BDASE - "dBASE RUS cp866"
и еще раз перечитай ветку

Leshik (2002-10-24 13:31:00) [4]
Чтобы прочитать такой бд с досовской кодировкой, поставь в свойствах DBGriG (или что ты используешь для вывода результата) Fonts\CharSet = OEM_CHARSET (тоже что и 255).
У меня так получилось.

Шурик Ш (2002-10-24 13:27:00) [5]
Я так и не понял, как мне программно устранять эту ошибку при запуске?

sniknik (2002-10-24 11:45:00) [6]
разные кодовые страници, нужны настройки на дос если хочеш читать в виндах
почитай это то же самое
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035350354&n=1

Наверх

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