[Dead_Gigabit]

Уже до боли всеми измусоленная тема, извините конечно меня бесталкового, но сил больше нет ....

необходимо прорамно создать DBF (DBASE III или DBASE IV с кодировкой русских символов – OEM 866) фаил который бы открывался, программой для просмотра (выложил сюда: https://docs.google.com/leaf?id=0B1a...ODgzZjU0&hl=en на всякий пожарный)

Что пробывал:
1. это: http://www.delphisources.ru/pages/fa...te_table4.html
2. это:

Код:

begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\';
     TableName     := 'test.dbf';
     TableType     := ttDbase;
     with FieldDefs do
     begin
      Add('FIO', ftString,20,false);
      Add('OTD', ftString,30,false);
     end;
     CreateTable;
   end;
 end;

Не чего не подходит Гугл дает тока подобные варианты решения проблеммы....

Пишу на Delphi 2010

[NumLock]

не смог найти программу. на угад могу посоветовать:

Код:

TableLevel:=3;

[Dead_Gigabit]

Не понял куда чего?

[NumLock]

Код:

begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\';
     TableName     := 'test.dbf';
     TableType     := ttDbase;
     TableLevel    := 3;
     with FieldDefs do
     begin
      Add('FIO', ftString,20,false);
      Add('OTD', ftString,30,false);
     end;
     CreateTable;
   end;
 end;

[Dead_Gigabit]

Фаил создается все ок спасибо, но вместо руских букв какие-то кракозябры тоесть как я понимаю нужна с кодировка русских символов – OEM 866 как добавить эту кодировку?

вот код который создает фаил и перебрасывает данные из Stringrid в него:

Код:

 
var
NumF    : TFieldDef;
i,j:integer;
begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\';
     TableName     := 'test.dbf';
     TableType     := ttDbase;
     TableLevel    := 3;
     with FieldDefs do
     begin
      Add('FIO', ftString,40,false);
      Add('ACCOUNT', ftString,20,false);
     // Add('SUMMA', ftBlob,0,false);
     NumF:=FieldDefs.AddFieldDef();
    NumF.Name:='SUMMA';
    NumF.DataType:=ftBCD;
    NumF.Size:=2;
    NumF.Precision:=17;
 
     end;
     CreateTable;
   end;
    TBL1.DatabaseName:='c:\';
  TBL1.TableName:='test.dbf';
  TBL1.Active:=true;
  for i:=0 to StringGrid1.RowCount-1 do
    begin
      TBL1.Append;
      for j:=0 to StringGrid1.ColCount-1 do
        TBL1.Fields[j].AsString:=StringGrid1.Cells[j,i];
      TBL1.Post;
    end;
  TBL1.FlushBuffers;
  TBL1.Active:=false;
end;
 

[NumLock]

в bde администраторе у нативного драйвера dbf lang установить в dbase rus cp866

[Dead_Gigabit]

Хм, заработало, но прогой будут пользоваться как минимум два человека(не считая меня), как быть, может кодировку можно устанавливать программно...?

[NumLock]

эти настройки сидят в "c:\Program Files\Common Files\Borland Shared\BDE\idapi32.cfg"

[Dead_Gigabit]

А если у пользователей нет, Delphi? Там тока голая винда, 1с, MSOffice и пару бух прог. Не ставить же каждому BDE и не менять кодировку? А вдруг руковотство скажет не двоим а десятерым поставить тогда как?

[NumLock]

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

Не ставить же каждому BDE

сам начал TTable использовать:

TTable encapsulates a database table.
Unit
DBTables
Description
Use TTable to access data in a single database table using the Borland Database Engine (BDE)

[s0Creator]

Не ставить же каждому BDE

BDE устарела уже лет 10 назад и для доступа к DBF (DBASE III или DBASE IV) есть еще несколько средств.
Смотрите в сторону dbGo - на TADO... вполне можете соединиться с базами dbf и не надо ничего устанавливать - поддерживается на уровне Винды.

[Dead_Gigabit]

Есть другие предложения? Жду примеров, нормально работающие примеры тока с TTable .....

[roamer]

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

А если у пользователей нет, Delphi? ...

Для установки BDE-5 - Delphi не обязателен.
Есть просто отдельные инсталляшки BDE-5.
Например здесь:
http://flexiobjdb.narod.ru/download/dnload.htm

А вдруг руковотство скажет не двоим а десятерым поставить тогда как?

Тогда надо взять InstallShield, потратить 10 минут и сделать нормальную инсталляшку своей программы+BDE-5 (в одном флаконе).