From d19bcad4b4eba6e4291d96649e54791dc528abfa Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Wed, 28 May 2014 11:40:17 +0000 Subject: [PATCH] Added: packages Fixed: uninitialized pipe variable in Observer.NamedPipe --- Packages/X2LogDXE2.dpk | 50 ++++++++++ Packages/X2LogDXE2.dproj | 153 ++++++++++++++++++++++++++++++ Packages/X2LogDXE2.res | Bin 0 -> 448 bytes Packages/X2LogDXE2Group.groupproj | 60 ++++++++++++ Packages/X2LogFormsDXE2.dpk | 41 ++++++++ Packages/X2LogFormsDXE2.dproj | 147 ++++++++++++++++++++++++++++ Packages/X2LogFormsDXE2.res | Bin 0 -> 448 bytes Packages/X2LogMadExceptDXE2.dpk | 42 ++++++++ Packages/X2LogMadExceptDXE2.dproj | 146 ++++++++++++++++++++++++++++ Packages/X2LogMadExceptDXE2.res | Bin 0 -> 448 bytes X2Log.Observer.MonitorForm.dfm | 4 +- X2Log.Observer.NamedPipe.pas | 2 + 12 files changed, 643 insertions(+), 2 deletions(-) create mode 100644 Packages/X2LogDXE2.dpk create mode 100644 Packages/X2LogDXE2.dproj create mode 100644 Packages/X2LogDXE2.res create mode 100644 Packages/X2LogDXE2Group.groupproj create mode 100644 Packages/X2LogFormsDXE2.dpk create mode 100644 Packages/X2LogFormsDXE2.dproj create mode 100644 Packages/X2LogFormsDXE2.res create mode 100644 Packages/X2LogMadExceptDXE2.dpk create mode 100644 Packages/X2LogMadExceptDXE2.dproj create mode 100644 Packages/X2LogMadExceptDXE2.res diff --git a/Packages/X2LogDXE2.dpk b/Packages/X2LogDXE2.dpk new file mode 100644 index 0000000..eccac56 --- /dev/null +++ b/Packages/X2LogDXE2.dpk @@ -0,0 +1,50 @@ +package X2LogDXE2; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'X²Log'} +{$RUNONLY} +{$IMPLICITBUILD ON} + +requires + rtl; + +contains + X2Log.Client.Base in '..\X2Log.Client.Base.pas', + X2Log.Client.NamedPipe in '..\X2Log.Client.NamedPipe.pas', + X2Log.Constants in '..\X2Log.Constants.pas', + X2Log.Exception.Default in '..\X2Log.Exception.Default.pas', + X2Log.Global in '..\X2Log.Global.pas', + X2Log.Intf in '..\X2Log.Intf.pas', + X2Log.Observer.Custom in '..\X2Log.Observer.Custom.pas', + X2Log.Observer.CustomThreaded in '..\X2Log.Observer.CustomThreaded.pas', + X2Log.Observer.Event in '..\X2Log.Observer.Event.pas', + X2Log.Observer.LogFile in '..\X2Log.Observer.LogFile.pas', + X2Log.Observer.NamedPipe in '..\X2Log.Observer.NamedPipe.pas', + X2Log in '..\X2Log.pas'; + +end. + diff --git a/Packages/X2LogDXE2.dproj b/Packages/X2LogDXE2.dproj new file mode 100644 index 0000000..aaa55d4 --- /dev/null +++ b/Packages/X2LogDXE2.dproj @@ -0,0 +1,153 @@ + + + {AF9DEBC5-230F-475E-9A0C-87A16F7A76A5} + X2LogDXE2.dpk + 13.4 + VCL + True + Debug + Win32 + 1 + Package + + + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + false + All + true + X²Log + $(DELPHIBIN) + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + $(DELPHIBIN) + 1043 + true + true + $(DELPHILIB) + .\$(Platform)\$(Config) + + + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + + + DEBUG;$(DCC_Define) + false + true + true + true + + + true + 1033 + false + + + false + RELEASE;$(DCC_Define) + 0 + false + + + + MainSource + + + + + + + + + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1043 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + X2LogDXE2.dpk + + + + + False + False + True + + + 12 + + + + diff --git a/Packages/X2LogDXE2.res b/Packages/X2LogDXE2.res new file mode 100644 index 0000000000000000000000000000000000000000..a64cea33b7bbf9c30d10d7750693ab849f870abc GIT binary patch literal 448 zcmZ9IO-chn5QV>ySr}Iy!G&uXVK#zb0{#&2k7USJhD0SG8Ax>JVZ4a9aqkTrzwWV# zNkPq2cfI%ObpafhZQG^gM)b4P-xuS-DCp%0)Xz%G31c4oUNEv6a>uRbq2EjE5TE(? z4+MUvk^X0~3qde-{;v3lcVk{zGH1cFYI9zARC&P@js5qCDJXSyVwQRcjtX|wOZbVL zB`evD%n-*MiAjl^fWH^jFyoD>Q@2^$oO5+DQMIfzY3&RS + + {16A1D415-5191-4718-97C3-669CCA175F4F} + + + + + + + + + + + + + + Default.Personality.12 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Packages/X2LogFormsDXE2.dpk b/Packages/X2LogFormsDXE2.dpk new file mode 100644 index 0000000..b992cc9 --- /dev/null +++ b/Packages/X2LogFormsDXE2.dpk @@ -0,0 +1,41 @@ +package X2LogFormsDXE2; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'X²Log - Forms'} +{$RUNONLY} +{$IMPLICITBUILD ON} + +requires + rtl, + X2LogDXE2, + vcl, + VirtualTreesR; + +contains + X2Log.Observer.MonitorForm in '..\X2Log.Observer.MonitorForm.pas' {X2LogObserverMonitorForm}; + +end. diff --git a/Packages/X2LogFormsDXE2.dproj b/Packages/X2LogFormsDXE2.dproj new file mode 100644 index 0000000..2d00ebf --- /dev/null +++ b/Packages/X2LogFormsDXE2.dproj @@ -0,0 +1,147 @@ + + + {E09901D8-F644-4C49-AF42-2C5A4EE2118A} + X2LogFormsDXE2.dpk + 13.4 + VCL + True + Debug + Win32 + 1 + Package + + + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + false + All + true + $(DELPHIBIN) + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + X²Log - Forms + $(DELPHIBIN) + 1043 + true + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + true + $(DELPHILIB) + .\$(Platform)\$(Config) + + + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + + + DEBUG;$(DCC_Define) + false + true + true + true + + + true + 1033 + false + + + false + RELEASE;$(DCC_Define) + 0 + false + + + + MainSource + + + + + + +
X2LogObserverMonitorForm
+ + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1043 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + X2LogFormsDXE2.dpk + + + + + False + False + True + + + 12 + + + + diff --git a/Packages/X2LogFormsDXE2.res b/Packages/X2LogFormsDXE2.res new file mode 100644 index 0000000000000000000000000000000000000000..a64cea33b7bbf9c30d10d7750693ab849f870abc GIT binary patch literal 448 zcmZ9IO-chn5QV>ySr}Iy!G&uXVK#zb0{#&2k7USJhD0SG8Ax>JVZ4a9aqkTrzwWV# zNkPq2cfI%ObpafhZQG^gM)b4P-xuS-DCp%0)Xz%G31c4oUNEv6a>uRbq2EjE5TE(? z4+MUvk^X0~3qde-{;v3lcVk{zGH1cFYI9zARC&P@js5qCDJXSyVwQRcjtX|wOZbVL zB`evD%n-*MiAjl^fWH^jFyoD>Q@2^$oO5+DQMIfzY3&RS + + {DF06C136-DD6E-4481-967D-BF73C5B75BDA} + X2LogMadExceptDXE2.dpk + 13.4 + None + True + Debug + Win32 + 1 + Package + + + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + false + All + true + $(DELPHIBIN) + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + X²Log - madExcept + $(DELPHIBIN) + 1043 + true + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + true + $(DELPHILIB) + .\$(Platform)\$(Config) + + + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + + + DEBUG;$(DCC_Define) + false + true + true + true + + + true + 1033 + false + + + false + RELEASE;$(DCC_Define) + 0 + false + + + + MainSource + + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + X2LogMadExceptDXE2.dpk + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1043 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + False + False + True + + + 12 + + + + diff --git a/Packages/X2LogMadExceptDXE2.res b/Packages/X2LogMadExceptDXE2.res new file mode 100644 index 0000000000000000000000000000000000000000..a64cea33b7bbf9c30d10d7750693ab849f870abc GIT binary patch literal 448 zcmZ9IO-chn5QV>ySr}Iy!G&uXVK#zb0{#&2k7USJhD0SG8Ax>JVZ4a9aqkTrzwWV# zNkPq2cfI%ObpafhZQG^gM)b4P-xuS-DCp%0)Xz%G31c4oUNEv6a>uRbq2EjE5TE(? z4+MUvk^X0~3qde-{;v3lcVk{zGH1cFYI9zARC&P@js5qCDJXSyVwQRcjtX|wOZbVL zB`evD%n-*MiAjl^fWH^jFyoD>Q@2^$oO5+DQMIfzY3&RS end @@ -194,7 +194,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm Left = 584 Top = 48 Bitmap = { - 494C010109004000800010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 494C010109004000840010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000003000000001002000000000000030 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 diff --git a/X2Log.Observer.NamedPipe.pas b/X2Log.Observer.NamedPipe.pas index 2401b42..667a51d 100644 --- a/X2Log.Observer.NamedPipe.pas +++ b/X2Log.Observer.NamedPipe.pas @@ -401,6 +401,8 @@ begin security.nLength := SizeOf(security); security.bInheritHandle := False; + pipe := INVALID_HANDLE_VALUE; + { Thanks to: http://www.osronline.com/showthread.cfm?link=204207 and: http://www.netid.washington.edu/documentation/domains/sddl.aspx