diff --git a/wst/trunk/samples/delphi/library_server/lib_server.dof b/wst/trunk/samples/delphi/library_server/lib_server.dof index 36530f0a9..e3977c6fa 100644 --- a/wst/trunk/samples/delphi/library_server/lib_server.dof +++ b/wst/trunk/samples/delphi/library_server/lib_server.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication= +HostApplication=C:\Programmes\D7\etatcivil\partages\wst\samples\delphi\user_client_console\user_client_console.exe Launcher= UseLauncher=0 DebugCWD= @@ -134,14 +134,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBGrLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxInsLnkD7.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxOILnkD7.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxMVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxFCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPScxSSLnkD7.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc. [HistoryLists\hlConditionals] Count=1 Item0=INDY_9 diff --git a/wst/trunk/samples/delphi/user_client_console/user_client_console.cfg b/wst/trunk/samples/delphi/user_client_console/user_client_console.cfg index 55ccab5b7..29094fdfc 100644 --- a/wst/trunk/samples/delphi/user_client_console/user_client_console.cfg +++ b/wst/trunk/samples/delphi/user_client_console/user_client_console.cfg @@ -24,6 +24,7 @@ -$X+ -$YD -$Z1 +-GD -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ @@ -34,10 +35,10 @@ -N"obj" -LE"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files\borland\delphi7\Projects\Bpl" --U"c:\program files\borland\delphi7\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\" --O"c:\program files\borland\delphi7\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\" --I"c:\program files\borland\delphi7\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\" --R"c:\program files\borland\delphi7\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\" +-U"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;c:\program files\borland\delphi7\plate_forme\synapse;..\..\..\..\;c:\program files\borland\delphi7\plate_forme\fastmm\FastMM478" +-O"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;c:\program files\borland\delphi7\plate_forme\synapse;..\..\..\..\;c:\program files\borland\delphi7\plate_forme\fastmm\FastMM478" +-I"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;c:\program files\borland\delphi7\plate_forme\synapse;..\..\..\..\;c:\program files\borland\delphi7\plate_forme\fastmm\FastMM478" +-R"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;c:\program files\borland\delphi7\plate_forme\synapse;..\..\..\..\;c:\program files\borland\delphi7\plate_forme\fastmm\FastMM478" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST diff --git a/wst/trunk/samples/delphi/user_client_console/user_client_console.dof b/wst/trunk/samples/delphi/user_client_console/user_client_console.dof index 4b248098a..18b051710 100644 --- a/wst/trunk/samples/delphi/user_client_console/user_client_console.dof +++ b/wst/trunk/samples/delphi/user_client_console/user_client_console.dof @@ -80,7 +80,7 @@ UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] -MapFile=0 +MapFile=3 OutputObjs=0 ConsoleApp=1 DebugInfo=0 @@ -94,7 +94,7 @@ OutputDir= UnitOutputDir=obj PackageDLLOutputDir= PackageDCPOutputDir= -SearchPath=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\ +SearchPath=$(DELPHI)\Lib\Debug;$(DELPHI)\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;$(DELPHI)\plate_forme\synapse;..\..\..\..\;$(DELPHI)\plate_forme\fastmm\FastMM478 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;FIBDBMidas7;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;dxForumLibD7;cxLibraryVCLD7;cxPageControlVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtItemsD7;dxBarExtDBItemsD7;dxsbD7;dxmdsD7;dxdbtrD7;dxtrmdD7;dxorgcD7;dxdborD7;dxEdtrD7;EQTLD7;ECQDBCD7;EQDBTLD7;EQGridD7;dxGrEdD7;dxExELD7;dxELibD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;dxPSCoreD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSTeeChartD7;dxPSDBTeeChartD7;dxPSdxDBTVLnkD7;dxPSdxOCLnkD7;dxPSdxDBOCLnkD7;dxPScxGridLnkD7;dxPSTLLnkD7;qrpt Conditionals= DebugSourceDirs=C:\Programmes\lazarus\wst\trunk\ @@ -134,25 +134,24 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBGrLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxInsLnkD7.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxOILnkD7.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxMVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxFCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc. -C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPScxSSLnkD7.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc. +[HistoryLists\hlDebugSourcePath] +Count=1 +Item0=C:\Programmes\lazarus\wst\trunk\ [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] -Count=6 -Item0=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\ -Item1=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\ -Item2=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse -Item3=..\..\;..\..\..\ -Item4=..\..\ -Item5=..\ +Count=10 +Item0=$(DELPHI)\Lib\Debug;$(DELPHI)\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;$(DELPHI)\plate_forme\synapse;..\..\..\..\;$(DELPHI)\plate_forme\fastmm\FastMM478 +Item1=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\;$(DELPHI)\plate_forme\fastmm\FastMM478 +Item2=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\fastmm\FastMM478 +Item3=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\fastmm +Item4=$(DELPHI)\Lib\Debug;C:\PROGRA~1\Borland\Delphi7\MyTools\JVCL\3.20\jcl\lib\d7\debug;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\ +Item5=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\..\ +Item6=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse +Item7=..\..\;..\..\..\ +Item8=..\..\ +Item9=..\ [HistoryLists\hlUnitOutputDirectory] Count=1 Item0=obj diff --git a/wst/trunk/samples/delphi/user_client_console/user_client_console.dpr b/wst/trunk/samples/delphi/user_client_console/user_client_console.dpr index 6262f1db4..a6486f5a8 100644 --- a/wst/trunk/samples/delphi/user_client_console/user_client_console.dpr +++ b/wst/trunk/samples/delphi/user_client_console/user_client_console.dpr @@ -3,6 +3,7 @@ program user_client_console; {$APPTYPE CONSOLE} uses + FastMM4, Classes, SysUtils, TypInfo, ActiveX, @@ -12,14 +13,14 @@ uses library_protocol, binary_formatter, base_soap_formatter, soap_formatter, - base_xmlrpc_formatter, xmlrpc_formatter, + base_xmlrpc_formatter, xmlrpc_formatter, library_imp_utils, user_service_intf, wst_delphi_xml in '..\..\..\wst_delphi_xml.pas'; {$INCLUDE wst.inc} var - UserServiceInst : UserService; + UserServiceInst : UserService = nil; procedure ShowUser(AUser : TUser); begin @@ -262,6 +263,9 @@ begin Write('Choose a item : '); end; end; + strBuffer := ''; + UserServiceInst := nil; + LibraryManager := nil; finally CoUninitialize(); end;