现在补上开发思路系统接口方法： Que_程序员之家(用Delphi开发DLL来代替8581协议控制和采集华为PSM

开发技术指南» 文章正文

引言：现在补上开发思路系统接口方法： Que

摘要：原文我曾在大富翁我的笔记发表,没对外(发表日期:2003-6-29 4:18:00 ),今天略作改动.delphibbs.com/keylife/iblog_show.asp?xid=1316">http://www.delphibbs.com/keylife/iblog_show.asp?xid=1316//--------------------------------------------......

·再谈后台调用外部程序的完美实现 »显示摘要«

摘要：上次介绍了如何在delphi中使用发送消息的方式控制外部程序，一开始我在自己的项目中也确实是这么做的，但是后来遇到了这么一个问题：我所调用的程序，会在执行一段处理过程中，将结果显示到一个listview中，那么为了知道我发出的命令，到底被那个程序执行后结果如何，我就必须监视listview中的内容，察看最后出现的结果文字是什么，从而知道到底是成功还是失败了。那么，我的想法是，不断的查询listvi......

用Delphi开发DLL来代替8581协议控制和采集华为PSM—A10电源 (三.思路)

现在补上开发思路

【程序编程相关:我的第一份上传作品。。请多多指教。。。（】

系统接口方法:

【推荐阅读:计算器（加了个小数点）。。。】

【扩展信息:如何在delphi5中实现对word文档】

query execcmd proc_rptsignal proc_rptruntimemsg

添加的方法:

{--------------计算校验与的过程------------------------------------}

{-------@param inputbuf: 输入的字节数组----------------------}

{-------2005-06-28 add by fane--------------------------------------}

procedure setchecksum(var inputbuf: array of byte);

{--------------建立发送命令的过程------------------------------------------------}

{-------@param ver: byte 版本号--------------------------------------------------}

{-------@param addr: byte 地址---------------------------------------------------}

{-------@param cid1: byte 控制标识码------------------------------------------}

{-------@param cid2: byte 命令信息:控制标识码相应信息---------------}

{-------@param infolen:integer 命令内容长度------------------------------}

{-------------将程序里的全局变量sendcommand填充-----------------------}

{-------2005-06-17 add by fane-----------------------------------------------------}

procedure fillsendcommand(ver,addr,cid1,cid2: byte;infolen:integer);

{--------------得到通信版本的函数-------------------------------------------------------------------------}

... 下一页

·再发：发现一个 delphi6 vcl 的 bug！ »显示摘要«

摘要：上一次在csdn发失败了，再试试看句柄泄漏最终造成系统的网络完全瘫痪！下面是 delphi6 vcl 标准类库 sockets 单元中 tbasesocket 类的一段代码：procedure tbasesocket.close;begin if factive then begin{$ifdef linux} errorcheck(libc.__close(fsocket));{$endif} ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：