git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@37 8e941d3f-bd1b-0410-a28a-d453659cc2b4

2006-11-12 13:31:22 +00:00
parent 0a7e8fc2c7
commit b5ff30595d
43 changed files with 807 additions and 791 deletions
--- a/wst/trunk/tests/ebay/ebay.lrs
+++ b/wst/trunk/tests/ebay/ebay.lrs
@ -1,9 +0,0 @@
-LazarusResources.Add('EBAY','wst_meta',[
-  #0#0#0#20'WST_METADATA_0.2.2.0'#0#0#0#4'ebay'#1#0#0#0#24'IeBayAPIInterfaceSer'
-  +'vice'#2#0#0#0#13'GetCategories'#2#0#0#0#20'GetCategoriesRequest'#0#0#0#25'T'
-  +'GetCategoriesRequestType'#0#0#0#0#0#0#0#1#0#0#0#21'GetCategoriesResponse'#0
-  +#0#0#26'TGetCategoriesResponseType'#0#0#0#0#0#0#0#3#0#0#0#18'GetPopularKeywo'
-  +'rds'#2#0#0#0#25'GetPopularKeywordsRequest'#0#0#0#30'TGetPopularKeywordsRequ'
-  +'estType'#0#0#0#0#0#0#0#1#0#0#0#26'GetPopularKeywordsResponse'#0#0#0#31'TGet'
-  +'PopularKeywordsResponseType'#0#0#0#0#0#0#0#3
-]);
--- a/wst/trunk/tests/ebay/ebay.pas
+++ b/wst/trunk/tests/ebay/ebay.pas
@ -8,7 +8,7 @@ uses
  Classes, SysUtils, base_service_intf;

 const
-  sAPP_ID = '<your AppId>';
+  sAPP_ID = 'INOUSSAOUEU258CIC9Z5E83UXC1BE5';//'<your AppId>';
  sEBAY_VERSION = '467';

 type
--- a/wst/trunk/tests/ebay/ebay.wst
+++ b/wst/trunk/tests/ebay/ebay.wst
@ -0,0 +1,9 @@
+  GetWSTResourceManager().AddResource('EBAY',
+    #0#0#0#20'WST_METADATA_0.2.2.0'#0#0#0#4'ebay'#1#0#0#0#24'IeBayAPIInterfaceSe'
+    +'rvice'#2#0#0#0#13'GetCategories'#2#0#0#0#20'GetCategoriesRequest'#0#0#0#25'T'
+    +'GetCategoriesRequestType'#0#0#0#0#0#0#0#1#0#0#0#21'GetCategoriesResponse'#0
+    +#0#0#26'TGetCategoriesResponseType'#0#0#0#0#0#0#0#3#0#0#0#18'GetPopularKeywo'
+    +'rds'#2#0#0#0#25'GetPopularKeywordsRequest'#0#0#0#30'TGetPopularKeywordsRequ'
+    +'estType'#0#0#0#0#0#0#0#1#0#0#0#26'GetPopularKeywordsResponse'#0#0#0#31'TGet'
+    +'PopularKeywordsResponseType'#0#0#0#0#0#0#0#3''
+  );
--- a/wst/trunk/tests/ebay/ebay_proxy.pas
+++ b/wst/trunk/tests/ebay/ebay_proxy.pas
@ -2,7 +2,7 @@
 This unit has been produced by ws_helper.
  Input unit name : "ebay".
  This unit name  : "ebay_proxy".
-  Date            : "30/07/2006 21:52".
+  Date            : "12/11/2006 11:44".
 }
 Unit ebay_proxy;
 {$mode objfpc}{$H+}
@ -27,7 +27,7 @@ Type
  End;

 Implementation
-uses LResources, metadata_repository;
+uses wst_resources_imp, metadata_repository;

 { TeBayAPIInterfaceService_Proxy implementation }

@ -90,7 +90,7 @@ End;


 initialization
-  {$i ebay.lrs}
+  {$i ebay.wst}

  {$IF DECLARED(Register_ebay_ServiceMetadata)}
  Register_ebay_ServiceMetadata();
--- a/wst/trunk/tests/ebay/test_ebay.lpi
+++ b/wst/trunk/tests/ebay/test_ebay.lpi
@ -21,29 +21,26 @@
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
    </RunParams>
-    <RequiredPackages Count="1">
-      <Item1>
-        <PackageName Value="indylaz"/>
-      </Item1>
-    </RequiredPackages>
-    <Units Count="22">
+    <Units Count="23">
      <Unit0>
        <Filename Value="test_ebay.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="test_ebay"/>
-        <CursorPos X="34" Y="63"/>
+        <CursorPos X="38" Y="10"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="45"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="ebay.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="ebay"/>
-        <CursorPos X="18" Y="103"/>
-        <TopLine Value="156"/>
-        <UsageCount Value="43"/>
+        <CursorPos X="10" Y="525"/>
+        <TopLine Value="519"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="45"/>
+        <Loaded Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="..\..\service_intf.pas"/>
@ -51,8 +48,8 @@
        <UnitName Value="service_intf"/>
        <CursorPos X="1" Y="151"/>
        <TopLine Value="140"/>
-        <EditorIndex Value="2"/>
-        <UsageCount Value="43"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="45"/>
        <Loaded Value="True"/>
      </Unit2>
      <Unit3>
@ -60,10 +57,8 @@
        <IsPartOfProject Value="True"/>
        <UnitName Value="soap_formatter"/>
        <CursorPos X="25" Y="244"/>
-        <TopLine Value="236"/>
-        <EditorIndex Value="6"/>
-        <UsageCount Value="43"/>
-        <Loaded Value="True"/>
+        <TopLine Value="131"/>
+        <UsageCount Value="45"/>
      </Unit3>
      <Unit4>
        <Filename Value="..\..\base_service_intf.pas"/>
@ -71,7 +66,7 @@
        <UnitName Value="base_service_intf"/>
        <CursorPos X="20" Y="30"/>
        <TopLine Value="11"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="45"/>
      </Unit4>
      <Unit5>
        <Filename Value="..\..\base_soap_formatter.pas"/>
@ -79,7 +74,7 @@
        <UnitName Value="base_soap_formatter"/>
        <CursorPos X="1" Y="619"/>
        <TopLine Value="608"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="45"/>
        <Bookmarks Count="1">
          <Item0 X="11" Y="610" ID="1"/>
        </Bookmarks>
@ -88,10 +83,10 @@
        <Filename Value="ebay_proxy.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="ebay_proxy"/>
-        <CursorPos X="1" Y="34"/>
-        <TopLine Value="23"/>
+        <CursorPos X="14" Y="93"/>
+        <TopLine Value="70"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="45"/>
        <Loaded Value="True"/>
      </Unit6>
      <Unit7>
@ -140,11 +135,9 @@
        <Filename Value="..\..\synapse_http_protocol.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="synapse_http_protocol"/>
-        <CursorPos X="1" Y="155"/>
-        <TopLine Value="132"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="24"/>
-        <Loaded Value="True"/>
+        <CursorPos X="33" Y="21"/>
+        <TopLine Value="3"/>
+        <UsageCount Value="26"/>
      </Unit13>
      <Unit14>
        <Filename Value="D:\lazarusClean\others_package\synapse\httpsend.pas"/>
@ -191,132 +184,38 @@
        <UnitName Value="httpsend"/>
        <CursorPos X="1" Y="566"/>
        <TopLine Value="555"/>
-        <EditorIndex Value="4"/>
        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
      </Unit20>
      <Unit21>
        <Filename Value="D:\Lazarus\others_package\synapse\blcksock.pas"/>
        <UnitName Value="blcksock"/>
        <CursorPos X="1" Y="1901"/>
        <TopLine Value="1890"/>
-        <EditorIndex Value="5"/>
        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
      </Unit21>
+      <Unit22>
+        <Filename Value="ebay.wst"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit22>
    </Units>
-    <JumpHistory Count="26" HistoryIndex="25">
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="531" Column="1" TopLine="520"/>
+        <Filename Value="test_ebay.lpr"/>
+        <Caret Line="55" Column="65" TopLine="46"/>
      </Position1>
      <Position2>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="534" Column="1" TopLine="523"/>
+        <Filename Value="test_ebay.lpr"/>
+        <Caret Line="24" Column="29" TopLine="19"/>
      </Position2>
-      <Position3>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="537" Column="1" TopLine="526"/>
-      </Position3>
-      <Position4>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="538" Column="11" TopLine="527"/>
-      </Position4>
-      <Position5>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="541" Column="32" TopLine="530"/>
-      </Position5>
-      <Position6>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="543" Column="1" TopLine="532"/>
-      </Position6>
-      <Position7>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="544" Column="1" TopLine="533"/>
-      </Position7>
-      <Position8>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="558" Column="1" TopLine="547"/>
-      </Position8>
-      <Position9>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="559" Column="1" TopLine="548"/>
-      </Position9>
-      <Position10>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="561" Column="1" TopLine="550"/>
-      </Position10>
-      <Position11>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="562" Column="1" TopLine="551"/>
-      </Position11>
-      <Position12>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="563" Column="1" TopLine="552"/>
-      </Position12>
-      <Position13>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="565" Column="1" TopLine="554"/>
-      </Position13>
-      <Position14>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="566" Column="1" TopLine="555"/>
-      </Position14>
-      <Position15>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="572" Column="1" TopLine="561"/>
-      </Position15>
-      <Position16>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="574" Column="1" TopLine="563"/>
-      </Position16>
-      <Position17>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="580" Column="1" TopLine="569"/>
-      </Position17>
-      <Position18>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="582" Column="1" TopLine="571"/>
-      </Position18>
-      <Position19>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="561" Column="1" TopLine="550"/>
-      </Position19>
-      <Position20>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="562" Column="1" TopLine="551"/>
-      </Position20>
-      <Position21>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="563" Column="1" TopLine="552"/>
-      </Position21>
-      <Position22>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="565" Column="1" TopLine="554"/>
-      </Position22>
-      <Position23>
-        <Filename Value="D:\Lazarus\others_package\synapse\httpsend.pas"/>
-        <Caret Line="566" Column="1" TopLine="555"/>
-      </Position23>
-      <Position24>
-        <Filename Value="test_ebay.lpr"/>
-        <Caret Line="75" Column="64" TopLine="58"/>
-      </Position24>
-      <Position25>
-        <Filename Value="test_ebay.lpr"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position25>
-      <Position26>
-        <Filename Value="test_ebay.lpr"/>
-        <Caret Line="63" Column="34" TopLine="52"/>
-      </Position26>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="5"/>
    <PathDelim Value="\"/>
    <SearchPaths>
-      <OtherUnitFiles Value="..\..\;D:\Lazarus\others_package\ics\latest_distr\Delphi\Vc32\;D:\Lazarus\others_package\indy\indy-10.2.0.1\fpc\Protocols\;D:\lazarus\others_package\synapse\"/>
+      <OtherUnitFiles Value="..\..\;C:\LazarusClean\others_package\ics\latest_distr\Delphi\Vc32\;C:\LazarusClean\others_package\indy\indy-10.2.0.1\fpc\Protocols\;C:\LazarusClean\others_package\synapse\"/>
      <UnitOutputDirectory Value="obj"/>
    </SearchPaths>
    <CodeGeneration>
--- a/wst/trunk/tests/ebay/test_ebay.lpr
+++ b/wst/trunk/tests/ebay/test_ebay.lpr
@ -26,37 +26,11 @@ begin
  rsp := nil;
  locHdr := TCustomSecurityHeaderType.Create();
  try
-    locHdr.eBayAuthToken :=  {
-    'AgAAAA**AQAAAA**aAAAAA**OeGvRA**nY+sHZ2PrBmdj6wVnY+sEZ2PrA2dj6wJnY+lAZOE'+
-    'pgqdj6x9nY+seQ**uoUAAA**AAMAAA**z5djiOw1a7Tk12KGGPqSpvnxxNYOVUtaSbmQ7hYd4p'+
-    'X4XfafLKBtImKsW9SUsbmBS9fXOyBnXA3k0jLelpiMptvlZ8N52UQA/ePc6+JE7LJFrARMoBaW5l'+
-    'HEQOMESJLAdFJiGmLwrnagdeo6WRI89guRtDkydPyHwHUJ7aCFQvwzeD/b+1pnXelHQvQBRFtD3drU'+
-    'BV9FbAf1/d4w/C+x5EHrBHyA+/T9uBelb3wkI8Rk/jnwF+L1qZlSW90pcyi3uxoSuBGVolgihrL/IKE'+
-    '2mPcK3GAtqROu6Tsasjzz/tqkSIuFLeJ9HphAzdB+LNhyR1NGbe+l+goY74saRbEb2iqYo5wCTTLELC2k3'+
-    '9p0V1Fp7CWn3Fet+y6fz8PXMb1BfYKg6fLzHXaqCRaffHJCSkvhrWwIVEuxbot4o5T8/v'+
-    'TcmmAm3T78S4B6NBdLPv7f4WxbzYYRS8Y8k7Y9GZ1/8Jomfv+LlGNrs0/sN+PkCJATAJZ3W'+
-    'tIWqyg9GHnHVA+oKCdmItd2j6nEiNq7whNdJegMOWp3jI2BvJoauJc06lw6ZMHhuj4zDiDnEwP'+
-    'DCBmY6sHWMUx1xacahKYrRsvKYvE9/eOlEaQP7OCDmJm6VVwJIkSejOnmnMmUxLGMu6to17jruAj'+
-    'Wb4s0oXSKPg9J/M2rvgE0l0tWj3O6kt9jPH533K5Wj2I/i6s0blc9z9eY/WY4+HDHe+VFX9AqMmHuD'+
-    'yog//CUNDaG5HUSw10GM26gvswNpYWGih5Ju5ylvf9B';}
-    
-    'AgAAAA**AQAAAA**aAAAAA**5Ca0RA**nY+sHZ2PrBmdj6wVnY+sEZ2PrA2dj6wJnY+lAZSFpg'+
-    'Wdj6x9nY+seQ**uoUAAA**AAMAAA**CVYGMzI5zQ2Wh9dcHROrT0o6/BWlHNSzb+sPVl+W7UK8o0'+
-    'zpmispZNrnzXjlqd5m5nZjWfXzEGFTZVw7B+2k14tcQyiCQQn0nD6ft5KUWsxZ4Ugx/EgilEFNhT7l'+
-    'iQXBxblWq1K3CJJtyCRu1Q/eyW0c4cttutktG3c5wFGR20QUm8pFBaXVNEB11jAyzz2dB+Ij3efuSTZR'+
-    'umGNaVHeNXkLXTfaVuOzREjU5zye4bh1cHtw72pS+oTbmKB+Svflhtq7asqnfrsllRENP6fEpCzJSVqbMW'+
-    'Om+rulRa0qKOOpEGk2Mme8HDdccwtqHIq1MwT9WbcF2pV6aGKpllU4H+ii7SYwDTr8mwb45t7l26loyszoZo'+
-    'NelhXq3TS85KwmDqwgZzVlHoY+4yZVe8FRvOY7rYbtCJtZnwv7fx8+tdoogeE2eW5hNkXPvuS+Wh9yj+T1yexp'+
-    '5szSfOVmn1Obik6Cz/qOxF+AIHpdO1N8qC6D/x85nlkxUbvVWBHkAVYsAxbQ1uZzpRIednc8wKLZ47cTUGPinP1B'+
-    'hgC9+l14Isquhsx5gx9t3vc79lzfRPMOaQ5k42vZaUFYTpQ2tYn7kQ9y850NPBdNVmUxLi5hCActWCHFplNrYVnnnm'+
-    'WOcuZT+DTUmh2OHiL59Av33CPhGNCGktEX0/I3FNTbM2OHCqet/eSRXNHM4JuuLhP2p7IyDfbowkXpwDZtanew64itUr'+
-    'iSInDbHpO9xlVK32t/+na6yNuCGqFEEtnl5gJ2OI1P';
+    locHdr.eBayAuthToken :=  '...';

-    //locHdr.Credentials.Username := 'inousa12';
-    //locHdr.Credentials.Password := 'atou121076';
-    locHdr.Credentials.AppId := 'INOUSSAOUEU258CIC9Z5E83UXC1BE5';
-    locHdr.Credentials.DevId := 'L11ZDC63VDJ1FPLJL5EA161OQ2MS95';
-    locHdr.Credentials.AuthCert := 'A266GKZC9F5$HI2HIH58A-D3JH2YA4';//'L11ZDC63VDJ1FPLJL5EA161OQ2MS95;INOUSSAOUEU258CIC9Z5E83UXC1BE5;A266GKZC9F5$HI2HIH58A-D3JH2YA4';
+    locHdr.Credentials.AppId := '...';
+    locHdr.Credentials.DevId := '...';
+    locHdr.Credentials.AuthCert := '...';
    locService := TeBayAPIInterfaceService_Proxy.Create(
                    'eBayAPIInterfaceService',
                    'SOAP:Style=Document;EncodingStyle=Litteral',
--- a/wst/trunk/tests/ebay/test_ebay_gui.lpi
+++ b/wst/trunk/tests/ebay/test_ebay_gui.lpi
@ -7,7 +7,7 @@
      <MainUnit Value="0"/>
      <IconPath Value="./"/>
      <TargetFileExt Value=".exe"/>
-      <ActiveEditorIndexAtStart Value="3"/>
+      <ActiveEditorIndexAtStart Value="2"/>
    </General>
    <PublishOptions>
      <Version Value="2"/>
@ -52,7 +52,7 @@
        <IsPartOfProject Value="True"/>
        <UnitName Value="synapse_http_protocol"/>
        <CursorPos X="1" Y="1"/>
-        <TopLine Value="157"/>
+        <TopLine Value="153"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="63"/>
        <Loaded Value="True"/>
@ -109,8 +109,8 @@
        <Filename Value="ebay.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="ebay"/>
-        <CursorPos X="13" Y="536"/>
-        <TopLine Value="525"/>
+        <CursorPos X="42" Y="535"/>
+        <TopLine Value="534"/>
        <EditorIndex Value="3"/>
        <UsageCount Value="47"/>
        <Loaded Value="True"/>
@ -137,7 +137,7 @@
        <IsPartOfProject Value="True"/>
        <UnitName Value="ebay_proxy"/>
        <CursorPos X="26" Y="96"/>
-        <TopLine Value="77"/>
+        <TopLine Value="70"/>
        <EditorIndex Value="2"/>
        <UsageCount Value="47"/>
        <Loaded Value="True"/>
@ -206,28 +206,7 @@
        <UsageCount Value="10"/>
      </Unit22>
    </Units>
-    <JumpHistory Count="5" HistoryIndex="4">
-      <Position1>
-        <Filename Value="umain.pas"/>
-        <Caret Line="31" Column="25" TopLine="26"/>
-      </Position1>
-      <Position2>
-        <Filename Value="umain.pas"/>
-        <Caret Line="149" Column="36" TopLine="138"/>
-      </Position2>
-      <Position3>
-        <Filename Value="umain.pas"/>
-        <Caret Line="46" Column="24" TopLine="33"/>
-      </Position3>
-      <Position4>
-        <Filename Value="ebay_proxy.pas"/>
-        <Caret Line="96" Column="26" TopLine="77"/>
-      </Position4>
-      <Position5>
-        <Filename Value="ebay.pas"/>
-        <Caret Line="524" Column="5" TopLine="515"/>
-      </Position5>
-    </JumpHistory>
+    <JumpHistory Count="0" HistoryIndex="-1"/>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="5"/>
@ -248,7 +227,6 @@
      </Options>
    </Linking>
    <Other>
-      <CustomOptions Value=""/>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>