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 begin
Result := ExtractFilePath(ParamStr(0)); Result := ExtractFilePath(ParamStr(0));
end; end;
function GetAppConfigFile(const AGlobal : Boolean) : string;
begin
Result := ChangeFileExt(ParamStr(0),'.xml');
end;
{$ENDIF} {$ENDIF}
function wst_GetConfigFileName():string; 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.inc}
{$INCLUDE wst_delphi.inc} {$INCLUDE wst_delphi.inc}
const
sSERVER_PORT = 1234;
type type
{$IFDEF INDY_9} {$IFDEF INDY_9}
@ -55,7 +58,7 @@ type
public public
constructor Create( constructor Create(
const AServerIpAddress : string = '127.0.0.1'; const AServerIpAddress : string = '127.0.0.1';
const AListningPort : Integer = 1234; const AListningPort : Integer = sSERVER_PORT;
const ADefaultClientPort : Integer = 25000 const ADefaultClientPort : Integer = 25000
); );
destructor Destroy(); override; destructor Destroy(); override;

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

@ -35,7 +35,7 @@
<Filename Value="amazon_sample.pas"/> <Filename Value="amazon_sample.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="amazon_sample"/> <UnitName Value="amazon_sample"/>
<CursorPos X="19" Y="12"/> <CursorPos X="44" Y="12"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
@ -88,7 +88,7 @@
<Filename Value="..\..\semaphore.pas"/> <Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/> <UnitName Value="semaphore"/>
<CursorPos X="1" Y="140"/> <CursorPos X="1" Y="140"/>
<TopLine Value="116"/> <TopLine Value="114"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <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" -O"..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter"
-I"..\..\;..\..\..\;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" -R"..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter"
-DINDY_9
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -w-UNSAFE_CAST

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

@ -96,7 +96,7 @@ PackageDLLOutputDir=
PackageDCPOutputDir= PackageDCPOutputDir=
SearchPath=..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\synapse;..\..\..\wst_rtti_filter 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 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= DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [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\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\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. 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] [HistoryLists\hlUnitAliases]
Count=1 Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 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,
metadata_service_imp, metadata_service_imp,
metadata_service_binder, metadata_service_binder,
synapse_tcp_server, //synapse_tcp_server,
indy_tcp_server,
user_service_intf, user_service_intf,
user_service_intf_binder, user_service_intf_binder,
user_service_intf_imp, user_service_intf_imp,
imp_helper, imp_helper,
server_service_xmlrpc; server_service_xmlrpc,
server_listener;
{$INCLUDE wst.inc} {$INCLUDE wst.inc}
var var
listnerThread : TServerListnerThread; listener : TwstListener;
begin begin
CoInitialize(nil); CoInitialize(nil);
try try
SetLogger(TConsoleLogger.Create());
Server_service_RegisterBinaryFormat(); Server_service_RegisterBinaryFormat();
Server_service_RegisterSoapFormat(); Server_service_RegisterSoapFormat();
Server_service_RegisterXmlRpcFormat(); Server_service_RegisterXmlRpcFormat();
@ -39,9 +39,11 @@ begin
RegisterUserServiceImplementationFactory(); RegisterUserServiceImplementationFactory();
Server_service_RegisterUserServiceService(); Server_service_RegisterUserServiceService();
Logger().Log('WST sample TCP Server listning on "%s"',[sSERVER_PORT]); WriteLn(Format('WST sample TCP Server listning on "%d"',[sSERVER_PORT]));
Logger().Log('Hit <enter> to stop.'); WriteLn('Hit <enter> to stop.');
listnerThread := TServerListnerThread.Create(); //listener := TwstSynapseTcpListener.Create();
listener := TwstIndyTcpListener.Create();
listener.Start();
ReadLn; ReadLn;
finally finally
CoUninitialize(); CoUninitialize();

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

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

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

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -10,7 +10,7 @@
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
@ -19,6 +19,7 @@
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -26,7 +27,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <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> </local>
</RunParams> </RunParams>
<Units Count="43"> <Units Count="43">
@ -41,7 +42,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="../user_service_intf_proxy.pas"/> <Filename Value="..\user_service_intf_proxy.pas"/>
<UnitName Value="user_service_intf_proxy"/> <UnitName Value="user_service_intf_proxy"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -50,7 +51,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../synapse_tcp_protocol.pas"/> <Filename Value="..\..\synapse_tcp_protocol.pas"/>
<UnitName Value="synapse_tcp_protocol"/> <UnitName Value="synapse_tcp_protocol"/>
<CursorPos X="17" Y="29"/> <CursorPos X="17" Y="29"/>
<TopLine Value="16"/> <TopLine Value="16"/>
@ -59,7 +60,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../service_intf.pas"/> <Filename Value="..\..\service_intf.pas"/>
<UnitName Value="service_intf"/> <UnitName Value="service_intf"/>
<CursorPos X="51" Y="34"/> <CursorPos X="51" Y="34"/>
<TopLine Value="21"/> <TopLine Value="21"/>
@ -68,7 +69,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../user_service_intf.pas"/> <Filename Value="..\user_service_intf.pas"/>
<UnitName Value="user_service_intf"/> <UnitName Value="user_service_intf"/>
<CursorPos X="53" Y="11"/> <CursorPos X="53" Y="11"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -77,21 +78,21 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../../lazarus23_213/others_package/synapse/blcksock.pas"/> <Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="60" Y="2413"/> <CursorPos X="60" Y="2413"/>
<TopLine Value="2393"/> <TopLine Value="2393"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../base_service_intf.pas"/> <Filename Value="..\..\base_service_intf.pas"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="32"/> <UsageCount Value="32"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../library_protocol.pas"/> <Filename Value="..\..\library_protocol.pas"/>
<UnitName Value="library_protocol"/> <UnitName Value="library_protocol"/>
<CursorPos X="57" Y="57"/> <CursorPos X="57" Y="57"/>
<TopLine Value="2"/> <TopLine Value="2"/>
@ -100,44 +101,44 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <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"/> <CursorPos X="10" Y="33"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit8> </Unit8>
<Unit9> <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"/> <CursorPos X="13" Y="112"/>
<TopLine Value="105"/> <TopLine Value="105"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit9> </Unit9>
<Unit10> <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"/> <CursorPos X="33" Y="202"/>
<TopLine Value="188"/> <TopLine Value="188"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit10> </Unit10>
<Unit11> <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"/> <UnitName Value="System"/>
<CursorPos X="20" Y="35"/> <CursorPos X="20" Y="35"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit11> </Unit11>
<Unit12> <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"/> <CursorPos X="10" Y="86"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit12> </Unit12>
<Unit13> <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"/> <CursorPos X="54" Y="33"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../synapse_http_protocol.pas"/> <Filename Value="..\..\synapse_http_protocol.pas"/>
<UnitName Value="synapse_http_protocol"/> <UnitName Value="synapse_http_protocol"/>
<CursorPos X="15" Y="59"/> <CursorPos X="15" Y="59"/>
<TopLine Value="45"/> <TopLine Value="45"/>
@ -146,33 +147,33 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../../metadata_repository.pas"/> <Filename Value="..\..\metadata_repository.pas"/>
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../wst.inc"/> <Filename Value="..\..\wst.inc"/>
<CursorPos X="17" Y="15"/> <CursorPos X="17" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../library_imp_utils.pas"/> <Filename Value="..\..\library_imp_utils.pas"/>
<UnitName Value="library_imp_utils"/> <UnitName Value="library_imp_utils"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit17> </Unit17>
<Unit18> <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"/> <CursorPos X="17" Y="27"/>
<TopLine Value="13"/> <TopLine Value="13"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../../semaphore.pas"/> <Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/> <UnitName Value="semaphore"/>
<CursorPos X="1" Y="140"/> <CursorPos X="1" Y="140"/>
<TopLine Value="111"/> <TopLine Value="111"/>
@ -181,7 +182,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../../soap_formatter.pas"/> <Filename Value="..\..\soap_formatter.pas"/>
<UnitName Value="soap_formatter"/> <UnitName Value="soap_formatter"/>
<CursorPos X="3" Y="232"/> <CursorPos X="3" Y="232"/>
<TopLine Value="221"/> <TopLine Value="221"/>
@ -190,7 +191,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../../xmlrpc_formatter.pas"/> <Filename Value="..\..\xmlrpc_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="xmlrpc_formatter"/> <UnitName Value="xmlrpc_formatter"/>
<CursorPos X="54" Y="21"/> <CursorPos X="54" Y="21"/>
@ -198,7 +199,7 @@
<UsageCount Value="62"/> <UsageCount Value="62"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../../binary_formatter.pas"/> <Filename Value="..\..\binary_formatter.pas"/>
<UnitName Value="binary_formatter"/> <UnitName Value="binary_formatter"/>
<CursorPos X="20" Y="21"/> <CursorPos X="20" Y="21"/>
<TopLine Value="12"/> <TopLine Value="12"/>
@ -207,61 +208,61 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../../wst_delphi.inc"/> <Filename Value="..\..\wst_delphi.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../../base_xmlrpc_formatter.pas"/> <Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<UnitName Value="base_xmlrpc_formatter"/> <UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="25" Y="31"/> <CursorPos X="25" Y="31"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="../../base_soap_formatter.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
<CursorPos X="3" Y="40"/> <CursorPos X="3" Y="40"/>
<TopLine Value="22"/> <TopLine Value="22"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
</Unit25> </Unit25>
<Unit26> <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"/> <CursorPos X="3" Y="592"/>
<TopLine Value="590"/> <TopLine Value="590"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit26> </Unit26>
<Unit27> <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"/> <UnitName Value="typinfo"/>
<CursorPos X="1" Y="483"/> <CursorPos X="1" Y="483"/>
<TopLine Value="469"/> <TopLine Value="469"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../../../../../lazarus_23_215/others_package/synapse/blcksock.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/> <CursorPos X="1" Y="2407"/>
<TopLine Value="2393"/> <TopLine Value="2393"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit28> </Unit28>
<Unit29> <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"/> <UnitName Value="XMLRead"/>
<CursorPos X="1" Y="2763"/> <CursorPos X="1" Y="2763"/>
<TopLine Value="2749"/> <TopLine Value="2749"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../../imp_utils.pas"/> <Filename Value="..\..\imp_utils.pas"/>
<UnitName Value="imp_utils"/> <UnitName Value="imp_utils"/>
<CursorPos X="41" Y="3"/> <CursorPos X="41" Y="3"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="../../wst_fpc_xml.pas"/> <Filename Value="..\..\wst_fpc_xml.pas"/>
<UnitName Value="wst_fpc_xml"/> <UnitName Value="wst_fpc_xml"/>
<CursorPos X="34" Y="67"/> <CursorPos X="34" Y="67"/>
<TopLine Value="42"/> <TopLine Value="42"/>
@ -270,42 +271,42 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit31> </Unit31>
<Unit32> <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"/> <UnitName Value="typinfo"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="34"/> <TopLine Value="34"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../../base_binary_formatter.pas"/> <Filename Value="..\..\base_binary_formatter.pas"/>
<UnitName Value="base_binary_formatter"/> <UnitName Value="base_binary_formatter"/>
<CursorPos X="22" Y="27"/> <CursorPos X="22" Y="27"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
</Unit33> </Unit33>
<Unit34> <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"/> <UnitName Value="DOM"/>
<CursorPos X="14" Y="287"/> <CursorPos X="14" Y="287"/>
<TopLine Value="274"/> <TopLine Value="274"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/synapse/httpsend.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\httpsend.pas"/>
<UnitName Value="httpsend"/> <UnitName Value="httpsend"/>
<CursorPos X="23" Y="72"/> <CursorPos X="23" Y="72"/>
<TopLine Value="143"/> <TopLine Value="143"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../../../../../lazarus_23_215XX/others_package/synapse/blcksock.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="3" Y="1325"/> <CursorPos X="3" Y="1325"/>
<TopLine Value="1279"/> <TopLine Value="1279"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../indy_http_protocol.pas"/> <Filename Value="..\..\indy_http_protocol.pas"/>
<UnitName Value="indy_http_protocol"/> <UnitName Value="indy_http_protocol"/>
<CursorPos X="1" Y="16"/> <CursorPos X="1" Y="16"/>
<TopLine Value="109"/> <TopLine Value="109"/>
@ -314,21 +315,21 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit37> </Unit37>
<Unit38> <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"/> <UnitName Value="IdHTTP"/>
<CursorPos X="49" Y="343"/> <CursorPos X="49" Y="343"/>
<TopLine Value="582"/> <TopLine Value="582"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../ics_tcp_protocol.pas"/> <Filename Value="..\..\ics_tcp_protocol.pas"/>
<UnitName Value="ics_tcp_protocol"/> <UnitName Value="ics_tcp_protocol"/>
<CursorPos X="1" Y="31"/> <CursorPos X="1" Y="31"/>
<TopLine Value="18"/> <TopLine Value="18"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../ics_http_protocol.pas"/> <Filename Value="..\..\ics_http_protocol.pas"/>
<UnitName Value="ics_http_protocol"/> <UnitName Value="ics_http_protocol"/>
<CursorPos X="55" Y="72"/> <CursorPos X="55" Y="72"/>
<TopLine Value="128"/> <TopLine Value="128"/>
@ -337,7 +338,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="../../same_process_protocol.pas"/> <Filename Value="..\..\same_process_protocol.pas"/>
<UnitName Value="same_process_protocol"/> <UnitName Value="same_process_protocol"/>
<CursorPos X="77" Y="83"/> <CursorPos X="77" Y="83"/>
<TopLine Value="31"/> <TopLine Value="31"/>
@ -346,10 +347,10 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="../../type_lib_edtr/ubindingedit.pas"/> <Filename Value="..\..\type_lib_edtr\ubindingedit.pas"/>
<ComponentName Value="fBindingEdit"/> <ComponentName Value="fBindingEdit"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../type_lib_edtr/ubindingedit.lrs"/> <ResourceFilename Value="..\..\type_lib_edtr\ubindingedit.lrs"/>
<UnitName Value="ubindingedit"/> <UnitName Value="ubindingedit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -358,92 +359,16 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit42> </Unit42>
</Units> </Units>
<JumpHistory Count="19" HistoryIndex="18"> <JumpHistory Count="0" HistoryIndex="-1"/>
<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>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="user_client_console.exe"/> <Filename Value="user_client_console.exe"/>
</Target> </Target>
<SearchPaths> <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"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
@ -462,19 +387,19 @@
<Debugging> <Debugging>
<BreakPoints Count="4"> <BreakPoints Count="4">
<Item1> <Item1>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/> <Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="230"/> <Line Value="230"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/> <Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="193"/> <Line Value="193"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/> <Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="198"/> <Line Value="198"/>
</Item3> </Item3>
<Item4> <Item4>
<Source Value="../../ws_helper/wsdl2pas_imp.pas"/> <Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/>
<Line Value="606"/> <Line Value="606"/>
</Item4> </Item4>
</BreakPoints> </BreakPoints>

55
wst/trunk/synapse_tcp_server.pas
View File

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

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

@ -27,7 +27,7 @@
<PackageName Value="FPCUnitTestRunner"/> <PackageName Value="FPCUnitTestRunner"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="65"> <Units Count="72">
<Unit0> <Unit0>
<Filename Value="wst_test_suite.lpr"/> <Filename Value="wst_test_suite.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -73,7 +73,7 @@
<UnitName Value="base_binary_formatter"/> <UnitName Value="base_binary_formatter"/>
<CursorPos X="15" Y="1479"/> <CursorPos X="15" Y="1479"/>
<TopLine Value="1464"/> <TopLine Value="1464"/>
<EditorIndex Value="6"/> <EditorIndex Value="13"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
@ -115,7 +115,7 @@
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
<CursorPos X="14" Y="14"/> <CursorPos X="14" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="11"/> <EditorIndex Value="18"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="38" Y="490" ID="2"/> <Item0 X="38" Y="490" ID="2"/>
@ -144,7 +144,7 @@
<UnitName Value="testmetadata_unit"/> <UnitName Value="testmetadata_unit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <EditorIndex Value="15"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -174,7 +174,7 @@
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
<CursorPos X="44" Y="21"/> <CursorPos X="44" Y="21"/>
<TopLine Value="209"/> <TopLine Value="209"/>
<EditorIndex Value="7"/> <EditorIndex Value="14"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
@ -473,7 +473,7 @@
<UnitName Value="test_utilities"/> <UnitName Value="test_utilities"/>
<CursorPos X="29" Y="43"/> <CursorPos X="29" Y="43"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<EditorIndex Value="10"/> <EditorIndex Value="17"/>
<UsageCount Value="48"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit57> </Unit57>
@ -489,7 +489,7 @@
<UnitName Value="testregistry"/> <UnitName Value="testregistry"/>
<CursorPos X="39" Y="27"/> <CursorPos X="39" Y="27"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<EditorIndex Value="9"/> <EditorIndex Value="16"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit59> </Unit59>
@ -525,21 +525,86 @@
<TopLine Value="46"/> <TopLine Value="46"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit64> </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> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="0" HistoryIndex="-1"/>
<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>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>

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

@ -8,16 +8,12 @@ object fBindingEdit: TfBindingEdit
ActiveControl = edtName ActiveControl = edtName
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fBindingEdit' Caption = 'fBindingEdit'
ClientHeight = 354
ClientWidth = 400
Position = poMainFormCenter Position = poMainFormCenter
object Panel1: TPanel object Panel1: TPanel
Height = 50 Height = 50
Top = 304 Top = 304
Width = 400 Width = 400
Align = alBottom Align = alBottom
ClientHeight = 50
ClientWidth = 400
TabOrder = 0 TabOrder = 0
object Button1: TButton object Button1: TButton
Left = 224 Left = 224
@ -52,29 +48,29 @@ object fBindingEdit: TfBindingEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Interface Binding' Caption = 'Interface Binding'
ClientHeight = 270
ClientWidth = 396
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 12
Height = 17 Height = 14
Top = 26 Top = 26
Width = 45 Width = 28
Caption = 'Name' Caption = 'Name'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 12 Left = 12
Height = 17 Height = 14
Top = 98 Top = 98
Width = 60 Width = 40
Caption = 'Address' Caption = 'Address'
Color = clNone
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 12 Left = 12
Height = 23 Height = 23
Top = 50 Top = 50
Width = 360 Width = 356
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 0 TabOrder = 0
Text = 'edtName' Text = 'edtName'
@ -83,7 +79,7 @@ object fBindingEdit: TfBindingEdit
Left = 12 Left = 12
Height = 23 Height = 23
Top = 114 Top = 114
Width = 360 Width = 356
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 1 TabOrder = 1
Text = 'edtAddress' Text = 'edtAddress'
@ -103,8 +99,6 @@ object fBindingEdit: TfBindingEdit
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 71
ClientWidth = 356
Columns = 2 Columns = 2
Items.Strings = ( Items.Strings = (
'Document' '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 '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.' +'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' +'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 +'Win'#7'Caption'#6#12'fBindingEdit'#8'Position'#7#16'poMainFormCenter'#0#6'T'
+#144#1#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2 +'Panel'#6'Panel1'#6'Height'#2'2'#3'Top'#3'0'#1#5'Width'#3#144#1#5'Align'#7#8
+'2'#3'Top'#3'0'#1#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2 +'alBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#224#0#6'Height'
+'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3 +#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7
+#224#0#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Ancho' +'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0
+'rs'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9 +#0#7'TButton'#7'Button2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2
+#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'8'#1#6'Height'#2#25#3'T' +'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6
+'op'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing' +'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0
+'.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8 +#12'TPageControl'#12'PageControl1'#6'Height'#3'0'#1#5'Width'#3#144#1#10'Acti'
+'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Height'#3'0'#1#5'Wi' +'vePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2
+'dth'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabInde' +#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#17'Interface Binding'#0#6'TLabel'
+'x'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#17'Interfac' +#6'Label1'#4'Left'#2#12#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6
+'e Binding'#12'ClientHeight'#3#14#1#11'ClientWidth'#3#140#1#0#6'TLabel'#6'La' +#4'Name'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Le'
+'bel1'#4'Left'#2#12#6'Height'#2#17#3'Top'#2#26#5'Width'#2'-'#7'Caption'#6#4 +'ft'#2#12#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'('#7'Caption'#6#7'Address'#5
+'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#12#6'Height'#2#17 +'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#12#6
+#3'Top'#2'b'#5'Width'#2'<'#7'Caption'#6#7'Address'#11'ParentColor'#8#0#0#5'T' +'Height'#2#23#3'Top'#2'2'#5'Width'#3'd'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'Edit'#7'edtName'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'2'#5'Width'#3'h'#1#7 +'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0#5'TEdit'#10'edtAddress'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edt' +#4'Left'#2#12#6'Height'#2#23#3'Top'#2'r'#5'Width'#3'd'#1#7'Anchors'#11#5'akT'
+'Name'#0#0#5'TEdit'#10'edtAddress'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'r'#5 +'op'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Text'#6#10'edtAddress'#0#0#11
+'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1 +'TRadioGroup'#8'edtStyle'#4'Left'#2#12#6'Height'#2'\'#3'Top'#3#165#0#5'Width'
+#4'Text'#6#10'edtAddress'#0#0#11'TRadioGroup'#8'edtStyle'#4'Left'#2#12#6'Hei' +#3'h'#1#8'AutoFill'#9#7'Caption'#6#9' Style '#28'ChildSizing.LeftRightSpac'
+'ght'#2'\'#3'Top'#3#165#0#5'Width'#3'h'#1#8'AutoFill'#9#7'Caption'#6#9' Sty' +'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon'
+'le '#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing' +'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr'
+#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Chi' +'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild'
+'ldSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shr' +'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou'
+'inkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crs' +'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7
+'ScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27 +'Columns'#2#2#13'Items.Strings'#1#6#8'Document'#6#3'RPC'#0#8'TabOrder'#2#2#0
+'ChildSizing.ControlsPerLine'#2#2#12'ClientHeight'#2'G'#11'ClientWidth'#3'd' +#0#0#0#11'TActionList'#2'AL'#4'left'#2'U'#3'top'#2'd'#0#7'TAction'#5'actOK'#7
+#1#7'Columns'#2#2#13'Items.Strings'#1#6#8'Document'#6#3'RPC'#0#8'TabOrder'#2 +'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8
+#2#0#0#0#0#11'TActionList'#2'AL'#4'left'#2'U'#3'top'#2'd'#0#7'TAction'#5'act' +'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
+'OK'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExec'
+'ute'#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 uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList, ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf, pastree, pascal_parser_intf,
edit_helper; edit_helper;

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

@ -8,16 +8,12 @@ object fArrayEdit: TfArrayEdit
ActiveControl = Button1 ActiveControl = Button1
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fArrayEdit' Caption = 'fArrayEdit'
ClientHeight = 361
ClientWidth = 392
Position = poMainFormCenter Position = poMainFormCenter
object Panel1: TPanel object Panel1: TPanel
Height = 50 Height = 50
Top = 311 Top = 311
Width = 392 Width = 392
Align = alBottom Align = alBottom
ClientHeight = 50
ClientWidth = 392
TabOrder = 0 TabOrder = 0
object Button1: TButton object Button1: TButton
Left = 216 Left = 216
@ -51,14 +47,13 @@ object fArrayEdit: TfArrayEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Array definition' Caption = 'Array definition'
ClientHeight = 285
ClientWidth = 384
object Label1: TLabel object Label1: TLabel
Left = 19 Left = 19
Height = 14 Height = 14
Top = 21 Top = 21
Width = 28 Width = 28
Caption = 'Name' Caption = 'Name'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
@ -67,6 +62,7 @@ object fArrayEdit: TfArrayEdit
Top = 102 Top = 102
Width = 66 Width = 66
Caption = 'Element Type' Caption = 'Element Type'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
@ -75,6 +71,7 @@ object fArrayEdit: TfArrayEdit
Top = 170 Top = 170
Width = 69 Width = 69
Caption = 'Element Name' Caption = 'Element Name'
Color = clNone
ParentColor = False ParentColor = False
end end
object edtName: TEdit 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 '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' +#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 +#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 +'Caption'#6#10'fArrayEdit'#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6
+'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top' +'Panel1'#6'Height'#2'2'#3'Top'#3'7'#1#5'Width'#3#136#1#5'Align'#7#8'alBottom'
+#3'7'#1#5'Width'#3#136#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'Cli' +#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#216#0#6'Height'#2#25#3'To'
+'entWidth'#3#136#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#216#0#6 +'p'#2#9#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'
+'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5 +#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TButton'#7'Button'
+'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7 +'2'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#7'Anchors'#11#5'a'
+'TButton'#7'Button2'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'K'#7 +'kTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cance' +#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'P'
+'l'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#12'TP' +'ageControl1'#6'Height'#3'7'#1#5'Width'#3#136#1#10'ActivePage'#7#9'TabSheet1'
+'ageControl'#12'PageControl1'#6'Height'#3'7'#1#5'Width'#3#136#1#10'ActivePag' +#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'Tab'
+'e'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9 +'Sheet1'#7'Caption'#6#16'Array definition'#0#6'TLabel'#6'Label1'#4'Left'#2#19
+'TTabSheet'#9'TabSheet1'#7'Caption'#6#16'Array definition'#12'ClientHeight'#3 +#6'Height'#2#14#3'Top'#2#21#5'Width'#2#28#7'Caption'#6#4'Name'#5'Color'#7#6
+#29#1#11'ClientWidth'#3#128#1#0#6'TLabel'#6'Label1'#4'Left'#2#19#6'Height'#2 +'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#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' +#14#3'Top'#2'f'#5'Width'#2'B'#7'Caption'#6#12'Element Type'#5'Color'#7#6'clN'
+'Label'#6'Label2'#4'Left'#2#19#6'Height'#2#14#3'Top'#2'f'#5'Width'#2'B'#7'Ca' +'one'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#19#6'Height'#2#14#3
+'ption'#6#12'Element Type'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left' +'Top'#3#170#0#5'Width'#2'E'#7'Caption'#6#12'Element Name'#5'Color'#7#6'clNon'
+#2#19#6'Height'#2#14#3'Top'#3#170#0#5'Width'#2'E'#7'Caption'#6#12'Element Na' +'e'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3
+'me'#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' +'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 +'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 +#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 uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList, ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf, edit_helper; pastree, pascal_parser_intf, edit_helper;
type type

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

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

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

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

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

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

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

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

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

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

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

@ -8,16 +8,12 @@ object fModuleEdit: TfModuleEdit
ActiveControl = Button1 ActiveControl = Button1
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fModuleEdit' Caption = 'fModuleEdit'
ClientHeight = 300
ClientWidth = 400
Position = poMainFormCenter Position = poMainFormCenter
object Panel1: TPanel object Panel1: TPanel
Height = 50 Height = 50
Top = 250 Top = 250
Width = 400 Width = 400
Align = alBottom Align = alBottom
ClientHeight = 50
ClientWidth = 400
TabOrder = 0 TabOrder = 0
object Button1: TButton object Button1: TButton
Left = 224 Left = 224
@ -50,14 +46,13 @@ object fModuleEdit: TfModuleEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Module' Caption = 'Module'
ClientHeight = 224
ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 14 Height = 14
Top = 39 Top = 39
Width = 28 Width = 28
Caption = 'Name' Caption = 'Name'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
@ -66,6 +61,7 @@ object fModuleEdit: TfModuleEdit
Top = 127 Top = 127
Width = 56 Width = 56
Caption = 'Namespace' Caption = 'Namespace'
Color = clNone
ParentColor = False ParentColor = False
end end
object edtName: TEdit 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',[ LazarusResources.Add('TfModuleEdit','FORMDATA',[
'TPF0'#12'TfModuleEdit'#11'fModuleEdit'#4'Left'#3#238#2#6'Height'#3','#1#3'To' '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' +'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' +'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 +'n'#7'Caption'#6#11'fModuleEdit'#8'Position'#7#16'poMainFormCenter'#0#6'TPan'
+#144#1#8'Position'#7#16'poMainFormCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2 +'el'#6'Panel1'#6'Height'#2'2'#3'Top'#3#250#0#5'Width'#3#144#1#5'Align'#7#8'a'
+'2'#3'Top'#3#250#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2 +'lBottom'#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#224#0#6'Height'#2
+'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3 +#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#25'BorderSpacing.InnerBor'
+#224#0#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#25'Bord' +'der'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'8'
+'erSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Bu' +#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4
+'tton2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#25'BorderSpa' +#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0
+'cing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2 +#12'TPageControl'#12'PageControl1'#6'Height'#3#250#0#5'Width'#3#144#1#10'Act'
+#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Height'#3#250#0#5 +'ivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2
+'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIn' +#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#6'Module'#0#6'TLabel'#6'Label1'#4
+'dex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#6'Module' +'Left'#2#20#6'Height'#2#14#3'Top'#2''''#5'Width'#2#28#7'Caption'#6#4'Name'#5
+#12'ClientHeight'#3#224#0#11'ClientWidth'#3#136#1#0#6'TLabel'#6'Label1'#4'Le' +'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6
+'ft'#2#20#6'Height'#2#14#3'Top'#2''''#5'Width'#2#28#7'Caption'#6#4'Name'#11 +'Height'#2#14#3'Top'#2''#5'Width'#2'8'#7'Caption'#6#9'Namespace'#5'Color'#7
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Height'#2#14#3'Top'#2 +#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2
+''#5'Width'#2'8'#7'Caption'#6#9'Namespace'#11'ParentColor'#8#0#0#5'TEdit'#7 +#23#3'Top'#2'7'#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'7'#5'Width'#3'`'#1#7'Anchors' +#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0#5'TEdit'#12'edtNamespace'#4'Left'#2
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0 +#20#6'Height'#2#23#3'Top'#3#143#0#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'a'
+#5'TEdit'#12'edtNamespace'#4'Left'#2#20#6'Height'#2#23#3'Top'#3#143#0#5'Widt' +'kLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Text'#6#12'edtNamespace'#0#0#0#0#11'T'
+'h'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'T' +'ActionList'#2'AL'#4'left'#2's'#3'top'#2'~'#0#7'TAction'#5'actOK'#7'Caption'
+'ext'#6#12'edtNamespace'#0#0#0#0#11'TActionList'#2'AL'#4'left'#2's'#3'top'#2 +#6#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'
+'~'#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9#9'OnEx' +#7#11'actOKUpdate'#0#0#0#0
+'ecute'#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 uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, StdCtrls, ActnList, ComCtrls, StdCtrls, ActnList, Buttons,
pastree, pascal_parser_intf, pastree, pascal_parser_intf,
edit_helper; edit_helper;

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

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