zoukankan      html  css  js  c++  java
  • 黄聪:Delphi 中的 XMLDocument 类详解(18) 更好地显示 xml 的测试结果 FormatXMLData 及其他

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, OleCtrls, SHDocVw;

    type
    TForm1
    = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    XMLDocument1: TXMLDocument;
    Memo1: TMemo;
    {Memo}
    WebBrowser1: TWebBrowser;
    {WebBrowser}
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    uses ShellAPI; {为提供 ShellExecute 函数}

    //打开
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    XMLDocument1.LoadFromFile(
    'c:\temp\test.xml');
    end;


    // xml 格式化输出, 通过 Memo 显示
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Memo1.Lines.Text :
    = FormatXMLData(XMLDocument1.XML.Text);
    {TXMLDocument 所在的 XMLDoc 单元给我们提供了 xml 格式化函数 FormatXMLData}
    end;


    //先保存修改结果, 通过 WebBrowser 会有更好的显示效果
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    XMLDocument1.SaveToFile(
    'c:\temp\test2.xml');
    WebBrowser1.Navigate(
    'c:\temp\test2.xml');
    end;


    //先保存, 然后用外部浏览器显示, 需要 uses ShellAPI 单元
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    XMLDocument1.SaveToFile(
    'c:\temp\test2.xml');
    ShellExecute(Handle,
    'open', 'Explorer.exe', 'c:\temp\test2.xml', nil, SW_SHOWNORMAL);
    end;

    end.

    出处:http://www.cnblogs.com/del/archive/2008/01/07/1029029.html

  • 相关阅读:
    ElasticSearch查询多条件同时满足时返回所需数据
    Linux环境下安装ElasticSearch
    微博抓取照片视频
    numpy 常用方式
    Centos最小化安装 AWVS 的坑
    使用centos安装nessus 8.15,并解除IP限制
    Linux CentOS7 开通端口外网端口访问权限
    VSCode配置C语言环境
    Python MySQL
    web7
  • 原文地址:https://www.cnblogs.com/huangcong/p/1809974.html
Copyright © 2011-2022 走看看