diff --git a/Samples/# Default Sample/DefaultSample.dproj b/Samples/# Default Sample/DefaultSample.dproj index 5aec85b..e6f1baa 100644 --- a/Samples/# Default Sample/DefaultSample.dproj +++ b/Samples/# Default Sample/DefaultSample.dproj @@ -5,10 +5,11 @@ FMX True Debug - iOSSimARM64 + Win32 693267 Application DefaultSample.dpr + DefaultSample true @@ -256,6 +257,7 @@ $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png + ..\..\src\;$(DCC_UnitSearchPath) fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;IndyProtocols;dbxcds;FireDACSqliteDriver;DbxClientDriver;soapmidas;dbexpress;inet;FireDACDBXDriver;CustomIPTransport;IndySystem;FireDACCommon;bindcompdbx;rtl;DBXSqliteDriver;DataSnapFireDAC;FireDAC;xmlrtl;dsnap;DataSnapNativeClient;FireDACCommonDriver;IndyIPClient;bindcompfmx;fmxFireDAC;DataSnapCommon;fmxase;dbrtl;DBXInterBaseDriver;bindcomp;IndyCore;RESTBackendComponents;RESTComponents;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;emsclientfiredac;FireDACDSDriver;tethering;CloudService;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage) @@ -289,12 +291,20 @@ CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface Debug true + ..\..\src\;$(DCC_UnitSearchPath) + /usr/X11/bin/xterm -e "%debuggee%" + (None) + none DataSnapServer;fmx;DbxCommonDriver;bindengine;IndyIPCommon;FireDACCommonODBC;emsclient;IndyProtocols;dbxcds;DBXFirebirdDriver;FireDACSqliteDriver;DbxClientDriver;soapmidas;dbexpress;inet;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;IndySystem;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;bindcompdbx;rtl;FireDACMySQLDriver;DBXSqliteDriver;DataSnapFireDAC;inetdbxpress;FireDAC;xmlrtl;dsnap;DBXOracleDriver;DBXInformixDriver;fmxobj;DataSnapNativeClient;FireDACCommonDriver;IndyIPClient;bindcompfmx;inetdb;FireDACASADriver;fmxFireDAC;DBXMySQLDriver;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;bindcomp;IndyCore;RESTBackendComponents;RESTComponents;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;CloudService;DBXSybaseASADriver;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage) CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface Debug true + ..\..\src\;$(DCC_UnitSearchPath) + /usr/X11/bin/xterm -e "%debuggee%" + (None) + none SampleListViewMultiDetailAppearancePackage;vclwinx;DataSnapServer;ACBr_TCP;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;ACBr_OpenSSL;aurelius;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;ACBr_BoletoRL;DBXFirebirdDriver;dacvcl290;FireDACSqliteDriver;DbxClientDriver;soapmidas;frCoreLibrary29;dbexpress;vquery290;inet;ACBr_BoletoFPDF;vcltouch;FireDACDBXDriver;fmxdae;tmsbcl;CustomIPTransport;FireDACMSSQLDriver;C4DWizard;ACBr_NFe;IndySystem;ACBr_Diversos;BossExperts;frxe29;vclFireDAC;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;pkgADRIFoodMarket;bindcompdbx;rtl;FireDACMySQLDriver;ACBr_NFeDanfeFR;frce;remotedb;DBXSqliteDriver;DBXSybaseASEDriver;ACBr_Serial;ACBr_Comum;ACBr_NFeDanfeESCPOS;vclimg;DataSnapFireDAC;unidacfmx290;inetdbxpress;FireDAC;xmlrtl;dsnap;xdata;FireDACDb2Driver;DBXOracleDriver;DBXInformixDriver;fmxobj;bindcompvclsmp;DataSnapNativeClient;frx29;DatasnapConnectorsFreePascal;FMXTMSFNCUIPackPkgDXE15;ACBr_OpenDelivery;ACBr_NFeDanfeFPDF;TMSLogging;FMXTMSFNCCorePkgDXE15;emshosting;sparkle;frxDB29;frLocalizationLibrary29;FireDACCommonDriver;sphinx;IndyIPClient;bindcompvclwinx;emsedge;bindcompfmx;crcontrols290;inetdb;FireDACASADriver;vclactnband;fmxFireDAC;FireDACInfxDriver;DBXMySQLDriver;VclSmp;DataSnapCommon;PkgBrasil4D;fmxase;DBXOdbcDriver;dbrtl;FireDACOracleDriver;Skia.Package.FMX;FireDACMSAccDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;Skia.Package.VCL;VCLTMSFNCUIPackPkgDXE15;vcldb;ACBr_Integrador;ACBr_PIXCD;ACBr_BoletoFR;unidacvcl290;bindcomp;dacfmx290;MobileExperts;IndyCore;RESTBackendComponents;FireDACADSDriver;MobilePermissions;RESTComponents;IndyIPServer;vcl;dsnapxml;adortl;dsnapcon;DataSnapClient;DataSnapProviderClient;dac290;DBXDb2Driver;ACBr_Boleto;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;bindcompvcl;CloudService;DBXSybaseASADriver;ACBr_NFeDanfeRL;VCLTMSFNCCorePkgDXE15;soaprtl;unidac290;soapserver;FireDACIBDriver;$(DCC_UsePackage) @@ -307,6 +317,7 @@ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png none + ..\..\src\;$(DCC_UnitSearchPath) vclwinx;DataSnapServer;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;DBXFirebirdDriver;FireDACSqliteDriver;DbxClientDriver;soapmidas;frCoreLibrary29;dbexpress;inet;vcltouch;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;IndySystem;frxe29;vclFireDAC;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;bindcompdbx;rtl;FireDACMySQLDriver;DBXSqliteDriver;DBXSybaseASEDriver;vclimg;DataSnapFireDAC;inetdbxpress;FireDAC;xmlrtl;dsnap;FireDACDb2Driver;DBXOracleDriver;DBXInformixDriver;fmxobj;bindcompvclsmp;DataSnapNativeClient;frx29;DatasnapConnectorsFreePascal;FMXTMSFNCUIPackPkgDXE15;FMXTMSFNCCorePkgDXE15;emshosting;frxDB29;frLocalizationLibrary29;FireDACCommonDriver;IndyIPClient;bindcompvclwinx;emsedge;bindcompfmx;inetdb;FireDACASADriver;vclactnband;fmxFireDAC;FireDACInfxDriver;DBXMySQLDriver;VclSmp;DataSnapCommon;fmxase;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACMSAccDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;Skia.Package.VCL;VCLTMSFNCUIPackPkgDXE15;vcldb;bindcomp;IndyCore;RESTBackendComponents;FireDACADSDriver;RESTComponents;IndyIPServer;vcl;dsnapxml;adortl;dsnapcon;DataSnapClient;DataSnapProviderClient;DBXDb2Driver;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;bindcompvcl;CloudService;DBXSybaseASADriver;VCLTMSFNCCorePkgDXE15;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage) @@ -318,6 +329,8 @@ $(BDS)\bin\default_app.manifest $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + ..\..\src\;$(DCC_UnitSearchPath) + none DEBUG;$(DCC_Define) diff --git a/Samples/# Default Sample/DefaultSample.res b/Samples/# Default Sample/DefaultSample.res index 36f26e2..26fb920 100644 Binary files a/Samples/# Default Sample/DefaultSample.res and b/Samples/# Default Sample/DefaultSample.res differ diff --git a/src/MultiLog4D.Android.pas b/src/MultiLog4D.Android.pas index 432425a..507340c 100644 --- a/src/MultiLog4D.Android.pas +++ b/src/MultiLog4D.Android.pas @@ -7,10 +7,13 @@ interface Multilog4D.Base, Multilog4D.Types, - Multilog4D.Interfaces, - Androidapi.Helpers, - Androidapi.JNI.JavaTypes, - Androidapi.JNI.Util; + Multilog4D.Interfaces + {$IFDEF ANDROID} + ,Androidapi.Helpers + ,Androidapi.JNI.JavaTypes + ,Androidapi.JNI.Util + {$ENDIF} + ; type TMultiLog4DAndroid = class(TMultiLog4DBase) diff --git a/src/MultiLog4D.Base.pas b/src/MultiLog4D.Base.pas index e776a75..8137f08 100644 --- a/src/MultiLog4D.Base.pas +++ b/src/MultiLog4D.Base.pas @@ -18,7 +18,6 @@ TMultiLog4DBase = class(TInterfacedObject, IMultiLog4D) private protected - class var FCont : Integer; class var FTag: string; class var FTagSet: Boolean; function GetDefaultTag: string; @@ -44,7 +43,6 @@ function TMultiLog4DBase.GetDefaultTag: string; function TMultiLog4DBase.Tag(const ATag: string): IMultiLog4D; begin - FCont := 0; if (ATag <> EmptyStr) and not FTagSet then begin FTag := ATag; diff --git a/src/MultiLog4D.Factory.pas b/src/MultiLog4D.Factory.pas index d4c4bb2..915c050 100644 --- a/src/MultiLog4D.Factory.pas +++ b/src/MultiLog4D.Factory.pas @@ -23,6 +23,7 @@ implementation {$IFDEF IOS} MultiLog4D.IOS; {$ENDIF} + System.Classes; class constructor TLogFactory.Create; begin diff --git a/src/MultiLog4D.iOS.pas b/src/MultiLog4D.iOS.pas index ae12062..3412d42 100644 --- a/src/MultiLog4D.iOS.pas +++ b/src/MultiLog4D.iOS.pas @@ -31,8 +31,6 @@ implementation function TMultiLog4DiOS.LogWrite(const AMsg: string; const ALogType: TLogType): IMultiLog4D; begin - NSLog(StringToID(FTag + GetLogPrefix(ltWarning) + AMsg + ' - ' + IntToStr(FCont))); - exit; case ALogType of ltWarning: LogWriteWarning(AMsg); ltError: LogWriteError(AMsg); @@ -44,7 +42,6 @@ function TMultiLog4DiOS.LogWrite(const AMsg: string; const ALogType: TLogType): function TMultiLog4DiOS.LogWriteInformation(const AMsg: string): IMultiLog4D; begin - exit; {$IFDEF IOS} NSLog(StringToID(FTag + GetLogPrefix(ltInformation) + AMsg)); {$ENDIF} @@ -53,7 +50,6 @@ function TMultiLog4DiOS.LogWriteInformation(const AMsg: string): IMultiLog4D; function TMultiLog4DiOS.LogWriteWarning(const AMsg: string): IMultiLog4D; begin - exit; {$IFDEF IOS} NSLog(StringToID(FTag + GetLogPrefix(ltWarning) + AMsg)); {$ENDIF} @@ -63,7 +59,6 @@ function TMultiLog4DiOS.LogWriteWarning(const AMsg: string): IMultiLog4D; function TMultiLog4DiOS.LogWriteError(const AMsg: string): IMultiLog4D; begin - exit; {$IFDEF IOS} NSLog(StringToID(FTag + GetLogPrefix(ltError) + AMsg)); {$ENDIF} @@ -73,7 +68,6 @@ function TMultiLog4DiOS.LogWriteError(const AMsg: string): IMultiLog4D; function TMultiLog4DiOS.LogWriteFatalError(const AMsg: string): IMultiLog4D; begin - exit; {$IFDEF IOS} NSLog(StringToID(FTag + GetLogPrefix(ltFatalError) + AMsg)); {$ENDIF}