Parser HTML

0

Czy ktos moze wie gdzie znajde jakas biblioteke, komponent do parsingu dokumnetow html w delphi?
Samemu pisac takie cos to samobojstwo... Moze istnieja gotowe komponenty delphi do parsingu kodu lub moze ktos juz takie cos juz probowac pisac?

Chodzi mi o swobodny dostep w html do tagow, arybutow i ich wartosci.
Wiem ze IE uzywa do tego parsera opartego o standard DOM jednak jak uzyc tege w delphi?

Z gory dziekuje za jakiekolwiek sugestie...

0

Możesz wstawić kontrolkę WebBrowser (ActiveX) od M$ - dostaniesz internet explorer'a w Twoim programie. Nie jestem pewien jak to jest w Delphi, ale w C++ można zrobić z tą kontrolką prawie wszystko (analiza, zmiana, wstawianie elementów itp.).

Więcej informacji znajdziesz na MSDN pod hasłem "Reusing MSHTML"

0

Był sobie taki konponent kiedyś, co się nazywał THTMLLite. Zdaje mi się, że on miał własny parser napisany.

0

nom komponenty z http://www.jazarsoft.com/ sa godne polecenia sam uzywam np. xmlparser i innych

0

Dzieki!!!

Na stronie http://www.jazarsoft.com/ faktycznie znalazlem parserek o ktory mi chodzilo. Szkoda jedynie ze nie umozliwia przedstawienia sparsowanego dokumentu w hierarchii tagow w postaci drzewa, jednak tak czy inaczej bedzie on wystarczajacy dla moich potrzeb...

Parsujac recznie poszczegolne fragmenty chyba bym sie zarabal... Jednak jakby ktos dal jeszcze linka lub podal nazwe komponentu ktory umozliwi tworzenia drzewa dokumentu html (podobnie jak to sie robi z dokumentami xml) to juz bylby w siodmym niebie :)

Jeszcze raz dzieki za poprzedniego linka.

0

o ile pamietam to tam tez bylo cos podobengo do tego co szukasz... a jezeli nie to potraktuj to praserem xml... :)

0

Tylko ze parser xml jest z tego co wiem wrazliwy na skladnie, jesli dokument nie posiada domknietych tagow to dokument jest zle sformulowany i chyba nici z tego... A w dokumentach html czesto zdarza sie opuszczac tagi domykajace jak np </FONT>, </A> itd...

0

Witam,
a zna ktoś stronke, gotowca, lub sposób jak zrobić parsera HTML, tzn. mam sformatowany tekst w RichEdit (C++Builder) i chce z tego mieć HTML?a a nie jak RTF (bo tak jest domyślnie)

Parser, może być w Delphi, PHP, JavaScript, C++

DZIEKI!!
POZDRAWIAM :)

0

Jest tu gdzies artykul o tym, nie chce mi sie szukac wiec zaposaje kod:

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; 

type 
TKolorowanie = record 
  b, i, u: boolean; 
  color: tcolor; 
end; 

type 
TForm1 = class(TForm) 
  ColorBox1: TColorBox; 
  RichEdit1: TRichEdit; 
  Button1: TButton; 
  procedure Button1Click(Sender: TObject); 
  private 
public 
end; 

var 
  Form1: TForm1; 

implementation 

{ $R *.dfm } 
function color2html(color: tcolor): string; 
begin 
  Result:='#' + IntToHex(GetRValue(color), 2) + 
  IntToHex(GetGValue(color), 2) + 
  IntToHex(GetBValue(color), 2); 
end; 

procedure openhtml(var s: string; k: tkolorowanie); 
begin 
  if k.b then s:=s + '&lt;b&gt;'; 
  if k.i then s:=s + '&lt;i&gt;'; 
  if k.u then s:=s + '&lt;u&gt;'; 
  s:=s + '&lt;font color=' + color2html(k.color) + '&gt;'; 
end; 

procedure closehtml(var s: string; k: tkolorowanie); 
begin 
  if k.b then s:=s + '&lt;/b&gt;'; 
  if k.i then s:=s + '&lt;/i&gt;'; 
  if k.u then s:=s + '&lt;/u&gt;'; 
  s:=s + '&lt;/font&gt;' 
end; 

function equal(a, b: tkolorowanie): boolean; 
begin 
  result:=(a.b = b.b) and (a.u = b.u) and (a.i = b.i) and (a.color = 
  b.color) 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  k, nk: tkolorowanie; 
  res: string; 
  i: Integer; 
  attr: TTextAttributes; 
begin 
  res:='&lt;html&gt;&lt;body&gt;'; 
  richedit1.selstart:=1; 
  richedit1.sellength:=1; 
  attr:=richedit1.selattributes; 

  k.b:=fsBold in attr.Style; 
  k.u:=fsUnderline in attr.Style; 
  k.i:=fsItalic in attr.Style; 
  k.color:=attr.Color; 

  openhtml(res, k); 
  res:=res + richedit1.lines.text[1]; 

  for i:=2 to length(richedit1.lines.text) do begin 
  if richedit1.lines.text[i] = #10 then Continue; 
  if richedit1.lines.text[i] = #13 then begin 
    res:=res + '&lt;br&gt;'; 
    Continue 
  end; 

  richedit1.selstart:=i; 
  richedit1.sellength:=1; 
  attr:=richedit1.selattributes; 

  nk.b:=fsBold in attr.Style; 
  nk.u:=fsUnderline in attr.Style; 
  nk.i:=fsItalic in attr.Style; 
  nk.color:=attr.Color; 

  if not equal(nk, k) then begin 
    closehtml(res, k); 
    openhtml(res, nk); 
    k:=nk 
  end; 

  res:=res + richedit1.lines.text[i] 
  end; 

  closehtml(res, nk); 

  res:=res + '&lt;/body&gt;&lt;/html&gt;'; 
  RichEdit1.Text:=res; 
end; 

1 użytkowników online, w tym zalogowanych: 0, gości: 1