Форум: "Базы";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Внизчтение параметров из 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);
← →
stud © (2005-06-10 13:51) [6]
> DataString
неесовместимые типы
> SetStrings
← →
Digitman © (2005-06-10 14:00) [7]ss:=TStringStream.Create;
TBLOBField(DataSet.FieldByName("FieldName")).SaveToStream(ss);
ini := TMemIniFile.Create("");
sl := TStringList.Create;
sl.Text := ss.DataString;
ini.SetStrings(sl);
← →
stud © (2005-06-10 14:11) [8]спасибо
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c