开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
XmlEditForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

XmlEditForm.pas：源码内容
  1. unit XmlEditForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, ComCtrls, ToolWin, OleCtrls,
  8.   SHDocVw;
  10. type
  11.   TFormXmlEdit = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     MemoXml: TMemo;
  15.     ToolBar1: TToolBar;
  16.     btnLoad: TToolButton;
  17.     TabSheet5: TTabSheet;
  18.     EditXmlFile: TEdit;
  19.     Label1: TLabel;
  20.     btnSave: TToolButton;
  21.     xmlBar: TStatusBar;
  22.     Label4: TLabel;
  23.     EditFolder: TEdit;
  24.     Label5: TLabel;
  25.     EditBaseFile: TEdit;
  26.     btnUpdate: TButton;
  27.     cbAutoUpdate: TCheckBox;
  28.     TabSheet7: TTabSheet;
  29.     XmlBrowser: TWebBrowser;
  30.     XMLDoc: TXMLDocument;
  31.     ToolButton1: TToolButton;
  32.     procedure btnLoadClick(Sender: TObject);
  33.     procedure btnSaveClick(Sender: TObject);
  34.     procedure MemoXmlChange(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure btnUpdateClick(Sender: TObject);
  37.     procedure EditFolderOrFileChange(Sender: TObject);
  38.     procedure TabSheet7Enter(Sender: TObject);
  39.     procedure MemoXmlKeyUp(Sender: TObject; var Key: Word;
  40.       Shift: TShiftState);
  41.     procedure MemoXmlMouseUp(Sender: TObject; Button: TMouseButton;
  42.       Shift: TShiftState; X, Y: Integer);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  49. var
  50.   FormXmlEdit: TFormXmlEdit;
  52. implementation
  54. {$R *.DFM}
  56. procedure TFormXmlEdit.btnLoadClick(Sender: TObject);
  57. begin
  58.   // try to load the file
  59.   MemoXml.Lines.LoadFromFile (EditXmlFile.Text);
  60. end;
  62. procedure TFormXmlEdit.btnSaveClick(Sender: TObject);
  63. begin
  64.   // save the file
  65.   MemoXml.Lines.SaveToFile (EditXmlFile.Text);
  66. end;
  68. procedure TFormXmlEdit.MemoXmlChange(Sender: TObject);
  69. var
  70.   eParse: IDOMParseError;
  71. begin
  72.   XmlDoc.Active := True;
  73.   xmlBar.Panels[1].Text := 'OK';
  74.   xmlBar.Panels[2].Text := '';
  75.   (XmlDoc as IXMLDocumentAccess).DOMPersist.loadxml(MemoXml.Text);
  76.   eParse := (XmlDoc.DOMDocument as IDOMParseError);
  77.   if eParse.errorCode <> 0 then
  78.     with eParse do
  79.     begin
  80.       xmlBar.Panels[1].Text := 'Error in: ' + IntToStr (Line) +
  81.         '.' + IntToStr (LinePos);
  82.       xmlBar.Panels[2].Text := SrcText + ': ' + Reason;
  83.     end;
  84. end;
  86. procedure TFormXmlEdit.FormCreate(Sender: TObject);
  87. begin
  88.   EditFolder.Text := ExtractFilePath (Application.ExeName);
  89.   btnUpdateClick (self);
  90. end;
  92. procedure TFormXmlEdit.btnUpdateClick(Sender: TObject);
  93. begin
  94.   EditXmlFile.Text := EditFolder.Text +
  95.     EditBaseFile.Text + '.xml';
  96. end;
  98. procedure TFormXmlEdit.EditFolderOrFileChange(Sender: TObject);
  99. begin
  100.   if cbAutoUpdate.Checked then
  101.     btnUpdateClick (self);
  102. end;
  104. procedure TFormXmlEdit.TabSheet7Enter(Sender: TObject);
  105. begin
  106.   XmlBrowser.Navigate (EditXmlFile.Text);
  107. end;
  109. procedure TFormXmlEdit.MemoXmlKeyUp(Sender: TObject; var Key: Word;
  110.   Shift: TShiftState);
  111. begin
  112.   xmlBar.Panels[0].Text :=
  113.     'Pos: ' + IntToStr (MemoXml.CaretPos.Y + 1) +
  114.     '.' + IntToStr (MemoXml.CaretPos.X + 1);
  115. end;
  117. procedure TFormXmlEdit.MemoXmlMouseUp(Sender: TObject;
  118.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  119. begin
  120.   xmlBar.Panels[0].Text :=
  121.     'Pos: ' + IntToStr (MemoXml.CaretPos.Y + 1) +
  122.     '.' + IntToStr (MemoXml.CaretPos.X + 1);
  123. end;
  125. end.