Memory leak

[emin]

Hi

I use below script to get data from a webservice. Eventhough I make variables free at the end of the process, sometimes I face memory leak warning

Thanks in advance for your help

 

function ankarapoliceolustur(sigortali,sigortaettiren,boy,kilo,policebaslangic,indirimorani:string):String;
var
WS:uAnkaraSaglikDostuWS.ISaglikDostuWS;
Police:uAnkaraSaglikDostuWS.SaglikDostu2;
Sonuc: QuotationResult2;
begin
 WS := (UniMainModule.HTTPRIOPolice as uAnkaraSaglikDostuWS.ISaglikDostuWS);
 Police:=uAnkaraSaglikDostuWS.SaglikDostu2.Create;
 Sonuc:=QuotationResult2.Create;
    try
       ......
        try
          Sonuc:=WS.GetQuotation(Police);
          Result:=inttostr(sonuc.PolicyNumber)+'|'+inttostr(sonuc.EndorsNumber)+'|'+ sonuc.ProductNumber+
                              '|'+Sonuc.Premium.DecimalString+'|'+inttostr(sonuc.RenewalNumber);
        except
          Result:='Failed';
        end;
   finally
    Police.Free;
    sonuc.Free;
   end;

end;

 

[alfr]

Hi, 

I believe you should only create the objects when posting data. When asking for data, the objects is normally created based what are sent from the server to you. So I would skipped the following lines... (and see what happens...)

Police:=uAnkaraSaglikDostuWS.SaglikDostu2.Create;
Sonuc:=QuotationResult2.Create;

 

[emin]

You are right. It works now.

Thank you