Win64中的注册表节点描述
我有一个Delphi XE2项目在Windows注册表中创建一些节点和子节点，如下所述： 我已经定义了以下代码： function GetWinDir：串; var WindowsDirectory：数组[0..MAX_PATH]的Char; begin GetWindowsDirectory（WindowsDirectory，MAX_PATH - 1）; S
..
delphi-xe2相关内容
TSQLQuery仅针对大型字符串正确地流出了前1MB的数据
（有关堆栈跟踪的编辑＃1和编辑＃2与发布结束时的解决方法） 在排除 TSQLQuery.FieldByName（）。AsString - > TStringStream破坏数据，我发现一个 TSQLQuery.FieldByName（）。AsBytes 只会精确地传送1MB的 varchar（max） code>数据正确。 使用WireShark，我验证了数据是全部 Delphi应用程
..
当.Net的限制为32768时，为什么OmniThreadLibrary限制为60个线程？
最近我正在比较.NET中的OmniThreadLibrary和ThreadPool，我发现Omni在最大线程（ 60允许）中受到的限制更多，而.NET可以升级到 32768 在.NET 4.0中。 为什么这样的限制？ 解决方案这是一个历史性的选择，曾经被取消。限制只有线程池实现。 有关网站，说明如下： 60个并发线程的限制仅适用于线程 池。线程池旨在快速执行许多小的 请
..
匿名方法 - 可变捕获与值捕获
下面是基于Chris Rolliston优秀的Delphi XE2 Foundations书第1部分 的匿名方法部分中的一个示例，关于变量 捕获的想法（任何错误都完全失效对我而言。 它的工作原理与我预期的一样，在连续点击 BtnInvoke按钮时记录666,667,668,669。特别是，它很好地说明了btnSetUpClick退出之后， 本地变量的捕获版本如何持久存在。 到目
..
禁用在VCL中的DbGrids.pas中自动更改键盘布局
我使用 ActivateKeyboardLayout（HKL_NEXT，KLF_ACTIVATE）; 使用Delphi XE2加载波斯键盘布局，但有时我点击TextBox或DbGrid控制键盘自动更改为英文布局。 如何禁用自动更改键盘布局？ 解决方案 我们有同样的问题。这个bug从D2006升级到D2010后出现。 问题在DBGrids.pas中： 程序TCustomDB
..
每当对象字段值更改时，如何定义断点？
例如，给定下面的代码提取，我想定义一个断点，只要对象字段值改变（），并且可选地，在条件（在这种情况下为False或True）时触发。 type TForm1 = class（TForm） EnableButton：TButton; DisableButton：TButton; 程序EnableButtonClick（Sender：TObject）; 程序DisableButt
..
将认证从Webbrowser转移到Indy CookieManager
如何将Web浏览器中的cookie放入用于Http请求的Indy CookieManager。 我登录到这样一个网站后，我得到了cookies。 测试项目= http://www.megafileupload.com/en/file/373536/Cookie-Tester-rar.html procedure TForm1.WebBrowser1DownloadComplet
..
SuperObject无法处理空字符串
一些JSON序列化程序返回一个空字符串数据字段的 null 。 { “searchtext”：null， “moretext”：“包含东西”， “bookdate”：1377468000000， “empid”：12345， “listtype”：1 } 我正在使用SuperObject创建一个ISuperObject： var FJSONRequest：
..
枚举TWebRequest HTTP头域
是否可以转储TWebRequest（和TWebResponse）对象的所有头字段？ 此刻，我使用GetFieldByName（）并使用Writeln（）打印它们，但只有当我已经知道标题字段的名称时才有效。我正在寻找一种获取所有标题字段名称以枚举每个字段的方法，但是我没有找到任何方法。 我写了一个REST数据点控制台应用程序，并希望将所有HTTP请求/响应记录到控制台。 解决方案 A
..
Int64类型的Web服务中的空值
我使用具有数字元素的Web服务。 Delphi wsdl导入器将其设置为Int64。 Web服务允许此元素为空。然而，因为它被定义为Int64，当我在Delphi中使用Web服务而不设置它的值时，它默认为0，因为它是一个Int64。但是我需要它为空，Web服务将不接受0的值（0被定义为无效并且由Web服务返回错误）。 如果类型为Int64，如何传递空值？ 解决方案 空白年龄（示
..
如何从64位代码调用32位DLL？
我有一些32位DLL没有匹配的64位DLL。如何从Delphi XE2编写的64位应用程序中调用这些DLL？ 解决方案 不，您不能直接这样做。 64位进程只能执行64位代码，32位进程只能执行32位代码。 技巧是使用多个进程....（注意，这可以为非可视化代码，甚至对于GUI元素，尽管可能会有一些小但有问题的视觉元素的行为。） 最常见的解决方案是将32位dll包装在一个不在进程
..
使用自定义绘图时，Delphi列表视图控件是否有错误？
QC＃101189 我试图自定义在Delphi c> TListView 中绘制一个进度条，如 NGLN对另一个SO问题的回答。除了使用Vista中引入的新的资源管理器主题绘制使用热跟踪之外，这个工作很好。 热跟踪绘画和Delphi自定义绘图事件似乎干扰了与彼此。例如，我看到的输出类型如下所示： 列1中的文本应该读取项3，但是被删除。它看起来像Delphi包装器中的列表视图控件中
..
为TEqualityComparer.Construct写一个hasher函数的规范方法是什么？
考虑以下记录： TMyRecord = record b：Boolean; //这里填充3个字节的默认记录对齐设置 i：整数; 结束 我希望实现 IEqualityComparer 。为了这样做，我想调用 TEqualityComparer .Construct 。这需要提供一个 TEqualityCompari
..
如何确保RTTI可用于类，而不实例化？
我最近在此论坛上发布了一个问题，要求提供有关在DXE2可执行文件中缺少RTTI信息。 该帖子是我实际案例的一个删除版本。 RRUZ来抢救，所以被剥离的版本很快就解决了。原来的问题依然存在，所以现在我正在发布。 “主”： 程序MissingRTTI; {$ APPTYPE CONSOLE} 使用 System.SysUtils，RTTI，MyUnit在'MyUnit.pas'，R
..
TRttiMethod.Invoke函数在重载方法中不起作用？
我正在使用 TRttiMethod.Invoke创建课程实例函数，但是当构造函数或方法重载时，rtti不会调用正确的方法。 我写了一个示例应用程序来解决我的问题。 程序ProjectFoo; {$ APPTYPE CONSOLE} {$ R * .res} 使用 Rtti， System.SysUtils ; type TFoo = class
..
何时手动释放线程
如果我从主线程创建一个（暂停）线程，那么： 与TMyThread.Create（True）do begin OnTerminate：= ThreadTerminated; FreeOnTerminate：= False; 开始; 结束 一旦完成，我该如何解除这个实例？ （即执行过程已经执行完毕 - 假设我已经捕获了异常）。 这个链接显示了一种方法（通
..
授权失败TIdHTTP over HTTPS
我想接近Exchange Web服务并自己处理XML SOAP组合（请求）和解析（响应）。 因此，THTPPRIO似乎有点过分。 我正在尝试TIdHTTP，但我坚持认证;使用Delphi XE2更新4与Indy 10.5.8.0 这里是代码： idHTTP1.Request.CustomHeaders.AddValue（'SOAPAction'，'“http://schema
..
致命错误：无法创建输出文件“project1.exe”
现在有一段时间，我在Windows 7（64bit）上使用Delphi 7和Delphi XE2，如果从IDE里面，我仍然遇到这个问题： 编译程序，运行它，停止它，更改它并重新运行我收到此错误消息： [致命错误]无法创建输出文件“project1.exe” 我不知道是什么原因导致的。我有googled了解更多信息，但我找不到解决方案。 有两种解决方法：等待一两分钟，或手动删
..
我如何修补delphi类的私有方法？
我已阅读这些问题和答案 如何更改外部声明的函数的实现（绕行）
..
如何启用VCL样式来更改TPanel的颜色？
当启用VCL样式时，我需要更改TPanel的颜色。我尝试使用和修改文章中列出的代码更改使用VCL样式启用的编辑控件的颜色 ，但它不适用于TPanel。如何启用VCL样式来更改TPanel的颜色？ 解决方案 TPanel 不使用样式钩子绘制控件，所以你不能使用文章中描述的技术。相反，您必须覆盖 paint 方法。 使用插入程序类检查此示例。 type TPanel =
..