全欣 的专栏

中控 考勤机 密码

Delphi 编写调用WebService接口的小程序最近由于项目需要在编写一个webservice的客户端，网上找来了不少资料，都说可以通过delphi自带的向导来生成调用接口的文件。如对天气预报的webservice调用http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl ，查看各地的天气预报1、打开delphi开发软件到 File--> New--> Application 新建一个工程，在窗体上放置两个

.xls格式导出，uses中添加cxGridExportLink代码如下： 1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string; 2 var 3 SaveFileDialog: TSaveDialog; 4 begin 5 //示例：SaveToExcel(dxDBGrid1,'默认文件名'); 6 SaveFileDialog := TSaveDialog.Create(nil)

.xls格式导出，uses中添加cxGridExportLink代码如下： 1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string; 2 var 3 SaveFileDialog: TSaveDialog; 4 begin 5 //示例：SaveToExcel(dxDBGrid1,'默认文件名'); 6 SaveFileDialog := TSaveDialog.Create(nil)

.xls格式导出，uses中添加cxGridExportLink代码如下： 1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string; 2 var 3 SaveFileDialog: TSaveDialog; 4 begin 5 //示例：SaveToExcel(dxDBGrid1,'默认文件名'); 6 SaveFileDialog := TSaveDialog.Create(nil)

1. 概述 对于开发人员来说，多线程是必备的知识，但相对来说，也是比较难的知识点。Delphi是一门古老而优秀的编程语言，它对多线程的处理有一些特殊的地方，本文尝试做一些简单的讲解，可以当作Delphi的多线程基础入门知识来阅读。如无特殊说明，所有例子都在XP操作系统中和Delphi7中调试通过。2. 一个简单的例子 在这一节中，我们将建立一个极为简单的例子，阐述Delphi中多线程的用法。2.1 实现步骤 第一步：在Delphi7 I...

unit uThread;interfaceuses Classes;type Th = class(TThread) private { Private declarations } protected procedure Execute; override; end;以上是创建的一个多线程我在另外一个单元里Unit1有一个函数function Myfun(username,password:string):boolean现在要.

在官网找到解决方法，修改DBAxisGridsEh单元procedureTDBAxisGridEhCenter.EditButtonDefaultActionText(Grid:TCustomDBAxisGridEh;AxisBar:TAxisBarEh;EditControl:TControl;EditButton:TEditButtonEh;EditButtonControl:TEditButtonControlEh;IsMouseDown:Boolean;va...

1.FastReport中如果访问报表中的对象？可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标？设置frxmemoview.AllowHTMLTags := True;在Text输入如下上标：mm<sup>2</s...

使用输入产品密钥向导可为运行 Microsoft Exchange Server 2010 但是尚未配置产品密钥的服务器输入产品密钥。安装 Exchange 2010 后，它还未经许可。这也称为试用版。试用版在自安装之日起的 120 天后过期。未经认证的服务器作为 Exchange 标准版服务器使用，但是不符合由 Microsoft 支持服务提供支持的要求。启动 Exchange 管理控制台时...

准备工作一些比较有用的声明大小写转换:  function ToLower: string; function ToLower(LocaleID: TLocaleID): string; function ToLowerInvariant: string; function ToUpper: string; function ToUpper(LocaleID: TL

方法一：使用Delphi调用BarTender打印条码，在网上搜索了一下，很多都是介绍导入ActiveX组件，其实完全没有必要。用OLE控件完全可以解决。但需要注意所使用的BarTender必须是正式的安装版(PS:破解版好像也可以)，试用版和绿色版都不可以二次开发。下面是测试通过的列子：(需要引用ComObj.Pas文件)直接写代码：procedure TForm1.

通常在Delphi的应用程序中，我们会调用到很多的资源，例如图片，动画（AVI），声音，甚至于别的执行文件。当然，把这些资源分布到不同的目录不失为一个好办法，但是有没有可能把这些资源编译成标准的资源从而链接到一个执行文件里面呢？我们可以自己做一个RC文件，例如 sample.rc ，RC文件其实就是一个资源文件的描述文本，通过“记事本”程序创建就行了。然后可以输入一些我们要定义的资源，例如

本方法只针对的是华视cvr-100UC 二代身份证读卡。只是写了主要的部分，可以把函数等放入公共文件中，引用，调用即可。剩下的自己琢磨吧！先定义个机构： TPsnMsg = record PeoName: string; //姓名 PeoSex: string; //性别 PeoFolk:

全部源代码如下（无窗体结构，最后面有说明）：program Project1;usesWinprocs,SysUtils,Tlhelp32;//注意添加单元文件function KillTask(ExeFileName:string):integer;//杀进程函数KillTaskconst PROCESS_TERMINATE = $0001;

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写，同时也易于机器解析和生成。它基于JavaScript（Standard ECMA-262 3rd Edition - December 1999）的一个子集。 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScr

Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用.　　但: input:只读、output:只写。用时注意以免引起异常. 文件是由文件名标识的一组数据的集合，文件通常存放在磁盘上。源程序、学生档案记录、图形、音乐等均可以作为文件存储在磁盘上。操作系统是以文件为单位对数据进行管理的，也就是说，如果想读取外存介质上的数据，必须先按文件名找到所指定

这个软件是用圣天诺狗来加密的，当软件没有检测到加密狗时，则需要注册它。好，我们看看怎么样来破解它。 工具：trw2000    软件在运行时，如果没有狗，则会跳出一个需要注册的对话框，而且也是用动态注册的方法，如果注册码不正确register按钮是灰色的。这类软件一般用断点bpx hmemcpy，今天我们用另外的断点来破它，用什么断点呢？想一下要取得对话框的数据要用到什么函数，对了

1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性TitleB

DBGridEh 可以为你提供一个更加美观和功能丰富的 DBGird，比如平面化显示、奇偶行不同颜色（斑马线）、快速查找、合计行、Grid 打印等。在 Ehlib 的后期版本中，还提供了一个非常强大的过滤功能，他会在 DBGrid 的表头下方显示一个过滤行，用户在此行的相应列中输入查询条件，DBGridEh 可以自动为您筛选出所需要的数据。下图所示即为启用过滤功能后的 DBGridEh：