Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
COURSE of the MONTH
9 days, 18 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Delphi soap (return array)
Posted on 2016-09-08
I just started to use Delphi,
I don't know how to iterate over arrays.
I already did the connection between Delphi and soap.
I want to get the name (for exemple Arnold ) and to set in a TForm1.Edit1Change
I know how to do when I get a string but I don't know for a array.
in wsdl, I get:
ArrayOf_xsd_string = TArray<String>;
customerCtrlPortType = interface(IInvokable)
['{3C177C7E-853B-10B9-0F41
function ViewCustomer(const id: Integer): ArrayOf_xsd_string; stdcall;
end;
in PHP, I get:
Array ( [1] => Array ( [first] => Schwarzenegger [last] => Arnold ) [2] => Array ( [first] => Stallone [last] => Sylvester ) )
in xml, I get:
<item>
<key xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="xsd:int">1</key>
<value xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="ns2:Map">
<item>
<key xsi:type="xsd:string">firs
<value xsi:type="xsd:string">Schw
</item>
<item>
<key xsi:type="xsd:string">last
<value xsi:type="xsd:string">Arno
</item>
</value>
</item>
<item>
<key xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="xsd:int">2</key>
<value xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="ns2:Map">
<item>
<key xsi:type="xsd:string">firs
<value xsi:type="xsd:string">Stal
</item>
<item>
<key xsi:type="xsd:string">last
<value xsi:type="xsd:string">Sylv
</item>
</value>
</item>
Can you please help me
I don't know how to iterate over arrays.
I already did the connection between Delphi and soap.
I want to get the name (for exemple Arnold ) and to set in a TForm1.Edit1Change
I know how to do when I get a string but I don't know for a array.
in wsdl, I get:
ArrayOf_xsd_string = TArray<String>;
customerCtrlPortType = interface(IInvokable)
['{3C177C7E-853B-10B9-0F41
function ViewCustomer(const id: Integer): ArrayOf_xsd_string; stdcall;
end;
in PHP, I get:
Array ( [1] => Array ( [first] => Schwarzenegger [last] => Arnold ) [2] => Array ( [first] => Stallone [last] => Sylvester ) )
in xml, I get:
<item>
<key xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="xsd:int">1</key>
<value xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="ns2:Map">
<item>
<key xsi:type="xsd:string">firs
<value xsi:type="xsd:string">Schw
</item>
<item>
<key xsi:type="xsd:string">last
<value xsi:type="xsd:string">Arno
</item>
</value>
</item>
<item>
<key xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="xsd:int">2</key>
<value xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="ns2:Map">
<item>
<key xsi:type="xsd:string">firs
<value xsi:type="xsd:string">Stal
</item>
<item>
<key xsi:type="xsd:string">last
<value xsi:type="xsd:string">Sylv
</item>
</value>
</item>
Can you please help me
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2-
2
6 Comments
Active today
you are somewhat vague on what you need
there are so many ways to store a set of strings ...
i see some generics usage in the other languages and i also see xml
using generics with a Tlist:
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Generics_Collections_TList_(Delphi)
i also see Array
http://docwiki.embarcadero.com/RADStudio/Berlin/en/Structured_Types_(Delphi)#Arrays
and a generics array:
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Generics_Collections_TArray_(Delphi)
what are you trying to do ?
there are so many ways to store a set of strings ...
i see some generics usage in the other languages and i also see xml
using generics with a Tlist:
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Generics_Collections_TList_(Delphi)
i also see Array
http://docwiki.embarcadero.com/RADStudio/Berlin/en/Structured_Types_(Delphi)#Arrays
and a generics array:
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Generics_Collections_TArray_(Delphi)
what are you trying to do ?
I started by
Delphi:
Delphi:
procedure TForm1.Button1Click(Sender: TObject);
var
resultat : TArray<String>;
begin
resultat := (HTTPRIO1 as customerCtrlPortType ).ViewCustomer(1);
Edit1.Text := resultat[1];
end;
Active today
This kind of arrays always start from (zero indexed). So...better use Low and High function to get bounds...
var
resultat : ArrayOf_xsd_string;
i:Integer;
begin
resultat := (HTTPRIO1 as customerCtrlPortType ).ViewCustomer(1);
for i:=Low(resultat) to High(resultat) do
begin
Memo1.Lines.Add(resultat[i]);
end;
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
New Relic recently released its Synthetics product that allows for the creation of performance monitors that periodically test a site's performance. If you wish to test an interactive workflow New Relic employs Selenium WebDriverJS to run those test…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
The purpose of this video is to demonstrate how to set up the WordPress backend so that each
page automatically generates a Mailchimp signup form in the sidebar.
This will be demonstrated using a Windows 8 PC. Tools Used are Photoshop, Awesome…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash"
After Shake : http://www.videocopilot.net/presets/after_shake/
All lightning effects with instructions : http://www.mediaf…
Suggested Courses
Course of the Month9 days, 18 hours left to enroll
762 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.