问题标签 [delphi-xe4]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
487 浏览

delphi - CRYPT_MODE_CBC 不工作

DelphiXe4. WinCryptoApi 加解密函数文件。加密模式 CBC。它似乎正在工作。加密和解密。

利用

问题:

  1. 据我了解,涉及 CBC 模式对上一个块的下一个块的依赖。测试 CBC:我加密文件 1.txt (20 Kb),得到 1.xxx。文件 1.xxx 在 HEX 编辑器中打开并将其更改为 1 个随机字节。解密1.xxx,得到11.txt。比较文件:“Fc / b 1.txt 11.txt”(或只是视觉上)。我看到发生在 11.txt 中的文字记录只在 1.txt 中更改者的大致位置更改了几个字节。按照规矩以后的地方我不应该全部抄录。正确的?特别是安装CBC模式并检查它,即使描述说它是默认安装的。错误在哪里?

现在(红色方块 - 坏字节):

在此处输入图像描述

必须:

在此处输入图像描述

无论哪种方式都应该是?

对不起英语不好。

0 投票
2 回答
1125 浏览

delphi - TStringHelper 没有返回正确的结果

TStringHelper在 Win32 应用程序中使用 ,但是当我尝试访问特定字符或获取子字符串时,如果我使用等效的旧字符串函数,则返回的值是不同的。

问题是为什么 TStringHelper 函数不等同于旧的字符串函数?

0 投票
3 回答
950 浏览

ios - 在 Delphi 中检测 iPad 方向

我原以为 XE4 中会有一个OnRotate事件,但它似乎OnResize被使用了。了解。

但是,我需要确定设备的方向。我敢肯定这很简单,但谷歌帮不上忙!

0 投票
1 回答
1343 浏览

delphi - Delphi 指针、数组、句柄

我无法理解使用自定义记录并制作记录数组然后指向该记录的指针的指针,特别是我想要实现的是使用给定的类名为每个顶级窗口句柄制作记录,这意味着有超过 1,对于我EnumChildWindow用来获取子窗口句柄的每个窗口,我想记录每个窗口并将其传递给带有标题的组合框,并使记录成为该项目的对象,以便我可以访问每个记录稍后通过选择它。

我的问题是我对指针的处理,在第一次将任何添加到一个数组记录时,我一直被拒绝访问。

在这里休息

这是我正在使用的完整代码,因此人们可以更好地了解我正在尝试做的事情。

如果有人能指出(没有双关语)我正确的方向,我将不胜感激。

0 投票
1 回答
1019 浏览

delphi - 为什么这个 FireMonkey TrackBar1.Tag 会这样使用?

我从 Delphi XE4 附带的 FireMonkey MediaPlayerHD 示例程序中提取了这个代码片段。我以前从未见过以这种方式使用 Tag 属性。这样做的目的是什么?

更新: 这是完整的源代码:

0 投票
2 回答
1850 浏览

ios - Delphi XE4 FireMonkey TMemo 透明?(iOS)

有什么方法可以让 Delphi/iOS/FireMonkey 中的 TMemo 透明?

选择+右键单击备忘录控件时,我看不到任何自己编辑样式的方法...

0 投票
2 回答
1966 浏览

delphi - Delphi中如何连接(导入)WinApi函数

德尔福 Xe4。例如,有两个函数(Unicode):

CryptAcquireContext,CryptGetProvParam。

我在 MSDN 上阅读了描述:

1) http://msdn.microsoft.com/en-us/library/windows/desktop/aa379886(v=vs.85).aspx

2) http://msdn.microsoft.com/en-us/library/windows/desktop/aa379929(v=vs.85).aspx

如果我理解正确,那么翻译成Delphi应该是这样的:

主要对返回参数感兴趣,用“OUT”和“VAR”(OutInOut)标记。因此,我不会处理在 interente 中找到的所有类型的示例。例如调用:

给出编译错误:“E2033 Types of actual andformal var parameters must be same”——指@hProv和@dwProvType。如果您想在 VAR 上替换 OUT 并在 PDword(dwProvType) 上替换文本 @dwProvType,则会出现错误:“E2197 常量对象不能作为 var 参数传递”。

如果我没有指定输入和输出参数(像这样 - http://www.bvbcode.com/code/oyma7f3h-1618784,字符串№692),一切都会编译,运行和工作正常(Const - 无效):

过去的问题,我被建议取JEDI API的函数的值。我下载了最新版本的(http://sourceforge.net/projects/jedi-apilib/),我看到了(单位 JwaWinCrypt):

而是将“OUT”和“INOUT”的值写成“VAR”。但是我的这些例子不能正常工作。而pdwProvType和pcbProvName都是DWORD类型,虽然描述是DWORD * = PDWORD?

问题:

1)如何正确地做。MSDN OUT = Delphi OUT 还是 VAR?IN_OUT = 德尔福 VAR?或者他们没有指定?

2)我需要写常量吗?IN = 德尔福常数?

3) 带指针的类型。DWORD = 德尔福双字。好的。DWORD* = Delphi PDWROD(或所​​有标记 * = Delphi 指针类型)?

ps对不起英语不好。

0 投票
1 回答
3409 浏览

delphi - 是什么阻止了将 64 位 Windows 平台添加到 VCL 组件包?

对于大多数 Delphi 和 C++ Builder 项目,包括组件包,您可以通过右键单击项目管理器中的目标平台项并选择添加平台,然后在结果中选择“64 位 Windows”来添加 64 位 Windows 目标对话。

最近在 RAD Studio XE4 的新安装中安装组件时,我无法为某些组件执行此操作。例如:

仅显示 OSX 和 32 位 Windows 的“添加平台”对话框

这个具体的例子是TMS 的 Advanced Poly List,但它也发生在其他组件包中——但不是全部。有些有可用的目标,对于那些我可以构建包并创建一个使用该组件的 64 位 VCL 表单应用程序。

是什么阻止 Win64 目标出现在对话框中,我该如何重新启用它?

0 投票
2 回答
200 浏览

delphi - 有人设法在 Delphi XE4 中安装 InstantObjects?

有人设法在 Delphi XE4 中安装 InstantObjects?

我正在编译 svn 存储库中的最新源代码。在更正了编译器版本的一些问题后,我陷入了以下代码片段:

导致错误消息“[dcc32 Error] InstantPresentation.pas (1580): E2008 Incompatible types”就行了:

但它们是同一类型:TInstantCompareObjectsEvent

怎么了?

0 投票
1 回答
1382 浏览

delphi - 如何优雅地关闭 Indy10 ServerSocket 实例?

我使用这个片段来创建一个 Indy10 TCPServer 的新实例:

我用它来删除实例:

由于某种原因,实例不会停止侦听并且所有客户端都保持连接。当我尝试创建前一个端口的新实例(删除后)时,它说该端口已在使用中,这意味着它没有停止侦听。

如何正确关闭此实例(并断开所有连接的客户端)?

编辑: