Бинарное поле в MS SQL Server через ADO

Первое время я долго не мог понять, почему у меня возникает проблема после загрузки результатов из БД, и пытался долго найти ошибку в своем коде. В итоге оказалось что код был верен, просто я не то что надо было записывал в БД (: Этот пост из ряда "записок", чтобы можно было при необходимости быстро найти. Тем не менее, в поисках возможной ошибки я немного пользовался гуглом. И это была одной из причин, которые побудили меня написать этот пост. Если вы попробуете поискать материал о записи бинарных данных в поле таблицы БД, то заметите две вещи: основная часть всех статей и заметок достаточно старые, и имеют чуть ли не 10-летнюю историю (тут, правда, мало что изменилось). Второе, что для меня показалось странным, что везде описывается один и тот же метод вставки данных:

• Набор данных (dataset) переводится в режим редактирования
• Определяется поле, которое содержит бинарные данные
• Для поля создается поток TADOBlobStream с помощью вызова TDataSet.CreateBlobStream
• В поток записываются необходимые данные
• С вызовом команды Post для датасета данные передаются на сервер

Возможно, в изложении логики я немного не прав, но общая суть всех примеров, которые я нашел, была примерно такова. То есть ситуация такая, что мы всегда имеем набор данных, и поле которое редактируем. Но вот загвоздка именно в том, что это поле данных мы имеем только в случае, когда датасет действительно содержит какой то набор значений, вернее когда он представляет команду SELECT. В моем же случае запрос представлял инструкцию INSERT либо UPDATE. Например, такой:

update myData set data = :data where id = 5

В таком случае, мы не можем обратиться к полям, ибо их нет, запрос находится в закрытом (active = false) состоянии. Очевидно работа как и предполагается проводится через параметр. Логика весьма проста: создается поток, в него записываются нужные данные, выбирается нужный параметр, значение которого записывается из этого потока. Ничего сложного в этом нет, но как ни странно, таких вариантов на первых страницах в поиске гугла просто нет (или мб я что то не то искал? (: ). Тестовая запись имела следующий простой вид:

  TTest = packed record
      bv : byte;
      bv2 : byte;
      intv : integer;
      intv2 : integer;
  end;

Перед передачей данных на сервер значения заполнялись следующим образом:

var r : TTest;
begin
    r.bv := $F0;
    r.bv2 := $AA;
    r.intv := 1;
    r.intv2 := $abcd;

Значения указаны в 16-ричной форме, чтобы было легко сопоставить результаты выборки select в MS SQL Server Managment Studio, которая показывает данные в hex-форме. Здесь же вы можете наглядно сравнить как при сохранении будет различаться использование record и packed record. А теперь небольшой т.н. code-snippet демонстрирующий отправку бинарных данных на сервер:

var dp : TParameter;
    ms : TMemoryStream;
begin
    query.SQL.Text := 'update myData set data = :data where id = 5';
    dp := query.Parameters.ParamByName('data');

    ms := TMemoryStream.Create();
    try
        ms.Write(r, sizeof(r));
        ms.Position := 0;
        dp.LoadFromStream(ms, ftBlob);
    finally
         ms.Free();
    end;
    query.ExecSQL();
end;

Предполагается что query это экземпляр TADOQuery. Данный код, конечно же, может вызывать исключения, например при при вызове execSql, поэтому необходимо помнить об их обработке. При использовании update-запроса ситуация полностью аналогична. И обратный пример, загрузки данных обратно в структуру из таблицы:

var s : TStream;
begin
    query.SQL.Text := 'select data from myData where id = 5';
    query.Open();
    s := query.CreateBlobStream(query.FieldByName('data'), bmRead);
    try
        s.Read(r, sizeof(r));
    finally
        s.Free();
    end;
end;

Здесь же нам, вообще говоря, необходимо убедиться, что размер полученных данных соответствует структуре, в которую мы хотим их записать, поэтому нужны соответствующие проверки.