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