Во время выполнения программы мне необходимо получать размеры и десятичные порядки полей таблицы DBase.
Следующий код иллюстрирует необходимые вызовы BDE:
procedure GetdBaseFieldTypes(t: TTable; var l: TStringList);
var
pF: pFLDDesc;
cProps: CURProps;
p: pFLDDesc;
i: Byte;
w: Word;
s: string;
oldmode: LongInt;
begin
Check(DbiGetCursorProps(t.Handle, cProps));
Check(DbiGetProp(hDBIObj(t.Handle), curXLTMODE, oldmode, SizeOf(LongInt), w));
Check(DbiSetProp(hDBIObj(t.Handle), curXLTMODE, LongInt(xltNONE)));
tryif MaxAvail < (cProps.iFields * SizeOf(FLDDesc)) thenraise EOutofMemory.Create('Недостаточно памяти для процесса');
GetMem(pF, (cProps.iFields * SizeOf(FLDDesc)));
Check(DbiGetFieldDescs(t.Handle, pF));
p := pF;
for i := 1 to cProps.iFields dobeginwith p^ dobegin
s := IntToStr(iFldNum) + ' : ' + StrPas(szName) + ' : ';
case iFldType of
fldDBCHAR:
begin{ Char string, строка символов }
s := s + 'CHARACTER(' + IntToStr(iUnits1) + ')';
end;
fldDBNUM:
begin{ Number, число }
s := s + 'NUMBER(' + IntToStr(iUnits1) + ',' + InttoStr(iUnits2) +
')';
end;
fldDBMEMO:
begin{ Memo (blob), МEMO-BLOB-поле }
s := s + 'MEMO';
end;
fldDBBOOL:
begin{ Logical, лочическая величина }
s := s + 'LOGICAL';
end;
fldDBDATE:
begin{ Date, поле даты }
s := s + 'DATE';
end;
fldDBFLOAT:
begin{ Float, числа с плавающей точкой }
s := s + 'FLOAT(' + IntToStr(iUnits1) + ',' + InttoStr(iUnits2) +
')';
end;
fldDBLOCK:
begin{ Логический тип LOCKINFO }
s := s + 'LOCKINFO';
end;
fldDBOLEBLOB:
begin{ OLE object (blob), OLE-объект, BLOB-поле }
s := s + 'OLE';
end;
fldDBBINARY:
begin{ Binary data (blob), двоичные данные, BLOB-поле }
s := s + 'BINARY';
end;
else
s := s + 'НЕИЗВЕСТНО';
end;
end;
l.Add(s);
Inc(p);
end;
finally
Check(DbiSetProp(hDBIObj(t.Handle), curXLTMODE, oldmode));
FreeMem(pF, (cProps.iFields * SizeOf(FLDDesc)));
end;
end;
В статье рассмотрен код на языке Delphi, который позволяет получать размеры и десятичные порядки полей таблицы DBase.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.