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.
    
  • 相关阅读:
    出栈序列的可能性判定
    阿里离线数据处理平台2013暑期学校
    终于算完了这道『1+1』
    数据结构学习笔记之一 链表
    经典解释监视器和对象锁
    Sybase中字符串替换函数 STR REPLACE
    使用Arrays sort 方法進行排序
    clustered和nonclustered索引的区别
    Java序列化的作用和反序列化
    Java多线程下载并具断点续传功能JAR
  • 原文地址:https://www.cnblogs.com/del/p/1029029.html
Copyright © 2011-2022 走看看