2008年7月17日

Delphi控制并行端口位操作

摘要： 并行端口简称并口，它有3个端口：数据端口、状态端口、控制端口，常用的并口为LPT1，它的3个端口的地址分别为：378H、379H和37AH。 一、并口读写 在汇编语言中，可以用 in、out 指令操作并口，而在Delphi中并没有相对应的函数、方法可对并口进行读写，幸运的是Delphi可以嵌入汇编程序，通过直接嵌入汇编指令 in、out 可方便地对并口进行读写。我们还可以通过调用 Win... 阅读全文

posted @ 2008-07-17 22:01 白兴科技 阅读(400) 评论(0) 推荐(0) 编辑

Delphi设计后台监控软件

摘要： 后台监控软件，为了达到隐蔽监控的目的，应该满足正常运行时，不显示在任务栏上，在按Ctrl+Alt+Del出现的任务列表中也不显示，管理员可以通过热键调出隐藏的运行界面。要作到这些，必须把当前进程变为一个系统服务，并且定义全局热键。 一、把当前进程变为一个系统服务: 目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 二、定义全局热键... 阅读全文

posted @ 2008-07-17 21:54 白兴科技 阅读(217) 评论(0) 推荐(0) 编辑

在Delphi里面设计运用多显示器地运用程序

摘要： Windows 可以将多个显示器映射为虚拟桌面，使我们可以利用这一点设计出方便工作的应用程序。例如 PowerPoint 就充分发挥了双显示器的优势（大多数的笔记本电脑都支持），它可以在一个显示器上播放幻灯片，而在另一个显示器上显示备注，可以控制播放的进程，使使用者做商务演说的时候非常等心应手。那么我们怎么开发这种应用程序呢？这篇文章将向你展示如果用 Delphi 实现使用多显示器的应用程序。 ... 阅读全文

posted @ 2008-07-17 21:49 白兴科技 阅读(274) 评论(0) 推荐(0) 编辑

Delphi 里面压缩流和解压流地运用

摘要： 软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该流在Delphi 的帮助中没有详细的说明，使得它们在使用起来有一定得困难。其实在Delphi系统中提供了这两个类的源代码和库。保存在Delphi 光盘的\Info\Extras\Z... 阅读全文

posted @ 2008-07-17 21:48 白兴科技 阅读(211) 评论(0) 推荐(0) 编辑

怎么样迅速设计短信运用

摘要： 一、 短信二次开发平台简介 为了减少短信应用软件的开发周期，减少开发工作，提高系统稳定性和可靠性，减少您的开发工作量，提高应用软件的可靠性，我们专门开发了本套二次开发平台。 使用飞天短信二次开发平台，您可以简单快捷的进行OEM和二次开发，将短信系统与企业信息管理系统全面融合。广泛应用在企业MIS系统、调度通知系统、ERP应用、OA办公网络、客户服务中心等关键环节，将短消息服务与针对... 阅读全文

posted @ 2008-07-17 21:46 白兴科技 阅读(215) 评论(0) 推荐(0) 编辑

四舍五入

摘要： 这是一个四舍五入的函数，具体用法　myround(1.999,2) = 2.00 第一位1.999为要四舍五入的数，2为要取的小数位。 欢迎大家测试探讨。QQ：81392790 function myround(const yuan: Extended; const pp: Integer): Extended; //yuan:原浮点数，PP保留 小数点后第几位 var p,l,m,l2:Lon... 阅读全文

posted @ 2008-07-17 21:43 白兴科技 阅读(163) 评论(0) 推荐(0) 编辑

用Delphi建立通讯与数据交换服务器—Transceiver

摘要： 引言 在国内常见的信息化开发及实施项目中，大多数开发的工作量都集中于为适应不同客户的需求差异，对特定模块进行修改，最终达到客户期望的软件功能特性。但是对于开发厂商来说，面对不同的客户开发不同的软件版本，将导致重复劳动、成本上升、维护量加大、兼容和稳定性下降等一系列问题。所以，开发者认识到实现软件的产品化，才能具备较短的项目周期与较强的市场竞争力，尽可能地适应不同客户的需求，而不会因此而泥足深陷，... 阅读全文

posted @ 2008-07-17 21:42 白兴科技 阅读(633) 评论(0) 推荐(0) 编辑

Delphi例程－运用程序级资讯

摘要： 1.Application 变量(标准应用程序) 描绘应用程序级的信息 单元 Forms var Application: TApplication; 描述 默认地，当创建一个新的项目，Delphi会构造一个应用程序对象并将其赋给位于Forms单元中的Application变量。Application拥有数个属性，在应用程序运行时可心用于得到关于应用程序的信息。 示例 这段代码将... 阅读全文

posted @ 2008-07-17 21:29 白兴科技 阅读(243) 评论(0) 推荐(0) 编辑

在流里面查询任意字串

摘要： 开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长. 后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考: function ScanStream(T:Tstream;S:String):integer; var i,j:integer; p:Pchar; begin getMem(p,T.size);//分配内存 T... 阅读全文

posted @ 2008-07-17 21:26 白兴科技 阅读(124) 评论(0) 推荐(0) 编辑

用Delphi完成文件下载地几种办法

摘要： 笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。... 阅读全文

posted @ 2008-07-17 21:23 白兴科技 阅读(243) 评论(0) 推荐(0) 编辑

百度、谷歌、雅虎站内查询代码

摘要： New Document 阅读全文

posted @ 2008-07-17 02:42 白兴科技 阅读(276) 评论(0) 推荐(0) 编辑

介绍如何通过代码实现模拟按键的函数

摘要： Windows API 的 keybd_event 函数，它可以产生键盘消息。实现向其他窗口模拟真实的按键动作。 例如： {按下A键} Edit1.SetFocus; keybd_event(VK_SHIFT, 0, 0, 0); keybd_event(ord('A'), 0, 0, 0); keybd_event(VK_SHIFT, 0, KEYEVENTF_KEY... 阅读全文

posted @ 2008-07-17 02:36 白兴科技 阅读(591) 评论(0) 推荐(0) 编辑

DELPHI 外挂

摘要： 在几年前我看到别人玩网络游戏用上了外挂，做为程序员的我心里实在是不爽，想搞清楚这到底是怎么回事。就拿了一些来研究，小有心得，拿出来与大家共享，外挂无非就是分几种罢了（依制作难度）： 1、动作式，所谓动作式，就是指用API发命令给窗口或API控制鼠标、键盘等，使游戏里的人物进行流动或者攻击，最早以前的“石器”外挂就是这种方式。 2、本地修改式，这种外挂跟传统上的一些游戏修改器没有两样，做这种外挂在编... 阅读全文

posted @ 2008-07-17 02:34 白兴科技 阅读(389) 评论(0) 推荐(1) 编辑

delphi 流Stream 和 Variant 的转换函数

摘要： Variant 转换成 Stream 的函数 procedure VariantToStream (const v :olevariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayHighBound (v, 1) - VarArr... 阅读全文

posted @ 2008-07-17 02:30 白兴科技 阅读(604) 评论(0) 推荐(0) 编辑

SQL SERVER 2000中查询新身份证(18位)的校验位的函数

摘要： 根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序... 阅读全文

posted @ 2008-07-17 02:26 白兴科技 阅读(718) 评论(0) 推荐(0) 编辑

Copyright © 2024 白兴科技
Powered by .NET 9.0 on Kubernetes