技术分享

解决XE10.4.1版报"Error querying header (12019)"

---

安装了新版的XE10.4.1,发现使用DataSnap的客户端连接服务时报"Error querying header (12019). The handle is in the wrong state."的错误,中文提示是"用户验证发生错误,原因:Error querying header (12019)要求 ...

---

阅读全文

2020-10-09 王守红 0 条评论 5271 次浏览

技术分享

Lazarus中使用FPJSON进行JSON解析

---

Delphi下JSON解析库比较多,常用的比如XE版本自带的System.JSON,第三方的SuperObject,XSuperObject,lkJSON等,使用教程在网上也比较多,但是发现在Lazarus下真正可以的JSON库真是少之又少,基本都是使用其自带的FPJSON。使用方法我简单的代码示例一下，具体的 ...

---

阅读全文

2020-10-01 王守红 0 条评论 6192 次浏览

技术分享个人备忘

Lazarus中用ado方式操作Excel文件

---

在Delphi中操作Excel大部分人已经轻车熟路,因为Delphi中有一套ADO组件用于操作微软的相关产品,无论是MsSql、Access还是Excel都可以轻松搞定，网上的例子也比较多。 但用Lazarus操作Excel的例子比较少，能搜到的大部分也是通过控件FPSpreadsheet进行，虽然操作Ex ...

---

阅读全文

2020-09-05 王守红 0 条评论 7193 次浏览

技术分享

Ubuntu19.04 里设置python默认版本为python3

---

Ubuntu 19里默认是既安装了python2.7也安装了python3.7。如果直接输入python，调用的是默认的python2.7，那么如何将默认的python改为python3.7呢？可以利用alternatives机制更改python3.7为默认。shell里执行以下命令即可：sudo update ...

---

阅读全文

2019-06-12 王守红 0 条评论 4931 次浏览

技术分享

解决FMXLinux编译Linux程序报ld-linux.exe: error: cannot find -lcurl的问题

---

这两天计划把用Firemonkey开发的程序编译一个Linux的版本玩玩,删除了里面用到的一些跨平台不兼容的代码。本以为用FMXLinux应该很容易就搞定了（以前编译过简单界面的程序）。这次程序由于用到了DataSnap Rest，编译的时候直接报错，如下：[DCC Error] E2597 D:\Progra ...

---

阅读全文

2019-06-10 王守红 0 条评论 4964 次浏览

技术分享

Delphi 2007 报错:未找到导入的项目，请确认 <Import> 声明中的路径正确

---

      这几天系统升级到Win10的红石版后,打开Delphi2007编译以前可以正常编译时,突然报错,内容大体就是:未找到导入的项目，请确认 <Import> 声明中的路径正确。 百度了一下，由于目前Delphi越来越小众，网上报这个错误的基本都是vs.net的用 ...

---

阅读全文

2016-08-06 王守红 0 条评论 12144 次浏览

技术分享

php用pdo方式连接访问oracle数据库报

---

最近学习thinphp5,连接Oracle数据库的时候遇到"could not find driver"的问题,实际上出现这个提示的原因可能有很多种,解决方法如下：1)要打开php.ini中的相关扩展项,即将extension=php_oci8.dll和extension=php_pdo_oci.dll前面的分 ...

---

阅读全文

2016-06-13 王守红 0 条评论 14919 次浏览

技术分享

Delphi XE自带JSON的使用方法总结

---

算是自己备忘吧，也免得大家遇到同类问题再重复劳动，现将DelphiXE 自带的JSON操作类的使用方法总结如下：先介绍一下最基本的TJSONObject的使用。uses System.JSON; var JSON: TJSONObject; begin JSON := TJSONObject.Crea ...

---

阅读全文

2016-05-13 王守红 0 条评论 23976 次浏览

技术分享

Delphi的第三方JSON解析类XSuperObject的使用实例

---

主要是用于备忘吧，XSuperObject的使用相对比较简单，而且可以跨平台。var X: ISuperObject; I:integer; begin X:=SO(); X.I['Result'] := 1; X.A['UserRight'].Clear; while n ...

---

阅读全文

2016-05-11 王守红 0 条评论 13693 次浏览

技术分享

XE8发布iOS APP时报错“ 'DTPlatformName' is required”

---

XE8发布iOS APP时报错“ERROR ITMS-90507: Missing Info.plist value. A value for the key 'DTPlatformName' is required”.为了解决这个问题键值『 DTPlatformName』必须添加到项目的 plist file ...

---

阅读全文

2015-07-28 王守红 0 条评论 13388 次浏览