Delphi Html parse hk

[aliplane]

Aşağıdaki adresteki verileri nasıl pars edebilirim.
Sadece ilk bloktaki <PRE> /PRE> arasındaki veriler gerekiyor.
Bu verileri satır satır okumam gerekiyor.

http://evds.tcmb.gov.tr/anaweb/enflasyonTR.html

[SimaWB]

Aslında bu forumda yada webte "HTML parse" şeklinde arama yaparsanız işinize yarayacak birçok örnek bulabilirsiniz.
Birkaç alternatif var. Bunlardan bir tanesi de WebBrowser kullanmak:

Kod: Tümünü seç

procedure TForm3.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://evds.tcmb.gov.tr/anaweb/enflasyonTR.html');
end;

procedure TForm3.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Document: IHTMLDocument2;
  Body: IHTMLElement2;
  PREs: IHTMLElementCollection;
  PRE: IHTMLElement;
begin
  if Supports(WebBrowser1.Document, IHTMLDocument2, Document) then
    if Supports(Document.body, IHTMLElement2, Body) then
    begin
      PREs := Body.getElementsByTagName('PRE');
      if PREs.length > 0 then
      begin
        PRE := PREs.item(0, EmptyParam) as IHTMLElement;//ilk PRE tag'ı için 0 kullanıldı
        Memo1.Lines.Add(PRE.innerHTML);
      end;
    end;
end;

[aliplane]

Teşekkür ederim,çok yardımcı oldu