问题标签 [delphi-xe7]
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.
json - Delphi XE4 和 TPointF 类型的 XE7 JSON 编组之间的差异问题
我正在使用新的 XE7 版本升级最初使用 Delphi XE4 编码的项目。此应用程序将其主要输出保存为一个编组的 JSON 文件,用户可以加载、编辑和保存该文件,类似于使用 Word 文档所做的操作。
它们不直接与 json 一起使用,它只是用作文件格式。我遇到的问题是 XE7 输出的类型TPointF
与 XE4 不同,这在尝试解组时会导致问题。
如果我只需要处理使用新版本创建的打开文件但我必须支持旧版本文件至少一年,这将不是问题。看起来 XE7 输出了 TPointF 记录中所有可能的字段(它是一个变体记录类型)
下面是XE7 输出的示例
使用TJsonValue
和TJsonMarshal
:
使用rest.json
TJson.ObjectToJsonString(myHole)
下面是XE4 输出的示例
使用TJsonValue
和TJsonMarshal
:
我的问题是:
- 有没有一种简单的方法来处理这个问题,而不必覆盖默认编组并创建自定义转换器/恢复器,以便 XE7 版本输出与 XE4 相同?
- 这值得在 Embarcadero Quality Central 上发布吗?
适用于 XE4 和 XE7 的小型控制台测试应用程序。
XE7
XE4
testPointf.dpr:替换system.json
为data.dbxjson
ios - Delphi XE7:如何在 iOS 7 中获取本机状态栏行为?
在 iOS 7 中,状态栏的默认行为是透明的,但在 Delphi XE7 中这似乎是不可能的。状态栏的颜色总是与主窗体相同(这是 iOS 6 中的默认行为)。Mainform.borderstyle 控制状态栏是否显示,但我找不到任何方法将其设置为透明。我已经尝试设置UIViewControllerBasedStatusBarAppearance
并UIStatusBarStyle
在 info.plist 中尝试调用
但它仍然坚固。
有没有人成功让它变得透明?- 或者这是 XE7 中的错误(或缺少的功能)?
delphi - Delphi如何从HTTP get解析指定的值
结果将是这样的:
例如,我如何阅读系列(“系列”:“纸牌屋”)值。
我尝试使用
mmo1.Text := StringReplace(ExtractBetweenTags(mmo1.Text,'"series": "','"'), ' ', '-',[rfReplaceAll, rfIgnoreCase]);
但我需要自动解析所有值
delphi - 将文件的一部分复制到流中
全局目标是使用文件的一部分来获取校验和以查找重复的电影和 mp3 文件,为此我必须获取文件的一部分并生成 md5,因为在某些情况下整个文件大小高达 25 gigs,如果我找到重复项然后我将做一个完整的 md5 以避免错误删除文件的任何错误我没有任何问题我从流中生成 md5 它将使用 indy 组件完成所以对于第一部分我必须复制文件的前 1mb
所以我做了这个功能
但是所有检查的内存流都是空的!
我怎样才能解决这个问题?或者我的问题在哪里?
update1 - (肮脏的测试):
此代码返回错误stream read error
也 memo2 显示一些字符串,但 memo3 为空!
完整的代码
输出:
ios - 升级到 XE7 更新 1 后在 iOS 下使用 THTTPGet 和 OpenSSL 的访问冲突
升级到 Delphi XE7 更新 1 后,我在使用 TIdHTTP 和 TIdSSLIOHandlerSocketOpenSSL 连接到服务器时看到以下错误。
在 IdSSLOpenSSL 的第 3133 行抛出异常。
经过测试并在 Windows 和 Android 平台上运行良好。
在升级之前一切正常。我也同时更新到 XCode 6.1,所以这可能是问题的一部分。
还有其他人看到类似的错误吗?有解决方法吗?
delphi - Delphi - 更改 TextRenderingDefault
我在 FireMonkey 中的文本不如其他 Windows 文本清晰。
我读了这个网站:http: //i-logic.com/firemonkey/fuzzy.htm
现在我想知道如何将文本渲染更改为TextRenderingHintClearTypeGridFit
or TextRenderingHintSystemDefault
。这是作者在页面末尾推荐的。
提前致谢。
delphi - 如何生成安装程序应用程序delphi xe7
我刚刚完成了一个小的 delphi xe7 应用程序,它需要一些 dll 文件才能工作。我应该如何创建应用程序安装程序 .exe 以在其他电脑上安装此类应用程序?
delphi-xe7 - 如何在 clientdataset 或 fdquery 中运行多个 SQL 语句?
我正在使用以下语句:
我想全部删除。
android - 收到多个推送通知
我使用 Delphi XE7 创建了一个移动应用程序。该程序通过 Kinvey 和 GCM 发送推送通知。首次安装 APK 时,它会发送一个推送通知,该通知工作正常。秒次(同一设备上的同一个APP)发送两次,第三次,三次,以此类推。我发现问题是由在 Kinvey/users 下添加更多 ID 引起的。因此,如果我手动删除所有 ID 并再次安装 APK,它将正常工作。
因此,我真的很想知道在同一设备上新安装APK时是否可以自行清除ID。
提前致谢!
delphi - TStream.WriteData和TStream.ReadData的Count参数的作用是什么?
该类TStream
包含许多WriteData
具有这种形式的重载:
所有常见的嫌疑人都有重载,AnsiChar
, Char
, UInt32
,Double
等等。同样对于ReadData
。我试图了解该Count
参数的用途。上面提到的重载的实现如下:
我显然可以看到这段代码做了什么,但我不明白为什么执行部分写入是有意义的。为什么用 调用这个函数有意义Count < BufSize
?然后行为非常奇怪。
有谁知道为什么要添加这些重载以及它们的目的是什么?自然地,我查看了对这些方法无话可说的文档。
顺便说一句,我将提交有关此行的错误报告:
假设调用 toWrite
将发生在调用 to 之前是错误的Skip
。+
未定义运算符的操作数的评估顺序。这段代码应该这样写: