estou iniciando no mundo DataSnap e me deparei com uma situação que não conseguir achar solução.
O meu código está com memory leak, pois não consigo liberar os objetos. se eu liberar os objetos o da erro de acesso violado no result.
function TServerMethods1.Teste(Key: string; ID: Integer): TFDJSONDataSets;
var
Con : TFDConnection;
qry : TFDQuery;
begin
Con:= TFDConnection.Create(nil);
qry:= TFDQuery.Create(nil);
try
qry.Connection:= Con;
qry.SQL.Text:= Format('select id, nome from clientes where id = %d', [ID]);
qry.Open;
Result:= TFDJSONDataSets.Create;
TFDJSONDataSetsWriter.ListAdd(Result, qry);
finally
FreeAndNil(qry);
FreeAndNil(Con);
end;
end;
eu preciso liberar os objetos criados [qry, con] porem não estou conseguindo.