blob данные из Sqlite

[unbanned]

вообщем мне надо прочитать данные типа BLOB в массив байт...

текстовые поля читаю так...

var
  Query: TDISQLite3UniDirQuery;
begin
  query := TDISQLite3UniDirQuery.Create(nil);
  try
    Query.Database := sqlitedb;
    Query.SelectSQL := 'select * from ...';
    Query.Open;
    while not Query.EOF do
    begin
      <?>:=Query.FieldByName('имя_поля').AsString;
      Query.Next;
    end;

  finally Query.Free;
  end;

а как быть с blob?

P.S. компонент DISQlite3

[Stilet]

А что там есть кроме AsString?
Что-то типа такого: http://delphiworld.narod.ru/base/blo...ead_files.html
может подойдет?

[unbanned]

да. спасибо) это было то. но мне нужно было немного по-другому ...

var
  query:TDISQLite3UniDirQuery;
  blob:TBlobByteData;
begin
  query:=TDISQLite3UniDirQuery.Create(nil);
   query.Database:=sqldb;
   query.SelectSQL:='SELECT * FROM ...';
   query.Open;
   while not query.Eof do
   begin
       {query.CreateBlobStream(query.FieldByName('имя_поля'),bmRead);}
    query.GetFieldData(query.FieldByName('имя_поля'),@blob);
    query.next;
   end;

end;

Delphi syntax:

type TBlobByteData = array of Byte;

мне вообще вот такую структуру надо получить)

DATA_BLOB = record
    cbData: DWORD;
    pbData: PByte;
  end;

cbData
A DWORD variable that contains the count, in bytes, of data.
pbData
A pointer to the data buffer.

с указателем на массив то понятно... а как получить кол-во байт?