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...
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"
Tutaj jest gotowiec+demo:
http://www.jazarsoft.com/product.php?pid=0160040010
nom komponenty z http://www.jazarsoft.com/ sa godne polecenia sam uzywam np. xmlparser i innych
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.
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 :)
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 + '<b>';
if k.i then s:=s + '<i>';
if k.u then s:=s + '<u>';
s:=s + '<font color=' + color2html(k.color) + '>';
end;
procedure closehtml(var s: string; k: tkolorowanie);
begin
if k.b then s:=s + '</b>';
if k.i then s:=s + '</i>';
if k.u then s:=s + '</u>';
s:=s + '</font>'
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:='<html><body>';
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 + '<br>';
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 + '</body></html>';
RichEdit1.Text:=res;
end;