main.pas

是一个delphi的流程制作软件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleServer, MSXML2_TLB, Menus, ExtCtrls, StdCtrls, MSXML2_TLB;

type
  TForm1 = class(TForm)
    DOMDocument1: TDOMDocument;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Run1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Memo1: TMemo;
    ListBox1: TListBox;
    Splitter1: TSplitter;
    procedure Exit1Click(Sender: TObject);
    procedure Run1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

function GetStartDir: string;
begin
  Result := ExtractFilePath(ParamStr(0));
  if Result[Length(Result)] <> '\' then
    Result := Result + '\';
end;

procedure TForm1.Run1Click(Sender: TObject);
var
  Len,i: Integer;
  ElemList: IXMLDOMNodeList;
begin
  Memo1.Clear;
  ListBox1.Clear;
  DOMDocument1.load(GetStartDir + 'sam1.html');
  Len := DOMDocument1.documentElement.childNodes.Get_length;
  for i := 0 to Len - 1 do begin
    Memo1.Lines.Add('Node Name  := ' + DOMDocument1.documentElement.Get_nodeName);
    Memo1.Lines.Add('');
    Memo1.Lines.Add(DOMDocument1.documentElement.childNodes.item[i].Text);
  end;

  ElemList := DOMDocument1.documentElement.getElementsByTagName('CD');
  for i := 0 to ElemList.length -1 do
    ListBox1.ITems.Add(ElemList.item[i].xml);
end;

end.