source upload
This commit is contained in:
Razor12911
@@ -0,0 +1,32 @@
|
||||
program FishShopDaemon;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
uses
|
||||
{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
|
||||
SysUtils,
|
||||
SynCommons, // framework core
|
||||
SynTable,
|
||||
SynLog, // logging features
|
||||
mORMot, // RESTful server & ORM
|
||||
SynSQLite3Static, // staticaly linked SQLite3 engine
|
||||
mORMotHttpServer, // HTTP server for RESTful server
|
||||
ServFishShopTypes, // definitions shared by Server and Clients
|
||||
ServFishShopMain; // the main implementation unit of our daemon
|
||||
|
||||
var
|
||||
daemon: TFishShopDaemon;
|
||||
begin
|
||||
// set logging abilities
|
||||
SQLite3Log.Family.Level := LOG_VERBOSE;
|
||||
//SQLite3Log.Family.EchoToConsole := LOG_VERBOSE;
|
||||
SQLite3Log.Family.PerThreadLog := ptIdentifiedInOnFile;
|
||||
// initialize the daemon
|
||||
daemon := TFishShopDaemon.Create(TFishShopSettings, ExeVersion.ProgramFilePath, '', '');
|
||||
try
|
||||
daemon.CommandLine;
|
||||
finally
|
||||
daemon.Free;
|
||||
end;
|
||||
end.
|
||||
|
||||
@@ -0,0 +1,291 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<UseAppBundle Value="False"/>
|
||||
<ResourceType Value="res"/>
|
||||
</General>
|
||||
<BuildModes Count="8">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
<Item2 Name="win32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="exe\FishShopDaemon"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="win32"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
<Item3 Name="win64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="exe\FishShopDaemon"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="win64"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<Verbosity>
|
||||
<ShowDebugInfo Value="True"/>
|
||||
</Verbosity>
|
||||
<CustomOptions Value="-dONLYUSEHTTPSOCKET"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item3>
|
||||
<Item4 Name="linux32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item4>
|
||||
<Item5 Name="linux64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-Sa"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item5>
|
||||
<Item6 Name="linuxarm">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="arm"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item6>
|
||||
<Item7 Name="bsd32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="freebsd"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item7>
|
||||
<Item8 Name="bsd64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="netbsd"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item8>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default"/>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<Units Count="1">
|
||||
<Unit0>
|
||||
<Filename Value="FishShopDaemon.dpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="exe/FishShopDaemon"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);../../../lib;../../../lib/SQLite3"/>
|
||||
<Libraries Value="../../../lib/static/$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="../../../lib;../../../lib/SQLite3;../../../lib/SQLite3/DDD/infra;../data;../serv;../daemon"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@@ -0,0 +1,98 @@
|
||||
unit ServFishShopMain;
|
||||
|
||||
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SynCommons,
|
||||
mORMot,
|
||||
mORMotHttpServer,
|
||||
mORMotService,
|
||||
ServFishShopTypes;
|
||||
|
||||
type
|
||||
EFishShop = class(ESynException);
|
||||
|
||||
TFishShopService = class(TInterfacedObject, IFishShop)
|
||||
protected
|
||||
fFishData: IFishData;
|
||||
public
|
||||
function GetSpecialOffersPicture: TServiceCustomAnswer;
|
||||
procedure GetFishList(out fishes: TFishList);
|
||||
procedure GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
procedure Order(const basket: TBasketList;
|
||||
const cardnumber, cardcontrol, discountcoupon: RawUTF8);
|
||||
end;
|
||||
|
||||
TFishShopSettings = class(TSynDaemonSettings)
|
||||
published
|
||||
end;
|
||||
|
||||
TFishShopDaemon = class(TSynDaemon)
|
||||
protected
|
||||
fServer: TSQLRestServer;
|
||||
fHttpServer: TSQLHttpServer;
|
||||
fFishData: IFishData;
|
||||
public
|
||||
procedure Start; override;
|
||||
procedure Stop; override;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{ TFishShopService }
|
||||
|
||||
function TFishShopService.GetSpecialOffersPicture: TServiceCustomAnswer;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TFishShopService.GetFishList(out fishes: TFishList);
|
||||
begin
|
||||
if Assigned(fFishData) then
|
||||
fFishData.GetFishList(fishes)
|
||||
else
|
||||
raise EFishShop.Create('Panic Mode');
|
||||
end;
|
||||
|
||||
procedure TFishShopService.GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
begin
|
||||
if VarIsEmptyOrNull(id) then
|
||||
exit;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFishShopService.Order(const basket: TBasketList; const cardnumber,
|
||||
cardcontrol, discountcoupon: RawUTF8);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
|
||||
{ TFishShopDaemon }
|
||||
|
||||
procedure TFishShopDaemon.Start;
|
||||
var
|
||||
instance: TFishShopService;
|
||||
begin
|
||||
fFishData := TFishDataLegacyDB.Create;
|
||||
fServer := TSQLRestServerFullMemory.CreateWithOwnModel([], False, FISHSHOP_ROOT);
|
||||
instance := TFishShopService.Create;
|
||||
instance.fFishData := fFishData;
|
||||
fServer.ServiceDefine(instance, [IFishShop], FISHSHOP_CONTRACT);
|
||||
fHttpServer := TSQLHttpServer.Create(FISHSHOP_PORT, fServer);
|
||||
end;
|
||||
|
||||
procedure TFishShopDaemon.Stop;
|
||||
begin
|
||||
fServer.Free;
|
||||
fHttpServer.Free;
|
||||
fFishData := nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,22 @@
|
||||
unit ServFishShopTests;
|
||||
|
||||
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SynCommons,
|
||||
mORMot,
|
||||
SynTests,
|
||||
ServFishShopTypes,
|
||||
ServFishShopMain;
|
||||
|
||||
type
|
||||
TFishShopTests = class(TSynTestsLogged)
|
||||
published
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,97 @@
|
||||
// type definitions shared by the Clients and Servers
|
||||
unit ServFishShopTypes;
|
||||
|
||||
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SynCommons,
|
||||
mORMot;
|
||||
|
||||
type
|
||||
TFish = packed record
|
||||
Name: RawUTF8;
|
||||
Price: currency;
|
||||
PictureURI: RawUTF8;
|
||||
ID: variant;
|
||||
end; // TSQLTable DynArraySave()
|
||||
TFishList = array of TFish;
|
||||
|
||||
TFishDetailed = packed record
|
||||
Fish: TFish;
|
||||
Description: RawUTF8;
|
||||
WaterType: RawUTF8;
|
||||
WaterTemperature: double;
|
||||
end;
|
||||
// {"name":...,"price"...,"description":...,}
|
||||
|
||||
TBasketItem = packed record
|
||||
ID: variant;
|
||||
count: integer;
|
||||
gift: boolean;
|
||||
end;
|
||||
TBasketList = array of TBasketItem;
|
||||
|
||||
|
||||
IFishShop = interface(IInvokable)
|
||||
['{0A1295BF-9F29-4109-AD3B-84A0070725E4}']
|
||||
function GetSpecialOffersPicture: TServiceCustomAnswer;
|
||||
procedure GetFishList(out fishes: TFishList);
|
||||
procedure GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
procedure Order(const basket: TBasketList;
|
||||
const cardnumber, cardcontrol, discountcoupon: RawUTF8);
|
||||
end;
|
||||
|
||||
const
|
||||
FISHSHOP_ROOT = 'v1';
|
||||
FISHSHOP_PORT = '888';
|
||||
FISHSHOP_CONTRACT = 'FishShop1';
|
||||
|
||||
|
||||
(********************* Data Persistence Layer *************)
|
||||
|
||||
type
|
||||
IFishData = interface(IInvokable)
|
||||
['{1A7DE36A-AA2F-499D-9F51-AF1EA5A668B2}']
|
||||
procedure GetFishList(out fishes: TFishList);
|
||||
procedure GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
end;
|
||||
|
||||
TFishDataLegacyDB = class(TInterfacedObject, IFishData)
|
||||
protected
|
||||
fDetailsCache: TSynDictionary;
|
||||
public
|
||||
procedure GetFishList(out fishes: TFishList);
|
||||
procedure GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
_TFish = 'name:RawUTF8 price:currency pictureuri:RawUTF8 id:variant';
|
||||
_TFishDetailed = _TFish + ' description,watertype:RawUTF8 ' +
|
||||
'watertemperature:double';
|
||||
|
||||
{ TFishDataLegacyDB }
|
||||
|
||||
procedure TFishDataLegacyDB.GetFishDetails(const id: variant;
|
||||
out fish: TFishDetailed);
|
||||
begin
|
||||
// SQL here
|
||||
end;
|
||||
|
||||
procedure TFishDataLegacyDB.GetFishList(out fishes: TFishList);
|
||||
begin
|
||||
// SQL here
|
||||
end;
|
||||
|
||||
initialization
|
||||
TJSONSerializer.RegisterCustomJSONSerializerFromText([
|
||||
TypeInfo(TFish), _TFish,
|
||||
TypeInfo(TFishDetailed), _TFishDetailed
|
||||
])
|
||||
end.
|
||||
@@ -0,0 +1,26 @@
|
||||
program TestFishShop;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
uses
|
||||
{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
|
||||
SysUtils,
|
||||
SynCommons, // framework core
|
||||
SynLog, // logging features
|
||||
mORMot, // RESTful server & ORM
|
||||
mORMotSQLite3, // SQLite3 engine as ORM core
|
||||
SynSQLite3Static, // staticaly linked SQLite3 engine
|
||||
mORMotHttpServer, // HTTP server for RESTful server
|
||||
SynTests, // tests features
|
||||
ServFishShopTypes, // definitions shared by Server and Clients
|
||||
ServFishShopMain, // the main implementation unit of our daemon
|
||||
ServFishShopTests; // where the tests are actually implemented
|
||||
|
||||
begin
|
||||
// set logging abilities
|
||||
SQLite3Log.Family.Level := LOG_VERBOSE;
|
||||
//SQLite3Log.Family.EchoToConsole := LOG_VERBOSE;
|
||||
SQLite3Log.Family.PerThreadLog := ptIdentifiedInOnFile;
|
||||
|
||||
end.
|
||||
|
||||
@@ -0,0 +1,291 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<UseAppBundle Value="False"/>
|
||||
<ResourceType Value="res"/>
|
||||
</General>
|
||||
<BuildModes Count="8">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
<Item2 Name="win32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="exe\TestFishShop"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="win32"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
<Item3 Name="win64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="exe\TestFishShop"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="win64"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<Verbosity>
|
||||
<ShowDebugInfo Value="True"/>
|
||||
</Verbosity>
|
||||
<CustomOptions Value="-dONLYUSEHTTPSOCKET"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item3>
|
||||
<Item4 Name="linux32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item4>
|
||||
<Item5 Name="linux64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-Sa"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item5>
|
||||
<Item6 Name="linuxarm">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="arm"/>
|
||||
<TargetOS Value="linux"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item6>
|
||||
<Item7 Name="bsd32">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetProcessor Value="pentiumm"/>
|
||||
<TargetCPU Value="i386"/>
|
||||
<TargetOS Value="freebsd"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item7>
|
||||
<Item8 Name="bsd64">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);..\..\..;..\..\..\SQLite3"/>
|
||||
<Libraries Value="..\..\..\static\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="..\..\..;..\..\..\SQLite3;..\..\..\SQLite3\DDD\infra;..\data;..\serv;..\daemon"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<TargetCPU Value="x86_64"/>
|
||||
<TargetOS Value="netbsd"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
</Linking>
|
||||
<Other>
|
||||
<OtherDefines Count="2">
|
||||
<Define0 Value="LMSBRIDGE"/>
|
||||
<Define1 Value="ONLYUSEHTTPSOCKET"/>
|
||||
</OtherDefines>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item8>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default"/>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<Units Count="1">
|
||||
<Unit0>
|
||||
<Filename Value="TestFishShop.dpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="exe/TestFishShop"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir);../../../lib;../../../lib/SQLite3"/>
|
||||
<Libraries Value="../../../lib/static/$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="../../../lib;../../../lib/SQLite3;../../../lib/SQLite3/DDD/infra;../data;../serv;../daemon"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
Reference in New Issue
Block a user