Страница 1 из 1
Проблема с DBF
Добавлено: 10 июн 2005, 14:59
DarkAngel27
В отчёте создаётся DBF файлик для импорта в другую БД.
Данный файл не соответствует требованиям к структуре DBF. Всеми современными программами видится нормально, но dos выдаёт ошибку в структуре файла.
Попробовал создать в dos таблицу с таким же заголовком, в результате разница в заголовках между DOS и Галактической DBF составила 1 байт. Может быть кто-то знает в чём дело?
Добавлено: 10 июн 2005, 15:17
DarkAngel27
Если можно, то поясните данный код. Я что то не понял.
Добавлено: 10 июн 2005, 15:17
Max_Fin
Код: Выделить всё
PDBFHeader = ^TDBFHeader;
TDBFHeader = object(TObject)
Sign: Byte; { FoxBASE+/dBASE III +, без memo - 03H
FoxBASE+/dBASE III +, с memo - 83H
FoxPro/dBASE IV, без memo - 03H
FoxPro с memo - F5H
dBASE IV с memo - 8BH }
YY: Byte;
MM: Byte;
DD: Byte; { Дата последнего обновления : ГГММДД }
NRec: LongInt; { Число записей в файле }
HSize: Word; { Число байт в заголовке }
RecSize: Word; { Число байт в записи }
Reserved: Array[0..16] of Byte;
KeepMemoFieldSize : boolean; { Сохранять размер мемо-поля }
FieldNameSize : smallint;
constructor Init(iSign, iYY, iMM, iDD : byte;
iNRec : LongInt; iHSize, iRecSize : Word);
end;
...
Procedure TDBFFile.CreateHeader;
var
YY: Word;
MM: Word;
DD: Word;
DW: Word;
b : byte;
begin
GetDate(YY,MM,DD,DW);
Header := New(PDbfHeader,Init($03,Byte(YY-1900),MM,DD,0,StdHSize,1));
Stream^.Write(Header^.Sign, 1); {Запишем HEADER в файл}
Stream^.Write(Header^.YY, 1);
Stream^.Write(Header^.MM, 1);
Stream^.Write(Header^.DD, 1);
Stream^.Write(Header^.NRec, SizeOf(LongInt));
Stream^.Write(Header^.HSize, SizeOf(Word) );
Stream^.Write(Header^.RecSize, SizeOf(Word) );
PutEmptyPortionToStream(Stream, StdHSize - 1, false);
b := $0D; {Символ конца заголовка}
Stream^.Write(b, 1);
MakeEndOfDBFFile;
end; {end of Procedure TDBFFile.CreateHeader}
...
Добавлено: 10 июн 2005, 16:15
gloomy
Для работы с DBF-файлами я использовал стандартные функции ПК "Галактика":
function DBFOpen (name : string, mode : integer) : longInt;
procedure DBFClose (handle : longInt);
function DBFAddField (handle : longInt;
fName : string;
cField, lField, quant : integer
) : integer;
function DBFPutFieldValue (handle : longInt;
fName, str : string
) : integer;
и т. д.
Они не помогут сформировать DBF-файл ?
Добавлено: 10 июн 2005, 16:25
DarkAngel27
Файлы создаются нормально, но не корректно...
Вопрос ещё один созрел: в каком формате DOS видит поле типа DATE?
Добавлено: 10 июн 2005, 19:39
edward_K
yyyymmdd кажись
по f3 открываешь файл и усе смотришь