Библиотека Bson для Delphi? - PullRequest
Новая
       19

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

7 голосов
/ 07 июня 2011

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

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

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

Ответы [ 2 ]

7 голосов
/ 07 июня 2011

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

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

1 голос
/ 20 сентября 2011

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

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».

Надеюсь, это вам поможет.

...