Сохранение узлов TVirtualStringTree в Stream

Здравствуйте, в этой статье я хотел бы рассказать как можно сохранить узлы в Stream. Данную переменную можно хранить где угодно, в файле, БД. Мы остановимся на БД, так как чаще всего для отображения узлов используют именно БД, а там мы и будем хранить Stream, а добраться до БД и удалить, например эти узлы будет очень сложно, если например БД стоит на сервере, так, что Вы полностью в данном случае контролируете эти данные и пользователь как говорится не сделает так, что программа будет работать не корректно. Я выбрал БД MS Access, ну во-первых она наверное у всех под рукой, а во-вторых в Delphi предусмотрены стандартные компоненты для работы с данной БД. Я расскажу как я делал на данной БД, а это можно переделать под любую, под тот же самый MySQL. По поводу сохранения узлов в файл я рассказывал, тут принцип такой же, только вместо файла мы используем БД. На события OnLoadNode и OnSaveNode нам прописывать ничего не надо, так как там уже все написано (мы писали в прошлой статье, когда сохраняли в файл) и оно будет работать и с помощью файлов и с помощью Stream.

Давайте подготовим наш проект, нам потребуются следующие дополнительные компоненты

• TADOCOnnection
• TADOQuery
• TButton — 2 шт

Настроим TADOConnection к нашей БД. БД я создал с 2 полями, 1 поле — это идентификатор (который символизирует уникальности), 2 поле — это поле типа объект OLE. Как я ним работать я ранее рассказывал. Смысл в сохранении то, что мы будем сохранять и если в БД есть уже наши узлы, то мы их будем заменять, если нету, то вставляем новые, в итоге у нас получится то, что все время в нашей таблице будет одна запись с нашими узлами. Давайте теперь сохраним наши узлы, для этого на событие OnClick нашей кнопки сохранить я написал следующий код

Исходный код

procedure TForm1.Button5Click(Sender: TObject);
var
 AdoStream:TMemoryStream;
begin
   try
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT * FROM TableStream');
     ADOQuery1.Active:=True;
     if ADOQuery1.RecordCount>0 then
      begin
       ADOQuery1.First;
       ADOQuery1.Edit;
       AdoStream:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('stream')),bmWrite);
       VirtualStringTree1.SaveToStream(AdoStream);
       AdoStream.Free;
       ADOQuery1.Post;
      end
     else
      begin
       ADOQuery1.Insert;
       AdoStream:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('stream')),bmWrite);
       VirtualStringTree1.SaveToStream(AdoStream);
       AdoStream.Free;
       ADOQuery1.Post;
      end;
   finally
   end;
end;

То есть здесь все понятно я думаю, проверяем если есть что в БД, то редактируем, если нету, то вставляем новую запись с нашими узлами. Как работать с БД и в частности с Blob-полями я рассказывал раньше, сможете найти информацию в разделе Базы данных. Если открыть нашу БД, то мы сможем увидеть, что добавилось новая запись, в данной записи написано, что в ней есть какие-то двоичные данные, значит можно спокойно говорить о том, что туда что-то записалось и будем надеется, что наши узлы =).

Теперь давайте откроем и отобразим эти узлы в нашем дереве. Для этого на кнопку, на событие OnClick я написал следующий код

Исходный код

procedure TForm1.Button6Click(Sender: TObject);
var
 AdoStream:TMemoryStream;
begin
   try
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT * FROM TableStream');
     ADOQuery1.Active:=True;
     if ADOQuery1.RecordCount=0 then
      begin
        ShowMessage('Not Stream in Table');
        exit;
      end;
     ADOQuery1.First;
     AdoStream:=TADOBlobStream.Create(TBlobField(ADOQuery1.Fields[1]),bmRead);
     VirtualStringTree1.LoadFromStream(AdoStream);
     AdoStream.Free;
   finally
 
   end;
end;

Как считывать из Blob-полей я также говорил, просто делаем перед этим проверку, что в нашей таблице что-то есть, если есть, то считываем наши двоичные данные в Stream, а затем с помощью LoadFromStream загружаем, а событие OnLoadNode отображается за нас узлы в дерево, на это событие мы раньше записывали код, который сохраняли узлы в файл. Про это можете почитать в статье — про сохранение узлов в файл.

В следующей статье про TVirtualStringTree поговорим как можно рядом с узлами отображать картинки

Полный исходник можно скачать тут

Автор статьи - Andrey53

Метки: TVirtualStringTRree, VirtualStringTree, дерево данных, деревья