小编Dai*_*tsu的帖子

从HTML(Delphi)获取渲染的文本

我有一些HTML,我需要从页面中提取实际的书面文本。

到目前为止,我已经尝试过使用Web浏览器并呈现页面,然后转到document属性并获取文本。这有效,但仅在支持浏览器的地方(IE com对象)。问题是我希望它也能够在wine下运行,所以我需要一个不使用IE COM的解决方案。

必须有合理的编程方式来做到这一点。

html delphi html-parsing html-content-extraction

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

Windows出现在屏幕边缘(Delphi)

我的应用程序中的Windows正在弹出屏幕边缘,这当然是一个问题,因为有些窗口是模态的,不能被解雇(你甚至不知道它们在那里).

我正在使用TurboPower Orpheus组件来记住每个表单的位置和大小,然后在再次显示表单时将其恢复.它将大小和位置保存在INI文件中.

我该怎么做才能防止窗户出现在屏幕的一侧?

delphi location screen turbopower

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

删除了Mercurial版本化的一些文件,如何提交删除?

我删除了我本地文件系统上的一些文件,我不再使用这些文件只是垃圾邮件.不幸的是,它们由版本控制(Mercurial)跟踪.现在我看到一个大红色'!' 说由于缺少文件而导致它不同步.如何告诉Mercurial可以删除这些文件而不还原所有文件并单独选择删除?

version-control mercurial commit revert delete-file

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

如何找到是否安装了打印机(使用Delphi)

我的程序是用Delphi编写的(面向对象的pascal).当我尝试打印任何内容时,我收到消息"当前没有选择默认打印机".在未安装打印机的计算机上.

为了防止这种情况,我想检查是否安装了任何打印机.有没有办法检查是否安装了任何打印机?

printing delphi default

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

如何查看哪个单元使用另一个单元的层次结构?(DELPHI)

有一个大型项目,我需要查看每个文件在其USES子句中引用的单元的层次结构.

恩.

                                Project Source (program.dpk)

        HelperUnit                  Forms                ThirdPartyUnit

MyUtils MyConsts MyDownload                         TPShellShock  TPWhatever 
Run Code Online (Sandbox Code Playgroud)

我怎么能看到这种依赖树呢?我记得在一个较新的Delphi版本中有一些这样的功能,但我不记得它叫什么.它可能是一个插件.

关于如何做到这一点的任何提示都会很棒.我开始编写我自己的程序来做这件事,但我已经浪费了3个小时,我仍然在处理pas文件的解析器.

delphi hierarchy include uses-clause

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

是否为每个UDP连接打开一个新套接字?

我知道使用TCP,每个连接都会创建一个新的套接字.UDP是否也为每个连接创建一个新套接字?

sockets udp tcp

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

解决与Beyond Compare(Mercurial)的合并冲突

我正在使用Mercurial,它被配置为在合并时发生冲突时打开Beyond Compare.BC打开很好,并向我展示了两个文件,但我不知道在那之后该怎么做.

通常在BC中,线条旁边有箭头,这些箭头不同,您可以点击它们将选区向左或向右移动.无论我如何选择一个部分,我都无法将代码从一侧移动到另一侧,或者选择一个特定的部分作为我想要保留的部分.这个用户界面很有用.我基本上可以看到差异,但不知道如何告诉BC我想保留哪一个.

merge mercurial beyondcompare beyondcompare3

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

超时后从Java锁定Windows桌面

我希望我的Java应用在特定的超时后锁定Windows桌面。我有一个工作正常的计时器,但是我似乎无法执行命令来锁定工作站。

javax.swing.Timer tim = new javax.swing.Timer(1000, new ActionListener() {
   public void actionPerformed(ActionEvent e) {
   System.out.println("CARD NOT PRESENT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!");
   // LOCK SCREEN
   Runtime rt = Runtime.getRuntime();
   Process pr = rt.exec("%windir%/System32/rundll32.exe user32.dll,LockWorkStation");
   }
});
Run Code Online (Sandbox Code Playgroud)

这有什么错误吗?或者,也许更简单的方法可以做到这一点?

java windows timeout lockout

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

Delphi中N个数组的交集

为了找到N个数组的交集,我有这个实现,这是非常低效的.我知道必须有一个算法来加速这个.

注意:myarray是包含我想要找到其交集的所有其他数组的数组.

var
i, j, k: integer;
myarray: Array of Array of integer;
intersection: array of integer;

for I := 0 to length(myarray)-1 do
  begin
    for J := 0 to length(myarray)-1 do
    begin
      if i = j then
        continue;
      for k := 0 to length(myarray[i])-1 do
      begin
        if myarray[i][j] = myarray[j][k] then
        begin
          setLength(intersection, length(intersection)+1);
          intersection[length(intersection)-1] := myarray[j][k];
        end;
      end;
    end;
  end;
Run Code Online (Sandbox Code Playgroud)

我可以应用什么优化来加快速度?有更快的方法吗?

编辑:数组中的数据未排序.

arrays delphi optimization intersection multidimensional-array

3
推荐指数
2
解决办法
1036
查看次数

你怎么称呼旧的方法或图书馆,不再使用?

必须有一个名字.我在考虑降级或未使用(旧的不够描述).有没有人想出一些描述性的东西来称呼这个?

vocabulary

2
推荐指数
3
解决办法
186
查看次数