ws_helper :

+ wst_CreateInstance_<service_name>();
      new function to create a default proxy based on the address and params provided by the wsdl file.

wst runtime :
  + GetServiceDefaultFormatProperties()
  + GetServiceDefaultAddress()

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@153 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-04-26 23:23:41 +00:00
parent 74c0b234d6
commit 44f1a2f5da
8 changed files with 637 additions and 224 deletions

View File

@@ -31,14 +31,14 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="21">
<Units Count="23">
<Unit0>
<Filename Value="amazon.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="amazon"/>
<CursorPos X="1" Y="17"/>
<TopLine Value="1"/>
<UsageCount Value="82"/>
<UsageCount Value="100"/>
</Unit0>
<Unit1>
<Filename Value="umain.pas"/>
@@ -46,20 +46,20 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="umain.lrs"/>
<UnitName Value="umain"/>
<CursorPos X="22" Y="67"/>
<TopLine Value="58"/>
<CursorPos X="34" Y="60"/>
<TopLine Value="50"/>
<EditorIndex Value="0"/>
<UsageCount Value="82"/>
<UsageCount Value="100"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\files\free\AWSECommerceService.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="AWSECommerceService"/>
<CursorPos X="36" Y="19399"/>
<TopLine Value="19328"/>
<CursorPos X="3" Y="19328"/>
<TopLine Value="19324"/>
<EditorIndex Value="6"/>
<UsageCount Value="82"/>
<UsageCount Value="100"/>
<Bookmarks Count="2">
<Item0 X="5" Y="3387" ID="1"/>
<Item1 X="12" Y="2429" ID="2"/>
@@ -69,138 +69,276 @@
<Unit3>
<Filename Value="..\..\base_service_intf.pas"/>
<UnitName Value="base_service_intf"/>
<CursorPos X="31" Y="2315"/>
<TopLine Value="2305"/>
<CursorPos X="21" Y="97"/>
<TopLine Value="71"/>
<EditorIndex Value="5"/>
<UsageCount Value="36"/>
<UsageCount Value="45"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\..\service_intf.pas"/>
<UnitName Value="service_intf"/>
<CursorPos X="1" Y="567"/>
<TopLine Value="527"/>
<CursorPos X="1" Y="203"/>
<TopLine Value="178"/>
<EditorIndex Value="1"/>
<UsageCount Value="33"/>
<UsageCount Value="42"/>
<Bookmarks Count="1">
<Item0 X="41" Y="178" ID="3"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="..\..\metadata_repository.pas"/>
<UnitName Value="metadata_repository"/>
<CursorPos X="24" Y="410"/>
<TopLine Value="394"/>
<UsageCount Value="8"/>
<CursorPos X="78" Y="117"/>
<TopLine Value="148"/>
<EditorIndex Value="7"/>
<UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="..\..\wst_resources_imp.pas"/>
<UnitName Value="wst_resources_imp"/>
<CursorPos X="3" Y="182"/>
<TopLine Value="183"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
</Unit6>
<Unit7>
<Filename Value="..\files\free\AWSECommerceService_proxy.pas"/>
<UnitName Value="AWSECommerceService_proxy"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="31"/>
<CursorPos X="1" Y="86"/>
<TopLine Value="84"/>
<EditorIndex Value="4"/>
<UsageCount Value="40"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\..\soap_formatter.pas"/>
<UnitName Value="soap_formatter"/>
<CursorPos X="1" Y="263"/>
<CursorPos X="10" Y="254"/>
<TopLine Value="221"/>
<EditorIndex Value="3"/>
<UsageCount Value="29"/>
<Loaded Value="True"/>
<UsageCount Value="37"/>
</Unit8>
<Unit9>
<Filename Value="..\..\synapse_http_protocol.pas"/>
<UnitName Value="synapse_http_protocol"/>
<CursorPos X="3" Y="16"/>
<TopLine Value="1"/>
<UsageCount Value="14"/>
<CursorPos X="1" Y="151"/>
<TopLine Value="140"/>
<EditorIndex Value="2"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\..\imp_utils.pas"/>
<UnitName Value="imp_utils"/>
<CursorPos X="1" Y="86"/>
<TopLine Value="73"/>
<UsageCount Value="29"/>
<CursorPos X="15" Y="13"/>
<TopLine Value="1"/>
<EditorIndex Value="3"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="..\..\base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/>
<CursorPos X="3" Y="1137"/>
<TopLine Value="1162"/>
<EditorIndex Value="4"/>
<UsageCount Value="29"/>
<Loaded Value="True"/>
<CursorPos X="3" Y="28"/>
<TopLine Value="7"/>
<UsageCount Value="37"/>
</Unit11>
<Unit12>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="3" Y="925"/>
<TopLine Value="921"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit12>
<Unit13>
<Filename Value="..\..\ics_http_protocol.pas"/>
<UnitName Value="ics_http_protocol"/>
<CursorPos X="1" Y="183"/>
<TopLine Value="161"/>
<UsageCount Value="15"/>
<UsageCount Value="14"/>
</Unit13>
<Unit14>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="15" Y="269"/>
<TopLine Value="256"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit14>
<Unit15>
<Filename Value="..\..\..\..\..\lazarusClean\others_package\ics\latest_distr\Delphi\Vc32\HttpProt.pas"/>
<UnitName Value="HttpProt"/>
<CursorPos X="1" Y="2555"/>
<TopLine Value="2544"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit15>
<Unit16>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="10" Y="112"/>
<TopLine Value="91"/>
<UsageCount Value="9"/>
<UsageCount Value="8"/>
</Unit16>
<Unit17>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\packages\fcl-xml\src\dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="17" Y="302"/>
<TopLine Value="289"/>
<UsageCount Value="10"/>
<UsageCount Value="9"/>
</Unit17>
<Unit18>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\i386\i386.inc"/>
<CursorPos X="2" Y="1284"/>
<TopLine Value="1245"/>
<CursorPos X="3" Y="1284"/>
<TopLine Value="1270"/>
<UsageCount Value="10"/>
</Unit18>
<Unit19>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\inc\except.inc"/>
<CursorPos X="1" Y="203"/>
<TopLine Value="172"/>
<CursorPos X="1" Y="223"/>
<TopLine Value="210"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="1" Y="483"/>
<TopLine Value="470"/>
<UsageCount Value="10"/>
<CursorPos X="68" Y="116"/>
<TopLine Value="115"/>
<UsageCount Value="9"/>
</Unit20>
<Unit21>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\inc\objpas.inc"/>
<CursorPos X="1" Y="58"/>
<TopLine Value="45"/>
<UsageCount Value="10"/>
</Unit21>
<Unit22>
<Filename Value="..\..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\i386\setjump.inc"/>
<CursorPos X="3" Y="36"/>
<TopLine Value="20"/>
<UsageCount Value="10"/>
</Unit22>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="183" Column="1" TopLine="162"/>
</Position1>
<Position2>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="105" Column="2" TopLine="85"/>
</Position2>
<Position3>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="86" Column="1" TopLine="73"/>
</Position3>
<Position4>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="105" Column="1" TopLine="92"/>
</Position4>
<Position5>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="105" Column="1" TopLine="92"/>
</Position5>
<Position6>
<Filename Value="..\..\service_intf.pas"/>
<Caret Line="252" Column="1" TopLine="239"/>
</Position6>
<Position7>
<Filename Value="..\..\service_intf.pas"/>
<Caret Line="253" Column="1" TopLine="240"/>
</Position7>
<Position8>
<Filename Value="..\..\synapse_http_protocol.pas"/>
<Caret Line="151" Column="1" TopLine="157"/>
</Position8>
<Position9>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="86" Column="1" TopLine="73"/>
</Position9>
<Position10>
<Filename Value="umain.pas"/>
<Caret Line="72" Column="43" TopLine="58"/>
</Position10>
<Position11>
<Filename Value="..\files\free\AWSECommerceService.pas"/>
<Caret Line="24" Column="75" TopLine="19"/>
</Position11>
<Position12>
<Filename Value="..\..\metadata_repository.pas"/>
<Caret Line="215" Column="13" TopLine="196"/>
</Position12>
<Position13>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="86" Column="1" TopLine="73"/>
</Position13>
<Position14>
<Filename Value="..\..\metadata_repository.pas"/>
<Caret Line="171" Column="1" TopLine="151"/>
</Position14>
<Position15>
<Filename Value="..\..\imp_utils.pas"/>
<Caret Line="47" Column="67" TopLine="31"/>
</Position15>
<Position16>
<Filename Value="..\..\metadata_repository.pas"/>
<Caret Line="158" Column="41" TopLine="145"/>
</Position16>
<Position17>
<Filename Value="umain.pas"/>
<Caret Line="72" Column="43" TopLine="58"/>
</Position17>
<Position18>
<Filename Value="..\files\free\AWSECommerceService_proxy.pas"/>
<Caret Line="86" Column="219" TopLine="73"/>
</Position18>
<Position19>
<Filename Value="umain.pas"/>
<Caret Line="65" Column="34" TopLine="60"/>
</Position19>
<Position20>
<Filename Value="umain.pas"/>
<Caret Line="54" Column="21" TopLine="42"/>
</Position20>
<Position21>
<Filename Value="umain.pas"/>
<Caret Line="43" Column="24" TopLine="31"/>
</Position21>
<Position22>
<Filename Value="..\files\free\AWSECommerceService_proxy.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position22>
<Position23>
<Filename Value="..\files\free\AWSECommerceService.pas"/>
<Caret Line="2" Column="68" TopLine="1"/>
</Position23>
<Position24>
<Filename Value="umain.pas"/>
<Caret Line="43" Column="24" TopLine="31"/>
</Position24>
<Position25>
<Filename Value="umain.pas"/>
<Caret Line="122" Column="1" TopLine="100"/>
</Position25>
<Position26>
<Filename Value="umain.pas"/>
<Caret Line="110" Column="8" TopLine="100"/>
</Position26>
<Position27>
<Filename Value="umain.pas"/>
<Caret Line="114" Column="1" TopLine="96"/>
</Position27>
<Position28>
<Filename Value="umain.pas"/>
<Caret Line="25" Column="45" TopLine="17"/>
</Position28>
<Position29>
<Filename Value="umain.pas"/>
<Caret Line="32" Column="14" TopLine="17"/>
</Position29>
<Position30>
<Filename Value="umain.pas"/>
<Caret Line="60" Column="34" TopLine="50"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
@@ -224,7 +362,7 @@
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="18">
<BreakPoints Count="19">
<Item1>
<Source Value="..\google_api\home\inoussa\Projets\Laz\tests\soap\test_soap.pas"/>
<Line Value="15"/>
@@ -282,21 +420,25 @@
<Line Value="909"/>
</Item14>
<Item15>
<Source Value="..\files\free\AWSECommerceService_proxy.pas"/>
<Line Value="131"/>
<Source Value="..\..\base_service_intf.pas"/>
<Line Value="1698"/>
</Item15>
<Item16>
<Source Value="..\..\base_service_intf.pas"/>
<Line Value="1698"/>
<Line Value="1699"/>
</Item16>
<Item17>
<Source Value="..\..\base_service_intf.pas"/>
<Line Value="1699"/>
<Line Value="3662"/>
</Item17>
<Item18>
<Source Value="..\..\base_service_intf.pas"/>
<Line Value="3662"/>
<Source Value="..\..\service_intf.pas"/>
<Line Value="253"/>
</Item18>
<Item19>
<Source Value="..\..\service_intf.pas"/>
<Line Value="250"/>
</Item19>
</BreakPoints>
<Watches Count="2">
<Item1>