Проблема кодировки DBF из foxpro

[djinni]

Подскажите как работать с данными в dbf сделанными в foxpro 2
Как бысто перекодировать кодовую страницу и поменять кодировку данных.
Как отобразить данные в dos кодировке.

[Aristarh Dark]

Смотри 29 байт от начала файла dbf, должно быть значение 0x26 для 866 кодовой страницы.

[Stilet]

Как бысто перекодировать кодовую страницу и поменять кодировку данных.

Если у тебя есть Visual FoxPro то воспользуйся утилитой cpzero.app из его набора
Если ты работаеш в BDE то нужно попробовать выставить в его настройках соответствующую кодировку для драйвера в ветке BDE Admin'а - Configuration/Drivers/Native/Foxpro/Langdriver=dBASE RUS cp866

Aristarh Dark

Я бы рпасался рекомендовать такие способы.

[djinni]

Сообщение от Aristarh Dark

Смотри 29 байт от начала файла dbf, должно быть значение 0x26 для 866 кодовой страницы.

29 байт меняет кодовую страницу dbf, а как перекодировать все данные, мне надо работать с этим dbf файлом через Delphi, что бы правель данные отображались желательно не трогая dbf.

[Aristarh Dark]

Сообщение от Stilet

Если у тебя есть Visual FoxPro то воспользуйся утилитой cpzero.app из его набора
Если ты работаеш в BDE то нужно попробовать выставить в его настройках соответствующую кодировку для драйвера в ветке BDE Admin'а - Configuration/Drivers/Native/Foxpro/Langdriver=dBASE RUS cp866

Я бы рпасался рекомендовать такие способы.

Как в Delphi поменять Configuration/Drivers/Native/Foxpro/Langdriver=dBASE RUS cp866

djinni, в большинстве случаев проблемой "неправильного" открытия dbf файлов в delphi является именно то, что этот 29 байт не установлен вообще, и поэтому берется кодовая страница по умолчанию, а это, опять же чаще всего, 1251

[Andrei]

Сообщение от djinni

29 байт меняет кодовую страницу dbf, а как перекодировать все данные, мне надо работать с этим dbf файлом через Delphi, что бы правель данные отображались желательно не трогая dbf.

Еще способ:
В свойстве Font визуальных компонентов, отображающих данные, установить свойство Charset:=OEM_CHARSET. Это позволит правильно отображать данные в досовой кодировке.

Если предполагается использовать компонент в режиме редактирования, то на OnKeyPress пишем процедурку типа:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
s1:string;
s: PChar;
begin
 s1:=Key;
 s:=PChar(s1);
  if DBGrid1.Font.Charset=OEM_CHARSET then CharToOEM(s,s);
 Key:=s[0];
end;

Ну, и, в помощь, функции для перекодировки:
AnsiToOEM - виндовая кодировка в дос;
OEMToAnsi - досовая кодировка в виндовую.

[Stilet]

Как в Delphi поменять Configuration/D

Это не делфе а в BDE Administartor настраивать