我使用以下代码来创建XML文档:
procedure TForm1.btnCreateXMLClick(Sender: TObject);
var
rootName:string;
childName:string;
attrChild:string;
iXml: IDOMDocument;
iRoot, iNode, iNode2, iChild, iAttribute: IDOMNode;
begin
XMLDoc.Active:=false;
XMLDoc.XML.Text:='';
XMLDoc.Active:=true;
XMLDoc.FileName:='C:\Documents and Settings\a\Desktop\New Text Document.xml';
iXml := XmlDoc.DOMDocument;
//iRoot:=iXml.documentElement(iXml.createElement('xml'));
iRoot := iXml.appendChild(iXml.createElement ('xml'));
// node "test"
iNode := iRoot.appendChild (iXml.createElement ('test'));
iNode.appendChild (iXml.createElement ('test2'));
iChild := iNode.appendChild (iXml.createElement ('test3'));
iChild.appendChild (iXml.createTextNode('simple value'));
iNode.insertBefore (iXml.createElement ('test4'), iChild);
// node replication
iNode2 := iNode.cloneNode (True);
iRoot.appendChild (iNode2);
// add an attribute
iAttribute := iXml.createAttribute ('color');
iAttribute.nodeValue := 'red';
iNode2.attributes.setNamedItem (iAttribute);
// show …Run Code Online (Sandbox Code Playgroud) 我的任务是查找信息abt n/w或Windows中的netstat命令给出的信息.现在,我被告知要使用一些API来提取这些信息.任何可用于此任务的delphi 7的API都会有所帮助.我遇到过这个API,IP帮助程序API,但我在我的PC中找不到.我只能在C:\ Windows\System32中找到DLL"iphlpapi.dll".此外,关于如何使用此特定API的信息似乎非常少.请帮忙.
提前致谢
PS早些时候,我通过执行Netstat命令,将输出写入文本文件,然后解析相同的显示来做同样的事情,对我来说,这是一个非常好的方法.然而,我的先生并不好.是什么原因,我无法理解.
我创建了这个函数来获取各种网络进程的路径,比如svchost,Firefox等.这是代码:
function GetProcessPath(var pId:Integer):String;
var
Handle: THandle;
begin
Result := '';
try
Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, pID);
if Handle <> 0 then
begin
try
SetLength(Result, MAX_PATH);
if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
SetLength(Result, StrLen(PChar(Result)))
else
Result := '';
finally
CloseHandle(Handle);
end;
end;
except
on E:Exception do
ShowMessage(E.ClassName + ':' + E.Message);
end;
end;
Run Code Online (Sandbox Code Playgroud)
我的问题是我没有得到所有进程的路径.它适用于获取Firefox和其他类似用户级进程的路径.但对于像alg,Svchost这样的进程,我无法通过这种方法获得路径.我的猜测是我必须使用一些不同的API.我该如何解决这个问题?
我使用的是Windows XP,32位.
myReg:=TRegistry.Create;
myReg.CreateKey('\sunandan123\');
//myReg.WriteString('Tile','1');
myReg.WriteString ('TileWallpaper','1') ;
Run Code Online (Sandbox Code Playgroud)
这段代码给出了一个例外,即我没有设置'TileWallpaper'的值.怎么纠正呢?
谢谢
输入:S = {p1, . . . , pn},n2D 平面上的点,每个点由其 x 和 y 坐标给出。
为简单起见,我们假设:
\n\nThe origin (0, 0) is NOT in S.\nAny line L passing through (0, 0) contains at most one point in S.\nNo three points in S lie on the same line.\n\n如果我们从 S 中选取任意三个点,我们就可以形成一个三角形。所以这样可以形成的三角形总数为\xce\x98(n^3)。
其中一些三角形包含 (0, 0),有些则不包含。
\n\n问题:计算包含 (0, 0) 的三角形的数量。
\n\n您可以假设我们有一个 O(1) 时间函数Test(pi, pj , pk),给定 S 中的三个点 pi、pj、pk,如果 形成的三角形包含{pi, pj , pk}(0, …
我的应用程序有以下 jar 文件:
桌面应用程序1.jar
另外,我为我的应用程序使用了一些额外的 API,如 jsoup、jexcelapi 等。lib 文件夹中有大约 7 个 api。
如何从所有这些 jar 文件中生成 EXE 文件和 RPM 文件?
PS 我是第一次。所以考虑到这一点。另外,我使用了 Netbeans 6.8。所以主要的 API 位于 \dist 文件夹中。所使用的 API 位于 \dist\lib 文件夹中。
提前致谢
我已经创建了一个带有twebBrowser的应用程序.问题是当我点击一些链接时,例如gmail,它会在我的默认浏览器(即IE)的新窗口中打开.我如何让它像firefox或chrome等一样工作,打开窗口中点击的链接.网址应该在TWebBrowser的窗口中打开.我必须在运行时使用TWebBrowser在运行时创建一个新表单吗?这样的代码不需要,想法会做
提前致谢.
PS我的组织阻止Gmail,Facebook等.但是通过我的TWebBrowser,我可以打开它们.我的QA ppl可以在他们的日志中看到吗?我的猜测是否定的,从那时起他们就会阻止它.你对此有何评论?
我的listview中有一个弹出菜单,我希望在点击不在任何行时禁用,我想知道ListView或PopupMenu应该做什么事情.
提前致谢
我有一个应用程序,在其中我创建了一个线程,该线程必须在超时间隔内检查数据库中特定类型的数据。该线程完全负责创建数据库连接,查询和关闭连接。在线程执行过程中,我仅进行一次CoInitialize调用,并重用了Ado连接和Ado查询以供以后使用。
现在我的问题是,我以前(可能是错误地)在循环中留下了CoUnitialize语句用于数据库数据检查。这意味着每次都完成对CoUnitialize的调用。为什么应用程序没有崩溃?由于没有数据可发布,因此CoUnitialize应该失败了。我对此表示怀疑。
提前致谢
我使用以下代码禁用新的"文件夹"按钮:
public void disableNewFolderButton( Container c ) {
System.out.print("in disable fn");
int len = c.getComponentCount();
for (int i = 0; i < len; i++) {
Component comp = c.getComponent(i);
if (comp instanceof JButton) {
JButton b = (JButton)comp;
Icon icon = b.getIcon();
if (icon != null
&& icon == UIManager.getIcon("FileChooser.newFolderIcon"))
{
System.out.print("in disable fn");
b.setEnabled(false);
}
}
else if (comp instanceof Container) {
disableNewFolderButton((Container)comp);
}
}
}
Run Code Online (Sandbox Code Playgroud)
代码在以下行中调用:
JFileChooser of=new JFileChooser();
of.setAcceptAllFileFilterUsed(false);
of.addChoosableFileFilter(new MyFilter());
disableNewFolderButton(of);
Run Code Online (Sandbox Code Playgroud)
但是,仅在首次显示文件选择器时才会禁用新文件夹按钮.假设我去了一些驱动器,比如说g :,那么按钮再次启用.如何设置这个权利?
delphi ×7
java ×2
algorithm ×1
delphi-7 ×1
installation ×1
jfilechooser ×1
swing ×1
twebbrowser ×1