rslxy的专栏

Delphi使用OpenSSL，根据RSA密钥文件(.pem)进行签名。Delphi7可用，解决UTF8中文奇数bug，签名结果与java常用的MD5withRSA算法、PHP的openssl_sign($data, $encrypted, $private_key, OPENSSL_ALGO_MD5)函数算法得到的结果一致。

Delphi线程池实现多线程FTP分段下载组件 by :renshouren mail:[email protected] QQ:114032666 2019.10.05 使用的组件 1、TIdFTP Indy FTP客户端 2、TThreadsPool 线程池 工作原理及流程 调用本单元，将自动在程序初始化时生成线程池TThreadPoolDown实例 Share_ThreadPool_FTPDown 一、外部调用方法 外部只需要一次性调用 FtpDown() 函数向线程池加入下载任务，下载任务执行中的事件会通过调用时注册的 回调函数 AFtpDownEvent 进行通知。 二、内部工作流程 1、FtpDown()函数将调用TThreadPoolDown.AddFtpDown() ，然后调用TADownFileObj.MakeGetFileSizeObj()分配线程任务 本过程中，将向回调函数 AFtpDownEvent 触发 HEM_ADDURL 事件通知 2、工作线程调用任务对象TFTPHeadObj.DoThreadExecute 过程获取远程文件大小 备注：该功能实际使用到FTP命令SIZE，该命令一些老版本FTP服务器有可能不支持 本过程中，若获取文件大小成功，将向回调函数 AFtpDownEvent 触发 HEM_GETSIZE 事件通知， 若失败，则触发 HEM_ERROR 事件通知 3、得到远程文件大小后，调用TADownFileObj.MakeGetObjs()，分配获取远程文件线程任务 本过程中，开始时，将向回调函数 AFtpDownEvent 触发 HEM_WORKBEGIN 事件通知 在接收数据时，向回调函数 AFtpDownEvent 触发 HEM_WORK 事件通知 4、工作线程调用任务对象 TFTPGetObj.DoThreadExecute 实际下载远程文件数据块 每一个数据块下载任务完成后，触发 HEM_BLOCKOK 事件通知 5、所有数据块完成后，将调用 DoDownloadOK 函数，触发 HEM_DOWNOK 事件通知

使用GDI+生成高质量缩略图 by renshouren

Delphi7开发的组件，能获取实时沪深行情盘口、日K线、分时图、分笔交易、市场初始化数据等。数据到达后采用事件通知方式，非常易于编程。 组件安装后，将在Delphi7组件面版上增加一个TDX面板。 压缩内包括一简单的Demo。 有需要同时绘制盘口、分时、日K线图的组件的，联系本人。

上次上传组件时忘了Demo，本次做了个补上。 组件下载地址： http://download.csdn.net/source/1381346

应用程序使用远程线程方式删除自身的一个Demo。

第一次在CSDN上传东东哈。为自己挣点分数先。 idFTP用的是PASV模式，试了很久，用PORT模式工作不稳定。 另：上传时忘了放进Demo，到这里下 http://download.csdn.net/source/1495251