чтение параметров из blolb

← →
stud © (2005-06-10 11:13) [0]

есть blob поле, в катором хранятся параметры в виде как в ини-файле,
как считать эти данные в локальные переменные?

← →
Ega23 © (2005-06-10 11:29) [1]

ms:=TMemoryStream.Create;
TBLOBField(DataSet.FieldByName("FieldName")).SaveToStream(ms);
ms.readBuffer(...)

← →
stud © (2005-06-10 11:35) [2]

это уже написал
но как определить размер считываемых данных?
параметры имеют разную длину, например
timestart="00:00"
datestart="01.01.2005"

← →
Ega23 © (2005-06-10 11:51) [3]

А как ты их в blob писал? Вот как писал, так и считывать надо.
Могу предложить следующее (сам недавно реализовал):
данные в BLOB пишутся в формате, похожим на формат Tiff -
есть чёткая структура тэгов
TGfxTagStruct = packed record Tag : Word; wParam : Cardinal; lParam : Cardinal; Offset : Cardinal; end;

где
Tag - номер тэга,
wParam, lParam - могут быть разные значения, зависящие от номера тэга,
Offset - позиция следующего тэга относительно начала BLOB"а.

Скажем, тэг, отвечающий за хранение картинки (bmp) будет выглядеть так:
Tag - номер (например 10)
lParam - размер картинки
wParam - позиция начала картинки относительно начала BLOB"а
Offset - позиция следующего тэга относительно начала BLOB"а (если последний - то 0)

тэг, отвечающий за цвет фонта будет выглядеть так:
Tag - номер (например 12)
lParam - для данного тэга не используется
wParam - размер фонта
Offset - позиция следующего тэга относительно начала BLOB"а (если последний - то 0)

тэг, отвечающий за какую-то строку будет выглядеть так:
Tag - номер (например 15)
lParam - размер строки
wParam - указатель на начало строки
Offset - позиция следующего тэга относительно начала BLOB"а (если последний - то 0)

и так далее.

← →
stud © (2005-06-10 12:00) [4]

понятно

← →
Digitman © (2005-06-10 12:49) [5]

ss:=TStringStream.Create;
TBLOBField(DataSet.FieldByName("FieldName")).SaveToStream(ss);
ini := TMemIniFile.Create("");
ini.SetStrings(ss.DataString);

> DataString

неесовместимые типы

> SetStrings

ss:=TStringStream.Create;
TBLOBField(DataSet.FieldByName("FieldName")).SaveToStream(ss);
ini := TMemIniFile.Create("");
sl := TStringList.Create;
sl.Text := ss.DataString;
ini.SetStrings(sl);

спасибо

чтение параметров из blolb Найти похожие ветки