<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[dds2014的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/dds2014</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; dds2014]]></copyright><item><title><![CDATA[关于TADOQuery的OnGetText]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/131770950</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/131770950</guid><author>dds2014</author><pubDate>Mon, 17 Jul 2023 17:25:14 +0800</pubDate><description><![CDATA[TADOQuery这个控件用的不少，但是用的不深，这次有个项目中需要显示数据的曲线，数据库文件中存的是16进制字符串，我本来想把数据从数据库中取出，再处理一下用TListView来显示，但是感觉这样有点多余，就研究了一下，发现里面有个OnGetText很好用，直接可以把指定字段的内容进行处理，转成10进制的字符串再显示：varbeginend;]]></description><category></category></item><item><title><![CDATA[Delphi 货币数字转大写]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/129422590</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/129422590</guid><author>dds2014</author><pubDate>Thu, 09 Mar 2023 14:43:53 +0800</pubDate><description><![CDATA[delphi 货币数字转大写]]></description><category></category></item><item><title><![CDATA[关于Delphi XE5 FastReport 4.0 导出为PDF乱码问题]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/127276414</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/127276414</guid><author>dds2014</author><pubDate>Wed, 12 Oct 2022 09:50:03 +0800</pubDate><description><![CDATA[XE5 FastReport PDF]]></description><category></category></item><item><title><![CDATA[关于Delphi XE5代码行无法跟踪和调试错行的问题]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/126263286</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/126263286</guid><author>dds2014</author><pubDate>Wed, 10 Aug 2022 11:41:59 +0800</pubDate><description><![CDATA[Delphi XE5 无法断点]]></description><category></category></item><item><title><![CDATA[Delphi 7移植到Delphi XE5碰到及解决的问题 （5）]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/123186820</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/123186820</guid><author>dds2014</author><pubDate>Mon, 28 Feb 2022 17:05:48 +0800</pubDate><description><![CDATA[XE5 自带皮肤功能，在选择了皮肤功能后，字体默认显示，这样用户设置的颜色就失去了效果；

如果TLabel 等控件的字体颜色要显示为别的颜色，不想用默认的，就需要取消 TLabel-&gt;StyleElements-&gt;seFont 的选择；

如果TPanel要修改背景颜色，那么就需要取消 TPanel-&gt;StyleElements-&gt;seClient 的选择。
...]]></description><category></category></item><item><title><![CDATA[Delphi 7移植到Delphi XE5碰到及解决的问题 （4）]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/123178246</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/123178246</guid><author>dds2014</author><pubDate>Mon, 28 Feb 2022 11:37:34 +0800</pubDate><description><![CDATA[原代码：

lblOperName.Caption := BaseParam.OperName;

OperName定义：

TBaseParam = Record
  OperName: String[20];    //操作员

......

end;

编译提示：

W1057 Implicit string cast from 'ShortString' to 'string'



解决方法：

lblOperName.Caption := String(BaseParam.Ope...]]></description><category></category></item><item><title><![CDATA[Delphi 7移植到Delphi XE5碰到及解决的问题 （3）]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/123133891</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/123133891</guid><author>dds2014</author><pubDate>Fri, 25 Feb 2022 15:21:43 +0800</pubDate><description><![CDATA[原代码：

 //锁定程序本身所使用的日期时间格式
 LongDateFormat := 'yyyy-MM-dd';
 ShortDateFormat := 'yyyy-MM-dd';
 LongTimeFormat := 'hh:mm:ss';
 ShortTimeFormat := 'hh:mm:ss';
 DateSeparator := '-';
 TimeSeparator := ':';


编译提示：

E2003 Undeclared identifier: 'LongDat...]]></description><category></category></item><item><title><![CDATA[Delphi 7移植到Delphi XE5碰到及解决的问题 （2）]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/123133651</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/123133651</guid><author>dds2014</author><pubDate>Fri, 25 Feb 2022 15:17:44 +0800</pubDate><description><![CDATA[原代码：

if not (Key in ['0'..'9', #8]) then
begin
  MessageBeep(0);
end;

编译提示：

W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.



解决方法：

if not CharInSet(Key, ['0'..'9', #8]) then
begin
  ...]]></description><category></category></item><item><title><![CDATA[Delphi 7移植到Delphi XE5碰到及解决的问题 （1）]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/123132903</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/123132903</guid><author>dds2014</author><pubDate>Fri, 25 Feb 2022 15:10:16 +0800</pubDate><description><![CDATA[最近在把一些应用中的项目从D7 升级到 XE5，碰到了不少问题，先是把部分第三方控件改为标准控件，这步比较简单，控件修改完成后在XE5中打开项目，编译，结果是一堆Warning，其中还有几个Error，现把问题记录下来，方便查看。



原代码：

ExitDocimasy(BaseParam.CommProtocol,
           PAnsiChar((arAddr[iIndex] as TEdit).Text),
           Lengt...]]></description><category></category></item><item><title><![CDATA[关于TRichEdit字体颜色控制]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/108483070</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/108483070</guid><author>dds2014</author><pubDate>Wed, 09 Sep 2020 09:59:11 +0800</pubDate><description><![CDATA[最近写了个串口调试工具软件，虽然网上很多这类软件，但是自己写可以随时修改，比较方便，所以随手写了下面这个软件：



在考虑显示上下数据的控件的时候试了好几个控件，但是都不好用，后来选了TRichEdit控件，但是TRihEdit字体颜色显示的时候也走了些弯路，有时候该显示红色的变了黑色，修改后，到目前为止没有出现颜色错误或不改的状态。具体代码如下：

procedure TMainFrm.AddMemo(Buf: Pointer; nDataLen: Integer);
var
  Str: Stri..]]></description><category></category></item><item><title><![CDATA[JDK安装后的环境配置]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/100512399</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/100512399</guid><author>dds2014</author><pubDate>Tue, 03 Sep 2019 10:17:15 +0800</pubDate><description><![CDATA[在https://www.oracle.com/technetwork/java/javase/downloads/index.html下载了JDK软件，安装完成后，配置环境变量：

1、右击【我的电脑】，点击【属性】
2、在出现的对话框中选择【高级系统设置】
3、出现的对话框中选择【环境变量】
4、新建名为”JAVA_HOME“的变量名，变量值为之前安装jdk的目录，例如本人的为”D:\Java...]]></description><category></category></item><item><title><![CDATA[21学通Python之十四网络编程]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/100136605</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/100136605</guid><author>dds2014</author><pubDate>Thu, 29 Aug 2019 14:13:30 +0800</pubDate><description><![CDATA[# 服务器端

import socket

HOST = socket.gethostname()
PORT = 10888
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.bind((HOST, PORT))
s.listen(1)

conn, addr = s.accept()
print('Client\'s Address...]]></description><category></category></item><item><title><![CDATA[PyCharm使用之设断点不出现红点的解决方法]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/100051793</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/100051793</guid><author>dds2014</author><pubDate>Sat, 24 Aug 2019 13:25:17 +0800</pubDate><description><![CDATA[在使用PyCharm设置断点的时候，我用了左键和Ctrl+F8都没有出现红点，网上查了一下也没人具体说起怎么解决，所以只能自己想办法解决：

1、选中需要下断点的代码行，在行序号边上点鼠标右键：



2、选Configure Gutter Icons：



3、勾选Show gutter icons，点OK保存退出：



4、再次点中要下断点的代码行，点鼠标左键：



OK了^_^
...]]></description><category></category></item><item><title><![CDATA[学习Python之【实例6-4】]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/98315310</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/98315310</guid><author>dds2014</author><pubDate>Sat, 03 Aug 2019 11:00:10 +0800</pubDate><description><![CDATA[这段时间比较空闲，所以工作之余网上找了《21天学通Python》这本书来学习。书中的好多例子都有错误，不知道是不是印刷问题，所以记录一下：

【实例6-4】演示了在类中调用类自身的方法和全局函数的实例，代码如下：

def coord_chng(x,y):
  return (abs(x),abs(y))

class Ant:
  def __int__(self, x=0, y=0):...]]></description><category></category></item><item><title><![CDATA[关于Delphi XE5中SHA1、SHA256、SHA384、SHA512、MD5的加密计算]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/81806826</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/81806826</guid><author>dds2014</author><pubDate>Sat, 18 Aug 2018 11:17:30 +0800</pubDate><description><![CDATA[一直用的D7，但是最近手头有个项目是跟WebService对接的，D7版本低了，调回的接口中没有接口函数，所以安装了一版Delphi XE5，试用了几天，还好用，但是研究的还不深。

 

项目对接中有个加密算法是SHA256的，所以在网上也找了相关的资料，自己写了一个，测试了几组数据，跟网上的SHA计算工具能对上，当前测试的数据不多。相关的计算函数如下：

procedure TMainFrm....]]></description><category></category></item><item><title><![CDATA[关于SPCOMM使用中碰到的问题]]></title><link>https://blog.youkuaiyun.com/dds2014/article/details/52668291</link><guid>https://blog.youkuaiyun.com/dds2014/article/details/52668291</guid><author>dds2014</author><pubDate>Mon, 26 Sep 2016 10:57:34 +0800</pubDate><description><![CDATA[一台工控机，用了8个串口，2个程序A和B，每个控制4个串口，这A和B是一模一样的源代码，只是界面显示文字有差别，A和B各自控制的串口也是功能一样的，比如都有一个串口是接收主动上送的称数据，这个串口用的控件是SPCOMM。

现在发现一个情况：A程序运行一切正常，而B程序过一段时间称数据就不刷新，我监控发现是OnReceiveData事件没有触发，在程序接收不到称数据的时候，我用串口监听程序看了]]></description><category></category></item></channel></rss>