Кодировка Dbf - БД в Delphi

Nikolaeva · 04.02.2008, 12:35

Проблема уже поднималась, но мне не помогло. Задача такая:ежедневно надо брать dbf-файлы(foxpro-dos) и обрабатывать в Delphi. Через DatabaseDesktop язык меняется на dBASE RUS cp866 без проблем. Но файлов много, и должен делать работу пользователь. Т.е. Delphi должен перекодировать. Вот здесь советовали через св-во Charset менять на OEM_CHARSET, но у меня не работает. Необходимо написать перекодировщик, а у меня ума не хватает. Помогите, пожалуйста!

Stilet · 04.02.2008, 12:57

Цитата:

Т.е. Delphi должен перекодировать.

А что мешает в BDE Admin настроить на DBF dBASE RUS cp866?

И еще: нечего кросспостить, модераторы забанят.

Nikolaeva · 04.02.2008, 13:58

Пользователь ежедневно приносит 10файлов с другого компьютера. А в Delphi делаются отчеты. Как автоматизизовать BDE Administratir я не знаю.

Stilet · 04.02.2008, 14:30

Да просто настрой для Foxpro драйвера эту таблицу и это будет на всех распространяться

Nikolaeva · 04.02.2008, 16:42

Спасибо, очень хороший совет. Но на печать абракадабра выходит.

Stilet · 04.02.2008, 17:08

Дык показывай как выводиш

Steel_rat · 05.02.2008, 06:08

При считывании данных с DBF попробуй ставить DosToWin Может поможет.
Вот как это выглядит у меня
arrayOfStr[7] :=
DosToWin(TableImportSibsogl.FieldBy Name('DBTMFO').AsString);
либо наоборот WinToDos

Nikolaeva · 05.02.2008, 13:24

Мне очень подошел совет Stileta. Большое спасибо! С печатью вышла из положения так: в отчетной форме выбрала шрифт Times New Roman. Особенности моего компьютера.

04.02.2008, 12:35	#1
Nikolaeva Пользователь Регистрация: 23.05.2007 Сообщений: 30	Кодировка Dbf Проблема уже поднималась, но мне не помогло. Задача такая:ежедневно надо брать dbf-файлы(foxpro-dos) и обрабатывать в Delphi. Через DatabaseDesktop язык меняется на dBASE RUS cp866 без проблем. Но файлов много, и должен делать работу пользователь. Т.е. Delphi должен перекодировать. Вот здесь советовали через св-во Charset менять на OEM_CHARSET, но у меня не работает. Необходимо написать перекодировщик, а у меня ума не хватает. Помогите, пожалуйста!

04.02.2008, 14:30	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Да просто настрой для Foxpro драйвера эту таблицу и это будет на всех распространяться I'm learning to live...

04.02.2008, 17:08	#6
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Дык показывай как выводиш I'm learning to live...

05.02.2008, 06:08	#7
Steel_rat Пользователь Регистрация: 01.02.2008 Сообщений: 15	При считывании данных с DBF попробуй ставить DosToWin Может поможет. Вот как это выглядит у меня arrayOfStr[7] := DosToWin(TableImportSibsogl.FieldBy Name('DBTMFO').AsString); либо наоборот WinToDos Влейте в рот загрузочную кружку пива.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Кодировка	!evgen!	Общие вопросы Delphi	4	08.07.2008 13:16
Кодировка	Nixtone	Помощь студентам	4	27.05.2008 14:12
UTF-8 кодировка	OrdJONY	Общие вопросы Delphi	2	23.03.2008 16:56
Кодировка	satana	Общие вопросы Delphi	1	20.12.2007 02:53

04.02.2008, 13:58	#3
Nikolaeva Пользователь Регистрация: 23.05.2007 Сообщений: 30	Пользователь ежедневно приносит 10файлов с другого компьютера. А в Delphi делаются отчеты. Как автоматизизовать BDE Administratir я не знаю.

04.02.2008, 16:42	#5
Nikolaeva Пользователь Регистрация: 23.05.2007 Сообщений: 30	Спасибо, очень хороший совет. Но на печать абракадабра выходит.

05.02.2008, 13:24	#8
Nikolaeva Пользователь Регистрация: 23.05.2007 Сообщений: 30	Мне очень подошел совет Stileta. Большое спасибо! С печатью вышла из положения так: в отчетной форме выбрала шрифт Times New Roman. Особенности моего компьютера.