JSONArray freigeben?

[Ykcim]

Vielen Dank... das Brett war doch ein bißchen fest...

Ich hatte es so schon zuvor versucht, bekam aber immer eine Fehlermeldung:

Zitat:

Exception der Klasse EXDATAHttpEntityNotFound mit der Meldung 'Requested Entity does not exist' aufgetreten

Interessanter Weise wurde aber trotzdem alles korrekt durchgeführt.

Ich habe es jetzt so realisiert, dann kommt die Fehlermeldung nicht:

Delphi-Quellcode:

function TTV_CreateNewCustService.Get_CustProp(company_id: integer): TJSONArray;
var   Logic: TLogic;
      Query: TFDQuery;
      JSW: TFDBatchMoveJSONWriter;
      BDSR: TFDBatchMoveDataSetReader;
      BMove: TFDBatchMove;
  I: Integer;
begin
   Logic:= TLogic.create;
   Result:= TJSONArray.Create; //Das hier macht den Unterschied, ob die Fehlermeldung kommt oder nicht.
   Set_DBComps(Query, JSW, BDSR, BMove);
   Try
      Query.SQL.Add('select e.* from hlp_einstellungen e '+
                    'where company_id= :c_id');
      Query.ParamByName('c_id').AsInteger:=company_id;
      Get_DataBatch(BMove, Result);
   Finally
      Query.Free;
      JSW.Free;
      BDSR.Free;
      BMove.Free;
      Logic.Free;
   End;
end;

Macht diese Zeile denn bei einem Result Sinn? Result:= TJSONArray.Create;
Vielen Dank und schöne Weihnachten!
Patrick