{
关键字=读取网络上的文本
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 20:39:28
数字签名=6A5B2AF786F4A2EBC4344CEC19588F7F
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, ExtCtrls;
type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
{读取网络上的文本 }
XMLDocument1.LoadFromFile(‘http://www.baidu.com/’);
ShowMessage(XMLDocument1.DocumentElement.ChildNodes[0].Text);
end;