Damit sich keiner die mühe macht und sucht. Ich habe etwas gefunden. Mein JSON sieht nun so aus.
Code:
[{
"id":"0.0.127.in-addr.arpa.",
"
url":"/servers/
localhost/zones/0.0.127.in-addr.arpa.",
"name":"0.0.127.in-addr.arpa",
"kind":"Master",
"dnssec":false,
"masters":[
],
"serial":32513,
"notified_serial":000000,
"last_check":0
},
{
"id":"0000.in-addr.arpa.",
"
url":"/servers/
localhost/zones/0000.in-addr.arpa.",
"name":"0000.in-addr.arpa",
"kind":"Master",
"dnssec":false,
"masters":[
],
"serial":32513,
"notified_serial":0000,
"last_check":0
}]
Neu sind die [] am Anfang und ende. Dann kann ich das mit diesem Programm auslesen.
Delphi-Quellcode:
program sample6;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows,
classes,
Variants,
uLkJSON
in '
uLkJSON.pas';
var
Messages :TlkJSONbase;
i :Integer;
begin
messages:=TlkJSONstreamed.loadfromfile('
test1.txt')
as TlkJSONbase;
for I := 0
to messages.Count-1
do begin
WriteLn(VarToStr(messages.Child[I].Field['
url'].Value));
end;
readln;
end.
Gefunden habe ich das
hier.
Ich kam am anfang mit dem Child nicht klar.
Trotzdem danke an alle und noch einen schönen Ostermontag. Meiner ist gerettet
