- New [Project Site](https://www.ethea.it/docs/InstantObjects/)

- New Setup for automatic Installation of Components
- Fixed some Tests for 64Bit platform
- Added support for Delphi 12.2
- Fixed Demos for 64 Bit
- Added possibility to not trim strings (using IO_DISABLE_STRING_TRIM)

Author: carloBarazzetta

Demos/ConsoleApp/IOConsoleDemo.dpr

@@ -71,19 +71,19 @@ begin
 
       for i := 0 to 100 do
       begin
-        WriteLn('Storing Object.');
         SimpleClass := TSimpleClass.Create;
         Try
           SimpleClass.StringProperty := IntToStr(Random(MaxInt));
           SimpleClass.Store;
           Id := SimpleClass.Id;
+        WriteLn(Format('Stoed Object: Id="%s"', [Id]));
         Finally
           SimpleClass.Free;
         End;
 
-        WriteLn('Retrieving and changing Object.');
         SimpleClass := TSimpleClass.Retrieve(Id);
         Try
+        WriteLn(Format('Retrieving and changing Object: Id="%s"', [Id]));
           SimpleClass.StringProperty := IntToStr(Random(MaxInt));
           SimpleClass.Store;
         Finally
@@ -101,6 +101,9 @@ begin
       end;
       WriteLn('Disconnecting from Database.');
       Connector.Disconnect;
+
+      WriteLn('Console Demo ended. Press "Enter" to exit.');
+      readLn;
     Finally
       Connector.Free;
       Connection.Free;

Demos/ConsoleApp/IOConsoleDemo.dproj

@@ -73,6 +73,12 @@
         <Cfg_2>true</Cfg_2>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <DCC_E>false</DCC_E>
         <DCC_F>false</DCC_F>
@@ -92,6 +98,7 @@
         <VerInfo_Keys>CompanyName=CiBiSoft.com;FileDescription=Global Selling Network;FileVersion=1.0.0.0;InternalName=GSN;LegalCopyright=Copyright © 2005 CiBiSoft.com;LegalTrademarks=;OriginalFilename=;ProductName=Global Selling Network;ProductVersion=1.0;Comments=</VerInfo_Keys>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
+        <DCC_Define>IO_CONSOLE;$(DCC_Define)</DCC_Define>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Android)'!=''">
         <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
@@ -167,6 +174,12 @@
     <PropertyGroup Condition="'$(Cfg_2_OSXARM64)'!=''">
         <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <Manifest_File>(None)</Manifest_File>
+        <AppDPIAwarenessMode>none</AppDPIAwarenessMode>
+    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
@@ -192,6 +205,8 @@
                 <Source>
                     <Source Name="MainSource">IOConsoleDemo.dpr</Source>
                 </Source>
+                <Excluded_Packages>
+                </Excluded_Packages>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Android">False</Platform>

Demos/ConsoleApp/Model.pas

@@ -2,8 +2,17 @@
 
 interface
 
+{$IFDEF LINUX64}
+{$I '../InstantDefines.inc'}
+{$ELSE}
+{$I '..\InstantDefines.inc'}
+{$ENDIF}
+
 uses
-  InstantPersistence;
+  System.Classes,
+  InstantPersistence,
+  InstantTypes,
+  InstantClasses;
 
 type
   TSimpleClass = class(TInstantObject)
@@ -13,6 +22,12 @@   TSimpleClass = class(TInstantObject)
   private
     function GetStringProperty: string;
     procedure SetStringProperty(const Value: string);
+  public
+    {$IFDEF WINLINUX64}
+    class function Retrieve(const AObjectId: string; CreateIfMissing: Boolean = False;
+      ARefresh: Boolean = False; AConnector: TComponent = nil;
+      const AObjectData: TInstantAbstractObjectData = nil): TSimpleClass; reintroduce; virtual;
+    {$ENDIF}
   published
     property StringProperty: string read GetStringProperty write SetStringProperty;
   end;
@@ -22,7 +37,7 @@ procedure CreateInstantModel;
 implementation
 
 uses
-  InstantMetadata, InstantTypes;
+  InstantMetadata;
 
 procedure CreateInstantModel;
 var
@@ -66,6 +81,16 @@ procedure CreateInstantModel;
 
 { TSimpleClass }
 
+{$IFDEF WINLINUX64}
+class function TSimpleClass.Retrieve(const AObjectId: string; CreateIfMissing: Boolean = False;
+  ARefresh: Boolean = False; AConnector: TComponent = nil;
+  const AObjectData: TInstantAbstractObjectData = nil): TSimpleClass;
+begin
+  Result := inherited Retrieve(AObjectId,
+    CreateIfMissing, ARefresh, AConnector, AObjectData) as TSimpleClass;
+end;
+{$ENDIF}
+
 function TSimpleClass.GetStringProperty: string;
 begin
   Result := _StringProperty.Value;

Demos/EvolveTest/EvolveTest.cfg

@@ -1,7 +1,7 @@
 program EvolveTest;
 
 uses
-  Forms,
+  Vcl.Forms,
   FMainEvolveTest in 'FMainEvolveTest.pas' {EvolverTestForm},
   Model in 'Model.pas';
 
@@ -10,6 +10,6 @@ uses
 
 begin
   Application.Initialize;
- Application.CreateForm(TEvolverTestForm, EvolverTestForm);
-   Application.Run;
+  Application.CreateForm(TEvolverTestForm, EvolverTestForm);
+  Application.Run;
 end.