TÉMA:
Memory leak? 2017 júl. 23 20:40 #2230
Memory leak? 2017 júl. 23 12:11 #2228
|
Nem tudtam nyugodni
 Íme a megoldás: a ReadHTMLFile eljárás mindig új THTMLDocument példányt hoz létre, ezért annak előzetes létrehozására nincs szükség. Továbbá a TStringStream paraméterben történő létrehozása miatt is elszivárgott 2 blokk... program kvtmoziparser;
{$mode objfpc}{$H+}
uses heaptrc, classes, sysutils, fphttpclient,sax_html, dom_html, dom;
var
doc: thtmldocument;
els: tdomnodelist;
ss:tstringstream;
Site: String;
i: LongInt;
begin
//doc:=THTMLDocument.Create; // Erre itt nincs szükség.
With TFPHttpClient.Create(Nil) do
try
Site:=Get('http://konyvtarmozi.hu/vetitesek.aspx');
finally
Free;
end;
Delete(Site,1,pos('Soron k',Site));
Delete(Site, pos('<td colspan="2" class="focim">Elm',Site),Length(Site));
ss:=tstringstream.create(Site); // Így kell létrehozni, hogy később teljesen felszabadítható legyen a foglalt memória.
readhtmlfile(doc,ss); // A ReadHTMLFile mindig új THTMLDocument példányt hoz létre.
els := doc.GetElementsByTagName('td');
if els.Count > 0 then begin
for i:=0 to els.Count-1 do
writeln(tdomelement(els[i]).textcontent);
end;
ss.free; // Fel kell szabadítani
els.free;
doc.free;
end.
Hogyan kérdezzünk okosan?
/
Mit kell tennünk kérdezés előtt?
-- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64
|
Memory leak? 2017 júl. 23 11:27 #2227
|