Библиотека Bson для Delphi?

Question

Может кто-нибудь предложить полную библиотеку Bson для Delphi? Я пытаюсь использовать http://code.google.com/p/pebongo/source/browse/trunk/_bson.pas из http://bsonspec.org/, но есть некоторые структуры, которые не поддерживаются.

---

Или, может быть, я не использую его правильно, так как у этого класса нет документации, я не могу найти правильное использование для него.

Я хочу создать список элементов, эти элементы являются моими сериализуемыми объектами.
Но как создать список и поместить элемент в "список"?

Answer 1

Ранее я создавал реализацию BSON для Delphi, в значительной степени основываясь на существующем типе Variant в Delphi (и его TVarType). В какой-то момент он также поддерживает вариантные массивы.

см. bsonDoc.pas: https://github.com/stijnsanders/TMongoWire

Answer 2

Я столкнулся с той же проблемой и немного взломал исходный код. Вот что я приготовил тогда:

procedure TBSONDocument.ReadStream(F: TStream);
var
  len : Integer;
  elmtype : Byte;
  elmname : string;
begin
  Clear;

  F.Read(len, SizeOf(len));
  F.Read(elmtype, SizeOf(Byte) );

  while elmtype <> BSON_EOF do
  begin
    elmname := _ReadString(F);

    SetLength(FItems, Length(FItems)+1);

    case elmtype of
      BSON_FLOAT: FItems[High(FItems)] := TBSONDoubleItem.Create;
      BSON_STRING: FItems[High(FItems )] := TBSONStringItem.Create;
      BSON_DOC: FItems[High(FItems )] := TBSONDocumentItem.Create;  // Mrsky
      BSON_ARRAY: FItems[High(FItems)] := TBSONArrayItem.Create;
      BSON_BINARY: FItems[High(FItems)] := TBSONBinaryItem.Create;

      BSON_OBJECTID: FItems[High(FItems )] := TBSONObjectIDItem.Create;
      BSON_BOOLEAN: FItems[High(FItems )] := TBSONBooleanItem.Create;
      BSON_DATETIME: FItems[High(FItems)] := TBSONDatetimeItem.Create(0); // Mrsky

      BSON_REGEX: FItems[High(FItems)] := TBSONRegExItem.Create;
      BSON_DBPTR: FItems[High(FItems)] := TBSONDBRefItem.Create;
      BSON_JS: FItems[High(FItems )] := TBSONJSItem.Create;
      BSON_SYMBOL: FItems[High(FItems)] := TBSONSymbolItem.Create;
      BSON_JSSCOPE: FItems[High(FItems )] := TBSONScopedJSItem.Create;

      BSON_INT32: FItems[High(FItems )] := TBSONIntItem.Create;

      BSON_INT64: FItems[High(FItems )] := TBSONInt64Item.Create;

      BSON_MINKEY: FItems[High(FItems)] := TBSONItem.Create(BSON_MINKEY);
      BSON_MAXKEY: FItems[High(FItems)] := TBSONItem.Create(BSON_MAXKEY);

    else
      raise EBSONException.Create('Unimplemented element handler '+IntToStr(elmtype));
    end;

    with FItems[High(FItems)] do
    begin
      elname := elmname;
      ReadStream(f);
    end;

    f.Read(elmtype, SizeOf(Byte));
  end;
end;

Я не оценил способ, которым был реализован метод "Free", удалил их все и ввел новый метод деструктора "Destroy" соответственно, где он подходит.

Я надеюсь, что это поможет вам.