You've already forked lazarus-ccr
switching the internal pascal parser to fcl-passrc
type_lib_edtr: type library editor git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
@ -557,6 +557,6 @@ begin
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterEbayTypes();
|
||||
//RegisterEbayTypes();
|
||||
|
||||
end.
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="3"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -26,14 +26,16 @@
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="38">
|
||||
<Units Count="43">
|
||||
<Unit0>
|
||||
<Filename Value="test_ebay_gui.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="test_ebay_gui"/>
|
||||
<CursorPos X="5" Y="8"/>
|
||||
<CursorPos X="1" Y="17"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="128"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="133"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="umain.pas"/>
|
||||
@ -41,45 +43,47 @@
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="umain.lrs"/>
|
||||
<UnitName Value="umain"/>
|
||||
<CursorPos X="36" Y="69"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="43" Y="158"/>
|
||||
<TopLine Value="138"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="128"/>
|
||||
<UsageCount Value="133"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\synapse_http_protocol.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="synapse_http_protocol"/>
|
||||
<CursorPos X="1" Y="162"/>
|
||||
<TopLine Value="149"/>
|
||||
<UsageCount Value="128"/>
|
||||
<CursorPos X="3" Y="15"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="133"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<UnitName Value="base_service_intf"/>
|
||||
<CursorPos X="68" Y="109"/>
|
||||
<TopLine Value="21"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="64"/>
|
||||
<CursorPos X="3" Y="122"/>
|
||||
<TopLine Value="120"/>
|
||||
<EditorIndex Value="14"/>
|
||||
<UsageCount Value="66"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<UnitName Value="service_intf"/>
|
||||
<CursorPos X="32" Y="78"/>
|
||||
<TopLine Value="67"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="29"/>
|
||||
<CursorPos X="45" Y="40"/>
|
||||
<TopLine Value="16"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<UsageCount Value="31"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\soap_formatter.pas"/>
|
||||
<UnitName Value="soap_formatter"/>
|
||||
<CursorPos X="3" Y="93"/>
|
||||
<TopLine Value="87"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="21"/>
|
||||
<CursorPos X="20" Y="169"/>
|
||||
<TopLine Value="157"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="23"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
@ -87,15 +91,17 @@
|
||||
<UnitName Value="imp_utils"/>
|
||||
<CursorPos X="1" Y="86"/>
|
||||
<TopLine Value="72"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\..\base_soap_formatter.pas"/>
|
||||
<UnitName Value="base_soap_formatter"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="219"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="57"/>
|
||||
<CursorPos X="3" Y="122"/>
|
||||
<TopLine Value="211"/>
|
||||
<EditorIndex Value="11"/>
|
||||
<UsageCount Value="59"/>
|
||||
<Bookmarks Count="2">
|
||||
<Item0 X="14" Y="670" ID="1"/>
|
||||
<Item1 X="1" Y="437" ID="2"/>
|
||||
@ -111,12 +117,11 @@
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="ebay.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="ebay"/>
|
||||
<CursorPos X="3" Y="237"/>
|
||||
<TopLine Value="226"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="112"/>
|
||||
<CursorPos X="1" Y="532"/>
|
||||
<TopLine Value="517"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="116"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
@ -131,8 +136,8 @@
|
||||
<UnitName Value="metadata_repository"/>
|
||||
<CursorPos X="3" Y="112"/>
|
||||
<TopLine Value="9"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="20"/>
|
||||
<EditorIndex Value="12"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="1" Y="91" ID="3"/>
|
||||
</Bookmarks>
|
||||
@ -140,12 +145,11 @@
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="ebay_proxy.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="ebay_proxy"/>
|
||||
<CursorPos X="44" Y="16"/>
|
||||
<TopLine Value="5"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="112"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="13"/>
|
||||
<UsageCount Value="116"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
@ -248,26 +252,24 @@
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
|
||||
<CursorPos X="50" Y="190"/>
|
||||
<TopLine Value="179"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="..\..\binary_streamer.pas"/>
|
||||
<UnitName Value="binary_streamer"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="55"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<UsageCount Value="32"/>
|
||||
<EditorIndex Value="17"/>
|
||||
<UsageCount Value="34"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<UnitName Value="eBayWSDL"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="19"/>
|
||||
<CursorPos X="24" Y="43968"/>
|
||||
<TopLine Value="43950"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
@ -287,9 +289,11 @@
|
||||
<Unit33>
|
||||
<Filename Value="..\files\eBayWSDL_proxy.pas"/>
|
||||
<UnitName Value="eBayWSDL_proxy"/>
|
||||
<CursorPos X="41" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="15"/>
|
||||
<CursorPos X="3" Y="1943"/>
|
||||
<TopLine Value="1936"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="16"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<Filename Value="..\files\eBayWSDL_imp.pas"/>
|
||||
@ -319,55 +323,176 @@
|
||||
<TopLine Value="461"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\stringl.inc"/>
|
||||
<CursorPos X="15" Y="952"/>
|
||||
<TopLine Value="541"/>
|
||||
<EditorIndex Value="16"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\classesh.inc"/>
|
||||
<CursorPos X="3" Y="542"/>
|
||||
<TopLine Value="575"/>
|
||||
<EditorIndex Value="15"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<Filename Value="..\..\..\..\..\..\lazarusClean\others_package\synapse\ssl_openssl.pas"/>
|
||||
<UnitName Value="ssl_openssl"/>
|
||||
<CursorPos X="1" Y="813"/>
|
||||
<TopLine Value="773"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit40>
|
||||
<Unit41>
|
||||
<Filename Value="..\files\AWSECommerceService_proxy.pas"/>
|
||||
<UnitName Value="AWSECommerceService_proxy"/>
|
||||
<CursorPos X="25" Y="17"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit41>
|
||||
<Unit42>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\typinfo.pp"/>
|
||||
<UnitName Value="typinfo"/>
|
||||
<CursorPos X="42" Y="940"/>
|
||||
<TopLine Value="927"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit42>
|
||||
</Units>
|
||||
<JumpHistory Count="10" HistoryIndex="9">
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="77" Column="14" TopLine="64"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="42693" Column="55" TopLine="42678"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="54" Column="20" TopLine="43"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15" Column="28" TopLine="1"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="45" Column="70" TopLine="39"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="780" Column="32" TopLine="766"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<Caret Line="245" Column="15" TopLine="239"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15809" Column="18" TopLine="15795"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<Caret Line="23" Column="12" TopLine="21"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15811" Column="27" TopLine="15796"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15814" Column="29" TopLine="15799"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="45" Column="27" TopLine="39"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15815" Column="38" TopLine="15800"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="69" Column="36" TopLine="56"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="15824" Column="26" TopLine="15806"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="ebay_proxy.pas"/>
|
||||
<Caret Line="16" Column="44" TopLine="5"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="18142" Column="32" TopLine="18127"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<Caret Line="78" Column="32" TopLine="67"/>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="37007" Column="25" TopLine="36992"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="37013" Column="37" TopLine="36997"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="37017" Column="38" TopLine="37002"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="37023" Column="47" TopLine="37007"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="41990" Column="32" TopLine="41976"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="72" Column="60" TopLine="61"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="158" Column="29" TopLine="149"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="..\files\eBayWSDL_proxy.pas"/>
|
||||
<Caret Line="17" Column="26" TopLine="19"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="178" Column="29" TopLine="158"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\..\synapse_http_protocol.pas"/>
|
||||
<Caret Line="68" Column="13" TopLine="54"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\soap_formatter.pas"/>
|
||||
<Caret Line="171" Column="9" TopLine="153"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\base_soap_formatter.pas"/>
|
||||
<Caret Line="862" Column="19" TopLine="856"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\soap_formatter.pas"/>
|
||||
<Caret Line="29" Column="52" TopLine="22"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<Caret Line="40" Column="45" TopLine="16"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="126" Column="70" TopLine="109"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\soap_formatter.pas"/>
|
||||
<Caret Line="29" Column="38" TopLine="22"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\base_soap_formatter.pas"/>
|
||||
<Caret Line="338" Column="36" TopLine="305"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="test_ebay_gui.lpr"/>
|
||||
<Caret Line="11" Column="56" TopLine="1"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\files\eBayWSDL.pas"/>
|
||||
<Caret Line="43974" Column="20" TopLine="43949"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="158" Column="22" TopLine="130"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="C:\lazarusClean\others_package\synapse\;C:\Programmes\lazarus\wst\tests\files\;..\..\"/>
|
||||
<OtherUnitFiles Value="C:\lazarusClean\others_package\synapse\;C:\Programmes\lazarus\wst\tests\files\;..\..\;..\files\"/>
|
||||
<UnitOutputDirectory Value="obj"/>
|
||||
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
|
||||
</SearchPaths>
|
||||
@ -386,7 +511,7 @@
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="11">
|
||||
<BreakPoints Count="10">
|
||||
<Item1>
|
||||
<Source Value="..\google_api\home\inoussa\Projets\Laz\tests\soap\test_soap.pas"/>
|
||||
<Line Value="15"/>
|
||||
@ -427,10 +552,6 @@
|
||||
<Source Value="umain.pas"/>
|
||||
<Line Value="77"/>
|
||||
</Item10>
|
||||
<Item11>
|
||||
<Source Value="..\..\soap_formatter.pas"/>
|
||||
<Line Value="146"/>
|
||||
</Item11>
|
||||
</BreakPoints>
|
||||
<Watches Count="1">
|
||||
<Item1>
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms
|
||||
{ add your units here }, umain, synapse_http_protocol, ebay, ebay_proxy;
|
||||
{ add your units here }, umain, synapse_http_protocol;
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
|
||||
@ -7,44 +7,48 @@ object Form1: TForm1
|
||||
VertScrollBar.Page = 387
|
||||
ActiveControl = Button1
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 388
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
object Panel1: TPanel
|
||||
Height = 184
|
||||
Width = 400
|
||||
Align = alTop
|
||||
ClientHeight = 184
|
||||
ClientWidth = 400
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Height = 18
|
||||
Height = 14
|
||||
Top = 53
|
||||
Width = 98
|
||||
Width = 77
|
||||
Caption = 'eBayAuthToken'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 16
|
||||
Height = 18
|
||||
Height = 14
|
||||
Top = 79
|
||||
Width = 37
|
||||
Width = 30
|
||||
Caption = 'AppId'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Height = 18
|
||||
Height = 14
|
||||
Top = 111
|
||||
Width = 38
|
||||
Width = 30
|
||||
Caption = 'DevId'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Height = 18
|
||||
Height = 14
|
||||
Top = 144
|
||||
Width = 56
|
||||
Width = 45
|
||||
Caption = 'AuthCert'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
@ -84,6 +88,7 @@ object Form1: TForm1
|
||||
Width = 288
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 2
|
||||
Text = 'AgAAAA**AQAAAA**aAAAAA**OeGvRA**nY+sHZ2PrBmdj6wVnY+sEZ2PrA2dj6wJnY+lAZOEpgqdj6x9nY+seQ**uoUAAA**AAMAAA**z5djiOw1a7Tk12KGGPqSpvnxxNYOVUtaSbmQ7hYd4pX4XfafLKBtImKsW9SUsbmBS9fXOyBnXA3k0jLelpiMptvlZ8N52UQA/ePc6+JE7LJFrARMoBaW5lHEQOMESJLAdFJiGmLwrnagdeo6WRI89gu'
|
||||
end
|
||||
object edtAppId: TEdit
|
||||
Left = 96
|
||||
@ -92,6 +97,7 @@ object Form1: TForm1
|
||||
Width = 288
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 3
|
||||
Text = 'INOUSSAOUEU258CIC9Z5E83UXC1BE5'
|
||||
end
|
||||
object edtDevId: TEdit
|
||||
Left = 96
|
||||
@ -100,6 +106,7 @@ object Form1: TForm1
|
||||
Width = 288
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 4
|
||||
Text = 'L11ZDC63VDJ1FPLJL5EA161OQ2MS95'
|
||||
end
|
||||
object edtAuthCert: TEdit
|
||||
Left = 96
|
||||
@ -108,6 +115,7 @@ object Form1: TForm1
|
||||
Width = 288
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 5
|
||||
Text = 'A266GKZC9F5$HI2HIH58A-D3JH2YA4'
|
||||
end
|
||||
end
|
||||
object trvOut: TTreeView
|
||||
@ -115,7 +123,7 @@ object Form1: TForm1
|
||||
Top = 184
|
||||
Width = 400
|
||||
Align = alClient
|
||||
DefaultItemHeight = 19
|
||||
DefaultItemHeight = 15
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
|
||||
@ -3,31 +3,38 @@
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'-'#1#6'Height'#3#132#1#3'Top'#3#159#0#5'W'
|
||||
+'idth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3#131#1
|
||||
+#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#8'OnCreate'#7#10'FormC'
|
||||
+'reate'#0#6'TPanel'#6'Panel1'#6'Height'#3#184#0#5'Width'#3#144#1#5'Align'#7#5
|
||||
+'alTop'#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#18#3
|
||||
+'Top'#2'5'#5'Width'#2'b'#7'Caption'#6#13'eBayAuthToken'#5'Color'#7#6'clNone'
|
||||
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#16#6'Height'#2#18#3'Top'
|
||||
+#2'O'#5'Width'#2'%'#7'Caption'#6#5'AppId'#5'Color'#7#6'clNone'#11'ParentColo'
|
||||
+'r'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#16#6'Height'#2#18#3'Top'#2'o'#5'Widt'
|
||||
+'h'#2'&'#7'Caption'#6#5'DevId'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#6'Label4'#4'Left'#2#16#6'Height'#2#18#3'Top'#3#144#0#5'Width'#2'8'#7
|
||||
+'Caption'#6#8'AuthCert'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TBevel'
|
||||
+#6'Bevel1'#4'Left'#2#10#6'Height'#3#170#0#3'Top'#2#4#5'Width'#3'|'#1#7'Ancho'
|
||||
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#7'TButton'#7'Button1'#4'Left'#3
|
||||
+' '#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'c'#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#13'GetCategories'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2
|
||||
+#0#7'Visible'#8#0#0#7'TButton'#7'Button3'#4'Left'#2#16#6'Height'#2#25#3'Top'
|
||||
+#2#8#5'Width'#3#136#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#18'GetP'
|
||||
+'opularKeywords'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#1#0#0#5'TEdit'
|
||||
+#16'edteBayAuthToken'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'0'#5'Width'#3' '#1
|
||||
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#2#0#0#5'TEdit'#8
|
||||
+'edtAppId'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'M'#5'Width'#3' '#1#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#0#0#5'TEdit'#8'edtDevId'
|
||||
+#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'l'#5'Width'#3' '#1#7'Anchors'#11#5'akT'
|
||||
+'op'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#4#0#0#5'TEdit'#11'edtAuthCert'#4'L'
|
||||
+'eft'#2'`'#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3' '#1#7'Anchors'#11#5'akT'
|
||||
+'op'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#5#0#0#0#9'TTreeView'#6'trvOut'#6'H'
|
||||
+'eight'#3#204#0#3'Top'#3#184#0#5'Width'#3#144#1#5'Align'#7#8'alClient'#17'De'
|
||||
+'faultItemHeight'#2#19#8'TabOrder'#2#1#0#0#0
|
||||
+#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3#132
|
||||
+#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#0#6'TPanel'#6'Panel1'
|
||||
+#6'Height'#3#184#0#5'Width'#3#144#1#5'Align'#7#5'alTop'#12'ClientHeight'#3
|
||||
+#184#0#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'
|
||||
+#2#16#6'Height'#2#14#3'Top'#2'5'#5'Width'#2'M'#7'Caption'#6#13'eBayAuthToken'
|
||||
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#16
|
||||
+#6'Height'#2#14#3'Top'#2'O'#5'Width'#2#30#7'Caption'#6#5'AppId'#5'Color'#7#6
|
||||
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#16#6'Height'#2
|
||||
+#14#3'Top'#2'o'#5'Width'#2#30#7'Caption'#6#5'DevId'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#16#6'Height'#2#14#3'Top'#3
|
||||
+#144#0#5'Width'#2'-'#7'Caption'#6#8'AuthCert'#5'Color'#7#6'clNone'#11'Parent'
|
||||
+'Color'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#10#6'Height'#3#170#0#3'Top'#2#4#5
|
||||
+'Width'#3'|'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#7'TButton'#7
|
||||
+'Button1'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'c'#25'BorderSp'
|
||||
+'acing.InnerBorder'#2#4#7'Caption'#6#13'GetCategories'#7'OnClick'#7#12'Butto'
|
||||
+'n1Click'#8'TabOrder'#2#0#7'Visible'#8#0#0#7'TButton'#7'Button3'#4'Left'#2#16
|
||||
+#6'Height'#2#25#3'Top'#2#8#5'Width'#3#136#0#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#7'Caption'#6#18'GetPopularKeywords'#7'OnClick'#7#12'Button3Click'#8'TabOrde'
|
||||
+'r'#2#1#0#0#5'TEdit'#16'edteBayAuthToken'#4'Left'#2'`'#6'Height'#2#23#3'Top'
|
||||
+#2'0'#5'Width'#3' '#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrd'
|
||||
+'er'#2#2#4'Text'#6#255'AgAAAA**AQAAAA**aAAAAA**OeGvRA**nY+sHZ2PrBmdj6wVnY+sE'
|
||||
+'Z2PrA2dj6wJnY+lAZOEpgqdj6x9nY+seQ**uoUAAA**AAMAAA**z5djiOw1a7Tk12KGGPqSpvnx'
|
||||
+'xNYOVUtaSbmQ7hYd4pX4XfafLKBtImKsW9SUsbmBS9fXOyBnXA3k0jLelpiMptvlZ8N52UQA/eP'
|
||||
+'c6+JE7LJFrARMoBaW5lHEQOMESJLAdFJiGmLwrnagdeo6WRI89gu'#0#0#5'TEdit'#8'edtApp'
|
||||
+'Id'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'M'#5'Width'#3' '#1#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Text'#6#30'INOUSSAOUEU258CI'
|
||||
+'C9Z5E83UXC1BE5'#0#0#5'TEdit'#8'edtDevId'#4'Left'#2'`'#6'Height'#2#23#3'Top'
|
||||
+#2'l'#5'Width'#3' '#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrd'
|
||||
+'er'#2#4#4'Text'#6#30'L11ZDC63VDJ1FPLJL5EA161OQ2MS95'#0#0#5'TEdit'#11'edtAut'
|
||||
+'hCert'#4'Left'#2'`'#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3' '#1#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#5#4'Text'#6#30'A266GKZC9F5'
|
||||
+'$HI2HIH58A-D3JH2YA4'#0#0#0#9'TTreeView'#6'trvOut'#6'Height'#3#204#0#3'Top'#3
|
||||
+#184#0#5'Width'#3#144#1#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#15#8
|
||||
+'TabOrder'#2#1#0#0#0
|
||||
]);
|
||||
|
||||
@ -6,7 +6,8 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||
Buttons, StdCtrls, ComCtrls, eBayWSDL;
|
||||
Buttons, StdCtrls, ComCtrls,
|
||||
eBayWSDL, eBayWSDL_proxy;
|
||||
|
||||
type
|
||||
|
||||
@ -43,38 +44,38 @@ uses TypInfo, StrUtils,
|
||||
httpsend,
|
||||
ssl_openssl,
|
||||
service_intf, soap_formatter, base_service_intf, base_soap_formatter,
|
||||
ebay, ebay_proxy,
|
||||
//ebay, ebay_proxy,
|
||||
synapse_http_protocol;
|
||||
|
||||
|
||||
const sEBAY_VERSION = '503';
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
var
|
||||
locService : IeBayAPIInterfaceService;
|
||||
locHdr : TCustomSecurityHeaderType;
|
||||
r : TGetCategoriesRequestType;
|
||||
rsp : TGetCategoriesResponseType;
|
||||
locService : eBayAPIInterface;
|
||||
locHdr : CustomSecurityHeaderType;
|
||||
r : GetCategoriesRequestType;
|
||||
rsp : GetCategoriesResponseType;
|
||||
begin
|
||||
try
|
||||
r := nil;
|
||||
rsp := nil;
|
||||
locHdr := TCustomSecurityHeaderType.Create();
|
||||
locHdr := CustomSecurityHeaderType.Create();
|
||||
try
|
||||
locHdr.eBayAuthToken := edteBayAuthToken.Text;
|
||||
|
||||
locHdr.Credentials.AppId := edtAppId.Text;
|
||||
locHdr.Credentials.DevId := edtDevId.Text;
|
||||
locHdr.Credentials.AuthCert := edtAuthCert.Text;
|
||||
locService := TeBayAPIInterfaceService_Proxy.Create(
|
||||
locService := TeBayAPIInterface_Proxy.Create(
|
||||
'eBayAPIInterfaceService',
|
||||
'SOAP:Style=Document;EncodingStyle=Litteral;UniqueAddress=false',
|
||||
'SOAP:Style=Document;EncodingStyle=Literal;UniqueAddress=false',
|
||||
'http:Address=https://api.sandbox.ebay.com/wsapi'
|
||||
);
|
||||
(locService as ICallContext).AddHeader(locHdr,True);
|
||||
r := TGetCategoriesRequestType.Create();
|
||||
r := GetCategoriesRequestType.Create();
|
||||
r.Version := sEBAY_VERSION;
|
||||
locService.GetCategories(r,rsp);
|
||||
rsp := locService.GetCategories(r);
|
||||
if Assigned(rsp) then
|
||||
ShowMessageFmt('CategoryCount=%d; Message=%s; Version = %s',[rsp.CategoryCount,rsp.Message,rsp.Version])
|
||||
else
|
||||
@ -92,11 +93,11 @@ end;
|
||||
|
||||
procedure TForm1.Button3Click(Sender: TObject);
|
||||
|
||||
procedure ShowResponse(ARsp : TGetPopularKeywordsResponseType);
|
||||
procedure ShowResponse(ARsp : GetPopularKeywordsResponseType);
|
||||
var
|
||||
nd, an, nn, pn : TTreeNode;
|
||||
k : Integer;
|
||||
ci : TCategoryType;
|
||||
ci : CategoryType_Type;
|
||||
begin
|
||||
trvOut.BeginUpdate();
|
||||
try
|
||||
@ -104,7 +105,7 @@ procedure TForm1.Button3Click(Sender: TObject);
|
||||
if not Assigned(ARsp) then
|
||||
Exit;
|
||||
nd := trvOut.Items.AddChild(nil,'Response');
|
||||
trvOut.Items.AddChild(nd,'Ack = ' + GetEnumName(TypeInfo(TAckCodeType),Ord(ARsp.Ack)));
|
||||
trvOut.Items.AddChild(nd,'Ack = ' + GetEnumName(TypeInfo(AckCodeType_Type),Ord(ARsp.Ack)));
|
||||
trvOut.Items.AddChild(nd,'Version = ' + ARsp.Version);
|
||||
trvOut.Items.AddChild(nd,'HasMore = ' + IfThen(ARsp.HasMore,'True','False'));
|
||||
|
||||
@ -117,7 +118,8 @@ procedure TForm1.Button3Click(Sender: TObject);
|
||||
ci := ARsp.CategoryArray[k];
|
||||
nn := trvOut.Items.AddChild(an,'Category ( ' + IntToStr(k) + ' )');
|
||||
trvOut.Items.AddChild(nn,'CategoryID = ' + ci.CategoryID);
|
||||
trvOut.Items.AddChild(nn,'CategoryParentID = ' + ci.CategoryParentID);
|
||||
if ( ci.CategoryParentID.Length > 0 ) then
|
||||
trvOut.Items.AddChild(nn,'CategoryParentID = ' + ci.CategoryParentID[0]);
|
||||
trvOut.Items.AddChild(nn,'Keywords = ' + ci.Keywords);
|
||||
end;
|
||||
finally
|
||||
@ -126,17 +128,17 @@ procedure TForm1.Button3Click(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
locService : IeBayAPIInterfaceService;
|
||||
locHdr : TCustomSecurityHeaderType;
|
||||
r : TGetPopularKeywordsRequestType;
|
||||
rsp : TGetPopularKeywordsResponseType;
|
||||
locService : eBayAPIInterface;
|
||||
locHdr : CustomSecurityHeaderType;
|
||||
r : GetPopularKeywordsRequestType;
|
||||
rsp : GetPopularKeywordsResponseType;
|
||||
kpCrs : TCursor;
|
||||
begin
|
||||
try
|
||||
r := nil;
|
||||
rsp := nil;
|
||||
kpCrs := Screen.Cursor;
|
||||
locHdr := TCustomSecurityHeaderType.Create();
|
||||
locHdr := CustomSecurityHeaderType.Create();
|
||||
try
|
||||
Screen.Cursor := crHourGlass;
|
||||
locHdr.eBayAuthToken := edteBayAuthToken.Text;
|
||||
@ -144,16 +146,16 @@ begin
|
||||
locHdr.Credentials.AppId := edtAppId.Text;
|
||||
locHdr.Credentials.DevId := edtDevId.Text;
|
||||
locHdr.Credentials.AuthCert := edtAuthCert.Text;
|
||||
locService := TeBayAPIInterfaceService_Proxy.Create(
|
||||
locService := TeBayAPIInterface_Proxy.Create(
|
||||
'eBayAPIInterfaceService',
|
||||
'SOAP:Style=Document;EncodingStyle=Litteral;UniqueAddress=false',
|
||||
'SOAP:Style=Document;EncodingStyle=Literal;UniqueAddress=false',
|
||||
'http:Address=https://api.sandbox.ebay.com/wsapi'
|
||||
);
|
||||
(locService as ICallContext).AddHeader(locHdr,True);
|
||||
r := TGetPopularKeywordsRequestType.Create();
|
||||
r := GetPopularKeywordsRequestType.Create();
|
||||
r.Version := sEBAY_VERSION;
|
||||
r.IncludeChildCategories := True;
|
||||
locService.GetPopularKeywords(r,rsp);
|
||||
rsp := locService.GetPopularKeywords(r);
|
||||
if Assigned(rsp) then begin
|
||||
ShowResponse(rsp);
|
||||
end else begin
|
||||
|
||||
Reference in New Issue
Block a user