Автор: delphi | 14.12.2007 в 7:19 | Рубрики: Базы данных

Посылаю кое-что из своих наработок:

NtxRO - Модуль чтения clipper-овских индексов. Удобен для доступа к данным
Clipper приложений. Предусмотрено, что программа может работать с
индексом даже если родное приложение производит изменение в индексе
NtxAdd - Средство формирования своих Clipper подобных индексов. Индексы
НЕ БУДУТ ЧИТАТЬСЯ Clipper-приложениями (кое-что не заполнил в
заголовке, очень было лениво, да и торопился) Читать полностью…

Уважаемые жители Королевства, вашему вниманию предлагается

VK DBF — компонент для работы с DBF таблицами и с Clipper индексами NTX.

Версия 1.0.5 beta (24.10.02)
Для Delphi 5
Это не просто драйвер DBFNTX для Delphi 5.
Компонет поддерживает множество расширенных типов (~60) таких как Byte, Integer, Real48, Double, Int64, WideString и т.д.
Имеется встроенная криптография
Описание

1) Add Method TranslateBuff and rewrite methods CreateBlobStream and SaveToDBT with TranslateBuff to prevent ‘Access violation’ in read and write CLOB.
2) When set RecNo check Filter, SetDeleted and Range validation.
3) Fix bud in TVKNTXRange.InRange(S: String) method
4) Add event OnCreateIndex
5) Add public var FullLengthCharFieldCopy to TVKSmartDBF for manage SetFieldData for ‘C’ type fields
6) Fix buf with allocate memory for FLocateBuffer (AV when Locate, Lookup, ReindexAll, DBEval or Pack if BufferSize <> 4096)
7) Complex actions to make index compatibility with CLIPPER:
- Full rewrite TVKNTXIndex.DeleteKey procedure, now it normalize index like a CLIPPER.
- Make TVKNTXIndex.DeleteKeyStyle property to switch Delete Key style between CLIPPER normalize index and all athers (Apollo, Halcyon…).
- Add TVKNTXCompactIndex.NormalizeRest method to make normalize index in TVKNTXIndex.CreateCompactIndex and TVKNTXIndex.SubNtx procedures.
ATTENTION: Rebuild all indexes after apply this version ! 8) Add methods: TVKNTXIndex.FindKey
TVKNTXIndex.FindKeyFields with overloaded some parameters
It is the same SeekFirst…, but subject to SetDeleted, Filter and Range.
Partual key sapport Ok!
9) Rewrite Lokate and Lookup on TVKNTXIndex.FindKeyFields.
10) Add methods:
TVKSmartDBF.SetKey;
TVKSmartDBF.EditKey;
TVKSmartDBF.GotoKey;
TVKSmartDBF.GotoNearest;
TVKSmartDBF.DropEditKey;
TVKSmartDBF.FindKey;
TVKSmartDBF.FindNearest;
All this methods work throw TVKNTXIndex.FindKeyFields.
11) Add TVKSmartDBF.IndexName property.
12) Make type ‘C’ is not be NULL, if field empty Field.AsString return string of spases lethgt of field length.