delphi-xe2相关内容

SuperObject 无法处理空字符串

某些 JSON 序列化程序为空字符串数据字段返回 null,例如 {“搜索文本":空,"moretext": "包含一些东西",“预订日期":1377468000000,“empid":12345,“列表类型":1} 我正在使用 SuperObject 创建一个 ISuperObject: varFJSONRequest:ISuperObject;然后FJSONRequest := SO(R ..
发布时间:2022-01-06 23:12:03 其他开发

Delphi XE 的 SOAP 服务器和客户端应用程序 VCL+indy 演示?

Delphi 曾经包含一个用于 Web 服务的 demos 文件夹,但现在似乎不再包含这个. 我刚刚尝试了 Delphi 7 演示项目(SOAPDMServerWAD,一个几乎没有 UI 的服务器,以及 SOAPDMClient)并且无法让它们运行,即使在 Delphi 7 中. 如果有人曾经在 Delphi XE 或 Delphi 2010 中做过类似的演示工作,与旧的 SOAPDM ..
发布时间:2021-12-24 10:12:55 其他开发

Int64 类型的 Web 服务中的空白值

我使用了一个包含数字元素的 Web 服务.Delphi wsdl 导入器将其设置为 Int64. Web 服务允许此元素为空.但是,因为它被定义为 Int64,所以当我在 Delphi 中使用 Web 服务而不为其设置值时,它默认为 0,因为它是一个 Int64.但我需要它为空,并且 Web 服务不接受 0 值(0 被定义为无效并由 Web 服务返回错误). 如果类型是 Int64,我 ..
发布时间:2021-12-24 10:05:43 其他开发

如果函数存在,如何检查DLL?

我正在研究动态加载专门制定的 DLL 的东西.在考虑使用这个 DLL 之前,我需要能够检查 DLL 并确保所有预期的函数都存在.如果它缺少某些功能,我不应该尝试加载它.我知道我可以尝试调用其中一个函数并查看是否有异常,但我会在调试模式下看到错误. 如果函数存在,我应该如何检查 DLL?我想在之前检查它我加载它(使用LoadLibrary)但我想如果我也必须加载它来执行这个检查也没关系. ..
发布时间:2021-12-14 00:11:10 其他开发

如何修补 delphi 类的私有方法?

我已阅读这些问题和答案 如何改变实现(绕道)一个外部声明的函数 delphi 中的补丁例程调用 但我不知道如何修补位于另一个单元中的类的私有方法. 检查此示例我想修补 Bar 过程. Unit ThidParty;界面类型TFoo = 类私人的程序栏;结尾; 我认为关键是找到获取私有方法地址的方法. 那么,如何修补 delphi 类的私有方法? 解决方案 ..
发布时间:2021-12-14 00:04:37 其他开发

64 位 Delphi 目标能否静态链接到已编译的 C 对象文件?

我的 32 位 Delphi 2010 应用程序使用 $LINK 编译器指令链接到许多 C 对象文件.以 64 位为目标时,我可以在 Delphi XE2 中执行此操作吗? 我目前正在使用 bcc32 5.5 版进行编译,但如果结果证明 Embarcadero C 编译器尚未输出 64 位对象,我不介意我使用哪个编译器. 解决方案 是的.您必须将“C"对象文件编译为 COFF 格式. ..
发布时间:2021-12-14 00:01:56 其他开发

使用密码加密 .INI 文件字符串的简单代码

我正在寻找比 ROT13 更复杂的东西,但它不需要库(最好甚至不需要一个单元,只是一个功能下降). 我想使用用户提供的密码对给定的字符串进行对称加密/解密.但是,结果必须是一个字符串,因为我必须能够将其存储在 .INI 文件中. 有没有人有一个简单的功能来做到这一点(delphi XE2)?Google 今天不是我的朋友. 提前致谢 [更新]/[赏金] 只是为了说明这一点( ..
发布时间:2021-12-14 00:00:57 其他开发

如何将我的应用程序带到前台?

我知道这是一个坏主意的所有原因.如果应用程序窃取输入焦点,我不喜欢它,但这纯粹是为了个人使用,我希望它发生;它不会打扰任何事情. (出于好奇:我正在 NetBeans 中运行单元测试,它生成一个日志文件.当我的后台应用程序看到日志文件的时间戳更改时,我希望它解析日志文件并来到前面显示结果). 这个问题没有帮助,也没有谷歌搜索.似乎 BringToFront() 已经很久没有工作了,我找 ..
发布时间:2021-12-13 23:59:15 其他开发

如何将构建日期自动获取到我的代码可见的常量中?

我想在我的代码中定义一个常量来保存可执行文件的构建日期.我很自然地希望自动化这个过程. 我知道我可以使用 Perl 等编写预构建脚本来写出包含日期的 .inc 文件.我更喜欢使用环境变量或构建变量的更轻量级的解决方案.msbuild 是否提供任何有帮助的变量?有谁知道这个问题的更简洁的解决方案? 解决方案 您可以从 PE 头 可执行文件: 使用图像帮助;function Linke ..
发布时间:2021-12-13 23:55:36 其他开发

Delphi XE2 列表视图工件

我在 vsreport 虚拟模式下使用 listview,有两列,在我填充列表后,选择一行,然后选择其他行,之前选择的行上有一个工件,见下图.如何解决这个问题? 这是我从数组中获取数据的代码 procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);开始Item.Caption := FloatToStr(Item.I ..
发布时间:2021-12-13 23:51:30 其他开发

泛型不能正确解析方法类型

考虑以下几点: {$APPTYPE 控制台}用途泛型.集合;类型TObjProc = 对象过程;TFoo = 类公共程序 DoFoo;公共程序 DoBar;结尾;程序 TFoo.DoFoo;开始WriteLn('foo');结尾;程序 TFoo.DoBar;开始WriteLn('bar');结尾;无功ProcList : TList;Foo : TFoo;aProc : TObjProc;开始F ..
发布时间:2021-12-13 23:51:04 其他开发

TDateTimePicker 的样式属性

TDateTime 选择器是一个 ComboBox,其中的下拉列表替换为日历.我使用 XE2 VCL 样式并且更改样式不会影响 TDateTimePicker 颜色和;字体颜色.我已经用这个问题更改了日历样式,但解决方案不适用于ComboBox,知道吗?现在我计划继承一个 TComboBox 以与 TMonthCalendar 一起使用,但我想知道是否有人有更好的解决方案. 解决方案 为了 ..
发布时间:2021-12-13 23:49:19 其他开发

枚举 TWebRequest HTTP 头字段

是否可以转储 TWebRequest(和 TWebResponse)对象的所有标头字段?目前我使用 GetFieldByName() 并使用 Writeln() 打印它们,但这仅在我已经知道标题字段的名称时才有效.我正在寻找一种方法来获取所有标题字段名称来枚举每个字段,但我没有找到任何方法来做到这一点. 我编写了一个 REST 数据快照控制台应用程序,并希望将所有 HTTP 请求/响应记录到 ..
发布时间:2021-12-13 23:46:20 其他开发

为什么 TStringGrid 的子控件不能正常工作?

我将复选框 (TCheckBox) 放置在第一列的字符串网格 (TStringGrid) 中.复选框显示良好,位置正确,鼠标悬停在它们上方时会发光以响应鼠标.但是,当我单击它们时,它们不会切换.他们对点击做出反应并突出显示,但最终,实际的 Checked 属性不会改变.更令人费解的是,一旦这些值存在,我就没有任何代码更改它们,我什至没有将 OnClick 事件分配给这些复选框.此外,我默认这些复选 ..
发布时间:2021-12-13 23:44:54 其他开发

为 TEqualityComparer.Construct 编写哈希函数的规范方法是什么?

考虑以下记录: TMyRecord = 记录b:布尔值;//这里有 3 个字节的填充,默认记录对齐设置i:整数;结尾; 我希望实现 IEqualityComparer.为此,我想调用 TEqualityComparer.Construct.这需要与 TEqualityComparison 一起提供,这对我来说没有问题. 然而,Construct 还需要一个 THasher,我想知道实现它 ..
发布时间:2021-12-13 23:44:46 其他开发

随机化字符串列表

如何随机化 StringList 中的字符串,类似于此在线工具的工作方式.如果有人熟悉它,请查看:http://textmechanic.co/Randomize-List.html 解决方案 执行 shuffle 的一种常用算法是 Fisher-Yates 洗牌.这会生成均匀分布的排列. 要在 Delphi TStrings 对象上实现,您可以使用: procedure Shuf ..
发布时间:2021-12-13 23:43:21 其他开发

致命错误:无法创建输出文件“project1.exe"

所以一段时间以来,我一直遇到这个问题: 在 Windows 7(64 位)上,使用 Delphi 7 和 Delphi XE2,如果从 IDE 中编译程序,运行它,停止它,更改它并重新运行它,我收到此错误消息: [致命错误] 无法创建输出文件“project1.exe" 我不知道是什么导致了这种情况.我在谷歌上搜索了更多信息,但找不到解决方案. 有两种解决方法:等待一两分钟 ..
发布时间:2021-12-13 23:43:13 其他开发

如何在 Delphi 中禁用 VCL 样式

我在 Delphi XE2 中使用新的 VCL 样式系统.它工作得很好,但我希望为上面有许多图像的特定表单(飞溅/关于表单)禁用它.问题是我似乎无法找到将它与特定样式相关联的表单属性,因此不能仅针对该表单禁用它.似乎只有全局 TStyleManager 类似乎是静态的. 考虑到这一点,实现这一点的唯一方法是调用TStyleManager.TrySetStyle('Windows'),显示表单 ..
发布时间:2021-12-13 23:40:10 其他开发

Delphi XE2:是否可以在没有 FireMonkey 的情况下创建 Mac GUI 应用程序?

使用 Delphi XE2,是否可以在不使用 FireMonkey 的情况下创建 Mac GUI 应用程序?如果是这样,可以使用什么以及如何去做? 解决方案 原则上是可以的.但是您需要翻译 Apple 公开的 Objective-C 头文件和类.这是一项艰巨的任务,其中一部分已经由 FreePascal 人员或 Objective-Pascal 人员完成. 但是没有什么可以阻止您自己 ..
发布时间:2021-12-13 23:37:53 其他开发

如何在 Delphi 中将本地时间转换为 UTC 时间?以及如何将其从 UTC 转换回本地时间?

我正在使用 Delphi 并且我试图在我的数据库中使用 UTC 日期时间存储记录,然后当客户端在他的本地日期时间读取它时将其恢复?知道如何进行这种前向转换吗? 解决方案 这是我用来从 UTC 转换为本地的函数. function LocalDateTimeFromUTCDateTime(const UTCDateTime: TDateTime): TDateTime;无功本地系统时间:T ..
发布时间:2021-12-13 23:35:19 其他开发