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

small fix : remove file writing, fix interface reference

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1244 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-07-02 15:43:58 +00:00
parent 19b53bc223
commit 27705788ce
7 changed files with 194 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

300
wst/trunk/ide/lazarus/wstmodule/demo/demoservice.lpi
View File

@ -28,30 +28,33 @@
<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>
<RequiredPackages Count="4"> <RequiredPackages Count="5">
<Item1> <Item1>
<PackageName Value="fclwebwst"/> <PackageName Value="wst_core"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="WebLaz"/> <PackageName Value="fclwebwst"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LCL"/> <PackageName Value="WebLaz"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="FCL"/> <PackageName Value="LCL"/>
</Item4> </Item4>
<Item5>
<PackageName Value="FCL"/>
</Item5>
</RequiredPackages> </RequiredPackages>
<Units Count="38"> <Units Count="46">
<Unit0> <Unit0>
<Filename Value="demoservice.lpr"/> <Filename Value="demoservice.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="demoservice"/> <UnitName Value="demoservice"/>
<EditorIndex Value="12"/> <EditorIndex Value="8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="6" Y="1"/> <CursorPos X="73" Y="9"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -62,51 +65,51 @@
<UnitName Value="wmhandler"/> <UnitName Value="wmhandler"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="19"/> <TopLine Value="1"/>
<CursorPos X="53" Y="29"/> <CursorPos X="1" Y="1"/>
<ComponentState Value="1"/> <UsageCount Value="74"/>
<UsageCount Value="71"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="imp_helper.pas"/> <Filename Value="imp_helper.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="imp_helper"/> <UnitName Value="imp_helper"/>
<EditorIndex Value="9"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="6" Y="11"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
<Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<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"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="67"/> <TopLine Value="1"/>
<CursorPos X="11" Y="77"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="user_service_intf_binder.pas"/> <Filename Value="user_service_intf_binder.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="user_service_intf_binder"/> <UnitName Value="user_service_intf_binder"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="270"/> <TopLine Value="1"/>
<CursorPos X="1" Y="290"/> <CursorPos X="52" Y="11"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="user_service_intf_imp.pas"/> <Filename Value="user_service_intf_imp.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="user_service_intf_imp"/> <UnitName Value="user_service_intf_imp"/>
<EditorIndex Value="17"/> <EditorIndex Value="10"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="22"/> <TopLine Value="160"/>
<CursorPos X="26" Y="46"/> <CursorPos X="11" Y="157"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -115,7 +118,7 @@
<UnitName Value="user_service_intf_proxy"/> <UnitName Value="user_service_intf_proxy"/>
<TopLine Value="148"/> <TopLine Value="148"/>
<CursorPos X="4" Y="185"/> <CursorPos X="4" Y="185"/>
<UsageCount Value="71"/> <UsageCount Value="74"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="std_cursors.pas"/> <Filename Value="std_cursors.pas"/>
@ -128,22 +131,19 @@
<Filename Value="../wstmodule.pas"/> <Filename Value="../wstmodule.pas"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="wstmodule"/> <UnitName Value="wstmodule"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="45"/> <TopLine Value="201"/>
<CursorPos X="10" Y="66"/> <CursorPos X="58" Y="212"/>
<UsageCount Value="18"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../../Documents/source/wst/wst_global.inc"/> <Filename Value="../../../Documents/source/wst/wst_global.inc"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="36" Y="18"/> <CursorPos X="36" Y="18"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../fpc/packages/fcl-web/src/httpdefs.pp"/> <Filename Value="../../../fpc/packages/fcl-web/src/httpdefs.pp"/>
@ -244,22 +244,18 @@
<Unit23> <Unit23>
<Filename Value="../../../Documents/source/wst/server_service_json.pas"/> <Filename Value="../../../Documents/source/wst/server_service_json.pas"/>
<UnitName Value="server_service_json"/> <UnitName Value="server_service_json"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="91"/> <TopLine Value="91"/>
<CursorPos X="18" Y="111"/> <CursorPos X="18" Y="111"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../../../Documents/source/wst/base_json_formatter.pas"/> <Filename Value="../../../Documents/source/wst/base_json_formatter.pas"/>
<UnitName Value="base_json_formatter"/> <UnitName Value="base_json_formatter"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="677"/> <TopLine Value="677"/>
<CursorPos X="45" Y="697"/> <CursorPos X="45" Y="697"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="../../../Documents/source/wst/base_service_intf.pas"/> <Filename Value="../../../Documents/source/wst/base_service_intf.pas"/>
@ -271,32 +267,26 @@
<Unit26> <Unit26>
<Filename Value="../../../Documents/source/wst/server_service_intf.pas"/> <Filename Value="../../../Documents/source/wst/server_service_intf.pas"/>
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
<EditorIndex Value="11"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="42"/> <TopLine Value="42"/>
<CursorPos X="35" Y="53"/> <CursorPos X="35" Y="53"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="../../../fpc/rtl/unix/sysutils.pp"/> <Filename Value="../../../fpc/rtl/unix/sysutils.pp"/>
<UnitName Value="sysutils"/> <UnitName Value="sysutils"/>
<EditorIndex Value="16"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="18" Y="7"/> <CursorPos X="18" Y="7"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../../Documents/source/wst/wst_rtti_filter/dom_cursors.pas"/> <Filename Value="../../../Documents/source/wst/wst_rtti_filter/dom_cursors.pas"/>
<UnitName Value="dom_cursors"/> <UnitName Value="dom_cursors"/>
<EditorIndex Value="14"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<CursorPos X="14" Y="29"/> <CursorPos X="14" Y="29"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../../../Documents/source/wst/type_lib_edtr/uwsttypelibraryedit.pas"/> <Filename Value="../../../Documents/source/wst/type_lib_edtr/uwsttypelibraryedit.pas"/>
@ -304,12 +294,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="uwsttypelibraryedit"/> <UnitName Value="uwsttypelibraryedit"/>
<EditorIndex Value="15"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="485"/> <TopLine Value="485"/>
<CursorPos X="40" Y="503"/> <CursorPos X="40" Y="503"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="user_service_intf.wst"/> <Filename Value="user_service_intf.wst"/>
@ -330,22 +318,18 @@
<Unit32> <Unit32>
<Filename Value="../../../Documents/source/wst/metadata_repository.pas"/> <Filename Value="../../../Documents/source/wst/metadata_repository.pas"/>
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
<EditorIndex Value="9"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="80"/> <TopLine Value="80"/>
<CursorPos X="3" Y="95"/> <CursorPos X="3" Y="95"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/>
<UnitName Value="ssfpc"/> <UnitName Value="ssfpc"/>
<EditorIndex Value="10"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="634"/> <TopLine Value="634"/>
<CursorPos X="139" Y="635"/> <CursorPos X="139" Y="635"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../../Documents/source/synapse-38/source/lib/ssfpc.pas"/> <Filename Value="../../../Documents/source/synapse-38/source/lib/ssfpc.pas"/>
@ -357,160 +341,224 @@
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
<EditorIndex Value="13"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="246"/> <TopLine Value="246"/>
<CursorPos X="25" Y="257"/> <CursorPos X="25" Y="257"/>
<SyntaxHighlighter Value="FreePascal"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Text"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../../Documents/source/wst/server_service_imputils.pas"/> <Filename Value="../../../Documents/source/wst/server_service_imputils.pas"/>
<UnitName Value="server_service_imputils"/> <UnitName Value="server_service_imputils"/>
<EditorIndex Value="8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="15"/> <TopLine Value="15"/>
<CursorPos X="3" Y="26"/> <CursorPos X="3" Y="26"/>
<SyntaxHighlighter Value="FreePascal"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Text"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../../fpc/packages/fcl-web/src/websession.pp"/> <Filename Value="../../../fpc/packages/fcl-web/src/websession.pp"/>
<UnitName Value="websession"/> <UnitName Value="websession"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="308"/> <TopLine Value="308"/>
<CursorPos X="1" Y="310"/> <CursorPos X="1" Y="310"/>
<SyntaxHighlighter Value="FreePascal"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Text"/>
</Unit37> </Unit37>
<Unit38>
<Filename Value="../../../../wst_rtti_filter/cursor_intf.pas"/>
<UnitName Value="cursor_intf"/>
<EditorIndex Value="11"/>
<WindowIndex Value="0"/>
<TopLine Value="4"/>
<CursorPos X="2" Y="13"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit38>
<Unit39>
<Filename Value="../../../../../../Programmes/D7/etatcivil/partages/wst/server_service_imputils.pas"/>
<UnitName Value="server_service_imputils"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="11"/>
</Unit39>
<Unit40>
<Filename Value="../../../../server_service_intf.pas"/>
<UnitName Value="server_service_intf"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="28"/>
<CursorPos X="24" Y="31"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit40>
<Unit41>
<Filename Value="../../../../server_service_imputils.pas"/>
<UnitName Value="server_service_imputils"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/>
<TopLine Value="22"/>
<CursorPos X="56" Y="26"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit41>
<Unit42>
<Filename Value="../../../../wst_consts.pas"/>
<UnitName Value="wst_consts"/>
<WindowIndex Value="0"/>
<TopLine Value="52"/>
<CursorPos X="3" Y="60"/>
<UsageCount Value="10"/>
</Unit42>
<Unit43>
<Filename Value="../../../../server_service_json.pas"/>
<UnitName Value="server_service_json"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="58"/>
<CursorPos X="25" Y="70"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit43>
<Unit44>
<Filename Value="E:/fpc_dev/packages/fcl-json/src/fpjson.pp"/>
<UnitName Value="fpjson"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="1358"/>
<CursorPos X="3" Y="1365"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit44>
<Unit45>
<Filename Value="../../../../wst_global.inc"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="15"/>
<CursorPos X="9" Y="25"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit45>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../wstmodule.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="116" Column="22" TopLine="105"/> <Caret Line="190" Column="17" TopLine="180"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="220" Column="24" TopLine="211"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="519" Column="23" TopLine="506"/> <Caret Line="181" Column="28" TopLine="165"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="517" Column="16" TopLine="506"/> <Caret Line="34" Column="82" TopLine="34"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="521" Column="29" TopLine="506"/> <Caret Line="8" Column="58" TopLine="3"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../../../../server_service_imputils.pas"/>
<Caret Line="543" Column="29" TopLine="522"/> <Caret Line="26" Column="56" TopLine="22"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../../../../server_service_intf.pas"/>
<Caret Line="539" Column="35" TopLine="528"/> <Caret Line="47" Column="3" TopLine="39"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="562" Column="41" TopLine="552"/> <Caret Line="8" Column="58" TopLine="3"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="577" Column="38" TopLine="556"/> <Caret Line="9" Column="22" TopLine="5"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="569" Column="51" TopLine="557"/> <Caret Line="138" Column="36" TopLine="122"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="576" Column="59" TopLine="565"/> <Caret Line="282" Column="1" TopLine="265"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="589" Column="23" TopLine="578"/> <Caret Line="69" Column="1" TopLine="64"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="../wstmodule.pas"/>
<Caret Line="595" Column="31" TopLine="584"/> <Caret Line="35" Column="82" TopLine="22"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="user_service_intf_imp.pas"/>
<Caret Line="606" Column="23" TopLine="585"/> <Caret Line="12" Column="62" TopLine="1"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="user_service_intf_imp.pas"/>
<Caret Line="601" Column="62" TopLine="590"/> <Caret Line="221" Column="5" TopLine="217"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="/wisa/projects/fpcpackages/synapse/source/lib/ssfpc.pas"/> <Filename Value="user_service_intf_imp.pas"/>
<Caret Line="620" Column="29" TopLine="605"/> <Caret Line="1" Column="1" TopLine="37"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../wstmodule.pas"/> <Filename Value="user_service_intf_imp.pas"/>
<Caret Line="199" Column="29" TopLine="180"/> <Caret Line="224" Column="19" TopLine="217"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../wstmodule.pas"/> <Filename Value="wmhandler.pp"/>
<Caret Line="172" Column="18" TopLine="165"/> <Caret Line="25" Column="24" TopLine="1"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../wstmodule.pas"/> <Filename Value="wmhandler.pp"/>
<Caret Line="179" Column="24" TopLine="178"/> <Caret Line="36" Column="32" TopLine="23"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="41" Column="122" TopLine="23"/> <Caret Line="21" Column="6" TopLine="10"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../wstmodule.pas"/> <Filename Value="E:/fpc_dev/packages/fcl-json/src/fpjson.pp"/>
<Caret Line="182" Column="1" TopLine="175"/> <Caret Line="27" Column="36" TopLine="52"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../wstmodule.pas"/> <Filename Value="E:/fpc_dev/packages/fcl-json/src/fpjson.pp"/>
<Caret Line="171" Column="88" TopLine="166"/> <Caret Line="210" Column="14" TopLine="201"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="56" Column="27" TopLine="56"/> <Caret Line="64" Column="15" TopLine="61"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="8" Column="65" TopLine="1"/> <Caret Line="170" Column="20" TopLine="161"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="179" Column="7" TopLine="168"/> <Caret Line="64" Column="10" TopLine="55"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="181" Column="51" TopLine="169"/> <Caret Line="13" Column="23" TopLine="1"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="176" Column="15" TopLine="173"/> <Caret Line="67" Column="22" TopLine="58"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../wstmodule.pas"/> <Filename Value="../../../../server_service_json.pas"/>
<Caret Line="232" Column="24" TopLine="213"/> <Caret Line="70" Column="25" TopLine="58"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../wstmodule.pas"/> <Filename Value="E:/fpc_dev/packages/fcl-json/src/fpjson.pp"/>
<Caret Line="19" Column="36" TopLine="12"/> <Caret Line="1743" Column="20" TopLine="1732"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="../wstmodule.pas"/> <Filename Value="E:/fpc_dev/packages/fcl-json/src/fpjson.pp"/>
<Caret Line="245" Column="7" TopLine="245"/> <Caret Line="385" Column="61" TopLine="376"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
@ -520,9 +568,15 @@
<Filename Value="demoservice.cgi"/> <Filename Value="demoservice.cgi"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)/;C:/sources/wst/"/>
<Libraries Value="../../../"/>
<OtherUnitFiles Value="../../../../wst_rtti_filter/"/>
<UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

4
wst/trunk/ide/lazarus/wstmodule/demo/demoservice.lpr
View File

@ -4,9 +4,9 @@ program demoservice;
uses uses
fpCGI, wmhandler, imp_helper, user_service_intf, user_service_intf_binder, fpCGI, wmhandler, imp_helper, user_service_intf, user_service_intf_binder,
user_service_intf_imp, user_service_intf_proxy; user_service_intf_imp, user_service_intf_proxy, wst_core;
{$IFDEF WINDOWS}{$R demoservice.rc}{$ENDIF} {$R *.res}
begin begin
Application.Initialize; Application.Initialize;

4
wst/trunk/ide/lazarus/wstmodule/demo/user_service_intf_imp.pas
View File

@ -220,9 +220,9 @@ end;
initialization initialization
FUserList := TObjectList.Create(True); FUserList := TObjectList.Create(True);
FUserCursor := TObjectListCursor.Create(FUserList); FUserCursor := TObjectListCursor.Create(FUserList);
{if FileExists(sDATA_FILE_NAME) then if FileExists(sDATA_FILE_NAME) then
FillDataFromFile(sDATA_FILE_NAME) FillDataFromFile(sDATA_FILE_NAME)
else} else
FillSampleData(); FillSampleData();
finalization finalization

4
wst/trunk/ide/lazarus/wstmodule/demo/wmhandler.lfm
View File

@ -1,7 +1,7 @@
object WSTModule1: TWSTModule1 object WSTModule1: TWSTModule1
OldCreateOrder = False OldCreateOrder = False
Height = 300 Height = 300
HorizontalOffset = 635 HorizontalOffset = 720
VerticalOffset = 230 VerticalOffset = 252
Width = 400 Width = 400
end end

2
wst/trunk/ide/lazarus/wstmodule/demo/wmhandler.lrs
View File

@ -2,5 +2,5 @@
LazarusResources.Add('TWSTModule1','FORMDATA',[ LazarusResources.Add('TWSTModule1','FORMDATA',[
'TPF0'#11'TWSTModule1'#10'WSTModule1'#14'OldCreateOrder'#8#6'Height'#3','#1#16 'TPF0'#11'TWSTModule1'#10'WSTModule1'#14'OldCreateOrder'#8#6'Height'#3','#1#16
+'HorizontalOffset'#3'{'#2#14'VerticalOffset'#3#230#0#5'Width'#3#144#1#0#0 +'HorizontalOffset'#3#208#2#14'VerticalOffset'#3#252#0#5'Width'#3#144#1#0#0
]); ]);

1
wst/trunk/ide/lazarus/wstmodule/fclwebwst.lpk
View File

@ -12,6 +12,7 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Description Value="WST's fcl-we intégration package."/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="wstmodule.pas"/> <Filename Value="wstmodule.pas"/>

35
wst/trunk/ide/lazarus/wstmodule/wstmodule.pas
View File

@ -5,7 +5,8 @@ unit wstmodule;
interface interface
uses uses
Classes, SysUtils, httpdefs, fphttp, server_service_imputils, websession; Classes, SysUtils, httpdefs, fphttp, server_service_imputils, websession,
server_service_intf;
const const
sWSDL = 'WSDL'; sWSDL = 'WSDL';
@ -31,7 +32,7 @@ Type
procedure ProcessServiceRequest(ARequest: TRequest; AResponse: TResponse; AFormat : String); procedure ProcessServiceRequest(ARequest: TRequest; AResponse: TResponse; AFormat : String);
procedure ProcessWSDLRequest(ARequest: TRequest; AResponse: TResponse); procedure ProcessWSDLRequest(ARequest: TRequest; AResponse: TResponse);
Protected Protected
procedure AddSessionProperties(ARequest: TRequest; WSTRequest: TRequestBuffer); virtual; procedure AddSessionProperties(ARequest: TRequest; WSTRequest: IRequestBuffer); virtual;
property BeforeGenerateWSDLTable : TNotifyEvent Read FBeforeGenerateWSDLTable Write FBeforeGenerateWSDLTable; property BeforeGenerateWSDLTable : TNotifyEvent Read FBeforeGenerateWSDLTable Write FBeforeGenerateWSDLTable;
property AfterGenerateWSDLTable : TNotifyEvent Read FAfterGenerateWSDLTable Write FAfterGenerateWSDLTable; property AfterGenerateWSDLTable : TNotifyEvent Read FAfterGenerateWSDLTable Write FAfterGenerateWSDLTable;
property BeforeGenerateWSDL : TWSTServiceEvent Read FBeforeGenerateWSDL Write FBeforeGenerateWSDL; property BeforeGenerateWSDL : TWSTServiceEvent Read FBeforeGenerateWSDL Write FBeforeGenerateWSDL;
@ -66,7 +67,6 @@ implementation
{ $define wmdebug} { $define wmdebug}
uses {$ifdef wmdebug}dbugintf,{$endif}base_service_intf, uses {$ifdef wmdebug}dbugintf,{$endif}base_service_intf,
server_service_intf,
metadata_repository, metadata_wsdl, dom,xmlwrite, metadata_repository, metadata_wsdl, dom,xmlwrite,
metadata_service, metadata_service_binder; metadata_service, metadata_service_binder;
@ -168,7 +168,7 @@ begin
{$ifdef wmdebug}SendDebug('Exiting ProcessWSDLRequest');{$endif} {$ifdef wmdebug}SendDebug('Exiting ProcessWSDLRequest');{$endif}
end; end;
Procedure TCustomWSTModule.AddSessionProperties(ARequest : TRequest; WSTRequest : TRequestBuffer); Procedure TCustomWSTModule.AddSessionProperties(ARequest : TRequest; WSTRequest : IRequestBuffer);
Var Var
P : IPropertyManager; P : IPropertyManager;
@ -177,7 +177,7 @@ Var
N,V : String; N,V : String;
begin begin
P:=(WSTRequest As IRequestBuffer).GetPropertyManager(); P:=WSTRequest.GetPropertyManager();
If CreateSession and Assigned(Session) then If CreateSession and Assigned(Session) then
P.SetProperty('SessionID',Self.Session.SessionID); P.SetProperty('SessionID',Self.Session.SessionID);
P.SetProperty(SRemote_IP,ARequest.RemoteAddress); P.SetProperty(SRemote_IP,ARequest.RemoteAddress);
@ -201,15 +201,12 @@ end;
Procedure TCustomWSTModule.ProcessServiceRequest(ARequest : TRequest; AResponse : TResponse; AFormat : String); Procedure TCustomWSTModule.ProcessServiceRequest(ARequest : TRequest; AResponse : TResponse; AFormat : String);
var var
ServiceName,ContentType : string; ServiceName,ContentType : string;
rqst : TRequestBuffer; rqst : IRequestBuffer;
inStream, outStream: TStringStream; inStream, outStream: TStringStream;
B : Boolean; B : Boolean;
F : TFileStream;
begin begin
{$ifdef wmdebug}SendDebug('Entering ProcessServiceRequest');{$endif} {$ifdef wmdebug}SendDebug('Entering ProcessServiceRequest');{$endif}
ServiceName:=ARequest.GetNextPathInfo; ServiceName:=ARequest.GetNextPathInfo;
// TServiceRequestEvent = procedure(Sender : TObject; Const AServiceName : String; Var Handled : Boolean);
{$ifdef wmdebug}SendDebug(Format('ProcessServiceRequest: Servicename = "%s"',[ServiceName]));{$endif} {$ifdef wmdebug}SendDebug(Format('ProcessServiceRequest: Servicename = "%s"',[ServiceName]));{$endif}
B:=False; B:=False;
If Assigned(FBeforeService) then If Assigned(FBeforeService) then
@ -218,13 +215,6 @@ begin
begin begin
inStream := TStringStream.Create(ARequest.Content); inStream := TStringStream.Create(ARequest.Content);
try try
F:=TFileStream.Create('/tmp/request',fmCreate);
try
F.CopyFrom(InStream,0);
Instream.Position:=0;
finally
F.Free;
end;
outStream := TStringStream.Create(''); outStream := TStringStream.Create('');
try try
ContentType:= ARequest.ContentType; ContentType:= ARequest.ContentType;
@ -261,8 +251,6 @@ procedure TCustomWSTModule.HandleRequest(ARequest: TRequest;
Var Var
AFormat : String; AFormat : String;
F : TFileStream;
begin begin
{$ifdef wmdebug}SendDebug('Entering HandleRequest');{$endif} {$ifdef wmdebug}SendDebug('Entering HandleRequest');{$endif}
try try
@ -282,14 +270,8 @@ begin
except except
On E : Exception do On E : Exception do
begin begin
{$ifdef wmdebug}SendDebug('Error during HandleRequest : '+E.Message);{$endif} {$ifdef wmdebug}SendDebug('Error during HandleRequest : '+E.Message);{$endif}
With TFileStream.Create('/tmp/request-error',fmCreate) do raise;
try
WriteBuffer(E.Message[1],Length(E.Message));
finally
Free;
end;
Raise;
end; end;
end; end;
{$ifdef wmdebug}SendDebug('Exiting HandleRequest');{$endif} {$ifdef wmdebug}SendDebug('Exiting HandleRequest');{$endif}
@ -297,3 +279,4 @@ end;
end. end.