标签: delphi-2007

如何以编程方式找到两个目录之间的区别

首先; 我不一定在寻找Delphi代码,以任何你想要的方式吐出来.

我一直在寻找(特别是在这里)并找到一些关于人们寻找比较目录(包括子目录)的方法,尽管他们使用逐字节方法.第二个,我不是在寻找一个difftool,我"只是"寻找一种方法来查找不匹配的文件,同样重要的是,在一个目录中但不在另一个目录中的文件,反之亦然.

更具体一点:我有一个目录(备份文件夹),我不断使用FindFirstChangeNotification更新.虽然我第一次需要复制所有文件,但我还需要在应用程序启动时检查备份目录(如果在应用程序未运行时发生了某些事情或者FindFirstChangeNotification没有捕获文件更改).为了解决这个问题,我正在考虑为备份文件创建CRC列表,然后运行原始目录,为每个文件计算CRC,最后比较两个CRC.然后以某种方式查找一个目录而不是另一个目录中的文件(再次;反之亦然).

这是一个问题:这是最快的方式吗?如果是这样,那么(大致)如何完成工作?

windows delphi delphi-2007

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

Windows 7中的Delphi VCL"TaskDialog"问题

我正在Delphi 2007上开发一个Windows应用程序,我正在使用"Ttaskdialog"组件.使用Windows XP它运行正常,但在Windows 7中,我收到以下消息:

TtaskDialog要求启用主题

任何线索如何修复它?

delphi vcl delphi-2007 windows-7

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

在Delphi中优化包含的文件和用法

我尝试提高Delphi 2007和Codeinsight的性能.在应用程序中,DPR文件中添加了483个文件.

我不知道它是否是想象力但我觉得通过读取DPR中的所有文件,我从Codeinsight获得了更好的性能.

我也认为(如果我错了,请纠正我)所有包含在使用部分中的文件也应该包含在DPR文件中以获得最佳性能.

我的问题是,它是否存在一个扫描整个项目并列出DPR文件中缺少哪些文件以及哪些文件可以删除的工具?拥有可以在PAS文件中删除的用途列表也很不错.

我发现Pascal Analyzer似乎是一个很好的工具.在这种情况下特别评论这一点是值得赞赏的.

一个相关的问题在这里.

问候

delphi delphi-2007

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

跨进程单例对象

这是我的另一个Q的变体.我有两个应用程序,X和Y.他们必须在它们之间共享一个COM对象.X将向此对象发送数据,Y将响应此应用程序发送的事件.在任何时候,X或Y都可能被终止,但单身人士需要保持活着,直到两个申请被终止.
应该可以通过这种方式创建一个单独的COM对象,但是如果X首先启动并创建它,Y然后启动并使用它,然后X停止并...单身人士会怎么样?
无论如何,有没有人用Delphi试过这个?

delphi com delphi-2007 interprocess

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

Delphi XML遍历

我是Delphi的新手.

我想找到每个主题下的所有作者.

这是我的XML

<?xml version="1.0"?>
<catalog>
   <subject id="computer">
       <book id="bk101">                                                            
          <author>Gambardella, Matthew</author>                                  
          <title>XML Developer's Guide</title>                                   
          <genre>Computer</genre>                                                
          <price>44.95</price>                                                   
          <publish_date>2000-10-01</publish_date>                                
          <description>An in-depth look at creating applications                 
          with XML.</description>                                                
       </book>                                                                   
       <book id="bk112">                                                         
          <author>Galos, Mike</author>                                           
          <title>Visual Studio 7: A Comprehensive Guide</title>                  
          <genre>Computer</genre>                                                
          <price>49.95</price>                                                   
          <publish_date>2001-04-16</publish_date>                                
          <description>Microsoft Visual Studio 7 is explored in depth,           
          looking at how Visual Basic, Visual C++, C#, and ASP+ are              
          integrated into a comprehensive development                            
          environment.</description>                                             
       </book>                                                                   
   </subject>
   <subject id="literature">
       <book id="bk102">                                                         
          <author>Ralls, Kim</author>                                            
          <title>Midnight Rain</title>                                           
          <genre>Fantasy</genre>                                                 
          <price>5.95</price>                                                    
          <publish_date>2000-12-16</publish_date>                                
          <description>A former …
Run Code Online (Sandbox Code Playgroud)

xml delphi delphi-2007

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

Delphi在网络上的应用

可能重复:
建议使用什么Web应用程序框架?

我们有一个使用Citrix托管的Delphi 2007桌面应用程序.现在我们想摆脱Citrix并以某种方式通过网络启用它.

我做了一些研究,发现可以使用uniGUI.

http://www.unigui.com

结论:可以完成,但需要重写,并且只支持一部分组件.严肃的问题仍然是Web环境中的单一应用程序结构.

还有两个选项morfikatozed,他们还需要重写.

我想知道是否有任何其他选项需要更少的重写工作以及它有多脆弱?

请有人帮助我.

delphi web-applications delphi-2007

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

从functionpointer获取functionname?

我有一个指向这样的函数的指针.

TTestEvent = function(): Boolean;

procedure ExecuteTest(aTest: TTestEvent; aType: String);
begin
  if aTest then
    NotifyLog(aType + ' success')
  else
    TestError(aType + ' failed');
end;

// Call the test
procedure TestAll;
begin
  ExecuteTest(LoadParcels, 'LoadParcel');
end;
Run Code Online (Sandbox Code Playgroud)

但是从functionpointer aTest中提取函数的名称会更好.

而不是

aType + ' success'
Run Code Online (Sandbox Code Playgroud)

我想要类似的东西

ExtractName(aTest) + ' success'
Run Code Online (Sandbox Code Playgroud)

这可以在Delphi 2007中完成吗?

delphi function-pointers delphi-2007

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

表单中的消息"未找到ToolsAPI"

在一个包中,我有一个实现ToolAPi IOTAIDENotifier接口的组件.包可以设置,编译并显示在调色板上.这个组件的一个方法被设计用于在使用它的项目被编译(并且不被执行)时执行特定的操作...到目前为止,一切都可以.

当我在属于另一个项目的TForm上使用此组件时,问题会出现.当我尝试构建它时,我得到编译器消息File not found:ToolsAPI.dcu.

以下是该软件包的用途:

Uses
  {$IFDEF PACKAGESETUP} DesignIntf, DesignEditors,{$ENDIF}
  Classes, ToolsAPI;
Run Code Online (Sandbox Code Playgroud)

PACKAGESETUP仅在编译bpl时定义

当我双击错误消息时,IDE将打开文件,从该文件中声明对ToolsAPI的引用...如何摆脱此问题?

delphi delphi-2007 toolsapi

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

如何在不使用VCL的情况下使用自定义Delphi类创建窗口?

我正在尝试编写一个包含类的简单单元,TMainWindow以提高我对本机Windows API的了解.

我想像这样使用这个类:

var
  MainWindow: TMainWindow;
begin
  MainWindow := TMainWindow.Create;
  try
    MainWindow.ShowModal;
  finally
    MainWindow.Free;
  end;
end.
Run Code Online (Sandbox Code Playgroud)

我有一个几乎工作的原型,但我找不到问题,这是我到目前为止编写的代码:

unit NT.Window;

interface

uses
  Windows, Messages, Classes, SysUtils;

type
  PObject = ^TObject;

  TMainWindow = class(TObject)
  private
    FChild  : HWND;                          { Optional child window }
    FHandle : HWND;
    procedure WMCreate      (var Msg: TWMCreate);      message WM_CREATE;
    procedure WMDestroy     (var Msg: TWMDestroy);     message WM_DESTROY;
    procedure WMNcCreate    (var Msg: TWMNCCreate);    message WM_NCCREATE;
    procedure WMPaint       (var Msg: TWMPaint);       message WM_PAINT;
    procedure WMPrintClient (var Msg: TWMPrintClient); message …
Run Code Online (Sandbox Code Playgroud)

delphi winapi delphi-2007

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

如何用Delphi解析Json

需要解析以下JSON但无法弄清楚如何使用D2007和uJSON可以有人向我展示如何访问这些值?

{
    "id": "40",
    "created_at": "2013-08-02 20:50:28",
    "delivery_at": "2013-08-02 20:50:28",
    "cid": "7",
    "firstname": "Joe",
    "lastname": "Average",
    "street": "Joes Place",
    "items": [
        {
            "id": 601,
            "price": 25,
            "name": "Pizza Party 40x60 cm",
            "qty": 1,
            "opt": 8,
            "extras": [
                [
                    "Salmon",
                    0
                ],
                [
                    "Spinach",
                    1.5
                ],

            ]
        }
    ],
    "eMail": "me@examble.com"
}
Run Code Online (Sandbox Code Playgroud)

提前致谢!

编辑:纠正错误的json(也许并非完全错误,但并非意图)

delphi json delphi-2007

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