You are probably backing up your data—but how and where? Ransomware is on the rise and there are variants that specifically target backups. Read on to discover why off-site is the way to go.
Course Of The Month
6 days, 14 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 1 day ago
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 1 day ago
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
Introduction
In my previous article (http://www.experts-exchange.com/Microsoft/Development/MS-SQL-Server/SSIS/A_9150-Loading-XML-Using-SSIS.html) I showed you how the XML Source component can be used to load XML files into a SQL Server database, us…
Online collaboration is quickly becoming embedded in the workplace, and its benefits are tangible. See what the current landscape looks like and what the future holds for collaboration tools and the future of work.
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…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
Suggested Courses
Course of the Month6 days, 14 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
724 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.