Hallo Zusammen,
ich entwickle gerade eine Client-Server App. Dabei werden von dem Server die
DB-Aktionen durchgeführt und die Ergebnisse mittels JSON-Objecte an den Client geschickt. Die letzte Function gibt ein JSONArray als Result zurück:
Delphi-Quellcode:
function TTV_CreateNewCustService.Get_Customer(company_id: integer): TJSONArray;
var Logic: TLogic;
JSAr: TJSONArray;
Query: TFDQuery;
JSW: TFDBatchMoveJSONWriter;
BDSR: TFDBatchMoveDataSetReader;
BMove: TFDBatchMove;
I: Integer;
begin
Logic:= TLogic.create;
JSAr:= TJSONArray.Create;
Set_DBComps(
Query, JSW, BDSR, BMove);
Try
Query.SQL.Add('
select * from company '+
'
where company_id= :c_id');
Query.ParamByName('
c_id').AsInteger:=company_id;
Get_DataBatch(BMove, JSAr);
Result:=JSAr;
Finally
Query.Free;
JSW.Free;
BDSR.Free;
BMove.Free;
//JSAr.Free; Wenn ich das nicht auskommentiere, verliert Result seinen Wert...
Logic.Free;
End;
end;
Ich versuche immer alle Objecte, die ich create auch wieder mit Free freizugeben. In diesem Fall übergebe ich zuvor dem Result (vom Typ TJSONArray) die Variable TJSONArray, mit der ich vorher gearbeitet habe. Wenn ich nun die Variable freigebe, dann verliert das Result seinen Werte und ist wieder leer. Wenn ich das JSAr.Free rausnehme funktioniert es.
Muss ich das TJSONArray nicht freigeben oder muss ich das Result anders bestücken?
Vielen Dank
Patrick