Сообщество Чайников

Вопрос

Как прочесть BlobStream с помощью TADOQuery из БД Access?

Ответ

function GetBlobStream(Query: TADOQuery): TMemoryStream;
begin
   result := TMemoryStream.Create;

// Сначала надо подключиться к БД Access.
// Смотрите: Query.Connection, TADOConection и Query.ConnectString

   // Отправляем SQL запрос
   Query.Active := False;
   Query.SQL.Clear;
// data это столбец нужных данных, а email — таблица
Query.SQL.Append('SELECT data FROM email WHERE id=1');
   Query.Active := True;

Result.LoadFromStream(Query.CreateBlobStream(Query.FieldByName('Data'), bmRead));
end;

Кирилл Краснов