Forum: Netzwerke
by ScharfeMietze,
3. Feb 2016
Ja das macht Sinn THX :)
Gruß
SM;)
Forum: Netzwerke
by ScharfeMietze,
3. Feb 2016
Jap! Zum Testen an sich nutze ich gerne Formen. Vor allem in der Planung. Dann kann ich mir auch mal per button Inhalte ausgeben lassen, oder auch mal eine kleine Testroutine einpflegen.
Oder meintest du was anderes?
Forum: Netzwerke
by ScharfeMietze,
3. Feb 2016
Dann könnte die function so aussehen
function TServerMethods1.updateHddCrawler(Key: string; aJSONObject: TJSONObject): TJSONObject;
var
LJSONObject: TJSONObject;
s: string;
begin
Result := TJSONObject.Create;
try
if KeyValidation(Key) then frmHddCrawler.AnalyzeJson(aJSONObject,Result)
else Result.AddPair('error', 'invalid key') ;
Forum: Netzwerke
by ScharfeMietze,
3. Feb 2016
Perfect!! Danke für die Antwort. Das sind immer diese Fehlerteufel wenn man es nicht beachtet und dann das Wundern losgeht.
Gruß
SM;)
Forum: Netzwerke
by ScharfeMietze,
3. Feb 2016
https://www.youtube.com/watch?v=DdW8zssbQ0g
In diesem Vido wird beschrieben das auf einem Rest Server
function EchoJson: TJSONObject;
TJSONObject als Result dienen kann.
Es wird mittels Result := TJSONObject.create erzeugt
allerdings findet sich logischerweise nirgends ein .free.
Meine Frage an die Profis ist nun ob ich das so auch gefahrlos in jeder function so verwenden kann.
Ich...
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Da ich mit dem RestServer erst beginne und ihn nur für mich privat brauchen werde, ist das zum üben vollkommen ausreichend.
Ich danke dir nochmal!!
Gruß
SM;)
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
himitsu du bist echt ein Gott/Göttin!!!
S := (LJSONObject.Values as TJSONArray).Items.Value; ?
funktioniert SUPER!!!!!!!!
Danke dir!!!!
Gruß
SM;)
PS: Troz allem werde ich SirRufos Code auch testen, allein um des lernens Willen !!!
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
@himitsu
Doch gelesen habe ich es aber meine Versuche mit
mmo1.Lines.Add('2' + LJSONObject.Values.Value);
scheitern. Ich bekomme '' als Antwort.
Wenn ich probiere dort gerade alles durch
edit: gerade den Post gesehen ... probier ich gleich
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Magst mich gerade noch Aufklären wie ich mit einem solchen Array umzugehen habe?
Da bin ich noch Jungfräulich
Gruß
SM;)
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Genau das ist ja mein problemchen
mmo1.Lines.Add(LJSONObject.Values.ToString);
liefert MIT besagten Zeichen
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Ich muss euch nochmal stören.
Ich habe eine Serverantwort in Json von einem Rest server
{"result":}
1
Serverseite zum Üben
function TServerMethods1.updateEchoAttribute1(Key, Obj: string): String;
begin