小编Cyp*_*rUS的帖子

如何使用Delphi 7中的TXML Document创建XML文件

我使用以下代码来创建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)

delphi

5
推荐指数
1
解决办法
6570
查看次数

如何通过在delphi 7中使用API​​来获取Netstat信息

我的任务是查找信息abt n/w或Windows中的netstat命令给出的信息.现在,我被告知要使用一些API来提取这些信息.任何可用于此任务的delphi 7的API都会有所帮助.我遇到过这个API,IP帮助程序API,但我在我的PC中找不到.我只能在C:\ Windows\System32中找到DLL"iphlpapi.dll".此外,关于如何使用此特定API的信息似乎非常少.请帮忙.

提前致谢

PS早些时候,我通过执行Netstat命令,将输出写入文本文件,然后解析相同的显示来做同样的事情,对我来说,这是一个非常好的方法.然而,我的先生并不好.是什么原因,我无法理解.

delphi

5
推荐指数
1
解决办法
2932
查看次数

GetModuleFileNameEx()没有得到各种系统进程的路径

我创建了这个函数来获取各种网络进程的路径,比如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位.

delphi

5
推荐指数
1
解决办法
1776
查看次数

如何在Delphi中将值写入已创建的Registry中

   myReg:=TRegistry.Create;
myReg.CreateKey('\sunandan123\');
//myReg.WriteString('Tile','1');
myReg.WriteString ('TileWallpaper','1') ;
Run Code Online (Sandbox Code Playgroud)

这段代码给出了一个例外,即我没有设置'TileWallpaper'的值.怎么纠正呢?

谢谢

delphi

4
推荐指数
2
解决办法
9604
查看次数

查找由点集形成的三角形是否包含原点并给出总数的算法?

输入:S = {p1, . . . , pn}n2D 平面上的点,每个点由其 x 和 y 坐标给出。

\n\n

为简单起见,我们假设:

\n\n

The 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)。

\n\n

其中一些三角形包含 (0, 0),有些则不包含。

\n\n

问题:计算包含 (0, 0) 的三角形的数量。

\n\n

您可以假设我们有一个 O(1) 时间函数Test(pi, pj , pk),给定 S 中的三个点 pi、pj、pk,如果 形成的三角形包含{pi, pj , pk}(0, …

algorithm

4
推荐指数
1
解决办法
3302
查看次数

如何将jar文件转换为exe和rpm

我的应用程序有以下 jar 文件:

桌面应用程序1.jar

另外,我为我的应用程序使用了一些额外的 API,如 jsoup、jexcelapi 等。lib 文件夹中有大约 7 个 api。

如何从所有这些 jar 文件中生成 EXE 文件和 RPM 文件?

PS 我是第一次。所以考虑到这一点。另外,我使用了 Netbeans 6.8。所以主要的 API 位于 \dist 文件夹中。所使用的 API 位于 \dist\lib 文件夹中。

提前致谢

java installation

3
推荐指数
1
解决办法
5727
查看次数

在TWebBrowser中也打开新页面

我已经创建了一个带有twebBrowser的应用程序.问题是当我点击一些链接时,例如gmail,它会在我的默认浏览器(即IE)的新窗口中打开.我如何让它像firefox或chrome等一样工作,打开窗口中点击的链接.网址应该在TWebBrowser的窗口中打开.我必须在运行时使用TWebBrowser在运行时创建一个新表单吗?这样的代码不需要,想法会做

提前致谢.

PS我的组织阻止Gmail,Facebook等.但是通过我的TWebBrowser,我可以打开它们.我的QA ppl可以在他们的日志中看到吗?我的猜测是否定的,从那时起他们就会阻止它.你对此有何评论?

delphi delphi-7 twebbrowser

3
推荐指数
1
解决办法
4153
查看次数

当在delphi中没有选择行时,禁用listview的弹出菜单

我的listview中有一个弹出菜单,我希望在点击不在任何行时禁用,我想知道ListView或PopupMenu应该做什么事情.

提前致谢

delphi

3
推荐指数
1
解决办法
6383
查看次数

多个couninitialize调用会使应用程序崩溃吗?

我有一个应用程序,在其中我创建了一个线程,该线程必须在超时间隔内检查数据库中特定类型的数据。该线程完全负责创建数据库连接,查询和关闭连接。在线程执行过程中,我仅进行一次CoInitialize调用,并重用了Ado连接和Ado查询以供以后使用。

现在我的问题是,我以前(可能是错误地)在循环中留下了CoUnitialize语句用于数据库数据检查。这意味着每次都完成对CoUnitialize的调用。为什么应用程序没有崩溃?由于没有数据可发布,因此CoUnitialize应该失败了。我对此表示怀疑。

提前致谢

delphi

3
推荐指数
1
解决办法
882
查看次数

禁用文件选择器中的新文件夹按钮不能正常工作

我使用以下代码禁用新的"文件夹"按钮:

 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 :,那么按钮再次启用.如何设置这个权利?

java swing jfilechooser

2
推荐指数
1
解决办法
2576
查看次数