pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpc compatibility fix

Browse Source 
doc update

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-08-12 15:18:57 +00:00
parent 84af5e672b
commit ab89744bda
27 changed files with 425 additions and 519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/config_objects.pas
View File

@ -92,6 +92,11 @@ function GetAppConfigDir(const AGlobal : Boolean) : string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
function GetAppConfigFile(const AGlobal : Boolean) : string;
begin
Result := ChangeFileExt(ParamStr(0),'.xml');
end;
{$ENDIF}
function wst_GetConfigFileName():string;

BIN
wst/trunk/doc/WebServiceToolKit.odt
View File

Binary file not shown.

5
wst/trunk/indy_tcp_server.pas
View File

@ -31,6 +31,9 @@ uses
{$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc}
const
sSERVER_PORT = 1234;
type
{$IFDEF INDY_9}
@ -55,7 +58,7 @@ type
public
constructor Create(
const AServerIpAddress : string = '127.0.0.1';
const AListningPort : Integer = 1234;
const AListningPort : Integer = sSERVER_PORT;
const ADefaultClientPort : Integer = 25000
);
destructor Destroy(); override;

4
wst/trunk/samples/amazon/amazon_sample.lpi
View File

@ -35,7 +35,7 @@
<Filename Value="amazon_sample.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="amazon_sample"/>
<CursorPos X="19" Y="12"/>
<CursorPos X="44" Y="12"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="24"/>
@ -88,7 +88,7 @@
<Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/>
<CursorPos X="1" Y="140"/>
<TopLine Value="116"/>
<TopLine Value="114"/>
<EditorIndex Value="1"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>

1
wst/trunk/samples/delphi/tcp_server/tcp_server.cfg
View File

@ -38,6 +38,7 @@
-O"..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter"
-I"..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter"
-R"..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter"
-DINDY_9
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

5
wst/trunk/samples/delphi/tcp_server/tcp_server.dof
View File

@ -96,7 +96,7 @@ PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter
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=
Conditionals=INDY_9
DebugSourceDirs=
UsePackages=0
[Parameters]
@ -142,6 +142,9 @@ C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSd
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
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

18
wst/trunk/samples/delphi/tcp_server/tcp_server.dpr
View File

@ -12,22 +12,22 @@ uses
metadata_service,
metadata_service_imp,
metadata_service_binder,
synapse_tcp_server,
//synapse_tcp_server,
indy_tcp_server,
user_service_intf,
user_service_intf_binder,
user_service_intf_imp,
imp_helper,
server_service_xmlrpc;
server_service_xmlrpc,
server_listener;
{$INCLUDE wst.inc}
var
listnerThread : TServerListnerThread;
listener : TwstListener;
begin
CoInitialize(nil);
try
SetLogger(TConsoleLogger.Create());
Server_service_RegisterBinaryFormat();
Server_service_RegisterSoapFormat();
Server_service_RegisterXmlRpcFormat();
@ -39,9 +39,11 @@ begin
RegisterUserServiceImplementationFactory();
Server_service_RegisterUserServiceService();
Logger().Log('WST sample TCP Server listning on "%s"',[sSERVER_PORT]);
Logger().Log('Hit <enter> to stop.');
listnerThread := TServerListnerThread.Create();
WriteLn(Format('WST sample TCP Server listning on "%d"',[sSERVER_PORT]));
WriteLn('Hit <enter> to stop.');
//listener := TwstSynapseTcpListener.Create();
listener := TwstIndyTcpListener.Create();
listener.Start();
ReadLn;
finally
CoUninitialize();

233
wst/trunk/samples/tcp_server/tcp_server.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
@ -10,15 +10,16 @@
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/>
<ActiveEditorIndexAtStart Value="10"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -26,7 +27,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<Units Count="60">
@ -34,8 +35,8 @@
<Filename Value="tcp_server.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="tcp_server"/>
<CursorPos X="61" Y="32"/>
<TopLine Value="10"/>
<CursorPos X="22" Y="37"/>
<TopLine Value="27"/>
<EditorIndex Value="0"/>
<UsageCount Value="89"/>
<Loaded Value="True"/>
@ -48,33 +49,33 @@
<UsageCount Value="64"/>
</Unit1>
<Unit2>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/classesh.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\classesh.inc"/>
<CursorPos X="26" Y="686"/>
<TopLine Value="672"/>
<UsageCount Value="8"/>
</Unit2>
<Unit3>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/sysosh.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\sysosh.inc"/>
<CursorPos X="3" Y="25"/>
<TopLine Value="4"/>
<UsageCount Value="5"/>
</Unit3>
<Unit4>
<Filename Value="../../../../../lazarus23_213/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/>
<TopLine Value="2395"/>
<UsageCount Value="8"/>
</Unit4>
<Unit5>
<Filename Value="../../binary_streamer.pas"/>
<Filename Value="..\..\binary_streamer.pas"/>
<UnitName Value="binary_streamer"/>
<CursorPos X="37" Y="13"/>
<TopLine Value="178"/>
<UsageCount Value="7"/>
</Unit5>
<Unit6>
<Filename Value="../../server_service_soap.pas"/>
<Filename Value="..\..\server_service_soap.pas"/>
<UnitName Value="server_service_soap"/>
<CursorPos X="33" Y="21"/>
<TopLine Value="1"/>
@ -83,35 +84,35 @@
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../server_binary_formatter.pas"/>
<Filename Value="..\..\server_binary_formatter.pas"/>
<UnitName Value="server_binary_formatter"/>
<CursorPos X="24" Y="22"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
</Unit7>
<Unit8>
<Filename Value="../../metadata_service.pas"/>
<Filename Value="..\..\metadata_service.pas"/>
<UnitName Value="metadata_service"/>
<CursorPos X="11" Y="121"/>
<TopLine Value="99"/>
<UsageCount Value="12"/>
</Unit8>
<Unit9>
<Filename Value="../../metadata_service_imp.pas"/>
<Filename Value="..\..\metadata_service_imp.pas"/>
<UnitName Value="metadata_service_imp"/>
<CursorPos X="58" Y="121"/>
<TopLine Value="1"/>
<UsageCount Value="14"/>
</Unit9>
<Unit10>
<Filename Value="../../metadata_service_binder.pas"/>
<Filename Value="..\..\metadata_service_binder.pas"/>
<UnitName Value="metadata_service_binder"/>
<CursorPos X="47" Y="16"/>
<TopLine Value="1"/>
<UsageCount Value="12"/>
</Unit10>
<Unit11>
<Filename Value="../user_service_intf.pas"/>
<Filename Value="..\user_service_intf.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="user_service_intf"/>
<CursorPos X="3" Y="27"/>
@ -119,7 +120,7 @@
<UsageCount Value="89"/>
</Unit11>
<Unit12>
<Filename Value="../../base_service_intf.pas"/>
<Filename Value="..\..\base_service_intf.pas"/>
<UnitName Value="base_service_intf"/>
<CursorPos X="13" Y="1199"/>
<TopLine Value="1"/>
@ -131,85 +132,85 @@
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="../../wst_rtti_filter/std_cursors.pas"/>
<Filename Value="..\..\wst_rtti_filter\std_cursors.pas"/>
<UnitName Value="std_cursors"/>
<CursorPos X="14" Y="21"/>
<TopLine Value="7"/>
<UsageCount Value="36"/>
</Unit13>
<Unit14>
<Filename Value="../../wst_rtti_filter/cursor_intf.pas"/>
<Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/>
<UnitName Value="cursor_intf"/>
<CursorPos X="3" Y="27"/>
<TopLine Value="15"/>
<UsageCount Value="23"/>
</Unit14>
<Unit15>
<Filename Value="../user_service_intf_binder.pas"/>
<Filename Value="..\user_service_intf_binder.pas"/>
<UnitName Value="user_service_intf_binder"/>
<CursorPos X="48" Y="34"/>
<TopLine Value="11"/>
<UsageCount Value="39"/>
</Unit15>
<Unit16>
<Filename Value="../user_service_intf.wst"/>
<Filename Value="..\user_service_intf.wst"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="7"/>
<SyntaxHighlighter Value="None"/>
</Unit16>
<Unit17>
<Filename Value="../../metadata_repository.pas"/>
<Filename Value="..\..\metadata_repository.pas"/>
<UnitName Value="metadata_repository"/>
<CursorPos X="37" Y="571"/>
<TopLine Value="562"/>
<UsageCount Value="7"/>
</Unit17>
<Unit18>
<Filename Value="../../wst_resources_imp.pas"/>
<Filename Value="..\..\wst_resources_imp.pas"/>
<UnitName Value="wst_resources_imp"/>
<CursorPos X="15" Y="63"/>
<TopLine Value="45"/>
<UsageCount Value="7"/>
</Unit18>
<Unit19>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/except.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\except.inc"/>
<CursorPos X="3" Y="95"/>
<TopLine Value="73"/>
<UsageCount Value="5"/>
</Unit19>
<Unit20>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/i386/setjump.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\setjump.inc"/>
<CursorPos X="1" Y="36"/>
<TopLine Value="16"/>
<UsageCount Value="5"/>
</Unit20>
<Unit21>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/objpas.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\objpas.inc"/>
<CursorPos X="1" Y="76"/>
<TopLine Value="64"/>
<UsageCount Value="5"/>
</Unit21>
<Unit22>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/collect.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\collect.inc"/>
<CursorPos X="1" Y="264"/>
<TopLine Value="252"/>
<UsageCount Value="5"/>
</Unit22>
<Unit23>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/lists.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\lists.inc"/>
<CursorPos X="1" Y="381"/>
<TopLine Value="369"/>
<UsageCount Value="5"/>
</Unit23>
<Unit24>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/system.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\system.inc"/>
<CursorPos X="1" Y="674"/>
<TopLine Value="662"/>
<UsageCount Value="5"/>
</Unit24>
<Unit25>
<Filename Value="../../server_service_intf.pas"/>
<Filename Value="..\..\server_service_intf.pas"/>
<UnitName Value="server_service_intf"/>
<CursorPos X="5" Y="18"/>
<TopLine Value="72"/>
@ -218,13 +219,13 @@
<Loaded Value="True"/>
</Unit25>
<Unit26>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/i386/i386.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\i386.inc"/>
<CursorPos X="1" Y="1125"/>
<TopLine Value="1113"/>
<UsageCount Value="5"/>
</Unit26>
<Unit27>
<Filename Value="../user_service_intf_imp.pas"/>
<Filename Value="..\user_service_intf_imp.pas"/>
<UnitName Value="user_service_intf_imp"/>
<CursorPos X="60" Y="51"/>
<TopLine Value="28"/>
@ -233,14 +234,14 @@
<Loaded Value="True"/>
</Unit27>
<Unit28>
<Filename Value="../../service_intf.pas"/>
<Filename Value="..\..\service_intf.pas"/>
<UnitName Value="service_intf"/>
<CursorPos X="15" Y="23"/>
<TopLine Value="19"/>
<UsageCount Value="6"/>
</Unit28>
<Unit29>
<Filename Value="../../base_soap_formatter.pas"/>
<Filename Value="..\..\base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/>
<CursorPos X="24" Y="967"/>
<TopLine Value="325"/>
@ -249,14 +250,14 @@
<Loaded Value="True"/>
</Unit29>
<Unit30>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/typinfo.pp"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="11" Y="247"/>
<TopLine Value="226"/>
<UsageCount Value="7"/>
</Unit30>
<Unit31>
<Filename Value="../../base_binary_formatter.pas"/>
<Filename Value="..\..\base_binary_formatter.pas"/>
<UnitName Value="base_binary_formatter"/>
<CursorPos X="3" Y="1063"/>
<TopLine Value="1055"/>
@ -271,26 +272,26 @@
<UsageCount Value="58"/>
</Unit32>
<Unit33>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/persist.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\persist.inc"/>
<CursorPos X="3" Y="36"/>
<TopLine Value="32"/>
<UsageCount Value="8"/>
</Unit33>
<Unit34>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/streams.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\streams.inc"/>
<CursorPos X="43" Y="511"/>
<TopLine Value="506"/>
<UsageCount Value="8"/>
</Unit34>
<Unit35>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/sysutils.pp"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\sysutils.pp"/>
<UnitName Value="sysutils"/>
<CursorPos X="1" Y="326"/>
<TopLine Value="314"/>
<UsageCount Value="8"/>
</Unit35>
<Unit36>
<Filename Value="../../synapse_tcp_server.pas"/>
<Filename Value="..\..\synapse_tcp_server.pas"/>
<UnitName Value="synapse_tcp_server"/>
<CursorPos X="35" Y="92"/>
<TopLine Value="74"/>
@ -299,39 +300,39 @@
<Loaded Value="True"/>
</Unit36>
<Unit37>
<Filename Value="../../semaphore.pas"/>
<Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/>
<CursorPos X="1" Y="140"/>
<TopLine Value="30"/>
<UsageCount Value="10"/>
</Unit37>
<Unit38>
<Filename Value="../../wst.inc"/>
<Filename Value="..\..\wst.inc"/>
<CursorPos X="4" Y="6"/>
<TopLine Value="1"/>
<UsageCount Value="18"/>
</Unit38>
<Unit39>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/i386/i386.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\i386\i386.inc"/>
<CursorPos X="1" Y="1246"/>
<TopLine Value="1234"/>
<UsageCount Value="9"/>
</Unit39>
<Unit40>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/sysutils/sysutils.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\sysutils\sysutils.inc"/>
<CursorPos X="1" Y="347"/>
<TopLine Value="334"/>
<UsageCount Value="9"/>
</Unit40>
<Unit41>
<Filename Value="../../../../../../lazarus_23_215/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/>
<TopLine Value="2393"/>
<UsageCount Value="13"/>
</Unit41>
<Unit42>
<Filename Value="../../server_service_xmlrpc.pas"/>
<Filename Value="..\..\server_service_xmlrpc.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="server_service_xmlrpc"/>
<CursorPos X="26" Y="57"/>
@ -341,104 +342,104 @@
<Loaded Value="True"/>
</Unit42>
<Unit43>
<Filename Value="../../base_xmlrpc_formatter.pas"/>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="16"/>
</Unit43>
<Unit44>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/sysutils/sysstrh.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="10" Y="111"/>
<TopLine Value="97"/>
<UsageCount Value="9"/>
</Unit44>
<Unit45>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/sysutils/sysstr.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\sysutils\sysstr.inc"/>
<CursorPos X="3" Y="759"/>
<TopLine Value="756"/>
<UsageCount Value="9"/>
</Unit45>
<Unit46>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/typinfo.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="1" Y="483"/>
<TopLine Value="469"/>
<UsageCount Value="10"/>
</Unit46>
<Unit47>
<Filename Value="../../server_listener.pas"/>
<Filename Value="..\..\server_listener.pas"/>
<UnitName Value="server_listener"/>
<CursorPos X="3" Y="33"/>
<TopLine Value="28"/>
<CursorPos X="21" Y="15"/>
<TopLine Value="6"/>
<EditorIndex Value="10"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit47>
<Unit48>
<Filename Value="../../../../../../lazarus_23_215XX/fpc/source/rtl/inc/objpash.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/>
<CursorPos X="23" Y="147"/>
<TopLine Value="133"/>
<UsageCount Value="10"/>
</Unit48>
<Unit49>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="7" Y="1397"/>
<TopLine Value="1375"/>
<UsageCount Value="10"/>
</Unit49>
<Unit50>
<Filename Value="../../../../../../lazarus_23_215XX/fpc/source/packages/base/winunits/comobj.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\base\winunits\comobj.pp"/>
<UnitName Value="comobj"/>
<CursorPos X="14" Y="97"/>
<TopLine Value="114"/>
<UsageCount Value="10"/>
</Unit50>
<Unit51>
<Filename Value="../../../../lazarus/lazarus/others_package/synapse/synaip.pas"/>
<Filename Value="..\..\..\..\lazarus\lazarus\others_package\synapse\synaip.pas"/>
<UnitName Value="synaip"/>
<CursorPos X="18" Y="59"/>
<TopLine Value="47"/>
<UsageCount Value="10"/>
</Unit51>
<Unit52>
<Filename Value="../../../../lazarus/lazarus/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\lazarus\lazarus\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit52>
<Unit53>
<Filename Value="../../../../lazarus/lazarus/others_package/synapse/ssfpc.pas"/>
<Filename Value="..\..\..\..\lazarus\lazarus\others_package\synapse\ssfpc.pas"/>
<UnitName Value="ssfpc"/>
<CursorPos X="13" Y="554"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit53>
<Unit54>
<Filename Value="../../../../lazarus/lazarus/others_package/synapse/synautil.pas"/>
<Filename Value="..\..\..\..\lazarus\lazarus\others_package\synapse\synautil.pas"/>
<UnitName Value="synautil"/>
<CursorPos X="44" Y="34"/>
<TopLine Value="26"/>
<UsageCount Value="10"/>
</Unit54>
<Unit55>
<Filename Value="../../../../lazarus/lazarus/others_package/synapse/synafpc.pas"/>
<Filename Value="..\..\..\..\lazarus\lazarus\others_package\synapse\synafpc.pas"/>
<UnitName Value="synafpc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="76"/>
<UsageCount Value="10"/>
</Unit55>
<Unit56>
<Filename Value="../../wst_fpc_xml.pas"/>
<Filename Value="..\..\wst_fpc_xml.pas"/>
<UnitName Value="wst_fpc_xml"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit56>
<Unit57>
<Filename Value="../../imp_utils.pas"/>
<Filename Value="..\..\imp_utils.pas"/>
<UnitName Value="imp_utils"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="10"/>
@ -447,110 +448,34 @@
<Loaded Value="True"/>
</Unit57>
<Unit58>
<Filename Value="../../wst_delphi.inc"/>
<Filename Value="..\..\wst_delphi.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit58>
<Unit59>
<Filename Value="../../config_objects.pas"/>
<Filename Value="..\..\config_objects.pas"/>
<UnitName Value="config_objects"/>
<CursorPos X="62" Y="99"/>
<TopLine Value="86"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit59>
</Units>
<JumpHistory Count="19" HistoryIndex="18">
<Position1>
<Filename Value="tcp_server.pas"/>
<Caret Line="33" Column="22" TopLine="8"/>
</Position1>
<Position2>
<Filename Value="../../server_service_xmlrpc.pas"/>
<Caret Line="57" Column="26" TopLine="21"/>
</Position2>
<Position3>
<Filename Value="../../base_service_intf.pas"/>
<Caret Line="307" Column="15" TopLine="173"/>
</Position3>
<Position4>
<Filename Value="../../base_service_intf.pas"/>
<Caret Line="158" Column="52" TopLine="137"/>
</Position4>
<Position5>
<Filename Value="../../base_service_intf.pas"/>
<Caret Line="572" Column="17" TopLine="546"/>
</Position5>
<Position6>
<Filename Value="../../base_service_intf.pas"/>
<Caret Line="970" Column="13" TopLine="945"/>
</Position6>
<Position7>
<Filename Value="../../base_service_intf.pas"/>
<Caret Line="1199" Column="13" TopLine="1175"/>
</Position7>
<Position8>
<Filename Value="tcp_server.pas"/>
<Caret Line="41" Column="10" TopLine="26"/>
</Position8>
<Position9>
<Filename Value="tcp_server.pas"/>
<Caret Line="50" Column="5" TopLine="31"/>
</Position9>
<Position10>
<Filename Value="tcp_server.pas"/>
<Caret Line="30" Column="29" TopLine="30"/>
</Position10>
<Position11>
<Filename Value="../../synapse_tcp_server.pas"/>
<Caret Line="19" Column="52" TopLine="10"/>
</Position11>
<Position12>
<Filename Value="../../server_listener.pas"/>
<Caret Line="22" Column="18" TopLine="14"/>
</Position12>
<Position13>
<Filename Value="../../synapse_tcp_server.pas"/>
<Caret Line="19" Column="52" TopLine="10"/>
</Position13>
<Position14>
<Filename Value="tcp_server.pas"/>
<Caret Line="37" Column="19" TopLine="20"/>
</Position14>
<Position15>
<Filename Value="tcp_server.pas"/>
<Caret Line="27" Column="33" TopLine="10"/>
</Position15>
<Position16>
<Filename Value="../../server_service_soap.pas"/>
<Caret Line="21" Column="33" TopLine="1"/>
</Position16>
<Position17>
<Filename Value="../../server_service_intf.pas"/>
<Caret Line="11" Column="6" TopLine="6"/>
</Position17>
<Position18>
<Filename Value="tcp_server.pas"/>
<Caret Line="32" Column="61" TopLine="10"/>
</Position18>
<Position19>
<Filename Value="../user_service_intf_imp.pas"/>
<Caret Line="51" Column="60" TopLine="28"/>
</Position19>
</JumpHistory>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="tcp_server.exe"/>
</Target>
<SearchPaths>
<IncludeFiles Value="../../;../"/>
<OtherUnitFiles Value="../;../../;../../wst_rtti_filter/;$(LazarusDir)/others_package/synapse/"/>
<IncludeFiles Value="..\..\;..\"/>
<OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\;$(LazarusDir)\others_package\synapse\"/>
<UnitOutputDirectory Value="obj"/>
<SrcPath Value="$(LazarusDir)/others_package/synapse/"/>
<SrcPath Value="$(LazarusDir)\others_package\synapse\"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
@ -568,27 +493,27 @@
<Debugging>
<BreakPoints Count="6">
<Item1>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="230"/>
</Item1>
<Item2>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="193"/>
</Item2>
<Item3>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="198"/>
</Item3>
<Item4>
<Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/>
<Line Value="606"/>
</Item4>
<Item5>
<Source Value="../user_service_intf_imp.pas"/>
<Source Value="..\user_service_intf_imp.pas"/>
<Line Value="89"/>
</Item5>
<Item6>
<Source Value="../user_service_intf_imp.pas"/>
<Source Value="..\user_service_intf_imp.pas"/>
<Line Value="88"/>
</Item6>
</BreakPoints>

183
wst/trunk/samples/user_client_console/user_client_console.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
@ -10,7 +10,7 @@
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
@ -19,6 +19,7 @@
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -26,7 +27,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<Units Count="43">
@ -41,7 +42,7 @@
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="../user_service_intf_proxy.pas"/>
<Filename Value="..\user_service_intf_proxy.pas"/>
<UnitName Value="user_service_intf_proxy"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
@ -50,7 +51,7 @@
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../synapse_tcp_protocol.pas"/>
<Filename Value="..\..\synapse_tcp_protocol.pas"/>
<UnitName Value="synapse_tcp_protocol"/>
<CursorPos X="17" Y="29"/>
<TopLine Value="16"/>
@ -59,7 +60,7 @@
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../service_intf.pas"/>
<Filename Value="..\..\service_intf.pas"/>
<UnitName Value="service_intf"/>
<CursorPos X="51" Y="34"/>
<TopLine Value="21"/>
@ -68,7 +69,7 @@
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../user_service_intf.pas"/>
<Filename Value="..\user_service_intf.pas"/>
<UnitName Value="user_service_intf"/>
<CursorPos X="53" Y="11"/>
<TopLine Value="1"/>
@ -77,21 +78,21 @@
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../../../../lazarus23_213/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="60" Y="2413"/>
<TopLine Value="2393"/>
<UsageCount Value="5"/>
</Unit5>
<Unit6>
<Filename Value="../../base_service_intf.pas"/>
<Filename Value="..\..\base_service_intf.pas"/>
<UnitName Value="base_service_intf"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="32"/>
</Unit6>
<Unit7>
<Filename Value="../../library_protocol.pas"/>
<Filename Value="..\..\library_protocol.pas"/>
<UnitName Value="library_protocol"/>
<CursorPos X="57" Y="57"/>
<TopLine Value="2"/>
@ -100,44 +101,44 @@
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/finah.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\finah.inc"/>
<CursorPos X="10" Y="33"/>
<TopLine Value="17"/>
<UsageCount Value="5"/>
</Unit8>
<Unit9>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/fina.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\fina.inc"/>
<CursorPos X="13" Y="112"/>
<TopLine Value="105"/>
<UsageCount Value="5"/>
</Unit9>
<Unit10>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/sysutilh.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysutilh.inc"/>
<CursorPos X="33" Y="202"/>
<TopLine Value="188"/>
<UsageCount Value="5"/>
</Unit10>
<Unit11>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win32/system.pp"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win32\system.pp"/>
<UnitName Value="System"/>
<CursorPos X="20" Y="35"/>
<TopLine Value="21"/>
<UsageCount Value="5"/>
</Unit11>
<Unit12>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/fexpand.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\fexpand.inc"/>
<CursorPos X="10" Y="86"/>
<TopLine Value="226"/>
<UsageCount Value="5"/>
</Unit12>
<Unit13>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/sysstrh.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="54" Y="33"/>
<TopLine Value="19"/>
<UsageCount Value="5"/>
</Unit13>
<Unit14>
<Filename Value="../../synapse_http_protocol.pas"/>
<Filename Value="..\..\synapse_http_protocol.pas"/>
<UnitName Value="synapse_http_protocol"/>
<CursorPos X="15" Y="59"/>
<TopLine Value="45"/>
@ -146,33 +147,33 @@
<Loaded Value="True"/>
</Unit14>
<Unit15>
<Filename Value="../../metadata_repository.pas"/>
<Filename Value="..\..\metadata_repository.pas"/>
<UnitName Value="metadata_repository"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="13"/>
</Unit15>
<Unit16>
<Filename Value="../../wst.inc"/>
<Filename Value="..\..\wst.inc"/>
<CursorPos X="17" Y="15"/>
<TopLine Value="1"/>
<UsageCount Value="13"/>
</Unit16>
<Unit17>
<Filename Value="../../library_imp_utils.pas"/>
<Filename Value="..\..\library_imp_utils.pas"/>
<UnitName Value="library_imp_utils"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="8"/>
</Unit17>
<Unit18>
<Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/dynlibs.inc"/>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\dynlibs.inc"/>
<CursorPos X="17" Y="27"/>
<TopLine Value="13"/>
<UsageCount Value="6"/>
</Unit18>
<Unit19>
<Filename Value="../../semaphore.pas"/>
<Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/>
<CursorPos X="1" Y="140"/>
<TopLine Value="111"/>
@ -181,7 +182,7 @@
<Loaded Value="True"/>
</Unit19>
<Unit20>
<Filename Value="../../soap_formatter.pas"/>
<Filename Value="..\..\soap_formatter.pas"/>
<UnitName Value="soap_formatter"/>
<CursorPos X="3" Y="232"/>
<TopLine Value="221"/>
@ -190,7 +191,7 @@
<Loaded Value="True"/>
</Unit20>
<Unit21>
<Filename Value="../../xmlrpc_formatter.pas"/>
<Filename Value="..\..\xmlrpc_formatter.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="xmlrpc_formatter"/>
<CursorPos X="54" Y="21"/>
@ -198,7 +199,7 @@
<UsageCount Value="62"/>
</Unit21>
<Unit22>
<Filename Value="../../binary_formatter.pas"/>
<Filename Value="..\..\binary_formatter.pas"/>
<UnitName Value="binary_formatter"/>
<CursorPos X="20" Y="21"/>
<TopLine Value="12"/>
@ -207,61 +208,61 @@
<Loaded Value="True"/>
</Unit22>
<Unit23>
<Filename Value="../../wst_delphi.inc"/>
<Filename Value="..\..\wst_delphi.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="6"/>
</Unit23>
<Unit24>
<Filename Value="../../base_xmlrpc_formatter.pas"/>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="25" Y="31"/>
<TopLine Value="16"/>
<UsageCount Value="25"/>
</Unit24>
<Unit25>
<Filename Value="../../base_soap_formatter.pas"/>
<Filename Value="..\..\base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/>
<CursorPos X="3" Y="40"/>
<TopLine Value="22"/>
<UsageCount Value="24"/>
</Unit25>
<Unit26>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/classes/classesh.inc"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\classesh.inc"/>
<CursorPos X="3" Y="592"/>
<TopLine Value="590"/>
<UsageCount Value="11"/>
</Unit26>
<Unit27>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/rtl/objpas/typinfo.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="1" Y="483"/>
<TopLine Value="469"/>
<UsageCount Value="11"/>
</Unit27>
<Unit28>
<Filename Value="../../../../../../lazarus_23_215/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/>
<TopLine Value="2393"/>
<UsageCount Value="11"/>
</Unit28>
<Unit29>
<Filename Value="../../../../../../lazarus_23_215/fpc/2.1.5/source/packages/fcl-xml/src/xmlread.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-xml\src\xmlread.pp"/>
<UnitName Value="XMLRead"/>
<CursorPos X="1" Y="2763"/>
<TopLine Value="2749"/>
<UsageCount Value="11"/>
</Unit29>
<Unit30>
<Filename Value="../../imp_utils.pas"/>
<Filename Value="..\..\imp_utils.pas"/>
<UnitName Value="imp_utils"/>
<CursorPos X="41" Y="3"/>
<TopLine Value="1"/>
<UsageCount Value="15"/>
</Unit30>
<Unit31>
<Filename Value="../../wst_fpc_xml.pas"/>
<Filename Value="..\..\wst_fpc_xml.pas"/>
<UnitName Value="wst_fpc_xml"/>
<CursorPos X="34" Y="67"/>
<TopLine Value="42"/>
@ -270,42 +271,42 @@
<Loaded Value="True"/>
</Unit31>
<Unit32>
<Filename Value="../../../../../../lazarus_23_215XX/fpc/source/rtl/objpas/typinfo.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="34"/>
<UsageCount Value="8"/>
</Unit32>
<Unit33>
<Filename Value="../../base_binary_formatter.pas"/>
<Filename Value="..\..\base_binary_formatter.pas"/>
<UnitName Value="base_binary_formatter"/>
<CursorPos X="22" Y="27"/>
<TopLine Value="10"/>
<UsageCount Value="14"/>
</Unit33>
<Unit34>
<Filename Value="../../../../../../lazarus_23_215XX/fpc/source/packages/fcl-xml/src/dom.pp"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-xml\src\dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="14" Y="287"/>
<TopLine Value="274"/>
<UsageCount Value="11"/>
</Unit34>
<Unit35>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/synapse/httpsend.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\httpsend.pas"/>
<UnitName Value="httpsend"/>
<CursorPos X="23" Y="72"/>
<TopLine Value="143"/>
<UsageCount Value="10"/>
</Unit35>
<Unit36>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/synapse/blcksock.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/>
<CursorPos X="3" Y="1325"/>
<TopLine Value="1279"/>
<UsageCount Value="10"/>
</Unit36>
<Unit37>
<Filename Value="../../indy_http_protocol.pas"/>
<Filename Value="..\..\indy_http_protocol.pas"/>
<UnitName Value="indy_http_protocol"/>
<CursorPos X="1" Y="16"/>
<TopLine Value="109"/>
@ -314,21 +315,21 @@
<Loaded Value="True"/>
</Unit37>
<Unit38>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/indy/indy-10.2.0.1/fpc/Protocols/IdHTTP.pas"/>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Protocols\IdHTTP.pas"/>
<UnitName Value="IdHTTP"/>
<CursorPos X="49" Y="343"/>
<TopLine Value="582"/>
<UsageCount Value="9"/>
</Unit38>
<Unit39>
<Filename Value="../../ics_tcp_protocol.pas"/>
<Filename Value="..\..\ics_tcp_protocol.pas"/>
<UnitName Value="ics_tcp_protocol"/>
<CursorPos X="1" Y="31"/>
<TopLine Value="18"/>
<UsageCount Value="14"/>
</Unit39>
<Unit40>
<Filename Value="../../ics_http_protocol.pas"/>
<Filename Value="..\..\ics_http_protocol.pas"/>
<UnitName Value="ics_http_protocol"/>
<CursorPos X="55" Y="72"/>
<TopLine Value="128"/>
@ -337,7 +338,7 @@
<Loaded Value="True"/>
</Unit40>
<Unit41>
<Filename Value="../../same_process_protocol.pas"/>
<Filename Value="..\..\same_process_protocol.pas"/>
<UnitName Value="same_process_protocol"/>
<CursorPos X="77" Y="83"/>
<TopLine Value="31"/>
@ -346,10 +347,10 @@
<Loaded Value="True"/>
</Unit41>
<Unit42>
<Filename Value="../../type_lib_edtr/ubindingedit.pas"/>
<Filename Value="..\..\type_lib_edtr\ubindingedit.pas"/>
<ComponentName Value="fBindingEdit"/>
<HasResources Value="True"/>
<ResourceFilename Value="../../type_lib_edtr/ubindingedit.lrs"/>
<ResourceFilename Value="..\..\type_lib_edtr\ubindingedit.lrs"/>
<UnitName Value="ubindingedit"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
@ -358,92 +359,16 @@
<Loaded Value="True"/>
</Unit42>
</Units>
<JumpHistory Count="19" HistoryIndex="18">
<Position1>
<Filename Value="user_client_console.pas"/>
<Caret Line="134" Column="54" TopLine="116"/>
</Position1>
<Position2>
<Filename Value="user_client_console.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="user_client_console.pas"/>
<Caret Line="31" Column="10" TopLine="8"/>
</Position3>
<Position4>
<Filename Value="user_client_console.pas"/>
<Caret Line="44" Column="12" TopLine="30"/>
</Position4>
<Position5>
<Filename Value="user_client_console.pas"/>
<Caret Line="45" Column="12" TopLine="31"/>
</Position5>
<Position6>
<Filename Value="user_client_console.pas"/>
<Caret Line="55" Column="1" TopLine="41"/>
</Position6>
<Position7>
<Filename Value="user_client_console.pas"/>
<Caret Line="60" Column="12" TopLine="46"/>
</Position7>
<Position8>
<Filename Value="user_client_console.pas"/>
<Caret Line="73" Column="10" TopLine="59"/>
</Position8>
<Position9>
<Filename Value="user_client_console.pas"/>
<Caret Line="84" Column="8" TopLine="70"/>
</Position9>
<Position10>
<Filename Value="user_client_console.pas"/>
<Caret Line="111" Column="12" TopLine="97"/>
</Position10>
<Position11>
<Filename Value="user_client_console.pas"/>
<Caret Line="121" Column="8" TopLine="107"/>
</Position11>
<Position12>
<Filename Value="user_client_console.pas"/>
<Caret Line="135" Column="8" TopLine="121"/>
</Position12>
<Position13>
<Filename Value="user_client_console.pas"/>
<Caret Line="175" Column="8" TopLine="161"/>
</Position13>
<Position14>
<Filename Value="user_client_console.pas"/>
<Caret Line="176" Column="8" TopLine="162"/>
</Position14>
<Position15>
<Filename Value="user_client_console.pas"/>
<Caret Line="181" Column="8" TopLine="163"/>
</Position15>
<Position16>
<Filename Value="user_client_console.pas"/>
<Caret Line="200" Column="8" TopLine="186"/>
</Position16>
<Position17>
<Filename Value="user_client_console.pas"/>
<Caret Line="206" Column="8" TopLine="187"/>
</Position17>
<Position18>
<Filename Value="user_client_console.pas"/>
<Caret Line="235" Column="10" TopLine="217"/>
</Position18>
<Position19>
<Filename Value="user_client_console.pas"/>
<Caret Line="250" Column="1" TopLine="230"/>
</Position19>
</JumpHistory>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="user_client_console.exe"/>
</Target>
<SearchPaths>
<OtherUnitFiles Value="../;../../;$(LazarusDir)/others_package/synapse/;$(LazarusDir)/others_package/ics/latest_distr/Delphi/Vc32/"/>
<OtherUnitFiles Value="..\;..\..\;$(LazarusDir)\others_package\synapse\;$(LazarusDir)\others_package\ics\latest_distr\Delphi\Vc32\"/>
<UnitOutputDirectory Value="obj"/>
</SearchPaths>
<CodeGeneration>
@ -462,19 +387,19 @@
<Debugging>
<BreakPoints Count="4">
<Item1>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="230"/>
</Item1>
<Item2>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="193"/>
</Item2>
<Item3>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="198"/>
</Item3>
<Item4>
<Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/>
<Line Value="606"/>
</Item4>
</BreakPoints>

13
wst/trunk/synapse_tcp_server.pas
View File

@ -89,7 +89,7 @@ type
implementation
uses binary_streamer, server_service_intf, server_service_imputils
{$IFNDEF FPC},ActiveX, ComObj{$ENDIF};
{$IFNDEF FPC}, Windows, ActiveX, ComObj{$ENDIF};
{ TClientHandlerThread }
@ -104,12 +104,16 @@ function TClientHandlerThread.ReadInputBuffer(): Integer;
var
strBuff : string;
bufferLen : LongInt;
i, j, c : PtrInt;
i, j, c, readBufferLen : PtrInt;
begin
FInputStream.Size := 0;
Result := 0;
bufferLen := 0;
FSocketObject.RecvBufferEx(@bufferLen,SizeOf(bufferLen),DefaultTimeOut);
readBufferLen := FSocketObject.RecvBufferEx(@bufferLen,SizeOf(bufferLen),DefaultTimeOut);
if ( readBufferLen = 0 ) and ( FSocketObject.LastError = WSAETIMEDOUT ) then begin
Result := 0;
WriteLn('ReadInputBuffer() => TimeOut');
end else begin
FSocketObject.ExceptCheck();
bufferLen := Reverse_32(bufferLen);
FInputStream.Size := bufferLen;
@ -132,6 +136,7 @@ begin
end;
FInputStream.Position := 0;
Result := FInputStream.Size;
end;
end;
procedure TClientHandlerThread.SendOutputBuffer();
@ -146,7 +151,7 @@ constructor TClientHandlerThread.Create(
begin
FSocketHandle := ASocketHandle;
FreeOnTerminate := True;
FDefaultTimeOut := 90000;
FDefaultTimeOut := -1;//90000;
FOwner := AOwner;
inherited Create(False);
end;

107
wst/trunk/tests/test_suite/wst_test_suite.lpi
View File

@ -27,7 +27,7 @@
<PackageName Value="FPCUnitTestRunner"/>
</Item1>
</RequiredPackages>
<Units Count="65">
<Units Count="72">
<Unit0>
<Filename Value="wst_test_suite.lpr"/>
<IsPartOfProject Value="True"/>
@ -73,7 +73,7 @@
<UnitName Value="base_binary_formatter"/>
<CursorPos X="15" Y="1479"/>
<TopLine Value="1464"/>
<EditorIndex Value="6"/>
<EditorIndex Value="13"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit4>
@ -115,7 +115,7 @@
<UnitName Value="binary_streamer"/>
<CursorPos X="14" Y="14"/>
<TopLine Value="1"/>
<EditorIndex Value="11"/>
<EditorIndex Value="18"/>
<UsageCount Value="200"/>
<Bookmarks Count="1">
<Item0 X="38" Y="490" ID="2"/>
@ -144,7 +144,7 @@
<UnitName Value="testmetadata_unit"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="8"/>
<EditorIndex Value="15"/>
<UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit11>
@ -174,7 +174,7 @@
<UnitName Value="metadata_wsdl"/>
<CursorPos X="44" Y="21"/>
<TopLine Value="209"/>
<EditorIndex Value="7"/>
<EditorIndex Value="14"/>
<UsageCount Value="206"/>
<Loaded Value="True"/>
</Unit14>
@ -473,7 +473,7 @@
<UnitName Value="test_utilities"/>
<CursorPos X="29" Y="43"/>
<TopLine Value="3"/>
<EditorIndex Value="10"/>
<EditorIndex Value="17"/>
<UsageCount Value="48"/>
<Loaded Value="True"/>
</Unit57>
@ -489,7 +489,7 @@
<UnitName Value="testregistry"/>
<CursorPos X="39" Y="27"/>
<TopLine Value="17"/>
<EditorIndex Value="9"/>
<EditorIndex Value="16"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit59>
@ -525,21 +525,86 @@
<TopLine Value="46"/>
<UsageCount Value="11"/>
</Unit64>
<Unit65>
<Filename Value="..\..\ws_helper\wsdl2pas_imp.pas"/>
<UnitName Value="wsdl2pas_imp"/>
<CursorPos X="16" Y="2045"/>
<TopLine Value="2031"/>
<EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit65>
<Unit66>
<Filename Value="..\..\..\..\..\..\lazarus2204\fpc\2.0.4\source\fcl\xml\dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="3" Y="196"/>
<TopLine Value="191"/>
<EditorIndex Value="12"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit66>
<Unit67>
<Filename Value="..\..\type_lib_edtr\umoduleedit.pas"/>
<ComponentName Value="fModuleEdit"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\type_lib_edtr\umoduleedit.lrs"/>
<UnitName Value="umoduleedit"/>
<CursorPos X="47" Y="21"/>
<TopLine Value="18"/>
<EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit67>
<Unit68>
<Filename Value="..\..\type_lib_edtr\ubindingedit.pas"/>
<ComponentName Value="fBindingEdit"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\type_lib_edtr\ubindingedit.lrs"/>
<UnitName Value="ubindingedit"/>
<CursorPos X="41" Y="21"/>
<TopLine Value="18"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit68>
<Unit69>
<Filename Value="..\..\type_lib_edtr\ufarrayedit.pas"/>
<ComponentName Value="fArrayEdit"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\type_lib_edtr\ufarrayedit.lrs"/>
<UnitName Value="ufarrayedit"/>
<CursorPos X="41" Y="9"/>
<TopLine Value="5"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit69>
<Unit70>
<Filename Value="..\..\type_lib_edtr\uftypealiasedit.pas"/>
<ComponentName Value="fTypeAliasEdit"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\type_lib_edtr\uftypealiasedit.lrs"/>
<UnitName Value="uftypealiasedit"/>
<CursorPos X="22" Y="9"/>
<TopLine Value="7"/>
<EditorIndex Value="10"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit70>
<Unit71>
<Filename Value="..\..\type_lib_edtr\ufrmsaveoption.pas"/>
<ComponentName Value="frmSaveOptions"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\type_lib_edtr\ufrmsaveoption.lrs"/>
<UnitName Value="ufrmsaveoption"/>
<CursorPos X="22" Y="9"/>
<TopLine Value="6"/>
<EditorIndex Value="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit71>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="testformatter_unit.pas"/>
<Caret Line="314" Column="36" TopLine="301"/>
</Position1>
<Position2>
<Filename Value="testformatter_unit.pas"/>
<Caret Line="724" Column="3" TopLine="695"/>
</Position2>
<Position3>
<Filename Value="testformatter_unit.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position3>
</JumpHistory>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>

22
wst/trunk/type_lib_edtr/ubindingedit.lfm
View File

@ -8,16 +8,12 @@ object fBindingEdit: TfBindingEdit
ActiveControl = edtName
BorderStyle = bsSizeToolWin
Caption = 'fBindingEdit'
ClientHeight = 354
ClientWidth = 400
Position = poMainFormCenter
object Panel1: TPanel
Height = 50
Top = 304
Width = 400
Align = alBottom
ClientHeight = 50
ClientWidth = 400
TabOrder = 0
object Button1: TButton
Left = 224
@ -52,29 +48,29 @@ object fBindingEdit: TfBindingEdit
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Interface Binding'
ClientHeight = 270
ClientWidth = 396
object Label1: TLabel
Left = 12
Height = 17
Height = 14
Top = 26
Width = 45
Width = 28
Caption = 'Name'
Color = clNone
ParentColor = False
end
object Label2: TLabel
Left = 12
Height = 17
Height = 14
Top = 98
Width = 60
Width = 40
Caption = 'Address'
Color = clNone
ParentColor = False
end
object edtName: TEdit
Left = 12
Height = 23
Top = 50
Width = 360
Width = 356
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
Text = 'edtName'
@ -83,7 +79,7 @@ object fBindingEdit: TfBindingEdit
Left = 12
Height = 23
Top = 114
Width = 360
Width = 356
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
Text = 'edtAddress'
@ -103,8 +99,6 @@ object fBindingEdit: TfBindingEdit
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 71
ClientWidth = 356
Columns = 2
Items.Strings = (
'Document'

62
wst/trunk/type_lib_edtr/ubindingedit.lrs
View File

@ -4,36 +4,34 @@ LazarusResources.Add('TfBindingEdit','FORMDATA',[
'TPF0'#13'TfBindingEdit'#12'fBindingEdit'#4'Left'#3#247#2#6'Height'#3'b'#1#3
+'Top'#2'Z'#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.'
+'Page'#3'a'#1#13'ActiveControl'#7#7'edtName'#11'BorderStyle'#7#13'bsSizeTool'
+'Win'#7'Caption'#6#12'fBindingEdit'#12'ClientHeight'#3'b'#1#11'ClientWidth'#3
+#144#1#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2
+'2'#3'Top'#3'0'#1#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2
+'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3
+#224#0#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Ancho'
+'rs'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9
+#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'8'#1#6'Height'#2#25#3'T'
+'op'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing'
+'.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8
+'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Height'#3'0'#1#5'Wi'
+'dth'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabInde'
+'x'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#17'Interfac'
+'e Binding'#12'ClientHeight'#3#14#1#11'ClientWidth'#3#140#1#0#6'TLabel'#6'La'
+'bel1'#4'Left'#2#12#6'Height'#2#17#3'Top'#2#26#5'Width'#2'-'#7'Caption'#6#4
+'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#12#6'Height'#2#17
+#3'Top'#2'b'#5'Width'#2'<'#7'Caption'#6#7'Address'#11'ParentColor'#8#0#0#5'T'
+'Edit'#7'edtName'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'2'#5'Width'#3'h'#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edt'
+'Name'#0#0#5'TEdit'#10'edtAddress'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'r'#5
+'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1
+#4'Text'#6#10'edtAddress'#0#0#11'TRadioGroup'#8'edtStyle'#4'Left'#2#12#6'Hei'
+'ght'#2'\'#3'Top'#3#165#0#5'Width'#3'h'#1#8'AutoFill'#9#7'Caption'#6#9' Sty'
+'le '#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'
+#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Chi'
+'ldSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shr'
+'inkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crs'
+'ScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27
+'ChildSizing.ControlsPerLine'#2#2#12'ClientHeight'#2'G'#11'ClientWidth'#3'd'
+#1#7'Columns'#2#2#13'Items.Strings'#1#6#8'Document'#6#3'RPC'#0#8'TabOrder'#2
+#2#0#0#0#0#11'TActionList'#2'AL'#4'left'#2'U'#3'top'#2'd'#0#7'TAction'#5'act'
+'OK'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExec'
+'ute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
+'Win'#7'Caption'#6#12'fBindingEdit'#8'Position'#7#16'poMainFormCenter'#0#6'T'
+'Panel'#6'Panel1'#6'Height'#2'2'#3'Top'#3'0'#1#5'Width'#3#144#1#5'Align'#7#8
+'alBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#224#0#6'Height'
+#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0
+#0#7'TButton'#7'Button2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2
+'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6
+'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0
+#12'TPageControl'#12'PageControl1'#6'Height'#3'0'#1#5'Width'#3#144#1#10'Acti'
+'vePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2
+#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#17'Interface Binding'#0#6'TLabel'
+#6'Label1'#4'Left'#2#12#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6
+#4'Name'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Le'
+'ft'#2#12#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'('#7'Caption'#6#7'Address'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#12#6
+'Height'#2#23#3'Top'#2'2'#5'Width'#3'd'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0#5'TEdit'#10'edtAddress'
+#4'Left'#2#12#6'Height'#2#23#3'Top'#2'r'#5'Width'#3'd'#1#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Text'#6#10'edtAddress'#0#0#11
+'TRadioGroup'#8'edtStyle'#4'Left'#2#12#6'Height'#2'\'#3'Top'#3#165#0#5'Width'
+#3'h'#1#8'AutoFill'#9#7'Caption'#6#9' Style '#28'ChildSizing.LeftRightSpac'
+'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon'
+'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr'
+'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild'
+'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou'
+'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7
+'Columns'#2#2#13'Items.Strings'#1#6#8'Document'#6#3'RPC'#0#8'TabOrder'#2#2#0
+#0#0#0#11'TActionList'#2'AL'#4'left'#2'U'#3'top'#2'd'#0#7'TAction'#5'actOK'#7
+'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8
+'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
]);

2
wst/trunk/type_lib_edtr/ubindingedit.pas
View File

@ -18,7 +18,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList,
ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf,
edit_helper;

9
wst/trunk/type_lib_edtr/ufarrayedit.lfm
View File

@ -8,16 +8,12 @@ object fArrayEdit: TfArrayEdit
ActiveControl = Button1
BorderStyle = bsSizeToolWin
Caption = 'fArrayEdit'
ClientHeight = 361
ClientWidth = 392
Position = poMainFormCenter
object Panel1: TPanel
Height = 50
Top = 311
Width = 392
Align = alBottom
ClientHeight = 50
ClientWidth = 392
TabOrder = 0
object Button1: TButton
Left = 216
@ -51,14 +47,13 @@ object fArrayEdit: TfArrayEdit
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Array definition'
ClientHeight = 285
ClientWidth = 384
object Label1: TLabel
Left = 19
Height = 14
Top = 21
Width = 28
Caption = 'Name'
Color = clNone
ParentColor = False
end
object Label2: TLabel
@ -67,6 +62,7 @@ object fArrayEdit: TfArrayEdit
Top = 102
Width = 66
Caption = 'Element Type'
Color = clNone
ParentColor = False
end
object Label3: TLabel
@ -75,6 +71,7 @@ object fArrayEdit: TfArrayEdit
Top = 170
Width = 69
Caption = 'Element Name'
Color = clNone
ParentColor = False
end
object edtName: TEdit

35
wst/trunk/type_lib_edtr/ufarrayedit.lrs
View File

@ -4,24 +4,23 @@ LazarusResources.Add('TfArrayEdit','FORMDATA',[
'TPF0'#11'TfArrayEdit'#10'fArrayEdit'#4'Left'#3'G'#1#6'Height'#3'i'#1#3'Top'#3
+#131#0#5'Width'#3#136#1#18'HorzScrollBar.Page'#3#135#1#18'VertScrollBar.Page'
+#3'h'#1#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSizeToolWin'#7
+'Caption'#6#10'fArrayEdit'#12'ClientHeight'#3'i'#1#11'ClientWidth'#3#136#1#8
+'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'
+#3'7'#1#5'Width'#3#136#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'Cli'
+'entWidth'#3#136#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#216#0#6
+'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7
+'TButton'#7'Button2'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#7
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cance'
+'l'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#12'TP'
+'ageControl'#12'PageControl1'#6'Height'#3'7'#1#5'Width'#3#136#1#10'ActivePag'
+'e'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9
+'TTabSheet'#9'TabSheet1'#7'Caption'#6#16'Array definition'#12'ClientHeight'#3
+#29#1#11'ClientWidth'#3#128#1#0#6'TLabel'#6'Label1'#4'Left'#2#19#6'Height'#2
+#14#3'Top'#2#21#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'T'
+'Label'#6'Label2'#4'Left'#2#19#6'Height'#2#14#3'Top'#2'f'#5'Width'#2'B'#7'Ca'
+'ption'#6#12'Element Type'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'
+#2#19#6'Height'#2#14#3'Top'#3#170#0#5'Width'#2'E'#7'Caption'#6#12'Element Na'
+'me'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3
+'Caption'#6#10'fArrayEdit'#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6
+'Panel1'#6'Height'#2'2'#3'Top'#3'7'#1#5'Width'#3#136#1#5'Align'#7#8'alBottom'
+#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#216#0#6'Height'#2#25#3'To'
+'p'#2#9#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'
+#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TButton'#7'Button'
+'2'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#7'Anchors'#11#5'a'
+'kTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'
+#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'P'
+'ageControl1'#6'Height'#3'7'#1#5'Width'#3#136#1#10'ActivePage'#7#9'TabSheet1'
+#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'Tab'
+'Sheet1'#7'Caption'#6#16'Array definition'#0#6'TLabel'#6'Label1'#4'Left'#2#19
+#6'Height'#2#14#3'Top'#2#21#5'Width'#2#28#7'Caption'#6#4'Name'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#19#6'Height'#2
+#14#3'Top'#2'f'#5'Width'#2'B'#7'Caption'#6#12'Element Type'#5'Color'#7#6'clN'
+'one'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#19#6'Height'#2#14#3
+'Top'#3#170#0#5'Width'#2'E'#7'Caption'#6#12'Element Name'#5'Color'#7#6'clNon'
+'e'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3
+'Top'#2'*'#5'Width'#3'Y'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'T'
+'abOrder'#2#0#0#0#9'TComboBox'#14'edtElementType'#4'Left'#2#19#6'Height'#2#21
+#3'Top'#2'z'#5'Width'#3'Y'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16

2
wst/trunk/type_lib_edtr/ufarrayedit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList,
ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf, edit_helper;
type

9
wst/trunk/type_lib_edtr/ufrmsaveoption.lfm
View File

@ -8,16 +8,12 @@ object frmSaveOptions: TfrmSaveOptions
ActiveControl = edtInterface
BorderStyle = bsSizeToolWin
Caption = 'Export file options ...'
ClientHeight = 292
ClientWidth = 402
Position = poMainFormCenter
object Panel1: TPanel
Height = 50
Top = 242
Width = 402
Align = alBottom
ClientHeight = 50
ClientWidth = 402
TabOrder = 0
object Button1: TButton
Left = 312
@ -47,8 +43,6 @@ object frmSaveOptions: TfrmSaveOptions
Height = 242
Width = 402
Align = alClient
ClientHeight = 242
ClientWidth = 402
TabOrder = 1
object Label1: TLabel
Left = 16
@ -56,6 +50,7 @@ object frmSaveOptions: TfrmSaveOptions
Top = 16
Width = 81
Caption = 'Output directory'
Color = clNone
ParentColor = False
end
object GroupBox1: TGroupBox
@ -65,8 +60,6 @@ object frmSaveOptions: TfrmSaveOptions
Width = 369
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' File type '
ClientHeight = 116
ClientWidth = 365
TabOrder = 0
object edtInterface: TCheckBox
Left = 14

66
wst/trunk/type_lib_edtr/ufrmsaveoption.lrs
View File

@ -4,38 +4,36 @@ LazarusResources.Add('TfrmSaveOptions','FORMDATA',[
'TPF0'#15'TfrmSaveOptions'#14'frmSaveOptions'#4'Left'#3#7#3#6'Height'#3'$'#1#3
+'Top'#2']'#5'Width'#3#146#1#18'HorzScrollBar.Page'#3#145#1#18'VertScrollBar.'
+'Page'#3'#'#1#13'ActiveControl'#7#12'edtInterface'#11'BorderStyle'#7#13'bsSi'
+'zeToolWin'#7'Caption'#6#23'Export file options ...'#12'ClientHeight'#3'$'#1
+#11'ClientWidth'#3#146#1#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Pa'
+'nel1'#6'Height'#2'2'#3'Top'#3#242#0#5'Width'#3#146#1#5'Align'#7#8'alBottom'
+#12'ClientHeight'#2'2'#11'ClientWidth'#3#146#1#8'TabOrder'#2#0#0#7'TButton'#7
+'Button1'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#7'Anchors'
+#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Ca'
+'ption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#0#0#0#7'TButton'#7'But'
+'ton2'#4'Left'#3#224#0#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5
+'actOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4
+#7'Default'#9#8'TabOrder'#2#1#0#0#0#6'TPanel'#6'Panel2'#6'Height'#3#242#0#5
+'Width'#3#146#1#5'Align'#7#8'alClient'#12'ClientHeight'#3#242#0#11'ClientWid'
+'th'#3#146#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2
+#14#3'Top'#2#16#5'Width'#2'Q'#7'Caption'#6#16'Output directory'#11'ParentCol'
+'or'#8#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#16#6'Height'#3#134#0#3'Top'#2
+'P'#5'Width'#3'q'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+#7'Caption'#6#13' File type '#12'ClientHeight'#2't'#11'ClientWidth'#3'm'#1
+#8'TabOrder'#2#0#0#9'TCheckBox'#12'edtInterface'#4'Left'#2#14#6'Height'#2#13
+#3'Top'#2#16#5'Width'#2'>'#7'Caption'#6#9'Interface'#8'TabOrder'#2#0#0#0#9'T'
+'CheckBox'#8'edtProxy'#4'Left'#2#14#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'.'
+#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#5'Proxy'#8'TabOrder'#2#1
+#0#0#9'TCheckBox'#17'edtImplementation'#4'Left'#3#245#0#6'Height'#2#13#3'Top'
+#2#14#5'Width'#2'['#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#14'Impl'
+'ementation'#8'TabOrder'#2#2#0#0#9'TCheckBox'#9'edtBinder'#4'Left'#3#245#0#6
+'Height'#2#13#3'Top'#2'H'#5'Width'#2'2'#7'Anchors'#11#7'akRight'#8'akBottom'
+#0#7'Caption'#6#6'Binder'#8'TabOrder'#2#3#0#0#0#5'TEdit'#12'edtOutputDir'#4
+'Left'#2#16#6'Height'#2#23#3'Top'#2'&'#5'Width'#3'P'#1#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#7'TButton'#12'btnSelectDir'#4'Le'
+'ft'#3'j'#1#6'Height'#2#25#3'Top'#2'$'#5'Width'#2#25#7'Anchors'#11#5'akTop'#7
+'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'
+#7#17'btnSelectDirClick'#8'TabOrder'#2#2#0#0#0#11'TActionList'#2'AL'#4'left'
+#3#144#0#3'top'#3#160#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableI'
+'fNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'
+#0#0#0#22'TSelectDirectoryDialog'#2'SD'#5'Title'#6#21'Choisir un r'#233'pert'
+'oire'#11'FilterIndex'#2#0#4'left'#2'e'#3'top'#3#142#0#0#0#0
+'zeToolWin'#7'Caption'#6#23'Export file options ...'#8'Position'#7#16'poMain'
+'FormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#242#0#5'Width'#3
+#146#1#5'Align'#7#8'alBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'
+#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'ak'
+'Right'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cance'
+'l'#11'ModalResult'#2#2#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3
+#224#0#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Ancho'
+'rs'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9
+#8'TabOrder'#2#1#0#0#0#6'TPanel'#6'Panel2'#6'Height'#3#242#0#5'Width'#3#146#1
+#5'Align'#7#8'alClient'#8'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6
+'Height'#2#14#3'Top'#2#16#5'Width'#2'Q'#7'Caption'#6#16'Output directory'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2
+#16#6'Height'#3#134#0#3'Top'#2'P'#5'Width'#3'q'#1#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#13' File type '#8'TabOrder'#2
+#0#0#9'TCheckBox'#12'edtInterface'#4'Left'#2#14#6'Height'#2#13#3'Top'#2#16#5
+'Width'#2'>'#7'Caption'#6#9'Interface'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'ed'
+'tProxy'#4'Left'#2#14#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'.'#7'Anchors'#11
+#6'akLeft'#8'akBottom'#0#7'Caption'#6#5'Proxy'#8'TabOrder'#2#1#0#0#9'TCheckB'
+'ox'#17'edtImplementation'#4'Left'#3#245#0#6'Height'#2#13#3'Top'#2#14#5'Widt'
+'h'#2'['#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#14'Implementation'
+#8'TabOrder'#2#2#0#0#9'TCheckBox'#9'edtBinder'#4'Left'#3#245#0#6'Height'#2#13
+#3'Top'#2'H'#5'Width'#2'2'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'
+#6#6'Binder'#8'TabOrder'#2#3#0#0#0#5'TEdit'#12'edtOutputDir'#4'Left'#2#16#6
+'Height'#2#23#3'Top'#2'&'#5'Width'#3'P'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#8'TabOrder'#2#1#0#0#7'TButton'#12'btnSelectDir'#4'Left'#3'j'#1#6
+'Height'#2#25#3'Top'#2'$'#5'Width'#2#25#7'Anchors'#11#5'akTop'#7'akRight'#0
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#17'btnSe'
+'lectDirClick'#8'TabOrder'#2#2#0#0#0#11'TActionList'#2'AL'#4'left'#3#144#0#3
+'top'#3#160#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'
+#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#22'TS'
+'electDirectoryDialog'#2'SD'#5'Title'#6#21'Choisir un r'#233'pertoire'#11'Fi'
+'lterIndex'#2#0#4'left'#2'e'#3'top'#3#142#0#0#0#0
]);

2
wst/trunk/type_lib_edtr/ufrmsaveoption.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ActnList;
StdCtrls, ActnList, Buttons;
type

9
wst/trunk/type_lib_edtr/uftypealiasedit.lfm
View File

@ -5,18 +5,15 @@ object fTypeAliasEdit: TfTypeAliasEdit
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
ActiveControl = Button1
BorderStyle = bsSizeToolWin
Caption = 'fTypeAliasEdit'
ClientHeight = 300
ClientWidth = 400
Position = poScreenCenter
object Panel1: TPanel
Height = 50
Top = 250
Width = 400
Align = alBottom
ClientHeight = 50
ClientWidth = 400
TabOrder = 0
object Button1: TButton
Left = 232
@ -49,14 +46,13 @@ object fTypeAliasEdit: TfTypeAliasEdit
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Type Alias'
ClientHeight = 224
ClientWidth = 392
object Label1: TLabel
Left = 20
Height = 14
Top = 26
Width = 28
Caption = 'Name'
Color = clNone
ParentColor = False
end
object Label2: TLabel
@ -65,6 +61,7 @@ object fTypeAliasEdit: TfTypeAliasEdit
Top = 114
Width = 51
Caption = 'Base Type'
Color = clNone
ParentColor = False
end
object edtName: TEdit

49
wst/trunk/type_lib_edtr/uftypealiasedit.lrs
View File

@ -3,29 +3,28 @@
LazarusResources.Add('TfTypeAliasEdit','FORMDATA',[
'TPF0'#15'TfTypeAliasEdit'#14'fTypeAliasEdit'#4'Left'#3#181#2#6'Height'#3','#1
+#3'Top'#3#186#0#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrol'
+'lBar.Page'#3'+'#1#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#14'fType'
+'AliasEdit'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'Position'#7#14
+'poScreenCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#250#0#5'Width'
+#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3#144#1
+#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#232#0#6'Height'#2#25#3'To'
+'p'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'
+#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TButton'#7'Button'
+'2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'
+#6#6'Cancel'#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Heigh'
+'t'#3#250#0#5'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alCl'
+'ient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'
+#6#10'Type Alias'#12'ClientHeight'#3#224#0#11'ClientWidth'#3#136#1#0#6'TLabe'
+'l'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Captio'
+'n'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Heigh'
+'t'#2#14#3'Top'#2'r'#5'Width'#2'3'#7'Caption'#6#9'Base Type'#11'ParentColor'
+#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'*'#5'Width'#3
+'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#0#0#9'TC'
+'omboBox'#11'edtBaseType'#4'Left'#2#20#6'Height'#2#21#3'Top'#3#130#0#5'Width'
+#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11
+#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9
+'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#0#0#11'TAc'
+'tionList'#2'AL'#4'left'#3#147#0#3'top'#2'x'#0#7'TAction'#5'actOK'#7'Caption'
+#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'
+#7#11'actOKUpdate'#0#0#0#0
+'lBar.Page'#3'+'#1#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSiz'
+'eToolWin'#7'Caption'#6#14'fTypeAliasEdit'#8'Position'#7#14'poScreenCenter'#0
+#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#250#0#5'Width'#3#144#1#5'Align'
+#7#8'alBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#232#0#6'Hei'
+'ght'#2#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'ak'
+'Top'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'T'
+'Button'#7'Button2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#7
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cance'
+'l'#9#7'Caption'#6#6'Cancel'#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageC'
+'ontrol1'#6'Height'#3#250#0#5'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5
+'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSh'
+'eet1'#7'Caption'#6#10'Type Alias'#0#6'TLabel'#6'Label1'#4'Left'#2#20#6'Heig'
+'ht'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Height'#2#14#3'Top'
+#2'r'#5'Width'#2'3'#7'Caption'#6#9'Base Type'#5'Color'#7#6'clNone'#11'Parent'
+'Color'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'*'#5
+'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0
+#0#0#9'TComboBox'#11'edtBaseType'#4'Left'#2#20#6'Height'#2#21#3'Top'#3#130#0
+#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoComple'
+'teText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHei'
+'ght'#2#13#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0
+#0#0#11'TActionList'#2'AL'#4'left'#3#147#0#3'top'#2'x'#0#7'TAction'#5'actOK'
+#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'
+#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
]);

2
wst/trunk/type_lib_edtr/uftypealiasedit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls,
ComCtrls, StdCtrls, Buttons,
pastree, pascal_parser_intf, edit_helper, ActnList;
type

8
wst/trunk/type_lib_edtr/umoduleedit.lfm
View File

@ -8,16 +8,12 @@ object fModuleEdit: TfModuleEdit
ActiveControl = Button1
BorderStyle = bsSizeToolWin
Caption = 'fModuleEdit'
ClientHeight = 300
ClientWidth = 400
Position = poMainFormCenter
object Panel1: TPanel
Height = 50
Top = 250
Width = 400
Align = alBottom
ClientHeight = 50
ClientWidth = 400
TabOrder = 0
object Button1: TButton
Left = 224
@ -50,14 +46,13 @@ object fModuleEdit: TfModuleEdit
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Module'
ClientHeight = 224
ClientWidth = 392
object Label1: TLabel
Left = 20
Height = 14
Top = 39
Width = 28
Caption = 'Name'
Color = clNone
ParentColor = False
end
object Label2: TLabel
@ -66,6 +61,7 @@ object fModuleEdit: TfModuleEdit
Top = 127
Width = 56
Caption = 'Namespace'
Color = clNone
ParentColor = False
end
object edtName: TEdit

45
wst/trunk/type_lib_edtr/umoduleedit.lrs
View File

@ -1,27 +1,28 @@
{ Ceci est un fichier ressource g�n�r� automatiquement par Lazarus }
LazarusResources.Add('TfModuleEdit','FORMDATA',[
'TPF0'#12'TfModuleEdit'#11'fModuleEdit'#4'Left'#3#238#2#6'Height'#3','#1#3'To'
+'p'#2'\'#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Pa'
+'ge'#3'+'#1#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSizeToolWi'
+'n'#7'Caption'#6#11'fModuleEdit'#12'ClientHeight'#3','#1#11'ClientWidth'#3
+#144#1#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2
+'2'#3'Top'#3#250#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2
+'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3
+#224#0#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#25'Bord'
+'erSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Bu'
+'tton2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#25'BorderSpa'
+'cing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2
+#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Height'#3#250#0#5
+'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIn'
+'dex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#6'Module'
+#12'ClientHeight'#3#224#0#11'ClientWidth'#3#136#1#0#6'TLabel'#6'Label1'#4'Le'
+'ft'#2#20#6'Height'#2#14#3'Top'#2''''#5'Width'#2#28#7'Caption'#6#4'Name'#11
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Height'#2#14#3'Top'#2
+''#5'Width'#2'8'#7'Caption'#6#9'Namespace'#11'ParentColor'#8#0#0#5'TEdit'#7
+'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'7'#5'Width'#3'`'#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0
+#5'TEdit'#12'edtNamespace'#4'Left'#2#20#6'Height'#2#23#3'Top'#3#143#0#5'Widt'
+'h'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'T'
+'ext'#6#12'edtNamespace'#0#0#0#0#11'TActionList'#2'AL'#4'left'#2's'#3'top'#2
+'~'#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnEx'
+'ecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
+'n'#7'Caption'#6#11'fModuleEdit'#8'Position'#7#16'poMainFormCenter'#0#6'TPan'
+'el'#6'Panel1'#6'Height'#2'2'#3'Top'#3#250#0#5'Width'#3#144#1#5'Align'#7#8'a'
+'lBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#224#0#6'Height'#2
+#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#25'BorderSpacing.InnerBor'
+'der'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'8'
+#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4
+#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0
+#12'TPageControl'#12'PageControl1'#6'Height'#3#250#0#5'Width'#3#144#1#10'Act'
+'ivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2
+#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#6'Module'#0#6'TLabel'#6'Label1'#4
+'Left'#2#20#6'Height'#2#14#3'Top'#2''''#5'Width'#2#28#7'Caption'#6#4'Name'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6
+'Height'#2#14#3'Top'#2''#5'Width'#2'8'#7'Caption'#6#9'Namespace'#5'Color'#7
+#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2
+#23#3'Top'#2'7'#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0#5'TEdit'#12'edtNamespace'#4'Left'#2
+#20#6'Height'#2#23#3'Top'#3#143#0#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Text'#6#12'edtNamespace'#0#0#0#0#11'T'
+'ActionList'#2'AL'#4'left'#2's'#3'top'#2'~'#0#7'TAction'#5'actOK'#7'Caption'
+#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'
+#7#11'actOKUpdate'#0#0#0#0
]);

2
wst/trunk/type_lib_edtr/umoduleedit.pas
View File

@ -18,7 +18,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList,
ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf,
edit_helper;

4
wst/trunk/ws_helper/wsdl2pas_imp.pas
View File

@ -760,7 +760,7 @@ var
tmpCrs.Reset();
if tmpCrs.MoveNext() then begin
nd := (tmpCrs.GetCurrent() as TDOMNodeRttiExposer).InnerObject;
if nd.HasAttributes() then begin
if ( nd.Attributes <> nil ) then begin
nd := nd.Attributes.GetNamedItem(s_value);
if Assigned(nd) then
Result := Trim(nd.NodeValue);
@ -2042,7 +2042,7 @@ var
tmpCrs.Reset();
if tmpCrs.MoveNext() then begin
nd := (tmpCrs.GetCurrent() as TDOMNodeRttiExposer).InnerObject;
if nd.HasAttributes() then begin
if ( nd.Attributes <> nil ) then begin
nd := nd.Attributes.GetNamedItem(s_headerBlock);
if Assigned(nd) then
Result := AnsiSameText('true',Trim(nd.NodeValue));