首先; 我不一定在寻找Delphi代码,以任何你想要的方式吐出来.
我一直在寻找(特别是在这里)并找到一些关于人们寻找比较目录(包括子目录)的方法,尽管他们使用逐字节方法.第二个,我不是在寻找一个difftool,我"只是"寻找一种方法来查找不匹配的文件,同样重要的是,在一个目录中但不在另一个目录中的文件,反之亦然.
更具体一点:我有一个目录(备份文件夹),我不断使用FindFirstChangeNotification更新.虽然我第一次需要复制所有文件,但我还需要在应用程序启动时检查备份目录(如果在应用程序未运行时发生了某些事情或者FindFirstChangeNotification没有捕获文件更改).为了解决这个问题,我正在考虑为备份文件创建CRC列表,然后运行原始目录,为每个文件计算CRC,最后比较两个CRC.然后以某种方式查找一个目录而不是另一个目录中的文件(再次;反之亦然).
这是一个问题:这是最快的方式吗?如果是这样,那么(大致)如何完成工作?
我正在Delphi 2007上开发一个Windows应用程序,我正在使用"Ttaskdialog"组件.使用Windows XP它运行正常,但在Windows 7中,我收到以下消息:
TtaskDialog要求启用主题
任何线索如何修复它?
我尝试提高Delphi 2007和Codeinsight的性能.在应用程序中,DPR文件中添加了483个文件.
我不知道它是否是想象力但我觉得通过读取DPR中的所有文件,我从Codeinsight获得了更好的性能.
我也认为(如果我错了,请纠正我)所有包含在使用部分中的文件也应该包含在DPR文件中以获得最佳性能.
我的问题是,它是否存在一个扫描整个项目并列出DPR文件中缺少哪些文件以及哪些文件可以删除的工具?拥有可以在PAS文件中删除的用途列表也很不错.
我发现Pascal Analyzer似乎是一个很好的工具.在这种情况下特别评论这一点是值得赞赏的.
一个相关的问题在这里.
问候
这是我的另一个Q的变体.我有两个应用程序,X和Y.他们必须在它们之间共享一个COM对象.X将向此对象发送数据,Y将响应此应用程序发送的事件.在任何时候,X或Y都可能被终止,但单身人士需要保持活着,直到两个申请被终止.
应该可以通过这种方式创建一个单独的COM对象,但是如果X首先启动并创建它,Y然后启动并使用它,然后X停止并...单身人士会怎么样?
无论如何,有没有人用Delphi试过这个?
我是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) 可能重复:
建议使用什么Web应用程序框架?
我们有一个使用Citrix托管的Delphi 2007桌面应用程序.现在我们想摆脱Citrix并以某种方式通过网络启用它.
我做了一些研究,发现可以使用uniGUI.
结论:可以完成,但需要重写,并且只支持一部分组件.严肃的问题仍然是Web环境中的单一应用程序结构.
还有两个选项morfik和atozed,他们还需要重写.
我想知道是否有任何其他选项需要更少的重写工作以及它有多脆弱?
请有人帮助我.
我有一个指向这样的函数的指针.
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中完成吗?
在一个包中,我有一个实现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的引用...如何摆脱此问题?
我正在尝试编写一个包含类的简单单元,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) 需要解析以下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(也许并非完全错误,但并非意图)