Delphi

Вопрос

Чтение 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;

Из конференции Delphi