delphi 解析html
时间: 2023-07-12 15:03:34 浏览: 62
Delphi 中可以使用 TWebBrowser 组件来解析 HTML,以下是一个简单的示例:
1. 在 Delphi 中创建一个新的窗体。
2. 在窗体中添加一个 TWebBrowser 组件。
3. 在代码中使用 Navigate 方法加载需要解析的 HTML 页面。
4. 使用 TWebBrowser 的 Document 属性来获取页面的 DOM 对象。
5. 使用 DOM 对象的方法和属性来解析 HTML。
以下是一个简单的示例代码:
```delphi
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: Variant;
Body: Variant;
Divs: Variant;
I: Integer;
begin
WebBrowser1.Navigate('http://www.example.com');
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
Doc := WebBrowser1.Document;
Body := Doc.body;
Divs := Body.getElementsByTagName('div');
for I := 0 to Divs.Length - 1 do
Memo1.Lines.Add(Divs.item(I).innerHTML);
end;
```
这个代码将加载 http://www.example.com 页面,并获取所有的 div 元素并将其 innerHTML 输出到 Memo1 组件中。这个示例只是一个简单的开始,你可以使用 DOM 对象的其他方法和属性来解析和操作 HTML。