mormot当作内存数据库（缓存）使用

mormot当作内存数据库（缓存）使用

mormot的TSQLRestStorageInMemory可以作为内存数据库来使用。

上图是在笔者4代I5笔记本上做的测试，增加10万记录，耗时：562毫秒。

增加的数据如下图所示（默认是JSON，当然也可以存为二进制格式的）：

下面附上测试代码：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176

/// <author>cxg 2018-9-17</author> /// mormot 数据缓存   unit Unit1;   interface   uses   SynCommons, SynDB, mORMot, mORMotDB, SynDBSQLite3, SynSQLite3Static, Winapi.Windows,   Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ToolWin, Vcl.ComCtrls;   type   /// <summary>   /// 缓存的记录   /// </summary>   TPerson = class(TSQLRecord)   private     FNo: integer;     FName: string;   published     property No: Integer read FNo write FNo;     property Name: string read FName write FName;   end;   type   TForm1 = class(TForm)     Label1: TLabel;     edtId: TEdit;     Label2: TLabel;     edtName: TEdit;     ToolBar1: TToolBar;     btnAdd: TToolButton;     btnAdds: TToolButton;     btnUpdate: TToolButton;     btnFind: TToolButton;     btnDelete: TToolButton;     btnDeleteAll: TToolButton;     mmo1: TMemo;     procedure btnAddClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure btnFindClick(Sender: TObject);     procedure btnAddsClick(Sender: TObject);     procedure btnUpdateClick(Sender: TObject);     procedure btnDeleteAllClick(Sender: TObject);     procedure btnDeleteClick(Sender: TObject);   private     { Private declarations }     FMemDB: TSQLRestStorageInMemory;     FModel: TSQLModel;   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.btnAddClick(Sender: TObject); var   LPerson: TPerson; begin   try     LPerson := TPerson.Create;     LPerson.No := StrToInt(edtId.Text);     LPerson.Name := edtName.Text;     if FMemDB.Add(LPerson, True) = 0 then     begin       ShowMessage('增加失败');     end     else     begin       edtId.Clear;       edtName.Clear;       edtId.SetFocus;     end;   finally     LPerson.Free;   end; end;   procedure TForm1.btnAddsClick(Sender: TObject); var   a, b, c: Cardinal;   i: Integer;   LPerson: TPerson; begin   a := GetTickCount;   try     LPerson := TPerson.Create;       for i := 0 to 100000 do     begin       LPerson.no:= i;       LPerson.Name := RandomGUID.ToString;       if FMemDB.Add(LPerson, True) = 0 then       begin         mmo1.Lines.Add('失败： ' + i.ToString);       end;     end;     b := GetTickCount;     c := b - a;     mmo1.Lines.Add('耗时： ' + c.ToString + ' 毫秒');   finally     LPerson.Free;   end; end;   procedure TForm1.btnDeleteAllClick(Sender: TObject); begin   FMemDB.DropValues; end;   procedure TForm1.btnDeleteClick(Sender: TObject); var   LNo: string; begin   LNo := '';   if FMemDB.Delete(TPerson, LNo) then   begin     mmo1.Lines.Add('删除成功');   end else   begin     mmo1.Lines.Add('删除失败');   end;   end;   procedure TForm1.btnFindClick(Sender: TObject); var   LPerson: TPerson; begin   LPerson := TPerson.Create(FMemDB, 'Id=?', [edtId.Text]);   if LPerson <> nil then   begin     edtId.Text := LPerson.no.ToString;     edtName.Text := LPerson.Name;   end; end;   procedure TForm1.btnUpdateClick(Sender: TObject); var   LPerson: TPerson; begin   LPerson := TPerson.Create;   LPerson.no := StrToInt(edtId.Text);   LPerson.Name := edtName.Text;     if FMemDB.Update(LPerson) then   begin     mmo1.Lines.Add('更新成功： ' + LPerson.no.ToString);   end   else   begin     mmo1.Lines.Add('更新失败： ' + LPerson.no.ToString);   end;   LPerson.Free; end;   procedure TForm1.FormCreate(Sender: TObject); begin   FModel := TSQLModel.Create([TPerson]);   FMemDB := TSQLRestStorageInMemory.Create(TPerson, nil, 'test.db'); end;   procedure TForm1.FormDestroy(Sender: TObject); begin   FModel.Free;   FMemDB.Free; end;   end.