source upload
This commit is contained in:
Razor12911
@@ -0,0 +1,107 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 214
|
||||
Top = 192
|
||||
Width = 595
|
||||
Height = 443
|
||||
Caption = ' External DB performance tests - Synopse mORMot'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 32
|
||||
Top = 32
|
||||
Width = 51
|
||||
Height = 13
|
||||
Caption = 'Oracle DB:'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 88
|
||||
Top = 56
|
||||
Width = 329
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'If no Oracle DB is set, it won'#39't use it'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsItalic]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 240
|
||||
Top = 96
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object LogMemo: TMemo
|
||||
Left = 0
|
||||
Top = 143
|
||||
Width = 579
|
||||
Height = 262
|
||||
Align = alBottom
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Constraints.MinHeight = 200
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 1
|
||||
end
|
||||
object OraTNSName: TEdit
|
||||
Left = 88
|
||||
Top = 32
|
||||
Width = 121
|
||||
Height = 21
|
||||
Hint = 'TNS name'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object OraUser: TEdit
|
||||
Left = 224
|
||||
Top = 32
|
||||
Width = 121
|
||||
Height = 21
|
||||
Hint = 'User name'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object OraPass: TEdit
|
||||
Left = 352
|
||||
Top = 32
|
||||
Width = 121
|
||||
Height = 21
|
||||
Hint = 'Password'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object BtnRunTests: TButton
|
||||
Left = 32
|
||||
Top = 88
|
||||
Width = 185
|
||||
Height = 41
|
||||
Caption = 'Run tests'
|
||||
Default = True
|
||||
TabOrder = 0
|
||||
OnClick = BtnRunTestsClick
|
||||
end
|
||||
object btnReport: TButton
|
||||
Left = 462
|
||||
Top = 112
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Report'
|
||||
TabOrder = 5
|
||||
OnClick = btnReportClick
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,952 @@
|
||||
unit PerfMain;
|
||||
|
||||
interface
|
||||
|
||||
{$I Synopse.inc}
|
||||
|
||||
// enable/disable third-party libraries
|
||||
{.$define USENEXUSDB}
|
||||
{.$define USEBDE}
|
||||
{.$define USEUNIDAC}
|
||||
{.$define USEZEOS}
|
||||
{.$define USEFIREDAC}
|
||||
|
||||
// enable/disable database engines
|
||||
{.$define USEJET}
|
||||
{.$define USEFIREBIRDEMB}
|
||||
{.$define ODBCSQLITEFIREBIRD}
|
||||
{.$define USELOCALMSSQLEXPRESS} // SQL Server 2008 R2 Express locally
|
||||
{.$define USELOCALDBMSSQLEXPRESS} // SQL Server 2012 LocalDB edition
|
||||
{.$define USELOCALDB2}
|
||||
{.$define USELOCALPOSTGRESQL}
|
||||
{.$define USELOCALMYSQL}
|
||||
{.$define USEMONGODB}
|
||||
|
||||
{$ifdef CPU64}
|
||||
{$undef USENEXUSDB} // official NexusDB is not yet 64 bit ready :(
|
||||
{$undef USEJET} // MS Access / JET is not available under Win64
|
||||
{$endif}
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Contnrs, ShellApi,
|
||||
SynCommons,
|
||||
mORMot, mORMotSQLite3, mORMotDB,
|
||||
SynDB, SynDBSQLite3, SynDBOracle, SynOleDB, SynDBODBC, SynDBDataSet,
|
||||
{$ifdef USENEXUSDB}
|
||||
SynDBNexusDB,
|
||||
{$endif}
|
||||
{$ifdef USEBDE}
|
||||
SynDBBDE,
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
SynDBUniDAC,
|
||||
SQLiteUniProvider, InterbaseUniProvider, OracleUniProvider, DB2UniProvider,
|
||||
SQLServerUniProvider, PostgreSQLUniProvider, MySqlUniProvider,
|
||||
{$endif}
|
||||
{$ifdef USEZEOS}
|
||||
SynDBZeos,
|
||||
{$endif}
|
||||
{$ifdef USEFIREDAC}
|
||||
SynDBFireDAC,
|
||||
{$ifdef ISDELPHIXE5}
|
||||
FireDAC.Phys.Oracle, FireDAC.Phys.MSAcc, FireDAC.Phys.MSSQL, FireDAC.Phys.MySQL,
|
||||
FireDAC.Phys.SQLite, FireDAC.Phys.IB, FireDAC.Phys.PG, FireDAC.Phys.DB2,
|
||||
{$else}
|
||||
uADPhysOracle, uADPhysMSAcc, uADPhysMSSQL,
|
||||
uADPhysSQLite, uADPhysIB, uADPhysPG, uADPhysDB2, uADPhysMySQL,
|
||||
{$endif}
|
||||
{$endif}
|
||||
{$ifdef USEMONGODB}
|
||||
SynMongoDB, mORMotMongoDB,
|
||||
{$endif}
|
||||
SynSQLite3, SynSQLite3Static,
|
||||
SynDBRemote;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
LogMemo: TMemo;
|
||||
OraTNSName: TEdit;
|
||||
OraUser: TEdit;
|
||||
OraPass: TEdit;
|
||||
Label1: TLabel;
|
||||
BtnRunTests: TButton;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
btnReport: TButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure BtnRunTestsClick(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btnReportClick(Sender: TObject);
|
||||
private
|
||||
Ini: RawUTF8;
|
||||
Stats: TObjectList;
|
||||
procedure SaveStats;
|
||||
public
|
||||
procedure Test(PropsClass: TSQLDBConnectionPropertiesClass;
|
||||
const aServerName, aDatabaseName, aUserID, aPassWord, aTrailDesc: RawUTF8;
|
||||
DBIsFile: boolean; Mode: TSQLSynchronousMode=smNormal; Lock: TSQLLockingMode=lmNormal);
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
uses DateUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
// if defined, will create two "stored false" properties, to test UNIQUE columns
|
||||
{.$define UNIK}
|
||||
|
||||
type
|
||||
TStat = class(TPersistent)
|
||||
private
|
||||
fCreateTable: RawUTF8;
|
||||
fNumberOfElements: integer;
|
||||
fInsertTime: RawUTF8;
|
||||
fEngine: RawUTF8;
|
||||
fClientCloseTime: RawUTF8;
|
||||
fInsertRate: integer;
|
||||
fReadOneByOneTime: RawUTF8;
|
||||
fReadOneByOneRate: integer;
|
||||
fInsertBatchTransactionRate: integer;
|
||||
fInsertTransactionRate: integer;
|
||||
fInsertBatchRate: integer;
|
||||
fInsertBatchTransactionTime: RawUTF8;
|
||||
fInsertTransactionTime: RawUTF8;
|
||||
fInsertBatchTime: RawUTF8;
|
||||
fReadAllVirtualRate: integer;
|
||||
fReadAllDirectRate: integer;
|
||||
fReadAllDirectTime: RawUTF8;
|
||||
fReadAllVirtualTime: RawUTF8;
|
||||
{$ifdef UNIK}
|
||||
fReadOneByNameRate: integer;
|
||||
fReadOneByNameTime: RawUTF8;
|
||||
{$endif}
|
||||
published
|
||||
property Engine: RawUTF8 read fEngine;
|
||||
property CreateTableTime: RawUTF8 read fCreateTable;
|
||||
property NumberOfElements: integer read fNumberOfElements;
|
||||
property InsertTime: RawUTF8 read fInsertTime;
|
||||
property InsertRate: integer read fInsertRate;
|
||||
property InsertBatchTime: RawUTF8 read fInsertBatchTime;
|
||||
property InsertBatchRate: integer read fInsertBatchRate;
|
||||
property InsertTransactionTime: RawUTF8 read fInsertTransactionTime;
|
||||
property InsertTransactionRate: integer read fInsertTransactionRate;
|
||||
property InsertBatchTransactionTime: RawUTF8 read fInsertBatchTransactionTime;
|
||||
property InsertBatchTransactionRate: integer read fInsertBatchTransactionRate;
|
||||
property ReadOneByOneTime: RawUTF8 read fReadOneByOneTime;
|
||||
property ReadOneByOneRate: integer read fReadOneByOneRate;
|
||||
{$ifdef UNIK}
|
||||
property ReadOneByNameTime: RawUTF8 read fReadOneByNameTime;
|
||||
property ReadOneByNameRate: integer read fReadOneByNameRate;
|
||||
{$endif}
|
||||
property ReadAllVirtualTime: RawUTF8 read fReadAllVirtualTime;
|
||||
property ReadAllVirtualRate: integer read fReadAllVirtualRate;
|
||||
property ReadAllDirectTime: RawUTF8 read fReadAllDirectTime;
|
||||
property ReadAllDirectRate: integer read fReadAllDirectRate;
|
||||
property ClientCloseTime: RawUTF8 read fClientCloseTime;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Ini := StringFromFile(ChangeFileExt(ExeVersion.ProgramFileName,'.ini'));
|
||||
OraTNSName.Text := UTF8ToString(FindIniEntry(Ini,'Oracle','TNSName'));
|
||||
OraUser.Text := UTF8ToString(FindIniEntry(Ini,'Oracle','User'));
|
||||
OraPass.Text := UTF8ToString(FindIniEntry(Ini,'Oracle','Password'));
|
||||
Stats := TObjectList.Create;
|
||||
end;
|
||||
|
||||
const
|
||||
FIREBIRD_LIB = 'Firebird'+{$ifdef CPU64}'64'+{$endif=}'\fbembed.dll';
|
||||
|
||||
procedure TMainForm.BtnRunTestsClick(Sender: TObject);
|
||||
var T,U,P: RawUTF8;
|
||||
props: TSQLDBSQLite3ConnectionProperties;
|
||||
server: TSQLDBServerAbstract;
|
||||
begin
|
||||
//SynDBLog.Family.Level := LOG_VERBOSE; // for debugging
|
||||
T := StringToUTF8(OraTNSName.Text);
|
||||
U := StringToUTF8(OraUser.Text);
|
||||
P := StringToUTF8(OraPass.Text);
|
||||
UpdateIniEntry(Ini,'Oracle','TNSName',T);
|
||||
UpdateIniEntry(Ini,'Oracle','User',U);
|
||||
UpdateIniEntry(Ini,'Oracle','Password',P);
|
||||
FileFromString(Ini,ChangeFileExt(ExeVersion.ProgramFileName,'.ini'));
|
||||
LogMemo.Clear;
|
||||
{ FreeAndNil(sqlite3); sqlite3 := TSQLite3LibraryDynamic.Create('sqlite3.dll'); }
|
||||
// if false then
|
||||
try
|
||||
try
|
||||
// -------- SQlite3
|
||||
//(*
|
||||
Test(nil,'','','','','SQLite3 (file full)',true,smFull);
|
||||
Test(nil,'','','','','SQLite3 (file off)',true,smOff);
|
||||
Test(nil,'','','','','SQLite3 (file off exc)',true,smOff,lmExclusive);
|
||||
Test(nil,SQLITE_MEMORY_DATABASE_NAME,'','','','SQLite3 (mem)',false);
|
||||
Test(nil,'static','','','','TObjectList (static)',true);
|
||||
Test(nil,'SQL','','','','TObjectList (virtual)',true);
|
||||
Test(TSQLDBSQLite3ConnectionProperties,'','','','',' (ext full)',true,smFull);
|
||||
Test(TSQLDBSQLite3ConnectionProperties,'','','','',' (ext off)',true,smOff);
|
||||
Test(TSQLDBSQLite3ConnectionProperties,'','','','',' (ext off exc)',true,smOff,lmExclusive);
|
||||
Test(TSQLDBSQLite3ConnectionProperties,SQLITE_MEMORY_DATABASE_NAME,'','','',' (ext mem)',true);
|
||||
DeleteFile('SQLite3 (http).db3');
|
||||
props := TSQLDBSQLite3ConnectionProperties.Create('sqlite3 (http).db3','','','');
|
||||
server := {TSQLDBServerSockets}TSQLDBServerHttpApi.Create(props,'root','888','user','password');
|
||||
try
|
||||
props.MainSQLite3DB.Synchronous := smOff;
|
||||
props.MainSQLite3DB.LockingMode := lmExclusive;
|
||||
Test(TSQLDBWinHTTPConnectionProperties,
|
||||
'localhost:888','root','user','password',' SQLite3 (off exc)',false);
|
||||
Test(TSQLDBSocketConnectionProperties,
|
||||
'localhost:888','root','user','password',' SQLite3 (off exc)',false);
|
||||
finally
|
||||
server.Free;
|
||||
props.Free;
|
||||
end;
|
||||
//*)
|
||||
{$ifdef USEMONGODB}
|
||||
Test(nil,'MongoDB','','','','MongoDB (ack)',false);
|
||||
Test(nil,'MongoDB','','','','MongoDB (no ack)',false);
|
||||
{$endif}
|
||||
{$ifdef ODBCSQLITEFIREBIRD}
|
||||
// download driver from http://www.ch-werner.de/sqliteodbc
|
||||
Test(TODBCConnectionProperties,'','DRIVER=SQLite3 ODBC Driver','','',' SQLite3',true);
|
||||
{$endif}
|
||||
{$ifndef CPU64} // latest ZDBC Sqlite3 driver expects column_origin_name()
|
||||
{$ifdef USEZEOS} // smFull -> only 50 rows if no batch mode
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI(dSQLite,''
|
||||
{$ifdef CPU64},'sqlite3-64.dll'{$endif}),'','','',' SQlite3',true,smFull);
|
||||
{$endif}
|
||||
{$endif}
|
||||
{$ifdef USEFIREDAC}
|
||||
Test(TSQLDBFireDACConnectionProperties,FIREDAC_PROVIDER[dSQLite],'','','',' SQlite3',true,smFull);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC} // smFull -> only 50 rows if no batch mode
|
||||
Test(TSQLDBUniDACConnectionProperties,UNIDAC_PROVIDER[dSQLite],'','','',' SQlite3',true,smFull);
|
||||
{$endif}
|
||||
//*)
|
||||
|
||||
// -------- Firebird embedded
|
||||
{$ifdef USEFIREBIRDEMB}
|
||||
//Test(TSQLDBFirebirdEmbeddedConnectionProperties,'','','','','',false);
|
||||
{$ifdef USEZEOS} // Test() will use ZDBC to create the DB for ODBC Firebird
|
||||
// expects Firebird_ODBC_*_Win32.exe from http://www.firebirdsql.org/en/odbc-driver
|
||||
{$ifdef ODBCSQLITEFIREBIRD}
|
||||
// download driver from http://www.firebirdsql.org/en/odbc-driver
|
||||
Test(TODBCConnectionProperties,'','DRIVER=Firebird/InterBase(r) driver;CHARSET=UTF8;'+
|
||||
'CLIENT='+FIREBIRD_LIB,'','',' Firebird',true);
|
||||
{$endif}
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI(dFirebird,'',
|
||||
FIREBIRD_LIB),'','','',' Firebird',true);
|
||||
{$endif}
|
||||
//(*
|
||||
{$ifdef USEFIREDAC}
|
||||
TADPhysIBDriverLink.Create(Application).VendorLib := FIREBIRD_LIB;
|
||||
Test(TSQLDBFireDACConnectionProperties,FIREDAC_PROVIDER[dFirebird]+'?CreateDatabase=Yes',
|
||||
'','','',' Firebird',true);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dFirebird,'',FIREBIRD_LIB),'','','',' Firebird',true);
|
||||
{$endif}
|
||||
{$endif}
|
||||
|
||||
// -------- JET / MS Access
|
||||
{$ifdef USEJET}
|
||||
Test(TOleDBJetConnectionProperties,'','','','','',true);
|
||||
{$endif}
|
||||
|
||||
// -------- NexusDB Free Embedded edition
|
||||
{$ifdef USENEXUSDB}
|
||||
Test(TSQLDBNexusDBConnectionProperties,'.\nexusDB','','','','',false);
|
||||
{$endif}
|
||||
|
||||
// -------- Oracle 11g over network
|
||||
if T<>'' then begin
|
||||
{$ifdef CPU64}
|
||||
SynDBOracleOCIpath := 'oci64';
|
||||
{$endif}
|
||||
Test(TSQLDBOracleConnectionProperties,T,'',U,P,'',false);
|
||||
{$ifndef CPU64}
|
||||
Test(TODBCConnectionProperties,TSQLDBOracleConnectionProperties.ExtractTnsName(T),
|
||||
'',U,P,' Oracle',false);
|
||||
{$endif}
|
||||
{$ifdef USEBDE}
|
||||
Test(TSQLDBBDEConnectionProperties,TSQLDBOracleConnectionProperties.ExtractTnsName(T),
|
||||
'',U,P,' Oracle',false);
|
||||
{$endif}
|
||||
// current ZDBC 7.2 handles array binding!
|
||||
{$ifdef USEZEOS}
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI(dOracle,''
|
||||
{$ifdef CPU64},'oci64\oci.dll'{$endif}),T,U,P,' Oracle',false);
|
||||
{$endif}
|
||||
//(*
|
||||
{$ifdef USEFIREDAC}
|
||||
{$ifdef CPU64}
|
||||
TADPhysOracleDriverLink.Create(Application).VendorLib := 'oci64\oci.dll';
|
||||
{$endif}
|
||||
Test(TSQLDBFireDACConnectionProperties,FIREDAC_PROVIDER[dOracle],T,U,P,' Oracle',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dOracle,''{$ifdef CPU64},'oci64\oci.dll'{$endif}),T,U,P,' Oracle',false);
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
// -------- MS SQL Server 2012 Express LocalDB edition
|
||||
// get LocalDB from SqlLocalDB.MSI then get native 11.0 client sqlncli.msi
|
||||
// from http://www.microsoft.com/en-us/download/details.aspx?id=29065
|
||||
{$ifdef USELOCALDBMSSQLEXPRESS}
|
||||
Test(TOleDBMSSQL2012ConnectionProperties,'(localdb)\v11.0','','','',' local',false);
|
||||
Test(TODBCConnectionProperties,'','DRIVER=SQL Server Native Client 11.0;UID=.;'+
|
||||
'server=(localdb)\v11.0;Trusted_Connection=Yes','','',' MSSQL2012',false);
|
||||
{$ifdef USEFIREDAC}
|
||||
Test(TSQLDBFireDACConnectionProperties,
|
||||
FIREDAC_PROVIDER[dMSSQL]+'?server=(localDB)\v11.0;OSAuthent=Yes','','.','',' MSSQL2012',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dMSSQL,'(localdb)\v11.0'),'','',' MSSQL2012',false);
|
||||
{$endif}
|
||||
{$endif USELOCALDBMSSQLEXPRESS}
|
||||
{$if defined (USEZEOS) and defined(ZEOS73UP)}
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI('odbc_w[mssql]', '', ''),
|
||||
'DRIVER={SQL Server Native Client 11.0};Server=(localdb)\ProjectsV13;DataBase=zeoslib;Trusted_Connection=Yes;MARS_Connection=yes',
|
||||
'','',' ODBC_W MSSQL2012',false);
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI('odbc_a[mssql]', '', ''),
|
||||
'DRIVER={SQL Server Native Client 11.0};Server=(localdb)\ProjectsV13;DataBase=zeoslib;Trusted_Connection=Yes;MARS_Connection=yes',
|
||||
'','',' ODBC_A MSSQL2012',false);
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI('OleDB[mssql]', '', ''),
|
||||
'Provider=SQLNCLI11.1;Integrated Security=SSPI;Persist Security Info=False;User ID="";Initial Catalog=zeoslib;'+
|
||||
'Data Source=(localdb)\ProjectsV13;MarsConn=Yes;Initial File Name="";Server SPN=""','','',' OleDB MSSQL2012',false);
|
||||
{$ifend}
|
||||
|
||||
// -------- (local) MS SQL Server 2008 R2
|
||||
// get native 10.0 client e.g. as ENU/x86/sqlncli.msi or ENU/x64/sqlncli.msi
|
||||
{$ifdef USELOCALMSSQLEXPRESS}
|
||||
{$ifndef CPU64} // OleDB is buggy under Win64 (and deprecated) -> use ODBC
|
||||
Test(TOleDBMSSQL2008ConnectionProperties,'.\SQLEXPRESS','','','',' local',false);
|
||||
{$endif}
|
||||
Test(TODBCConnectionProperties,'','DRIVER=SQL Server Native Client 10.0;UID=.;'+
|
||||
'server=.\SQLEXPRESS;Trusted_Connection=Yes;MARS_Connection=yes','','',' MSSQL2008',false);
|
||||
{$ifdef USEFIREDAC}
|
||||
Test(TSQLDBFireDACConnectionProperties,
|
||||
FIREDAC_PROVIDER[dMSSQL]+'?server=.\SQLEXPRESS;OSAuthent=Yes','','.','',' MSSQL2008',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dMSSQL,'.\SQLExpress'),'','',' MSSQL2008',false);
|
||||
{$endif}
|
||||
{$endif USELOCALMSSQLEXPRESS}
|
||||
|
||||
// -------- local IBM DB2 10.5
|
||||
{$ifdef USELOCALDB2}
|
||||
Test(TODBCConnectionProperties,'','Driver=IBM DB2 ODBC DRIVER;Database=SAMPLE;'+
|
||||
'Hostname=localhost;Port=50000;UID=db2admin;Pwd=db2Password','','',' DB2',false);
|
||||
{$ifdef USEFIREDAC}
|
||||
Test(TSQLDBFireDACConnectionProperties,'DB2?Server=localhost;Port=50000',
|
||||
'SAMPLE','db2admin','db2Password',' DB2',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
// UniDAC has a huge performance and stability issue for DB2 -> disable
|
||||
{ Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dDB2,'localhost:50000'),'SAMPLE','db2admin','db2Password',' DB2',false); }
|
||||
{$endif}
|
||||
{$endif USELOCALDB2}
|
||||
|
||||
// -------- local PostgreSQL 9.2
|
||||
{$ifdef USELOCALPOSTGRESQL}
|
||||
{$ifdef USEZEOS}
|
||||
// direct ZDBC driver needs only libpq.dll and libintl.dll e.g. from
|
||||
// http://www.enterprisedb.com/products-services-training/pgbindownload
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI(
|
||||
dPostgreSQL,'localhost:5433'),'postgres','postgres','postgresPassword',' PostgreSQL',false);
|
||||
{$endif}
|
||||
// ODBC driver e.g. from http://ftp.postgresql.org/pub/odbc/versions/msi
|
||||
Test(TODBCConnectionProperties,'','Driver=PostgreSQL Unicode'+
|
||||
{$ifdef CPU64}'(x64)'+{$endif}';Database=postgres;'+
|
||||
'Server=localhost;Port=5433;UID=postgres;Pwd=postgresPassword','','',' PostgreSQL',false);
|
||||
{$ifdef USEFIREDAC}
|
||||
{$ifdef CPU64} // 64-bit server installed locally
|
||||
TADPhysPGDriverLink.Create(Application).VendorLib :=
|
||||
'c:\Program Files\PostgreSQL\9.2\bin\libpq.dll';
|
||||
{$endif}
|
||||
// direct FireDAC driver needs only libpq.dll and libintl.dll
|
||||
Test(TSQLDBFireDACConnectionProperties,'PG?Server=localhost;Port=5433',
|
||||
'postgres','postgres','postgresPassword',' PostgreSQL',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dPostgreSQL,'localhost:5433'),'postgres','postgres','postgresPassword',' PostgreSQL',false);
|
||||
{$endif}
|
||||
{$endif USELOCALPOSTGRESQL}
|
||||
|
||||
// -------- local MySQL 5.6
|
||||
{$ifdef USELOCALMYSQL}
|
||||
// run mysqld + mysqladmin -u root create test
|
||||
// ODBC driver e.g. from https://dev.mysql.com/downloads/connector/odbc
|
||||
// warning: connector 5.2.6 and 5.3.1 are dead slow in ODBC.FreeHandle()
|
||||
// seems not to be tied to SynDB: it is visible on ODBC Data Source tool
|
||||
// -> use ZEOS/ZDBC instead until fixed
|
||||
Test(TODBCConnectionProperties,'','Driver=MySQL ODBC 5.3 UNICODE Driver;Database=test;'+
|
||||
'Server=localhost;Port=3306;UID=root;Pwd=','','',' MySQL',false);
|
||||
{$ifdef USEZEOS}
|
||||
// direct ZDBC driver needs only libmysql.dll downloaded e.g. from
|
||||
// http://cdn.mysql.com/Downloads/Connector-C/mysql-connector-c-*-win32.zip
|
||||
Test(TSQLDBZEOSConnectionProperties,TSQLDBZEOSConnectionProperties.URI(
|
||||
dMySQL,'localhost:3306'),'test','root','',' MySQL',false);
|
||||
{$endif}
|
||||
{$ifdef USEFIREDAC}
|
||||
{$ifdef CPU64} // 64-bit server installed locally
|
||||
TADPhysMySQLDriverLink.Create(Application).VendorLib :=
|
||||
'c:\Program Files\MySQL\MySQL Server 5.6\lib\';
|
||||
{$endif}
|
||||
// direct FireDAC driver needs only libmysql.dll
|
||||
Test(TSQLDBFireDACConnectionProperties,'MySQL?Server=localhost;Port=3306',
|
||||
'test','root','',' MySQL',false);
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
Test(TSQLDBUniDACConnectionProperties,TSQLDBUniDACConnectionProperties.URI(
|
||||
dMySQL,'localhost:3306'),'test','root','',' MySQL',false);
|
||||
{$endif}
|
||||
{$endif}
|
||||
//*)
|
||||
except
|
||||
on E: Exception do
|
||||
LogMemo.Lines.Add(E.Message);
|
||||
end;
|
||||
finally
|
||||
Label3.Caption := '';
|
||||
T := ObjectToJSON(Stats,[woHumanReadable]);
|
||||
FileFromString(T,ChangeFileExt(ExeVersion.ProgramFileName,'.stats'));
|
||||
FileFromString(T,Ansi7ToString(NowToString(false))+'.log');
|
||||
SaveStats;
|
||||
end;
|
||||
end;
|
||||
|
||||
type
|
||||
TSQLRecordSample = class(TSQLRecord)
|
||||
private
|
||||
fFirstName: RawUTF8;
|
||||
fLastName: RawUTF8;
|
||||
fAmount: Currency;
|
||||
fBirthDate: TDateTime;
|
||||
fLastChange: TModTime;
|
||||
fCreatedAt: TCreateTime;
|
||||
published
|
||||
property FirstName: RawUTF8 index 40 read fFirstName write fFirstName
|
||||
{$ifdef UNIK}stored AS_UNIQUE{$endif};
|
||||
property LastName: RawUTF8 index 40 read fLastName write fLastName
|
||||
{$ifdef UNIK}stored AS_UNIQUE{$endif};
|
||||
property Amount: Currency read fAmount write fAmount;
|
||||
property BirthDate: TDateTime read fBirthDate write fBirthDate;
|
||||
property LastChange: TModTime read fLastChange;
|
||||
property CreatedAt: TCreateTime read fCreatedAt write fCreatedAt;
|
||||
end;
|
||||
|
||||
procedure TMainForm.Test(PropsClass: TSQLDBConnectionPropertiesClass;
|
||||
const aServerName, aDatabaseName, aUserID, aPassWord, aTrailDesc: RawUTF8;
|
||||
DBIsFile: boolean; Mode: TSQLSynchronousMode; Lock: TSQLLockingMode);
|
||||
var aUseBatch, aUseTransactions, aUseDirect: boolean;
|
||||
Props: TSQLDBConnectionProperties;
|
||||
Model: TSQLModel;
|
||||
Client: TSQLRestClientDB;
|
||||
Value: TSQLRecordSample;
|
||||
ValueLastName, ValueFirstName: TRawUTF8DynArray;
|
||||
Stat: TStat;
|
||||
Start: TTimeLog;
|
||||
Timer: TPrecisionTimer;
|
||||
Res: TIDDynArray;
|
||||
forceID: boolean;
|
||||
U, Server,DBName, MainDBName, Num, Time: RawUTF8;
|
||||
Rate, i: integer;
|
||||
{$ifdef USEMONGODB}
|
||||
MongoClient: TMongoClient;
|
||||
MongoDatabase: TMongoDatabase;
|
||||
{$endif}
|
||||
|
||||
procedure ValueCheck;
|
||||
var err: RawUTF8;
|
||||
begin
|
||||
err := '';
|
||||
if Value.fID<>Res[i] then
|
||||
err := FormatUTF8('Value.fID=Res[i] %<>% ',[Value.fID,Res[i]]);
|
||||
if PInt64(@Value.Amount)^<>(i+1)*100 then
|
||||
err := FormatUTF8('%Value.Amount=(i+1)*0.01 %<>% ',
|
||||
[err,Value.Amount,(i+1)*0.01]);
|
||||
if Value.LastChange<Start then
|
||||
err := FormatUTF8('%Value.LastChange>=Start %>=%',
|
||||
[err,Value.LastChange,Start]);
|
||||
if Value.FirstName<>ValueFirstName[i] then
|
||||
err := FormatUTF8('%Value.FirstName="%" <> ValueFirstName[i]="%"',
|
||||
[err,Value.FirstName,ValueFirstName[i]]);
|
||||
assert(err='',string(Stat.fEngine+' read failure: '+err));
|
||||
Value.ClearProperties;
|
||||
end;
|
||||
|
||||
begin
|
||||
U := 'Namee ';
|
||||
UniqueRawUTF8(U); // FPC does not call it
|
||||
PWord(@U[4])^ := $a9c3; // some 'e'acute to test UTF-8 encoding
|
||||
Stat := TStat.Create;
|
||||
Stat.fEngine := PropsClass.EngineName;
|
||||
if aTrailDesc<>'' then
|
||||
Stat.fEngine := Stat.fEngine+aTrailDesc;
|
||||
Model := TSQLModel.Create([TSQLRecordSample]);
|
||||
Value := TSQLRecordSample.Create;
|
||||
Num := '1';
|
||||
for aUseTransactions := false to true do
|
||||
for aUseBatch := false to true do begin
|
||||
// open connection and initialize mORMot Client-Server instance
|
||||
Label3.Caption := Format('Running tests phase #%s on %s...',[Num,Stat.fEngine]);
|
||||
Application.ProcessMessages;
|
||||
DBName := aDatabaseName;
|
||||
if (aServerName='') and ((PropsClass=nil) or
|
||||
(DBIsFile or not PropsClass.InheritsFrom(TODBCConnectionProperties))) then begin
|
||||
Server := LowerCaseU(Stat.Engine)+'.'+Num;
|
||||
if (PropsClass<>nil) and PropsClass.InheritsFrom(TODBCConnectionProperties) then
|
||||
if PosEx('Firebird/InterBase',DBName)>0 then begin
|
||||
Server := StringToUTF8(ExpandFileName(UTF8ToString(Server)));
|
||||
DBName := DBName+';DBNAME='+Server;
|
||||
{$ifdef USEZEOS} // ODBC is not able to create the DB file :(
|
||||
DeleteFile(UTF8ToString(Server));
|
||||
with TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(
|
||||
dFirebird,'',FIREBIRD_LIB),Server,'','') do
|
||||
try
|
||||
ThreadSafeConnection.Connect; // will create the database file
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
{$else} // void an existing file
|
||||
with TODBCConnectionProperties.Create('',DBName,'','') do
|
||||
try
|
||||
ExecuteNoResult('drop table SAMPLERECORD',[]);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
{$endif}
|
||||
Server := '';
|
||||
end else
|
||||
if PosEx('SQLite3 ODBC',DBName)>0 then begin
|
||||
Server := StringToUTF8(ExpandFileName(UTF8ToString(Server)));
|
||||
DBName := DBName+';DATABASE='+Server;
|
||||
DeleteFile(UTF8ToString(Server));
|
||||
Server := '';
|
||||
end else
|
||||
DeleteFile(UTF8ToString(Server)) else
|
||||
DeleteFile(UTF8ToString(Server));
|
||||
end else begin
|
||||
Server := aServerName;
|
||||
if DBIsFile and (DBName='') then begin
|
||||
DBName := LowerCaseU(Stat.Engine)+'.'+Num;
|
||||
DeleteFile(UTF8ToString(DBName));
|
||||
end;
|
||||
end;
|
||||
if PropsClass<>nil then begin
|
||||
MainDBName := SQLITE_MEMORY_DATABASE_NAME;
|
||||
Props := PropsClass.Create(Server,DBName,aUserID,aPassWord);
|
||||
{$ifdef USENEXUSDB}
|
||||
if PropsClass=TSQLDBNexusDBConnectionProperties then
|
||||
TSQLDBNexusDBConnectionProperties(Props).DeleteDatabase;
|
||||
{$endif}
|
||||
end else begin
|
||||
MainDBName := Server;
|
||||
Props := nil;
|
||||
end;
|
||||
{$ifdef USEMONGODB}
|
||||
MongoClient := nil;
|
||||
{$endif}
|
||||
try
|
||||
if Server='SQL' then begin
|
||||
MainDBName := SQLITE_MEMORY_DATABASE_NAME;
|
||||
Model.VirtualTableRegister(TSQLRecordSample,TSQLVirtualTableBinary);
|
||||
end else
|
||||
if Server='MongoDB' then
|
||||
MainDBName := SQLITE_MEMORY_DATABASE_NAME else
|
||||
// do nothing if Props=nil
|
||||
VirtualTableExternalRegister(Model,TSQLRecordSample,Props,'SampleRecord');
|
||||
Client := TSQLRestClientDB.Create(Model,nil,string(MainDBName),TSQLRestServerDB,false,'');
|
||||
if Server='static' then begin
|
||||
DeleteFile('static.data');
|
||||
Client.Server.StaticDataCreate(TSQLRecordSample,'static.data',true);
|
||||
{$ifdef USEMONGODB}
|
||||
end else
|
||||
if Server='MongoDB' then begin
|
||||
MongoClient := TMongoClient.Create('localhost',27017);
|
||||
if aTrailDesc='MongoDB (no ack)' then
|
||||
MongoClient.WriteConcern := wcUnacknowledged;
|
||||
MongoDatabase := MongoClient.Database['dbperf'];
|
||||
StaticMongoDBRegister(TSQLRecordSample,Client.Server,MongoDatabase,'perftest').
|
||||
Drop;
|
||||
{$endif}
|
||||
end;
|
||||
Client.Server.DB.Synchronous := Mode;
|
||||
Client.Server.DB.LockingMode := Lock;
|
||||
if PropsClass=TSQLDBSQLite3ConnectionProperties then
|
||||
with TSQLDBSQLite3Connection(Props.MainConnection) do begin
|
||||
Synchronous := Mode;
|
||||
LockingMode := Lock;
|
||||
end;
|
||||
try
|
||||
// huge insertion in virtual table, with 4 kinds of process
|
||||
Timer.Start;
|
||||
Client.Server.CreateMissingTables;
|
||||
{ Props.ExecuteNoResult(
|
||||
'insert into SampleRecord (ID,FirstName,LastName,Amount,LastChange,CreatedAt) VALUES (?,?,?,?,?,?)',
|
||||
[1,U,'B',10.02,10,20]);
|
||||
//'insert into SampleRecord (ID,BirthDate) values (?,null)',[1.0]);
|
||||
U := Props.Execute('select * from samplerecord',[]).FetchAllAsJSON(true); }
|
||||
Start := Client.ServerTimeStamp-1;
|
||||
if Stat.CreateTableTime='' then
|
||||
Stat.fCreateTable := Timer.Stop;
|
||||
if (Mode=smFull) and not aUseTransactions then
|
||||
Stat.fNumberOfElements := 500 else // SQLite3 is dead slow without transactions
|
||||
{if (PropsClass=TOleDBJetConnectionProperties) or
|
||||
(PropsClass=TODBCConnectionProperties) then
|
||||
Stat.fNumberOfElements := 1000 else}
|
||||
Stat.fNumberOfElements := 5000;
|
||||
// Stat.fNumberOfElements := 50;
|
||||
SetLength(ValueLastName,Stat.fNumberOfElements);
|
||||
SetLength(ValueFirstName,Stat.fNumberOfElements);
|
||||
for i := 0 to Stat.fNumberOfElements-1 do begin
|
||||
ValueLastName[i] := Int32ToUtf8(i+1);
|
||||
{$ifndef UNIK}
|
||||
if i<>100 then // test https://synopse.info/fossil/info/e8c211062e
|
||||
{$endif}
|
||||
ValueFirstName[i] := U+ValueLastName[i];
|
||||
end;
|
||||
Timer.Start;
|
||||
if aUseTransactions then
|
||||
Client.TransactionBegin(TSQLRecordSample);
|
||||
if aUseBatch then
|
||||
Client.BatchStart(TSQLRecordSample) else
|
||||
SetLength(Res,Stat.fNumberOfElements);
|
||||
Value.BirthDate := 0;
|
||||
for i := 0 to Stat.fNumberOfElements-1 do begin
|
||||
Value.Amount := (i+1)*0.01;
|
||||
Value.LastName := ValueLastName[i];
|
||||
Value.FirstName := ValueFirstName[i];
|
||||
forceID := i and 3=1;
|
||||
if forceID then
|
||||
Value.fID := Res[i-1]+1;
|
||||
{$ifdef UNIK}
|
||||
if (Server='static') or (Server='SQL') then
|
||||
forceID := false; // not yet in TSQLRestStorageInMemory.AddOne
|
||||
{$endif}
|
||||
if aUseBatch then
|
||||
Client.BatchAdd(Value,true,forceID) else
|
||||
Res[i] := Client.Add(Value,true,forceID);
|
||||
Value.BirthDate := Value.BirthDate+1;
|
||||
end;
|
||||
if aUseBatch then
|
||||
Client.BatchSend(Res);
|
||||
if aUseTransactions then
|
||||
Client.Commit;
|
||||
Time := Timer.Stop;
|
||||
i := 1;
|
||||
Value.ClearProperties;
|
||||
Client.Retrieve(Res[i],Value);
|
||||
ValueCheck;
|
||||
Rate := Timer.PerSec(Stat.fNumberOfElements);
|
||||
case Num[1] of
|
||||
'1': begin
|
||||
Stat.fInsertTime := Time;
|
||||
Stat.fInsertRate := Rate;
|
||||
end;
|
||||
'2': begin
|
||||
Stat.fInsertBatchTime := Time;
|
||||
Stat.fInsertBatchRate := Rate;
|
||||
end;
|
||||
'3': begin
|
||||
Stat.fInsertTransactionTime := Time;
|
||||
Stat.fInsertTransactionRate := Rate;
|
||||
end;
|
||||
'4': begin
|
||||
Stat.fInsertBatchTransactionTime := Time;
|
||||
Stat.fInsertBatchTransactionRate := Rate;
|
||||
Label3.Caption := Format('Running reading tests on %s...',[Stat.fEngine]);
|
||||
Application.ProcessMessages;
|
||||
// one by one retrieve values from server
|
||||
Timer.Start;
|
||||
for i := 0 to Stat.fNumberOfElements-1 do begin
|
||||
Client.Retrieve(Res[i],Value);
|
||||
ValueCheck;
|
||||
end;
|
||||
Stat.fReadOneByOneTime := Timer.Stop;
|
||||
Stat.fReadOneByOneRate := Timer.PerSec(Stat.fNumberOfElements);
|
||||
{$ifdef UNIK}
|
||||
// one by one retrieve values using Name property
|
||||
Timer.Start;
|
||||
for i := 0 to Stat.fNumberOfElements-1 do begin
|
||||
Client.Retrieve('LastName=?',[],[ValueLastName[i]],Value);
|
||||
assert((Value.fID=Res[i])and
|
||||
(PInt64(@Value.Amount)^=(i+1)*100)and(Value.LastChange>=Start));
|
||||
end;
|
||||
Stat.fReadOneByNameTime := Timer.Stop;
|
||||
Stat.fReadOneByNameRate := Timer.PerSec(Stat.fNumberOfElements);
|
||||
{$endif}
|
||||
// retrieve all rows with or without the virtual module
|
||||
for aUseDirect := false to true do begin
|
||||
with Client.Server do begin
|
||||
Cache.Flush; // fair benchmark
|
||||
DB.CacheFlush; // fair benchmark (16100 rows/s->456000 with cache!)
|
||||
StaticVirtualTableDirect := aUseDirect;
|
||||
end;
|
||||
Timer.Start;
|
||||
Value.ClearProperties;
|
||||
if Server='SQL' then
|
||||
Value.FillPrepare(Client,'') else
|
||||
Value.FillPrepare(Client,'order by RowId');
|
||||
//FileFromString((Value.FillTable as TSQLTableJSON).PrivateInternalCopy,Stat.Engine+'.json');
|
||||
i := 0;
|
||||
while Value.FillOne do begin
|
||||
ValueCheck;
|
||||
{if err<>'' then
|
||||
FileFromString((Value.FillTable as TSQLTableJSON).PrivateInternalCopy,
|
||||
Stat.fEngine+'.json');}
|
||||
inc(i);
|
||||
end;
|
||||
assert(i=Stat.fNumberOfElements);
|
||||
if aUseDirect then begin
|
||||
Stat.fReadAllDirectTime := Timer.Stop;
|
||||
Stat.fReadAllDirectRate := Timer.PerSec(Stat.fNumberOfElements);
|
||||
end else begin
|
||||
Stat.fReadAllVirtualTime := Timer.Stop;
|
||||
Stat.fReadAllVirtualRate := Timer.PerSec(Stat.fNumberOfElements);
|
||||
end;
|
||||
end;
|
||||
{ // backup (for testing purposes)
|
||||
if MainDBName<>SQLITE_MEMORY_DATABASE_NAME then
|
||||
Client.Server.BackupGZ(MainDBName+'.gz'); }
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Timer.Start;
|
||||
try
|
||||
{$ifdef USEMONGODB}
|
||||
if Server='MongoDB' then
|
||||
(Client.Server.StaticDataServer[TSQLRecordSample] as
|
||||
TSQLRestStorageMongoDB).Drop else
|
||||
{$endif}
|
||||
if not DBIsFile then begin
|
||||
Client.Server.FlushStatementCache;
|
||||
Client.Server.ExecuteFmt('drop table %',[Value.SQLTableName]);
|
||||
end;
|
||||
finally
|
||||
Client.Free;
|
||||
end;
|
||||
Stat.fClientCloseTime := Timer.Stop;
|
||||
end;
|
||||
inc(Num[1]);
|
||||
finally
|
||||
Props.Free;
|
||||
{$ifdef USEMONGODB}
|
||||
if Server='MongoDB' then
|
||||
MongoClient.Free; // will also free MongoDatabase instance
|
||||
{$endif}
|
||||
end;
|
||||
end;
|
||||
Stats.Add(Stat);
|
||||
Model.Free;
|
||||
Value.Free;
|
||||
LogMemo.Lines.Add(UTF8ToString(ObjectToJSON(Stat,[woHumanReadable])));
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
Stats.Free;
|
||||
end;
|
||||
|
||||
|
||||
procedure TMainForm.SaveStats;
|
||||
type TStatArray = array[0..1000] of TStat;
|
||||
var Stat: ^TStatArray;
|
||||
mode,s,txt: RawUTF8;
|
||||
m,nCat: integer;
|
||||
max,Cat1,Cat2,Eng1,Eng2,Eng: RawUTF8;
|
||||
Rows: TRawUTF8DynArray;
|
||||
Doc: RawUTF8;
|
||||
procedure SetCategories(const Title: RawUTF8; const Cat: array of RawUTF8);
|
||||
var i: integer;
|
||||
begin
|
||||
mode := UrlEncode(Title);
|
||||
s := s+'<h1>'+copy(Title,1,posEx(' (',Title)-1)+'</h1>'#13#10;
|
||||
max := Int32ToUtf8(m);
|
||||
nCat := length(Cat);
|
||||
Cat1 := '';
|
||||
Cat2 := '';
|
||||
SetLength(Rows,Stats.Count+1);
|
||||
Rows[0] := '<td> </td>';
|
||||
for i := 0 to high(Cat) do begin
|
||||
Rows[0] := Rows[0]+'<td><b>'+Cat[i]+'</b></td>';
|
||||
Cat1 := Cat1+UrlEncode(Cat[i])+'|';
|
||||
Cat2 := Cat2+UrlEncode(Cat[high(Cat)-i])+'|';
|
||||
end;
|
||||
SetLength(Cat1,length(Cat1)-1);
|
||||
SetLength(Cat2,length(Cat2)-1);
|
||||
Eng1 := '';
|
||||
Eng2 := '';
|
||||
for i := 0 to Stats.Count-1 do begin
|
||||
Eng := Stat[i].Engine;
|
||||
{ j := PosEx(' ',Eng);
|
||||
if j>0 then begin
|
||||
Delete(Eng,j,1);
|
||||
insert('<br>',Eng,j);
|
||||
end;}
|
||||
Rows[i+1] := '<td><b>'+Eng+'</b></td>';
|
||||
Eng1 := Eng1+UrlEncode(Stat[i].Engine)+'|';
|
||||
Eng2 := Eng2+UrlEncode(Stat[Stats.Count-1-i].Engine)+'|';
|
||||
end;
|
||||
SetLength(Eng1,length(Eng1)-1);
|
||||
SetLength(Eng2,length(Eng2)-1);
|
||||
end;
|
||||
procedure Pic1(const Leg: RawUTF8; n: integer);
|
||||
var i: integer;
|
||||
begin
|
||||
txt := 'http://chart.apis.google.com/chart?chtt='+mode+'&chxl=1:|'+Leg+
|
||||
'&chxt=x,y&chbh=a&chs=600x500&cht=bhg&chco=';
|
||||
// for i := 1 to 5 do txt := txt+IntToHex($309F30+i*$010101,3)+',';
|
||||
// txt[length(txt)] := '&';
|
||||
// '3D7930,3D8930,309F30,6070F0,5070E0,40C355,65D055,80C1A2,F05050,F0A280'+
|
||||
txt := txt+'3D7930,3D8930,309F30,40C355&';//,6070F0,5070E0,65D055,80C1A2,3D7930,3D8930,F05050,F04050,F04040,F01040,F0A280&';
|
||||
txt := txt+'chxr=0,0,'+max+'&chds=';
|
||||
for i := 1 to n do
|
||||
txt := txt+'0,'+max+',';
|
||||
txt[length(txt)] := '&';
|
||||
txt := txt+'chd=t:';
|
||||
end;
|
||||
procedure PicEnd(const Legend: RawUTF8);
|
||||
begin
|
||||
txt[length(txt)] := '&';
|
||||
s := s+'<p><img src='+txt+'chdl='+Legend+'></p>'#13#10;
|
||||
txt := '';
|
||||
end;
|
||||
procedure Table;
|
||||
var i: integer;
|
||||
begin
|
||||
s := s+'<p><table>';
|
||||
for i := 0 to High(Rows) do
|
||||
s := s+'<tr align=center>'+Rows[i]+'</tr>'#13#10;
|
||||
s := s+'</table></p>';
|
||||
Doc := Doc+'|%30';
|
||||
for i := 1 to nCat do
|
||||
Doc := Doc+'%15';
|
||||
Doc := Doc+#13#10;
|
||||
for i := 0 to High(Rows) do begin
|
||||
Doc := Doc+StringReplaceAll(Rows[i], ['</td>','', '</tr>','', '<tr align=center>','',
|
||||
'</b>','}', '</td>','', '<b>','{\b ', '<td>','|', ' ',''])+#13#10;
|
||||
end;
|
||||
Doc := Doc+'|%'#13#10;
|
||||
end;
|
||||
var i: integer;
|
||||
begin
|
||||
Stat := pointer(Stats.List);
|
||||
s := FormatUTF8('<p>Running tests using Synopse mORMot framework %, '+
|
||||
'compiled with %, against SQLite %, at %.</p>',
|
||||
[SYNOPSE_FRAMEWORK_VERSION,GetDelphiCompilerVersion,SQLite3.libversion,NowToString]);
|
||||
m := 0;
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
if InsertRate>m then m := InsertRate;
|
||||
if InsertBatchRate>m then m := InsertBatchRate;
|
||||
if InsertTransactionRate>m then m := InsertTransactionRate;
|
||||
if InsertBatchTransactionRate>m then m := InsertBatchTransactionRate;
|
||||
end;
|
||||
SetCategories('Insertion speed (rows/second)',['Direct','Batch','Trans','Batch Trans']);
|
||||
Pic1(Cat2,5);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
txt := FormatUTF8('%%,%,%,%|',
|
||||
[txt,InsertRate,InsertBatchRate,InsertTransactionRate,InsertBatchTransactionRate]);
|
||||
Rows[i+1] := FormatUTF8('%<td>%</td><td>%</td><td>%</td><td>%</td>',
|
||||
[Rows[i+1],InsertRate,InsertBatchRate,InsertTransactionRate,InsertBatchTransactionRate]);
|
||||
end;
|
||||
Table;
|
||||
PicEnd(Eng1);
|
||||
|
||||
Pic1(Eng2,Stats.Count);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertBatchRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertTransactionRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertBatchTransactionRate)+',';
|
||||
PicEnd(Cat1);
|
||||
|
||||
m := 0;
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
if ReadOneByOneRate>m then m := ReadOneByOneRate;
|
||||
{$ifdef UNIK}
|
||||
if ReadOneByNameRate>m then m := ReadOneByNameRate;
|
||||
{$endif}
|
||||
if ReadAllVirtualRate>m then m := ReadAllVirtualRate;
|
||||
if ReadAllDirectRate>m then m := ReadAllDirectRate;
|
||||
end;
|
||||
SetCategories('Read speed (rows/second)',['By one',
|
||||
{$ifdef UNIK}'By name',{$endif}'All Virtual','All Direct']);
|
||||
Pic1(Cat2,{$ifdef UNIK}4{$else}3{$endif});
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
txt := FormatUTF8({$ifdef UNIK}'%%,%,%,%|'{$else}'%%,%,%|'{$endif},
|
||||
[txt,ReadOneByOneRate,{$ifdef UNIK}ReadOneByNameRate,{$endif}
|
||||
ReadAllVirtualRate,ReadAllDirectRate]);
|
||||
Rows[i+1] := FormatUTF8('%<td>%</td>',[Rows[i+1],ReadOneByOneRate]);
|
||||
{$ifdef UNIK}
|
||||
Rows[i+1] := FormatUTF8('%<td>%</td>',[Rows[i+1],ReadOneByNameRate]);
|
||||
{$endif}
|
||||
Rows[i+1] := FormatUTF8('%<td>%</td><td>%</td>',
|
||||
[Rows[i+1],ReadAllVirtualRate,ReadAllDirectRate]);
|
||||
end;
|
||||
Table;
|
||||
PicEnd(Eng1);
|
||||
|
||||
Pic1(Eng2,Stats.Count);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadOneByOneRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
{$ifdef UNIK}
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadOneByNameRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
{$endif}
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadAllVirtualRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadAllDirectRate)+',';
|
||||
PicEnd(Cat1);
|
||||
|
||||
FileFromString(Doc,ChangeFileExt(ExeVersion.ProgramFileName,'.txt'));
|
||||
FileFromString('<html><body>'#13#10+s,ChangeFileExt(ExeVersion.ProgramFileName,'.htm'));
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormShow(Sender: TObject);
|
||||
var Valid: boolean;
|
||||
S: RawUTF8;
|
||||
begin
|
||||
btnReport.Visible := DebugHook=0;
|
||||
exit;
|
||||
S := StringFromFile('PerfTestBlog.stats');
|
||||
JSONToObject(Stats,pointer(S),Valid,TStat);
|
||||
if Valid then
|
||||
SaveStats;
|
||||
Close;
|
||||
end;
|
||||
|
||||
|
||||
procedure TMainForm.btnReportClick(Sender: TObject);
|
||||
begin
|
||||
ShellExecute(0,'open',pointer(ChangeFileExt(ExeVersion.ProgramFileName,'.htm')),'','',SW_SHOWMAXIMIZED);
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,21 @@
|
||||
program PerfTest;
|
||||
|
||||
// first line of uses clause must be {$I SynDprUses.inc}
|
||||
uses
|
||||
{$I SynDprUses.inc}
|
||||
// SynFastWideString, // still works with fast WideString, and slightly faster
|
||||
Forms,
|
||||
{$ifdef FPC}
|
||||
Interfaces,
|
||||
{$endif}
|
||||
PerfMain in 'PerfMain.pas' {MainForm};
|
||||
|
||||
{$ifndef FPC}
|
||||
{$R *.res}
|
||||
{$endif}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
Binary file not shown.
@@ -0,0 +1,955 @@
|
||||
unit PerfTestCases;
|
||||
|
||||
interface
|
||||
|
||||
{$I Synopse.inc}
|
||||
|
||||
// enable/disable third-party libraries
|
||||
{.$define USENEXUSDB}
|
||||
{.$define USEBDE}
|
||||
{.$define USEUNIDAC}
|
||||
{.$define USEZEOS}
|
||||
{.$define USEFIREDAC}
|
||||
|
||||
// enable/disable database engines
|
||||
{.$define USEJET}
|
||||
{.$define USEFIREBIRDEMB}
|
||||
{.$define ODBCSQLITEFIREBIRD}
|
||||
{.$define USELOCALMSSQLEXPRESS} // SQL Server 2008 R2 Express locally
|
||||
{.$define USELOCALDBMSSQLEXPRESS} // SQL Server 2012 LocalDB edition
|
||||
{.$define USELOCALDB2}
|
||||
{.$define USELOCALPOSTGRESQL}
|
||||
{.$define USELOCALMYSQL}
|
||||
{.$define USEMONGODB}
|
||||
|
||||
{$ifdef CPU64}
|
||||
{$undef USENEXUSDB} // official NexusDB is not yet 64 bit ready :(
|
||||
{$undef USEJET} // MS Access / JET is not available under Win64
|
||||
{$endif}
|
||||
|
||||
// if defined, will create two "stored false" properties, to test UNIQUE columns
|
||||
{.$define UNIK}
|
||||
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
SynCommons,
|
||||
SynTable,
|
||||
SynLog,
|
||||
SynTests,
|
||||
mORMot,
|
||||
SynSQLite3, SynSQLite3Static,
|
||||
SynDB, SynDBSQLite3, SynDBOracle, SynDBPostgres, SynDBRemote,
|
||||
mORMotSQLite3,
|
||||
{$ifdef MSWINDOWS}
|
||||
SynOleDB,
|
||||
SynDBDataSet,
|
||||
{$endif}
|
||||
SynDBODBC,
|
||||
{$ifdef USENEXUSDB}
|
||||
SynDBNexusDB,
|
||||
{$endif}
|
||||
{$ifdef USEBDE}
|
||||
SynDBBDE,
|
||||
{$endif}
|
||||
{$ifdef USEUNIDAC}
|
||||
SynDBUniDAC,
|
||||
SQLiteUniProvider, InterbaseUniProvider, OracleUniProvider, DB2UniProvider,
|
||||
SQLServerUniProvider, PostgreSQLUniProvider, MySqlUniProvider,
|
||||
{$endif}
|
||||
{$ifdef USEZEOS}
|
||||
SynDBZeos,
|
||||
{$endif}
|
||||
{$ifdef USEFIREDAC}
|
||||
SynDBFireDAC,
|
||||
{$ifdef ISDELPHIXE5}
|
||||
FireDAC.Phys.Oracle, FireDAC.Phys.MSAcc, FireDAC.Phys.MSSQL, FireDAC.Phys.MySQL,
|
||||
FireDAC.Phys.SQLite, FireDAC.Phys.IB, FireDAC.Phys.PG, FireDAC.Phys.DB2,
|
||||
{$else}
|
||||
uADPhysOracle, uADPhysMSAcc, uADPhysMSSQL,
|
||||
uADPhysSQLite, uADPhysIB, uADPhysPG, uADPhysDB2, uADPhysMySQL,
|
||||
{$endif}
|
||||
{$endif}
|
||||
{$ifdef USEMONGODB}
|
||||
SynMongoDB, mORMotMongoDB,
|
||||
{$endif}
|
||||
mORMotDB;
|
||||
|
||||
type
|
||||
TStat = class(TSynPersistent)
|
||||
private
|
||||
fCreateTable: RawUTF8;
|
||||
fNumberOfElements: integer;
|
||||
fInsertTime: RawUTF8;
|
||||
fEngine: RawUTF8;
|
||||
fClientCloseTime: RawUTF8;
|
||||
fInsertRate: integer;
|
||||
fReadOneByOneTime: RawUTF8;
|
||||
fReadOneByOneRate: integer;
|
||||
fInsertBatchTransactionRate: integer;
|
||||
fInsertTransactionRate: integer;
|
||||
fInsertBatchRate: integer;
|
||||
fInsertBatchTransactionTime: RawUTF8;
|
||||
fInsertTransactionTime: RawUTF8;
|
||||
fInsertBatchTime: RawUTF8;
|
||||
fReadAllVirtualRate: integer;
|
||||
fReadAllDirectRate: integer;
|
||||
fReadAllDirectTime: RawUTF8;
|
||||
fReadAllVirtualTime: RawUTF8;
|
||||
{$ifdef UNIK}
|
||||
fReadOneByNameRate: integer;
|
||||
fReadOneByNameTime: RawUTF8;
|
||||
{$endif}
|
||||
published
|
||||
property Engine: RawUTF8 read fEngine;
|
||||
property CreateTableTime: RawUTF8 read fCreateTable write fCreateTable;
|
||||
property NumberOfElements: integer read fNumberOfElements write fNumberOfElements;
|
||||
property InsertTime: RawUTF8 read fInsertTime;
|
||||
property InsertRate: integer read fInsertRate;
|
||||
property InsertBatchTime: RawUTF8 read fInsertBatchTime;
|
||||
property InsertBatchRate: integer read fInsertBatchRate;
|
||||
property InsertTransactionTime: RawUTF8 read fInsertTransactionTime;
|
||||
property InsertTransactionRate: integer read fInsertTransactionRate;
|
||||
property InsertBatchTransactionTime: RawUTF8 read fInsertBatchTransactionTime;
|
||||
property InsertBatchTransactionRate: integer read fInsertBatchTransactionRate;
|
||||
property ReadOneByOneTime: RawUTF8 read fReadOneByOneTime;
|
||||
property ReadOneByOneRate: integer read fReadOneByOneRate;
|
||||
{$ifdef UNIK}
|
||||
property ReadOneByNameTime: RawUTF8 read fReadOneByNameTime;
|
||||
property ReadOneByNameRate: integer read fReadOneByNameRate;
|
||||
{$endif}
|
||||
property ReadAllVirtualTime: RawUTF8 read fReadAllVirtualTime;
|
||||
property ReadAllVirtualRate: integer read fReadAllVirtualRate;
|
||||
property ReadAllDirectTime: RawUTF8 read fReadAllDirectTime;
|
||||
property ReadAllDirectRate: integer read fReadAllDirectRate;
|
||||
property ClientCloseTime: RawUTF8 read fClientCloseTime;
|
||||
end;
|
||||
|
||||
TSQLRecordSample = class(TSQLRecord)
|
||||
private
|
||||
fFirstName: RawUTF8;
|
||||
fLastName: RawUTF8;
|
||||
fAmount: Currency;
|
||||
fBirthDate: TDateTime;
|
||||
fLastChange: TModTime;
|
||||
fCreatedAt: TCreateTime;
|
||||
published
|
||||
property FirstName: RawUTF8 index 40 read fFirstName write fFirstName
|
||||
{$ifdef UNIK}stored AS_UNIQUE{$endif};
|
||||
property LastName: RawUTF8 index 40 read fLastName write fLastName
|
||||
{$ifdef UNIK}stored AS_UNIQUE{$endif};
|
||||
property Amount: Currency read fAmount write fAmount;
|
||||
property BirthDate: TDateTime read fBirthDate write fBirthDate;
|
||||
property LastChange: TModTime read fLastChange write fLastChange;
|
||||
property CreatedAt: TCreateTime read fCreatedAt write fCreatedAt;
|
||||
end;
|
||||
|
||||
|
||||
TTestDatabaseBenchmark = class(TSynTestsLogged)
|
||||
public
|
||||
Ini: RawUTF8;
|
||||
Stats: TSynObjectList;
|
||||
constructor Create(const Ident: string = ''); override;
|
||||
destructor Destroy; override;
|
||||
procedure SaveStats;
|
||||
published
|
||||
procedure DirectDatabaseAccess;
|
||||
procedure ExternalDatabaseAccess;
|
||||
end;
|
||||
|
||||
TTestDatabaseAbstract = class(TSynTestCase)
|
||||
protected
|
||||
Main: TTestDatabaseBenchmark;
|
||||
Value: TSQLRecordSample;
|
||||
Stat: TStat;
|
||||
Namee, Num: RawUTF8;
|
||||
ChangeStart: TTimeLog;
|
||||
RunTimer: TPrecisionTimer;
|
||||
SQlite3Mode: TSQLSynchronousMode;
|
||||
SQlite3Lock: TSQLLockingMode;
|
||||
Client: TSQLRestClientDB;
|
||||
DBFileName: TFileName;
|
||||
DBPassword: RawUTF8;
|
||||
ValueLastName, ValueFirstName: TRawUTF8DynArray;
|
||||
Res: TIDDynArray;
|
||||
Flags: set of (dbIsFile, dbInMemory, dbInMemoryVirtual, dbPropIsMemory,
|
||||
dbPropUntouched, dbDropTable);
|
||||
procedure Setup; override;
|
||||
procedure Cleanup; override;
|
||||
procedure MethodSetup; override;
|
||||
procedure MethodCleanup; override;
|
||||
procedure RunTests; virtual;
|
||||
function ModelCreate: TSQLModel; virtual;
|
||||
procedure ClientCreate; virtual;
|
||||
procedure ClientFree; virtual;
|
||||
procedure RunWrites(UseTransactions, UseBatch: boolean); virtual;
|
||||
procedure ValueCheck(i: PtrInt);
|
||||
procedure RunModeLock(Mode: TSQLSynchronousMode; Lock: TSQLLockingMode); virtual;
|
||||
end;
|
||||
|
||||
TTestDirectSqliteEngine = class(TTestDatabaseAbstract)
|
||||
protected
|
||||
procedure RunModeLock(Mode: TSQLSynchronousMode; Lock: TSQLLockingMode); override;
|
||||
published
|
||||
procedure SqliteFileFull;
|
||||
procedure SqliteFileOff;
|
||||
procedure SqliteFileOffExc;
|
||||
procedure SqliteFileOffExcAes;
|
||||
procedure SqliteInMemory;
|
||||
end;
|
||||
|
||||
TTestInMemoryEngine = class(TTestDatabaseAbstract)
|
||||
protected
|
||||
function ModelCreate: TSQLModel; override;
|
||||
procedure ClientCreate; override;
|
||||
published
|
||||
procedure InMemoryStatic;
|
||||
procedure InMemoryVirtual;
|
||||
end;
|
||||
|
||||
TTestDatabaseExternalAbstract = class(TTestDatabaseAbstract)
|
||||
protected
|
||||
Props: TSQLDBConnectionProperties;
|
||||
function ModelCreate: TSQLModel; override;
|
||||
procedure ClientCreate; override;
|
||||
procedure ClientFree; override;
|
||||
procedure RunExternal(P: TSQLDBConnectionProperties); virtual;
|
||||
public
|
||||
end;
|
||||
|
||||
TTestSqliteExternal = class(TTestDatabaseExternalAbstract)
|
||||
protected
|
||||
procedure ClientCreate; override;
|
||||
published
|
||||
procedure ExternalSqliteFileFull;
|
||||
procedure ExternalSqliteFileOff;
|
||||
procedure ExternalSqliteFileOffExc;
|
||||
procedure ExternalSqliteInMemory;
|
||||
end;
|
||||
|
||||
TTestSqliteRemote = class(TTestDatabaseExternalAbstract)
|
||||
protected
|
||||
RemoteProps: TSQLDBSQLite3ConnectionProperties;
|
||||
RemoteServer: TSQLDBServerRemote;
|
||||
RemoteClient: TSQLDBConnectionPropertiesClass;
|
||||
procedure ClientCreate; override;
|
||||
procedure ClientFree; override;
|
||||
published
|
||||
{$ifdef MSWINDOWS}
|
||||
procedure RemoteSqliteWinHTTP;
|
||||
{$endif}
|
||||
procedure RemoteSqliteSocket;
|
||||
end;
|
||||
|
||||
{$ifdef USELOCALPOSTGRESQL}
|
||||
TTestPostgresql = class(TTestDatabaseExternalAbstract)
|
||||
published
|
||||
procedure _SynDBPostgres;
|
||||
{$ifdef USEZEOS}
|
||||
procedure ZeosPostgres;
|
||||
{$endif}
|
||||
end;
|
||||
{$endif USELOCALPOSTGRESQL}
|
||||
|
||||
implementation
|
||||
|
||||
{ TTestDatabaseAbstract }
|
||||
|
||||
procedure TTestDatabaseAbstract.Setup;
|
||||
begin
|
||||
EnsureDirectoryExists(ExeVersion.ProgramFilePath + 'db');
|
||||
Main := Owner as TTestDatabaseBenchmark;
|
||||
Value := TSQLRecordSample.Create;
|
||||
Namee := 'Name/ ';
|
||||
UniqueRawUTF8(Namee); // FPC does not call it
|
||||
PWord(@Namee[4])^ := $a9c3; // some 'e'acute to test UTF-8 encoding
|
||||
SQlite3Mode := smOff; // fastest mode by default
|
||||
SQlite3Lock := lmExclusive;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.Cleanup;
|
||||
begin // warning: this method could be called several times after a single Setup
|
||||
FreeAndNil(Value);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.MethodSetup;
|
||||
begin
|
||||
Flags := [];
|
||||
Stat := TStat.Create;
|
||||
Stat.fEngine := ToUTF8(Owner.CurrentMethodInfo^.TestName);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.MethodCleanup;
|
||||
begin
|
||||
if Stat.Engine <> '' then
|
||||
Main.Stats.Add(Stat)
|
||||
else
|
||||
FreeAndNil(Stat);
|
||||
ClientFree;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.RunTests;
|
||||
const
|
||||
_ID: array['1'..'4'] of RawUTF8 = ('', ' batch', ' trans', ' batch trans');
|
||||
var
|
||||
trans, batch, UseDirect: boolean;
|
||||
time: RawUTF8;
|
||||
rate: QWord;
|
||||
i: PtrInt;
|
||||
log: ISynLog;
|
||||
begin
|
||||
// Insertion tests
|
||||
Num := '1';
|
||||
for trans := false to true do
|
||||
for batch := false to true do
|
||||
begin
|
||||
log := TSynLog.Enter('% Insert%',[Owner.CurrentMethodInfo^.IdentTestName,
|
||||
_ID[Num[1]]],self);
|
||||
RunWrites(trans, batch);
|
||||
NotifyTestSpeed('insert%',[_ID[Num[1]]],Stat.NumberOfElements,0,@RunTimer);
|
||||
time := RunTimer.LastTime;
|
||||
rate := RunTimer.PerSec(Stat.NumberOfElements);
|
||||
log := nil;
|
||||
case Num[1] of
|
||||
'1':
|
||||
begin
|
||||
Stat.fInsertTime := time;
|
||||
Stat.fInsertRate := rate;
|
||||
end;
|
||||
'2':
|
||||
begin
|
||||
Stat.fInsertBatchTime := time;
|
||||
Stat.fInsertBatchRate := rate;
|
||||
end;
|
||||
'3':
|
||||
begin
|
||||
Stat.fInsertTransactionTime := time;
|
||||
Stat.fInsertTransactionRate := rate;
|
||||
end;
|
||||
'4':
|
||||
begin
|
||||
Stat.fInsertBatchTransactionTime := time;
|
||||
Stat.fInsertBatchTransactionRate := rate;
|
||||
break; // still need Client for Read tests
|
||||
end;
|
||||
end;
|
||||
inc(Num[1]);
|
||||
ClientFree;
|
||||
end;
|
||||
// Read tests
|
||||
log := TSynLog.Enter('% Read One',[Owner.CurrentMethodInfo^.IdentTestName],self);
|
||||
Value.ClearProperties;
|
||||
RunTimer.Start;
|
||||
for i := 0 to Stat.NumberOfElements-1 do
|
||||
begin
|
||||
Client.Retrieve(Res[i],Value);
|
||||
ValueCheck(i);
|
||||
end;
|
||||
NotifyTestSpeed('read one',Stat.NumberOfElements,0,@RunTimer);
|
||||
Stat.fReadOneByOneTime := RunTimer.LastTime;
|
||||
Stat.fReadOneByOneRate := RunTimer.PerSec(Stat.NumberOfElements);
|
||||
log := nil;
|
||||
{$ifdef UNIK}
|
||||
// one by one retrieve values using Name property
|
||||
log := TSynLog.Enter('% Read Unique',[Owner.CurrentMethodInfo^.IdentTestName],self);
|
||||
RunTimer.Start;
|
||||
for i := 0 to Stat.NumberOfElements-1 do
|
||||
begin
|
||||
Client.Retrieve('LastName=?',[],[ValueLastName[i]],Value);
|
||||
Check((Value.IDValue=Res[i]) and
|
||||
(PInt64(@Value.Amount)^=(i+1)*100) and
|
||||
(Value.LastChange>=ChangeStart));
|
||||
end;
|
||||
NotifyTestSpeed('read unique',Stat.NumberOfElements,0,@RunTimer);
|
||||
Stat.fReadOneByNameTime := RunTimer.LastTime;
|
||||
Stat.fReadOneByNameRate := RunTimer.PerSec(Stat.NumberOfElements);
|
||||
{$endif UNIK}
|
||||
// retrieve all rows with or without the virtual module
|
||||
for UseDirect := false to true do
|
||||
begin
|
||||
log := nil;
|
||||
log := TSynLog.Enter('% Read Direct=%',
|
||||
[Owner.CurrentMethodInfo^.IdentTestName, BOOL_STR[UseDirect]],self);
|
||||
with Client.Server do
|
||||
begin
|
||||
Cache.Flush; // fair benchmark
|
||||
DB.CacheFlush; // fair benchmark (16100 rows/s->456000 with cache!)
|
||||
StaticVirtualTableDirect := UseDirect;
|
||||
end;
|
||||
RunTimer.Start;
|
||||
Value.ClearProperties;
|
||||
Check(Value.FillPrepare(Client,'order by RowId'), 'FillPrepare');
|
||||
//FileFromString((Value.FillTable as TSQLTableJSON).PrivateInternalCopy,Stat.Engine+'.json');
|
||||
i := 0;
|
||||
while Value.FillOne do
|
||||
begin
|
||||
ValueCheck(i);
|
||||
inc(i);
|
||||
end;
|
||||
CheckEqual(i,Stat.NumberOfElements,'FillOne');
|
||||
if UseDirect then
|
||||
begin
|
||||
NotifyTestSpeed('read direct',Stat.NumberOfElements,0,@RunTimer);
|
||||
Stat.fReadAllDirectTime := RunTimer.LastTime;
|
||||
Stat.fReadAllDirectRate := RunTimer.PerSec(Stat.NumberOfElements);
|
||||
end else
|
||||
begin
|
||||
NotifyTestSpeed('read virtual',Stat.NumberOfElements,0,@RunTimer);
|
||||
Stat.fReadAllVirtualTime := RunTimer.LastTime;
|
||||
Stat.fReadAllVirtualRate := RunTimer.PerSec(Stat.NumberOfElements);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TTestDatabaseAbstract.ModelCreate: TSQLModel;
|
||||
begin
|
||||
result := TSQLModel.Create([TSQLRecordSample]);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.ClientCreate;
|
||||
var
|
||||
fn: TFileName;
|
||||
begin
|
||||
if dbIsFile in Flags then
|
||||
fn := DBFileName
|
||||
else
|
||||
fn := SQLITE_MEMORY_DATABASE_NAME;
|
||||
Client := TSQLRestClientDB.Create(ModelCreate, nil, fn, TSQLRestServerDB,
|
||||
{auth=}false, DBPassword);
|
||||
Client.Model.Owner := Client;
|
||||
Client.Server.DB.Synchronous := SQlite3Mode;
|
||||
Client.Server.DB.LockingMode := SQlite3Lock;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.ClientFree;
|
||||
begin
|
||||
FreeAndNil(Client);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.RunWrites(UseTransactions, UseBatch: boolean);
|
||||
var
|
||||
i: PtrInt;
|
||||
forceID: boolean;
|
||||
begin
|
||||
DBFileName := FormatString('%db%%.%.db',[ExeVersion.ProgramFilePath, PathDelim,
|
||||
Owner.CurrentMethodInfo^.MethodName, Num]);
|
||||
if FileExists(DBFileName) then
|
||||
DeleteFile(DBFileName);
|
||||
RunTimer.Start;
|
||||
ClientCreate;
|
||||
if CheckFailed(Client <> nil,'Client?') then
|
||||
exit; // avoid GPF
|
||||
Client.Server.CreateMissingTables;
|
||||
ChangeStart := Client.ServerTimestamp; // use by ValueCheck
|
||||
if Stat.CreateTableTime='' then
|
||||
Stat.CreateTableTime := RunTimer.Stop;
|
||||
if (SQlite3Mode = smFull) and not UseTransactions then // full synch is slow
|
||||
Stat.NumberOfElements := 500
|
||||
else
|
||||
Stat.NumberOfElements := 5000;
|
||||
SetLength(ValueLastName, Stat.NumberOfElements);
|
||||
SetLength(ValueFirstName, Stat.NumberOfElements);
|
||||
for i := 0 to Stat.NumberOfElements - 1 do
|
||||
if ValueLastName[i] = '' then
|
||||
begin
|
||||
UInt32ToUtf8(i + 1, ValueLastName[i]);
|
||||
{$ifndef UNIK}
|
||||
if i <> 100 then // test https://synopse.info/fossil/info/e8c211062e
|
||||
{$endif}
|
||||
ValueFirstName[i] := Namee + ValueLastName[i];
|
||||
end;
|
||||
RunTimer.Start;
|
||||
if UseTransactions then
|
||||
Client.TransactionBegin(TSQLRecordSample);
|
||||
if UseBatch then
|
||||
Client.BatchStart(TSQLRecordSample)
|
||||
else
|
||||
if length(Res)<Stat.NumberOfElements then
|
||||
SetLength(Res,Stat.NumberOfElements);
|
||||
for i := 0 to Stat.NumberOfElements-1 do
|
||||
begin
|
||||
Value.Amount := (i+1)*0.01;
|
||||
Value.LastName := ValueLastName[i];
|
||||
Value.FirstName := ValueFirstName[i];
|
||||
Value.BirthDate := i+1;
|
||||
forceID := i and 3=1;
|
||||
if forceID then
|
||||
if {$ifdef UNIK}(dbInMemory in Flags) or {$endif} (Res[i-1] = 0) then
|
||||
forceID := false // not yet in TSQLRestStorageInMemory.AddOne
|
||||
else
|
||||
Value.IDValue := Res[i-1]+1;
|
||||
if UseBatch then
|
||||
Check(Client.BatchAdd(Value,true,forceID)>=0)
|
||||
else
|
||||
begin
|
||||
Res[i] := Client.Add(Value,true,forceID);
|
||||
Check(Res[i]>0,'Add');
|
||||
end;
|
||||
end;
|
||||
if UseBatch then
|
||||
Check(Client.BatchSend(Res)=HTTP_SUCCESS);
|
||||
if UseTransactions then
|
||||
Client.Commit;
|
||||
Value.ClearProperties;
|
||||
Check(Client.Retrieve(Res[1],Value),'One Retrieve after Add');
|
||||
ValueCheck(1);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.ValueCheck(i: PtrInt);
|
||||
begin
|
||||
CheckEqual(Value.IDValue, Res[i], 'ID');
|
||||
CheckEqual(PInt64(@Value.Amount)^, (i+1)*100, 'Amount');
|
||||
Check(Value.LastChange >= ChangeStart, 'LastChange');
|
||||
CheckEqual(Value.FirstName, ValueFirstName[i], 'FirstName');
|
||||
Value.IDValue := 0;
|
||||
Value.Amount := 0;
|
||||
Value.FirstName := '';
|
||||
Value.LastChange := 0;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseAbstract.RunModeLock(Mode: TSQLSynchronousMode;
|
||||
Lock: TSQLLockingMode);
|
||||
begin
|
||||
SQlite3Mode := Mode;
|
||||
SQlite3Lock := Lock;
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
|
||||
{ TTestDirectSqliteEngine }
|
||||
|
||||
procedure TTestDirectSqliteEngine.RunModeLock(Mode: TSQLSynchronousMode; Lock: TSQLLockingMode);
|
||||
begin
|
||||
Flags := [dbIsFile];
|
||||
inherited RunModeLock(Mode, Lock);
|
||||
end;
|
||||
|
||||
procedure TTestDirectSqliteEngine.SqliteFileFull;
|
||||
begin
|
||||
RunModeLock(smFull, lmNormal);
|
||||
end;
|
||||
|
||||
procedure TTestDirectSqliteEngine.SqliteFileOff;
|
||||
begin
|
||||
RunModeLock(smOff, lmNormal);
|
||||
end;
|
||||
|
||||
procedure TTestDirectSqliteEngine.SqliteFileOffExc;
|
||||
begin
|
||||
RunModeLock(smOff, lmExclusive);
|
||||
end;
|
||||
|
||||
procedure TTestDirectSqliteEngine.SqliteFileOffExcAes;
|
||||
begin
|
||||
DBPassword := 'password';
|
||||
RunModeLock(smOff, lmExclusive);
|
||||
DBPassword := '';
|
||||
end;
|
||||
|
||||
procedure TTestDirectSqliteEngine.SqliteInMemory;
|
||||
begin
|
||||
Flags := [];
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
|
||||
{ TTestInMemoryEngine }
|
||||
|
||||
function TTestInMemoryEngine.ModelCreate: TSQLModel;
|
||||
begin
|
||||
result := inherited ModelCreate;
|
||||
// registration should be done BEFORE Client is initialized
|
||||
if dbInMemoryVirtual in Flags then
|
||||
result.VirtualTableRegister(TSQLRecordSample, TSQLVirtualTableBinary)
|
||||
end;
|
||||
|
||||
procedure TTestInMemoryEngine.ClientCreate;
|
||||
begin
|
||||
inherited ClientCreate;
|
||||
if not (dbInMemoryVirtual in Flags) then
|
||||
Client.Server.StaticDataCreate(TSQLRecordSample, DBFileName, {binary=}true);
|
||||
end;
|
||||
|
||||
procedure TTestInMemoryEngine.InMemoryStatic;
|
||||
begin
|
||||
Flags := [dbInMemory];
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
procedure TTestInMemoryEngine.InMemoryVirtual;
|
||||
begin
|
||||
Flags := [dbInMemory, dbInMemoryVirtual];
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
|
||||
{ TTestDatabaseExternalAbstract }
|
||||
|
||||
function TTestDatabaseExternalAbstract.ModelCreate: TSQLModel;
|
||||
begin
|
||||
result := inherited ModelCreate;
|
||||
// registration should be done BEFORE Client is initialized
|
||||
VirtualTableExternalRegister(result, TSQLRecordSample, Props, 'SampleRecord');
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseExternalAbstract.ClientCreate;
|
||||
begin
|
||||
if (Props <> nil) and (dbDropTable in Flags) then
|
||||
Props.ExecuteNoResult('drop table SAMPLERECORD', []);
|
||||
inherited ClientCreate;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseExternalAbstract.ClientFree;
|
||||
begin
|
||||
inherited ClientFree;
|
||||
if not(dbPropUntouched in Flags) then
|
||||
FreeAndNil(Props);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseExternalAbstract.RunExternal(P: TSQLDBConnectionProperties);
|
||||
begin
|
||||
Flags := [dbPropUntouched, dbDropTable];
|
||||
Props := P;
|
||||
try
|
||||
Props.ThreadSafeConnection.Connect;
|
||||
Check(Props.ThreadSafeConnection.Connected, 'connected');
|
||||
RunTests;
|
||||
finally
|
||||
FreeAndNil(Props);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{ TTestSqliteExternal }
|
||||
|
||||
procedure TTestSqliteExternal.ClientCreate;
|
||||
begin
|
||||
if dbPropIsMemory in Flags then
|
||||
DBFileName := SQLITE_MEMORY_DATABASE_NAME;
|
||||
if not (dbPropUntouched in Flags) then
|
||||
Props := TSQLDBSQLite3ConnectionProperties.Create(DBFileName, '', '', '');
|
||||
with TSQLDBSQLite3Connection(Props.MainConnection) do
|
||||
begin
|
||||
Synchronous := SQlite3Mode;
|
||||
LockingMode := SQlite3Lock;
|
||||
end;
|
||||
inherited ClientCreate;
|
||||
end;
|
||||
|
||||
procedure TTestSqliteExternal.ExternalSqliteFileFull;
|
||||
begin
|
||||
RunModeLock(smFull, lmNormal);
|
||||
end;
|
||||
|
||||
procedure TTestSqliteExternal.ExternalSqliteFileOff;
|
||||
begin
|
||||
RunModeLock(smOff, lmNormal);
|
||||
end;
|
||||
|
||||
procedure TTestSqliteExternal.ExternalSqliteFileOffExc;
|
||||
begin
|
||||
RunModeLock(smOff, lmExclusive);
|
||||
end;
|
||||
|
||||
procedure TTestSqliteExternal.ExternalSqliteInMemory;
|
||||
begin
|
||||
Flags := [dbPropIsMemory];
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
|
||||
{ TTestSqliteRemote }
|
||||
|
||||
procedure TTestSqliteRemote.ClientCreate;
|
||||
begin
|
||||
RemoteProps := TSQLDBSQLite3ConnectionProperties.Create(SQLITE_MEMORY_DATABASE_NAME, '', '', '');
|
||||
RemoteProps.MainSQLite3DB.Synchronous := SQlite3Mode;
|
||||
RemoteProps.MainSQLite3DB.LockingMode := SQlite3Lock;
|
||||
RemoteServer := TSQLDBServerRemote.Create(RemoteProps, 'root', '8888', 'user', 'password');
|
||||
Props := RemoteClient.Create('localhost:8888', 'root', 'user', 'password');
|
||||
inherited ClientCreate;
|
||||
end;
|
||||
|
||||
procedure TTestSqliteRemote.ClientFree;
|
||||
begin
|
||||
inherited ClientFree;
|
||||
RemoteServer.Free;
|
||||
RemoteProps.Free;
|
||||
end;
|
||||
|
||||
procedure TTestSqliteRemote.RemoteSqliteSocket;
|
||||
begin
|
||||
RemoteClient := TSQLDBSocketConnectionProperties;
|
||||
RunTests;
|
||||
end;
|
||||
|
||||
{$ifdef MSWINDOWS}
|
||||
procedure TTestSqliteRemote.RemoteSqliteWinHTTP;
|
||||
begin
|
||||
RemoteClient := TSQLDBWinHTTPConnectionProperties;
|
||||
RunTests;
|
||||
end;
|
||||
{$endif MSWINDOWS}
|
||||
|
||||
|
||||
{$ifdef USELOCALPOSTGRESQL}
|
||||
|
||||
{ TTestPostgresql }
|
||||
|
||||
procedure TTestPostgresql._SynDBPostgres;
|
||||
begin
|
||||
RunExternal(TSQLDBPostgresConnectionProperties.Create(
|
||||
'localhost','postgres','postgres','docker'));
|
||||
end;
|
||||
|
||||
|
||||
{$ifdef USEZEOS}
|
||||
procedure TTestPostgresql.ZeosPostgres;
|
||||
begin
|
||||
RunExternal(TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(
|
||||
dPostgreSQL,'localhost','libpq.so.5',false),'postgres','postgres','docker'));
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
{$endif USELOCALPOSTGRESQL}
|
||||
|
||||
|
||||
{ TTestDatabaseBenchmark }
|
||||
|
||||
constructor TTestDatabaseBenchmark.Create(const Ident: string);
|
||||
var
|
||||
fn: TFileName;
|
||||
begin
|
||||
Stats := TSynObjectList.Create;
|
||||
fn := ChangeFileExt(ExeVersion.ProgramFileName, '.ini');
|
||||
if FileExists(fn) then
|
||||
Ini := StringFromFile(fn)
|
||||
else
|
||||
FileFromString('', fn);
|
||||
inherited Create(Ident);
|
||||
end;
|
||||
|
||||
destructor TTestDatabaseBenchmark.Destroy;
|
||||
begin
|
||||
inherited Destroy;
|
||||
SaveStats;
|
||||
Stats.Free;
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseBenchmark.SaveStats;
|
||||
type TStatArray = array[0..1000] of TStat;
|
||||
var Stat: ^TStatArray;
|
||||
mode,s,txt: RawUTF8;
|
||||
m,nCat, col1len: integer;
|
||||
max,Cat1,Cat2,Eng1,Eng2,Eng: RawUTF8;
|
||||
Rows: TRawUTF8DynArray;
|
||||
Doc, Cons: RawUTF8;
|
||||
procedure SetCategories(const Title: RawUTF8; const Cat: array of RawUTF8);
|
||||
var i: integer;
|
||||
begin
|
||||
mode := UrlEncode(Title);
|
||||
s := s+'<h1>'+copy(Title,1,posEx(' (',Title)-1)+'</h1>'#13#10;
|
||||
max := Int32ToUtf8(m);
|
||||
nCat := length(Cat);
|
||||
Cat1 := '';
|
||||
Cat2 := '';
|
||||
SetLength(Rows,Stats.Count+1);
|
||||
Rows[0] := '<td> </td>';
|
||||
cons := cons+#13#10+Title+#13#10+StringOfChar(' ',col1len+2);
|
||||
for i := 0 to high(Cat) do begin
|
||||
Rows[0] := Rows[0]+'<td><b>'+Cat[i]+'</b></td>';
|
||||
Cat1 := Cat1+UrlEncode(Cat[i])+'|';
|
||||
Cat2 := Cat2+UrlEncode(Cat[high(Cat)-i])+'|';
|
||||
cons := cons+Cat[i];
|
||||
if i<>high(Cat) then
|
||||
cons := cons+StringOfChar(' ',12-length(Cat[i]));
|
||||
end;
|
||||
cons := cons+#13#10;
|
||||
SetLength(Cat1,length(Cat1)-1);
|
||||
SetLength(Cat2,length(Cat2)-1);
|
||||
Eng1 := '';
|
||||
Eng2 := '';
|
||||
for i := 0 to Stats.Count-1 do begin
|
||||
Eng := Stat[i].Engine;
|
||||
{ j := PosEx(' ',Eng);
|
||||
if j>0 then begin
|
||||
Delete(Eng,j,1);
|
||||
insert('<br>',Eng,j);
|
||||
end;}
|
||||
Rows[i+1] := '<td><b>'+Eng+'</b></td>';
|
||||
Eng1 := Eng1+UrlEncode(Stat[i].Engine)+'|';
|
||||
Eng2 := Eng2+UrlEncode(Stat[Stats.Count-1-i].Engine)+'|';
|
||||
end;
|
||||
SetLength(Eng1,length(Eng1)-1);
|
||||
SetLength(Eng2,length(Eng2)-1);
|
||||
end;
|
||||
procedure Pic1(const Leg: RawUTF8; n: integer);
|
||||
var i: integer;
|
||||
begin
|
||||
txt := 'http://chart.apis.google.com/chart?chtt='+mode+'&chxl=1:|'+Leg+
|
||||
'&chxt=x,y&chbh=a&chs=600x500&cht=bhg&chco=';
|
||||
// for i := 1 to 5 do txt := txt+IntToHex($309F30+i*$010101,3)+',';
|
||||
// txt[length(txt)] := '&';
|
||||
// '3D7930,3D8930,309F30,6070F0,5070E0,40C355,65D055,80C1A2,F05050,F0A280'+
|
||||
txt := txt+'3D7930,3D8930,309F30,40C355&';//,6070F0,5070E0,65D055,80C1A2,3D7930,3D8930,F05050,F04050,F04040,F01040,F0A280&';
|
||||
txt := txt+'chxr=0,0,'+max+'&chds=';
|
||||
for i := 1 to n do
|
||||
txt := txt+'0,'+max+',';
|
||||
txt[length(txt)] := '&';
|
||||
txt := txt+'chd=t:';
|
||||
end;
|
||||
procedure PicEnd(const Legend: RawUTF8);
|
||||
begin
|
||||
txt[length(txt)] := '&';
|
||||
s := s+'<p><img src='+txt+'chdl='+Legend+'></p>'#13#10;
|
||||
txt := '';
|
||||
end;
|
||||
procedure SetValues(var Rows: RawUTF8; const eng: RawUTF8; const v: array of const);
|
||||
var j: integer;
|
||||
fmt,s: RawUTF8;
|
||||
begin
|
||||
for j := 2 to length(v) do
|
||||
fmt := fmt+'%,';
|
||||
fmt := fmt+'%|';
|
||||
txt := txt+FormatUTF8(fmt,v);
|
||||
fmt := '';
|
||||
for j := 1 to length(v) do
|
||||
fmt := fmt+'<td>%</td>';
|
||||
Rows := Rows+FormatUTF8(fmt,v);
|
||||
fmt := eng+StringOfChar(' ',col1len-length(eng)+2);
|
||||
for j := 0 to high(v) do begin
|
||||
VarRecToUTF8(v[j],s);
|
||||
if j<>high(v) then
|
||||
s := s+StringOfChar(' ',12-length(s));
|
||||
fmt := fmt+s;
|
||||
end;
|
||||
cons := cons+fmt+#13#10;
|
||||
end;
|
||||
procedure Table;
|
||||
var i: integer;
|
||||
begin
|
||||
s := s+'<p><table>';
|
||||
for i := 0 to High(Rows) do
|
||||
s := s+'<tr align=center>'+Rows[i]+'</tr>'#13#10;
|
||||
s := s+'</table></p>';
|
||||
Doc := Doc+'|%30';
|
||||
for i := 1 to nCat do
|
||||
Doc := Doc+'%15';
|
||||
Doc := Doc+#13#10;
|
||||
for i := 0 to High(Rows) do begin
|
||||
Doc := Doc+StringReplaceAll(Rows[i], ['</td>','', '</tr>','', '<tr align=center>','',
|
||||
'</b>','}', '</td>','', '<b>','{\b ', '<td>','|', ' ',''])+#13#10;
|
||||
end;
|
||||
Doc := Doc+'|%'#13#10;
|
||||
end;
|
||||
var i,j: integer;
|
||||
begin
|
||||
// introducting text
|
||||
Stat := pointer(Stats.List);
|
||||
s := FormatUTF8('Running tests using Synopse mORMot framework %, '+
|
||||
'compiled with %, against SQLite %, on %, at %.',
|
||||
[SYNOPSE_FRAMEWORK_VERSION, GetDelphiCompilerVersion, SQLite3.libversion,
|
||||
OSVersionText, NowToString]);
|
||||
cons := '[code]'#13#10+s+#13#10#13#10;
|
||||
s := '<p>'+s+'</p>';
|
||||
// compute max Insertion rate value for charts
|
||||
m := 0;
|
||||
col1len := 0;
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
if InsertRate>m then m := InsertRate;
|
||||
if InsertBatchRate>m then m := InsertBatchRate;
|
||||
if InsertTransactionRate>m then m := InsertTransactionRate;
|
||||
if InsertBatchTransactionRate>m then m := InsertBatchTransactionRate;
|
||||
j := length(Engine);
|
||||
if j>col1len then
|
||||
col1len := j;
|
||||
end;
|
||||
// Insertion Categories
|
||||
SetCategories('Insertion speed (rows/second)',['Direct','Batch','Trans','Batch Trans']);
|
||||
// Insertion per-Engine Values and Chart
|
||||
Pic1(Cat2,5);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do
|
||||
SetValues(Rows[i+1], Engine,
|
||||
[InsertRate,InsertBatchRate,InsertTransactionRate,InsertBatchTransactionRate]);
|
||||
Table;
|
||||
PicEnd(Eng1);
|
||||
// Insertion per-Category Chart
|
||||
Pic1(Eng2,Stats.Count);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertBatchRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertTransactionRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].InsertBatchTransactionRate)+',';
|
||||
PicEnd(Cat1);
|
||||
// compute max Reading rate value for charts
|
||||
m := 0;
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do begin
|
||||
if ReadOneByOneRate>m then m := ReadOneByOneRate;
|
||||
{$ifdef UNIK}
|
||||
if ReadOneByNameRate>m then m := ReadOneByNameRate;
|
||||
{$endif}
|
||||
if ReadAllVirtualRate>m then m := ReadAllVirtualRate;
|
||||
if ReadAllDirectRate>m then m := ReadAllDirectRate;
|
||||
end;
|
||||
// Reading Categories
|
||||
SetCategories('Read speed (rows/second)',['By one',
|
||||
{$ifdef UNIK}'By name',{$endif}'All Virtual','All Direct']);
|
||||
// Reading per-Engine Values and Chart
|
||||
Pic1(Cat2,{$ifdef UNIK}4{$else}3{$endif});
|
||||
for i := 0 to Stats.Count-1 do
|
||||
with Stat[i] do
|
||||
SetValues(Rows[i+1], Engine,
|
||||
[ReadOneByOneRate,{$ifdef UNIK}ReadOneByNameRate,{$endif}
|
||||
ReadAllVirtualRate,ReadAllDirectRate]);
|
||||
Table;
|
||||
PicEnd(Eng1);
|
||||
// Reading per-Category Chart
|
||||
Pic1(Eng2,Stats.Count);
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadOneByOneRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
{$ifdef UNIK}
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadOneByNameRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
{$endif}
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadAllVirtualRate)+',';
|
||||
txt[length(txt)] := '|';
|
||||
for i := 0 to Stats.Count-1 do
|
||||
txt := txt+Int32ToUtf8(Stat[i].ReadAllDirectRate)+',';
|
||||
PicEnd(Cat1);
|
||||
// save to local files
|
||||
FileFromString(Doc,ChangeFileExt(ExeVersion.ProgramFileName,'.doc'));
|
||||
FileFromString(cons+'[/code]',ChangeFileExt(ExeVersion.ProgramFileName,'.txt'));
|
||||
FileFromString('<html><body>'#13#10+s,ChangeFileExt(ExeVersion.ProgramFileName,'.htm'));
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseBenchmark.DirectDatabaseAccess;
|
||||
begin
|
||||
//exit;
|
||||
AddCase(TTestDirectSqliteEngine);
|
||||
AddCase(TTestInMemoryEngine);
|
||||
end;
|
||||
|
||||
procedure TTestDatabaseBenchmark.ExternalDatabaseAccess;
|
||||
begin
|
||||
//exit;
|
||||
AddCase(TTestSqliteExternal);
|
||||
AddCase(TTestSqliteRemote);
|
||||
{$ifdef USELOCALPOSTGRESQL}
|
||||
AddCase(TTestPostgresql);
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,15 @@
|
||||
program PerfTestConsole;
|
||||
|
||||
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER
|
||||
|
||||
uses
|
||||
{$I SynDprUses.inc}
|
||||
SynCommons,
|
||||
SynLog,
|
||||
mORMot,
|
||||
PerfTestCases in '.\PerfTestCases.pas';
|
||||
|
||||
begin
|
||||
TTestDatabaseBenchmark.RunAsConsole(
|
||||
'mORMot Framework Database Benchmark'{, LOG_VERBOSE});
|
||||
end.
|
||||
@@ -0,0 +1,158 @@
|
||||
program mORMotBatchInsert;
|
||||
|
||||
// see http://stackoverflow.com/a/31523392/458259
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
uses
|
||||
{$I SynDprUses.inc} // includes FastMM4
|
||||
SysUtils,
|
||||
SynCommons,
|
||||
mORMot,
|
||||
mORMotSQLite3,
|
||||
SynSQLite3,
|
||||
SynSQLite3Static;
|
||||
|
||||
type
|
||||
TSQLIndy = class(TSQLRecord)
|
||||
private
|
||||
fdied: boolean;
|
||||
fhasdata: boolean;
|
||||
feventlinesneedprocessing: boolean;
|
||||
ftodo: integer;
|
||||
ffams: integer;
|
||||
flinkinfo: integer;
|
||||
ffirstancestralloop: integer;
|
||||
ffamc: integer;
|
||||
fnextreportindi: integer;
|
||||
fdeathdate: string;
|
||||
fchanged: string;
|
||||
fbirthdate: string;
|
||||
feventlines: string;
|
||||
fgedcomnames: string;
|
||||
fsex: string;
|
||||
findikey: string;
|
||||
published
|
||||
property indikey: string read findikey write findikey;
|
||||
property hasdata: boolean read fhasdata write fhasdata;
|
||||
property gedcomnames: string read fgedcomnames write fgedcomnames;
|
||||
property sex: string read fsex write fsex;
|
||||
property birthdate: string read fbirthdate write fbirthdate;
|
||||
property died: boolean read fdied write fdied;
|
||||
property deathdate: string read fdeathdate write fdeathdate;
|
||||
property changed: string read fchanged write fchanged;
|
||||
property eventlinesneedprocessing: boolean read feventlinesneedprocessing write feventlinesneedprocessing;
|
||||
property eventlines: string read feventlines write feventlines;
|
||||
property famc: integer read ffamc write ffamc;
|
||||
property fams: integer read ffams write ffams;
|
||||
property linkinfo: integer read flinkinfo write flinkinfo;
|
||||
property todo: integer read ftodo write ftodo;
|
||||
property nextreportindi: integer read fnextreportindi write fnextreportindi;
|
||||
property firstancestralloop: integer read ffirstancestralloop write ffirstancestralloop;
|
||||
end;
|
||||
|
||||
const COUNT = 1000000;
|
||||
|
||||
{
|
||||
Prepared 1000000 rows in 603.28ms
|
||||
Inserted 1000000 rows in 5.79s
|
||||
}
|
||||
|
||||
procedure Test;
|
||||
var db: TSQLRestServerDB;
|
||||
batch: TSQLRestBatch;
|
||||
i: Integer;
|
||||
indy: TSQLIndy;
|
||||
timer: TPrecisionTimer;
|
||||
begin
|
||||
DeleteFile('test.db3');
|
||||
db := TSQLRestServerDB.CreateWithOwnModel([TSQLIndy],'test.db3');
|
||||
try
|
||||
db.DB.LockingMode := lmExclusive;
|
||||
db.DB.Synchronous := smOff;
|
||||
db.CreateMissingTables;
|
||||
timer.Start;
|
||||
batch := TSQLRestBatch.Create(db,TSQLIndy,10000);
|
||||
try
|
||||
indy := TSQLIndy.Create;
|
||||
try
|
||||
for i := 1 to COUNT do begin
|
||||
indy.indikey := IntToString(i);
|
||||
indy.hasdata := i and 1=0;
|
||||
indy.sex := 'Male';
|
||||
indy.famc := i;
|
||||
indy.fams := i*10;
|
||||
indy.todo := i+100;
|
||||
indy.firstancestralloop := i*2;
|
||||
batch.Add(indy,true);
|
||||
end;
|
||||
finally
|
||||
indy.Free;
|
||||
end;
|
||||
writeln('Prepared ',COUNT,' rows in ',timer.Stop);
|
||||
timer.Start;
|
||||
db.BatchSend(batch);
|
||||
write('Inserted ',COUNT,' rows in ',timer.Stop);
|
||||
writeln(' i.e. ',timer.PerSec(COUNT),' per second');
|
||||
finally
|
||||
batch.Free;
|
||||
end;
|
||||
finally
|
||||
db.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
const COUNT2 = 100000;
|
||||
|
||||
procedure Test2;
|
||||
var db: TSQLRestClientDB;
|
||||
res: TIDDynArray;
|
||||
i: Integer;
|
||||
indy: TSQLIndy;
|
||||
timer: TPrecisionTimer;
|
||||
begin
|
||||
DeleteFile('test2.db3');
|
||||
db := TSQLRestClientDB.Create(TSQLModel.Create([TSQLIndy]),nil,'test2.db3',TSQLRestServerDB);
|
||||
try
|
||||
db.Model.Owner := db;
|
||||
db.DB.LockingMode := lmExclusive;
|
||||
db.DB.Synchronous := smOff;
|
||||
db.Server.CreateMissingTables;
|
||||
timer.Start;
|
||||
db.BatchStart(TSQLIndy);
|
||||
indy := TSQLIndy.Create;
|
||||
try
|
||||
for i := 1 to COUNT2 do begin
|
||||
indy.indikey := IntToString(i);
|
||||
indy.hasdata := i and 1=0;
|
||||
indy.sex := 'Male';
|
||||
indy.famc := i;
|
||||
indy.fams := i*10;
|
||||
indy.todo := i+100;
|
||||
indy.firstancestralloop := i*2;
|
||||
db.BatchAdd(indy,true);
|
||||
end;
|
||||
finally
|
||||
indy.Free;
|
||||
end;
|
||||
writeln('Prepared ',COUNT2,' rows in ',timer.Stop);
|
||||
timer.Start;
|
||||
db.BatchSend(res);
|
||||
write('Inserted ',COUNT2,' rows in ',timer.Stop);
|
||||
writeln(' i.e. ',timer.PerSec(COUNT2),' per second');
|
||||
finally
|
||||
db.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
try
|
||||
Test;
|
||||
// Test2
|
||||
readln;
|
||||
except
|
||||
on E: Exception do
|
||||
ConsoleShowFatalException(E);
|
||||
end;
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user