XMLDocument помогите решить проблему.

[MotoArhangel]

procedure TMain.GeLastMSG;
var
  response:string;
  XMLDocument: IXMLDocument;
  InfoNode: IXMLNode;
begin
  //проверяю доступность 
  if HTTPGet('http://vk.com/' + ReadIni('Domain')) = 'error' then
    exit;
  //записываю полученный кусок xml
  response := HTTPGet('http://api.vk.com/method/wall.get.xml?v=5.42&' +
    'filter=owner&' + 'domain=' + ReadIni('Domain') + '&' + 'count='
     +ReadIni('CountMSG')+'&'
    + 'extended=1&' // +
    // 'access_token=' + access_token
    );
  //Создаю XMLDocument
  XMLDocument:= TXMLDocument.Create(nil);
  //XMLDocument активный
  XMLDocument.Active := true;
  //Помещаю в XMLDocument полученный данные
  XMLDocument.LoadFromXML(response);
  //ищу ветку и беру из нее номер сообщения
  InfoNode := XMLDocument.DocumentElement.ChildNodes.FindNode('items');
  if Assigned(InfoNode) then
      begin
        //если номер предыдущего и нового не совпадает
        if (VarToStr(InfoNode.ChildNodes[0].ChildValues['id']) <>
          ReadIni('LastMSG')) then
        begin
          //вывожу сообщение в трей
          ShowMSGTray('Есть обновление',
            TextReduction(VarToStr(InfoNode.ChildNodes[0].ChildValues
            ['text'])));
          WriteIni(VarToStr(InfoNode.ChildNodes[0].ChildValues['id']));
        end;
      end;

  XMLDocument.Active := false;
  InfoNode:=nil;
  XMLDocument := nil;
end;

Где что не очистил? Убегает память.

И на всякий случай:

function TMain.HTTPGet(getstr: string): string;
var
  temp: string;
  http    : TIdHTTP;
begin
  result := '';

   http := TIdHTTP.Create(nil);
   try 
    try
      result := HTTP.Get(getstr);
    except
      on E: EIdSocketError do
      begin
       .....
      end;

      on E: EIdHTTPProtocolException do
      begin
        .......
      end;
    end;
  finally
    http.Free;
  end;
end;

[Аватар]

Это у какого делфина Free нет у XMLDocument? Должен быть. InfoNode:=nil не нужно

[come-on]

Аватар
там XMLDocument: IXMLDocument;

а как автор пишет и воопросы задает такие .. ?

[Аватар]

Дык пусть правильно опишет. А то в уме одно, а делает другое

[MotoArhangel]

Сообщение от Аватар

Это у какого делфина Free нет у XMLDocument? Должен быть. InfoNode:=nil не нужно

у XMLDocument: IXMLDocument; нет free,
А вот у XMLDocument: TXMLDocument; все как нужно.
Но решил сделать как в мануале.
http://docwiki.embarcadero.com/CodeE..._case_(Delphi)

[MotoArhangel]

Уже и так пробовал.

var
  response:string;
  XMLDocument: tXMLDocument;
  InfoNode: IXMLNode;
begin
   if HTTPGet('http://vk.com/' + ReadIni('Domain')) = 'error' then
    exit;

  response := HTTPGet('http://api.vk.com/method/wall.get.xml?v=5.42&' +
    'filter=owner&' + 'domain=' + ReadIni('Domain') + '&' + 'count='
     +ReadIni('CountMSG')+'&'
    + 'extended=1&' // +
    // 'access_token=' + access_token
    );
  XMLDocument:= TXMLDocument.Create(application);
   try
  XMLDocument.XML.Text:=response;
  XMLDocument.Active := true;
  InfoNode := XMLDocument.DocumentElement.ChildNodes.FindNode('items');
  if Assigned(InfoNode) then
      begin
        if (VarToStr(InfoNode.ChildNodes[0].ChildValues['id']) <>
          ReadIni('LastMSG')) then
        begin
          ShowMSGTray('Есть обновление',
            TextReduction(VarToStr(InfoNode.ChildNodes[0].ChildValues
            ['text'])));
          WriteIni(VarToStr(InfoNode.ChildNodes[0].ChildValues['id']));
        end;
      end;

  XMLDocument.Active := false;
  //InfoNode:=nil;
  //XMLDocument := nil;
   finally
     XMLDocument.Free;
   end;
end;

Все равно утечка.

[come-on]

  if HTTPGet('http://vk.com/' + ReadIni('Domain')) = 'error' then
    exit;

вот это можно сразу выкинуть, ничего оно не делает полезного, только захламляет

скиньте xml в файл и поднимайте из файла, поймете где течет

[MotoArhangel]

Сообщение от come-on

  if HTTPGet('http://vk.com/' + ReadIni('Domain')) = 'error' then
    exit;

вот это можно сразу выкинуть, ничего оно не делает полезного, только захламляет

скиньте xml в файл и поднимайте из файла, поймете где течет

Вопрос снят. Не внимателен