导入Microsft.Xmldom然后就可以了。
http://www.ChinaOK.net/Examples/
这里的js操作Microsft.Xmldom
来生成xml
和delphi原理是一样的。
解决方案 »
- 很管用的打开窗体过程，可是很多人看不懂
- 我在动态连接库里写了一个键盘的全局钩子，用ADO把截获的信息保存到数据库中，现在遇到了问题？
- 我想实现点击一个按钮后，执行的是另一个按钮点击时的事件所做的代码。
- 在delphi中如何调用windows自带的计算器，并获得的计算结果？！！！！
- delphi6老是不能安装？
- 如何做一个完全没有Form窗口边框的delphi应用程序?而程序中又要用到Active控件。
- 窗口显示隐藏问题
- 有delphi能调用gif的第3方控件？
- 如何编写一个通用函数，实现回车之后焦点自动到下一个TabOrder上去？
- 关于打印报表的问题求教！！
- QQICQ.类ICQ软件源码放送！！！！！！！我的QQ是6075335
- 如何反映这个数据库表的信息？？
d6;
internet页
xmldocumenet........
procedure TForm1.actTransExecute(Sender: TObject);
var
xmldom,xsldom : variant ;
s : string ;
begin
xmldom := CreateOleObject('Msxml2.DOMDocument');
xsldom := CreateOleObject('Msxml2.DOMDocument');
xmldom.loadXML(memo1.Text);
xsldom.loadXML(memo2.Text);
s := xmldom.transformNode(xsldom) ;
Memo3.text := s;
end;
新建xml文件就是写这样的一个字符串：
s:=<?xml version="1.0"?><root></root>
要操作的话先
xmldom.loadXML(s);
保存可以用xmldom.save,至于修改,建议你看一下msdn，最好先招一些xml入门的书籍看一下。
首先，我们应当慢慢来。我假设所要面对的是普通的Windows GUI程序，为使用更多的先进技术（大部分的商业软件就是如此）。因为Windows编程几乎全部基于Windows API中的函数。所以，有比较好的共性。在选择转换技术上我选择了XML。因为它得到了广泛的支持，且有很强的扩展性。主题思想如下图：
V B
||
\ /
\/
XML(面向具体的编程语言，仅仅考虑完善的描述不考虑通用性。
||
\ /
\/Delphi =====>> XML(同上)====>>>XPML(我瞎编的，一种通用性的程序描述格式，使用xml)…………
/\
/ \
||
||
XML(同上)
/\
/ \
||
||
C++Builder
这种花瓣形的互译模式，可以减少许多过程。转换时面对的都是统一的标准格式XPML。简明可操作。
然后要着手是使编程语言到描述其的XML语言的转换。我已经坐了一小步，定了一个描述delphi语言源文件的xml格式，描述了dpr,pas,dfm文件。如下：<?xml version="1.0" encoding="gb2312"?>
<delphi>
<project>
<program>Project1
</program>
<uses><name>Forms</name>
</uses>
<uses><name>Unit1</name><path>Unit1.pas</path><comment>Form1</comment>
</uses>
<res>
</res>
<Initialize>
<exp><Application><Initialize></Initialize></Application></exp>
<exp><Application><CreateForm><param>TForm1</param><param>Form1</param></CreateForm></Application></exp>
<exp><Application><Run></Run></Application></exp>
</Initialize>
</project>
<description>
<Unit1>
<Form1 source='TForm1'>
<attribute>
<Left>192</Left>
<Top>107</Top>
<Width>544</Width>
<Height>375</Height>
<Caption>'Hello World'</Caption>
<Color>clBtnFace</Color>
<Font>
<Charset>DEFAULT_CHARSET</Charset>
<Color>clWindowText</Color>
<Height>-11</Height>
<Name>'MS Sans Serif'</Name>
<Style>[]</Style>
</Font>
<OldCreateOrder>False</OldCreateOrder>
<PixelsPerInch>96</PixelsPerInch>
<TextHeight>13</TextHeight>
</attribute>
</Form1>
</Unit1>
</description>
<source>
<Unit1>
<interface>
<uses>Windows
</uses>
<uses>Messages
</uses>
<uses>SysUtils
</uses>
<uses>Classes
</uses>
<uses>Graphics
</uses>
<uses>Controls
</uses>
<uses>Forms
</uses>
<uses>Dialogs
</uses>
</interface>
<implementation>
</implementation>
</Unit1>
</source>
</delphi>然后编出具体的代码，实现这一步的转换，我也坐了一小步，实现了dpr->xml的一部分，即转换工程名，Uses段和资源段，初始化段上为实施。如下，程序使用Windows Scripting Host写的，很业余，运行请保存为*.js双击即可。// Windows Script Host to convert delphi's project file into xml file
//
// ------------------------------------------------------------------------
// Copyright (C) 2001 hcstudio
//
// You have a royalty-free right to use, modify, reproduce and distribute
// the Application Files (and/or any modified version) in any way
// you find useful, provided that you agree that hcstudio has no warranty,
// obligations or liability for any Application Files.
// ------------------------------------------------------------------------// This script will convert delphi's project file into xml file.
var source;
var program,uses,resource;
var program=new Array();
var uses = new Array();
filename="Project1.dpr";
source=ReadFile(filename);
program=FindProgram(source);
uses=FindUses(program[1]);
resource=FindResource(uses[uses.length-1]);
program=program[0];
CreateXml(program,uses,resource);
//////////////////////////////////////////////////////////////////////////////////
//
// ReadFile to parse and return the file content as string
//function ReadFile(filename)
{
var fso,file,stream,source;
fso = new ActiveXObject("Scripting.FileSystemObject");
file = fso.GetFile(filename);
stream = file.OpenAsTextStream(1,-2);
source=stream.readall();
return(source);
}
//////////////////////////////////////////////////////////////////////////////////
//
// Find the Program name and return the rest
//function FindProgram(source)
{
var program,next,uptarget,downtarget,up,down;
var toReturn;
uptarget=/program/;
downtarget=/;/;
up=source.search(uptarget);
down=source.search(downtarget);
program=source.substring(up,down);
uptarget=/\s/;
up=program.search(uptarget);
program=program.slice(up);
next=source.slice(down+1); var toReturn=new Array();
toReturn[0]=program;
toReturn[1]=next;
return(toReturn);
}
//
// A group of function to find uses
//function FindUses(source)
{
var uses;
uses=new Array(); var Uses,uptarget,downtarget,up,down;
uptarget=/uses/;
downtarget=/;/;
up=source.search(uptarget);
down=source.search(downtarget);
Uses=source.substring(up,down);
uptarget=/\s/;
up=Uses.search(uptarget);
Uses=Uses.slice(up);
uses=FindUsesDetail(Uses);
next=source.slice(down+1);
uses[uses.length]=next; return(uses);
}
function FindUsesDetail(Uses)
{
var auses,first,second,ifin,ifleft,ifright,i;
first=new Array();
auses=new Array();
first=Uses.split(",");
ifin=/\sin\s/;
ifleft=/'*'/;
ifright=/\./;
for(i=0;i<first.length;i++)
{
if(first[i].search(ifin)==-1)
{
auses[i*2]=first[i];
auses[i*2+1]=0;
}
else
{
auses[i*2]=first[i].substring(0,first[i].search(ifin));
auses[i*2+1]=first[i].substring(first[i].search(ifleft)+1,first[i].search(ifright)+4);
}
}
return(auses);
}
//////////////////////////////////////////////////////////////////////////////////
//
// Find the Resource and return the next
//function FindResource(source)
{
var ifres,resource, j,found;
ifres=/{/;
var resource=new Array();
j=0;
do
{
if(found!=-1)
{
found=source.search(ifres);
resource[j]=source.substring((found+3),source.search(/}/));
j++;
source=source.slice(source.search(/}/)+1);
}
}
while (found!=-1);
resource[resource.length]=source;
return(resource);
}//////////////////////////////////////////////////////////////////////////////////
//
// to createXml file using program,uses(array of string)
//function CreateXml(program,uses,resource)
{
var filename;
filename="delphi.xml";
WriteFlag(filename);
var i; var xmlDoc = new ActiveXObject("Msxml2.DOMDocument");
xmlDoc.load(filename);
var rootElement=xmlDoc.createElement("delphi");
var projectElement=xmlDoc.createElement("Project"); var programElement=xmlDoc.createElement("program");
var programElementText=xmlDoc.createTextNode(program);
programElement.appendChild(programElementText);
projectElement.appendChild(programElement); for(i=0;i<uses.length-1;i=i+2)
{
var usesElement=xmlDoc.createElement("uses");
var usesnameElement=xmlDoc.createElement("name");
var usespathElement=xmlDoc.createElement("path");
var usesnameElementText=xmlDoc.createTextNode(uses[i]);
var usespathElementText=xmlDoc.createTextNode(uses[i+1]);
usesnameElement.appendChild(usesnameElementText);
usespathElement.appendChild(usespathElementText);
usesElement.appendChild(usesnameElement);
usesElement.appendChild(usespathElement);
projectElement.appendChild(usesElement);
}
for(i=0;i<resource.length-2;i++)
{
var resourceElement=xmlDoc.createElement("resource");
var resourceElementText=xmlDoc.createTextNode(resource[i]);
resourceElement.appendChild(resourceElementText);
projectElement.appendChild(resourceElement);
}
rootElement.appendChild(projectElement);
xmlDoc.appendChild(rootElement);
xmlDoc.save(filename);
}function WriteFlag(filename)
{
var fso,file,stream,source;
fso = new ActiveXObject("Scripting.FileSystemObject");
file = fso.CreateTextFile(filename,true);
file.WriteLine("<?xml version=\"1.0\" encoding=\"gb2312\"?>");
file.Close();
}//////////////////////////////////////////////////////////////////////////////////
//
// for debug use
//
function Display(program)
{
var WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup(program);
}最后综合各种语言的xml描述形式，定出XPML(Extensive Programming Markup Language)的标准。关键的互译开始了。
多多交流. [email protected]