Skip to content
Permalink
Browse files

updated SQLite3 engine to latest version 3.31.0

  • Loading branch information
Arnaud Bouchez
Arnaud Bouchez committed Jan 26, 2020
1 parent 2a4d93e commit ea71d8495e6d2244c765b225420f3743e00ce90c
@@ -0,0 +1,145 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="SourceCodeRep"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes Count="3">
<Item1 Name="Default" Default="True"/>
<Item2 Name="linux64">
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="../..;../../.."/>
<OtherUnitFiles Value="../..;../../.."/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<TargetCPU Value="x86_64"/>
<TargetOS Value="linux"/>
<Optimizations>
<OptimizationLevel Value="2"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item2>
<Item3 Name="win32">
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="../..;../../.."/>
<Libraries Value="../../../static/$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="../..;../../.."/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="2"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item3>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="SourceCodeRep.dpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="SourceCodeRepMain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="../..;../../.."/>
<OtherUnitFiles Value="../..;../../.."/>
<UnitOutputDirectory Value="lib/default"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
@@ -1,9 +1,9 @@
object Form1: TForm1
Left = 258
Top = 211
Width = 338
Height = 356
Caption = ' SQLite3Pages Test'
ClientHeight = 317
ClientWidth = 305
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -195,9 +195,11 @@ procedure TForm1.Button1Click(Sender: TObject);
var
i, y: integer;
TestImage: TBitmap;
Stream: TStream;
MF: TMetaFile;
R: TRect;
begin
if false then
with TGDIPages.Create(self) do
try
BeginDoc;
@@ -238,7 +240,53 @@ procedure TForm1.Button1Click(Sender: TObject);
//ExportPDF('test.pdf', true, true);
finally
Free;
end;
end
else
if false then
with TPdfDocumentGDI.Create do
try
Stream := TFileStream.Create(ExeVersion.ProgramFilePath + 'streamdirect.pdf', fmCreate);
try
SaveToStreamDirectBegin(Stream);
for i := 1 to 9 do
begin
AddPage;
with VCLCanvas do
begin
Font.Name := 'Times new roman';
Font.Size := 120;
Font.Style := [fsBold, fsItalic];
Font.Color := clNavy;
TextOut(100, 100, 'Page ' + IntToStr(i));
end;
SaveToStreamDirectPageFlush; // direct writing
end;
SaveToStreamDirectEnd;
finally
Stream.Free;
end;
finally
Free;
end
else
with TPdfDocumentGDI.Create do
try
for i := 1 to 9 do
begin
AddPage;
with VCLCanvas do
begin
Font.Name := 'Times new roman';
Font.Size := 120;
Font.Style := [fsBold, fsItalic];
Font.Color := clNavy;
TextOut(100, 100, 'Page ' + IntToStr(i));
end;
end;
SaveToFile(ExeVersion.ProgramFilePath + 'multipages.pdf');
finally
Free;
end;
end;
{
var
@@ -204,7 +204,7 @@
Version 1.18
- unit SQLite3.pas renamed mORMotSQLite3.pas
- updated SQLite3 engine to latest version 3.30.1
- updated SQLite3 engine to latest version 3.31.0
- BATCH adding in TSQLRestServerDB will now perform SQLite3 multi-INSERT
statements: performance boost is from 2x (mem with transaction) to 60x
(full w/out transaction) - faster than SQlite3 as external DB
BIN +39.1 KB (100%) SQLite3/sqlite3.o
Binary file not shown.
BIN +12.2 KB (100%) SQLite3/sqlite3.obj
Binary file not shown.

0 comments on commit ea71d84

Please sign in to comment.
You can’t perform that action at this time.