ich habe folgendes Programm:
Code: Alles auswählen
uses sax_html, dom_html, dom, fphttpclient, opensslsockets, (...);
(...)
procedure TForm1.ParseHTMLExecute(Sender: TObject);
var
HTMLDoc: THTMLDocument;
DivList: TDOMNodeList;
sStream: TStringStream;
sUrl : string = '';
strHtml: string = '';
begin
sUrl:='https://www.google.de';
//HTML herunterladen
strHtml := TFPCustomHTTPClient.SimpleGet(sUrl);
ShowMessage('Length(strHtml)='+IntToStr(Length(strHtml)));
//HTMLDoc erstellen
HTMLDoc:= THTMLDocument.Create();
//Den StringStream erstellen
sStream := TStringStream.create(strHtml);
ShowMessage('sStream.Size='+IntToStr(sStream.Size));
//Den HTML-String in das HTMLDoc einlesen
ReadHTMLFile(HTMLDoc, sStream);
//Alle Knoten mit dem DIV-Tag einholen
DivList := HTMLDoc.GetElementsByName('div');
ShowMessage('DivList.Count = ' + IntToStr(DivList.Count));
Ich habe zwar schon Google mehrmals befragt, aber ohne Erfolg. Kennt jemand die Lösung oder einen besseren Weg, um HTML zu parsen?