服务器标准时间:从Internet时间服务器获取标准时间
由于本机系统时间不准确所以决定从Internet 时间服务器获取标准时间来校正 系统时间说干就干
设计步骤如下:
1、 新建个工程；
2、 在窗体上放个TEditControl控件和个TClientSocket(在Internet页下)Control控件TEdit用来显示取得格林尼治时间转化成北京时间后时间TClientSocket用来从Internet 时间服务器获取标准格林尼... [阅读全文]
delphi编程:Delphi编程实现程序快捷方式
★中共河南省济源市委党校耿百强
摘要:本文主要介绍了用Delphi编程实现快捷方式思路方法其中主要讨论了Delphi中COM编程思路方法、快捷方式实现思路方法并给出了个例子
关键词:DelphiCOM编程快捷方式
Windows系统提供了快捷方式来简化用户对应用执行尽量使得用户不和应用具体位置挂上关系大大方便了用户操作所以在Windows系统下大多安装般都提供创建组和快捷方式但你有没有想过快捷... [阅读全文]
delphi程序设计:Delphi多层应用程序的实现
郑州电力高等专科学校 马保立 等
---- 随着Internet/ranet发展多层应用和分布式瘦客户数据库应用逐渐得到广泛应用在多层应用开发方式中Delphi提供了Midas构件第 3方提供了Asta 、Midware等经过使用相比较而言Asta所提供构件易学易用方便灵巧客户端无须任何数据库引擎或动态连结库即可方便实现多层应用且客户、服务器可实现实时信息传输可以说Asta为普通员提供了无须专... [阅读全文]
delphi程序开发:用Delphi开发简单的WebMail程序
文/北京 张维
WebMail是指在网页中实现邮件发送使用Delphi开发Web Server是非常简单Delphi中提供了大量元件和对象下面通过个例子来介绍如何利用Delphi开发个响应用户输入ISAPIWebMail为了简单没有对传送数据提供保密
首先在Web服务器端安装数据库引擎dbe,并设置好数据库别名:yh,指向个包含用户名和用户密码数据库文件user.db接着建立两个H... [阅读全文]
互为质数:用DELPHI编程求证两数互为质数
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:eger;
begin
(edit1.Text='')or(edit2.Text='')then
begin
showmessage('请输入两个数！');
exit;
end;
a:=strto(edit1.Text); ... [阅读全文]
Delphi中应用程序敏感键的实现
在个应用内部菜单、部件都可以设置敏感键如在菜单中般用Alt+F进入“文件”的类子菜单另外我们在桌面上设置快捷方式里快捷键无论你任何时候按下你所设置快捷键就会启动相应应用在多个正在运行应用中如何利用个按键动作迅速地回到你所需要应用呢？这就需要利用敏感键(HOTKEY)技术来实现本文利用Delphi3.0开发工具来阐述该技术在应用实现思路方法
、敏感键设置
在windows Api中有个Regis... [阅读全文]
delphi编程:使用Delphi对手机通讯的编程
希望对喜欢编程朋友有帮助最近在整理所有手机编程可能会出书交广州华莹出版
unit PanasonicGD;
erfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RXClock, ExtCtrls, RXCtrls, Gauges, OoMisc, AdPort,... [阅读全文]
delphi控件:Delphi中自做动态显示的Control控件
Delphi以其优秀界面和简单使用方法深受广大员喜爱.笔者经过摸索,自做了个具有动态显示特性Control控件只需在主中该Control控件个思路方法即可实现动态显示在动态显示同时,为了不影响主做其他事情,笔者采用了比较流行线程技术
． 方案
自做个父类为TEditControl控件,应该有个Text属性能自由地输入要动态显示内容; 并且有个MoveShow思路方法使Tex... [阅读全文]
随时随刻知道自己的IP
作者:李淼
随着网络普及越来越多人开始过起了网络生涯网站WebSite让你目不暇接可是有网站WebSite却专门钻IE空子当你浏览了它主页的后注册表就会被禁止还会修改你其他设置真是害人不浅还有招更毒你浏览它主页后它会下载个拨号器在你硬盘拨号器会断开你当前连接去拨别号(想想拨个长途国际电话小时多少钱？！)所以我们这些拨号上网用户需要个能随时监测自己IP地址软件Software当IP发生改... [阅读全文]
delphi颜色:Delphi中如何取得系统支持的颜色数
在自己软件Software中经常需要得知运行本软件Software系统支持颜色数例如有软件Software在16Bits颜色数计算机上开发而成颜色调试得非常漂亮但是到了台只支持16色计算机上变得非常难看这就需要得到系统颜色数
Delphi中如何取得系统颜色数呢？下面就解决这个问题
function GetSysColorNum:Integer;
Var
ScreenDc... [阅读全文]
无法获取文件信息:从文件中获取最后一次访问信息
...get the last access from a file ?
function GetFileLastAccessTime(
sFileName : ) : TDateTime;
var
ffd : TWin32FindData;
dft : DWord;
lft : TFileTime;
h : THandle;
begin
//
... [阅读全文]
色彩渐变:Delphi界面色彩渐变效果的实现
界面色彩渐变效果是通过用渐变画刷刷绘依次相邻矩形块实现
下面列举例子介绍说明:
1.新建个表单,假设其Width为500,设置个按钮Button1,按此按钮将把表单置
为由左向右由黄变白渐变效果
2.Button1按钮代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
Dct:TRect;... [阅读全文]
delphi编程:Delphi编程窍门技巧集锦
◇[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('file.txt'),pchar('//computername/direction/targer.txt'),false);
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现例如在PANEL上LABEL:
var xpanel,... [阅读全文]
添加按钮:Delphi在窗口标题区添加按钮
作者:南京 邹莉
ReadBook是款优秀软件Software我相信读者中也有不少人在使用它有关它病毒自我监测功能实现电脑爱好者已经讨论过了今天我想给大家谈谈它是如何在窗口标题区添加按钮有可能我实现思路方法和ReadBook不样没关系大家互相学习吧！
主要用到了几个消息除了中消息定义思路方法外大家还要注意每个消息中都了inherited原因不用我饶舌了吧？中还了GetMetrics、Draw... [阅读全文]
delphi程序加密:在Delphi程序中实现时间限制和加密
本例中TRegistry是关键类Delphi 4.0不能自行加入需在uses部分手工加入“registry”通过其思路方法“ReadString”和“WriteString”来读出和写入亦可通过其思路方法“ReadDate”和“WriteDate”来读出和写入日期
第次运行就写入其运行时间应用期限为30天超过30天就不再运行全局变量NoRegistry、SpareDays来分别判断是否注册和... [阅读全文]
windows窗口和按钮:Delphi为Windows窗口标题栏添加新按钮
张海航
对于我们熟悉标准windows窗口来讲标题栏上般包含有3个按钮即最大化按钮最小化按钮和关闭按钮你想不想在Windows窗口标题栏上添加个新自定义按钮满足你个性化需求从而也使自己窗口更具特色呢？！
下面我们就讨论下在delphi中如何给窗口标题栏上添加新按钮
、实现起来要定义以下过程:
1、 定义DrawCaptButton过程这个过程功能是在指定位置画出按... [阅读全文]
表格数据库:Delphi检测、建立数据库别名和表格
对于BDE会话期对象来说BDE别名特别重要许多思路方法都需要传递个数据库别名作为参数Tsession提供了管理BDE别名功能
但是作者往往等到要发布时才发现你由于找不到别名而无法运行必须在台已经装了BDE管理机上才能用你定非常失望不要紧只要在中加入以下语句你就又可以执行
AddAlias用于为Paradox、dBase或文本创建别名不需要连接参数只需指定个路径和默认驱动
A... [阅读全文]
获取bios密码:Delphi获取BIOS信息
procedure TForm1.BiosInfo;
const
Subkey: = ''Hardware\description\system'';
var
hkSB: HKEY;
rType: LongInt;
ValueSize, OrigSize: Long;
ValueBuf: .gif' /[0..1000] of char;
procedure Pa... [阅读全文]
delphi时间差:Delphi中的时间操作技术
在编写应用时我们需要经常和时间和日期打交道因此经常需要些对时间控制技术在Delphi中提供了整套对日期和时间操作在此我将详细介绍下在Delphi中时间操作技术希望能对大家有所帮助
Delphi中用于表示时间类型:
首先看看在delphi中用于描述时间几种数据结构对时间操作其实就是对这些结构操作
TDateTime类型:
Delphi中最常用表示日期时间数据类型TD... [阅读全文]
delphi数据库:用Delphi实现区别数据库系统的间的数据转移
厦 门 市 邮 政 局 邮 政 设 备 科
曾 剑 平
---- 在 计 算 机 应 用 系 统 软 件 升 级 改 造 过 程 中 我 们 经 常 遇 到 这 样 个 问 题: 老 系 统 数 据 库 平 台 和 新 系 统 不 同 例 如 老 系 统 数 据 库 平 台 是Foxpro 而 新 系 统 平 台 是SQL Server 而 且 我 们 需 要 把 旧 数 据... [阅读全文]
delphi源代码:Delphi中预想不到的代码
No.1 Delphi中Include文件
begin
ShowMessage({$I File1.txt}; //有错吗？
ShowMessage(UpperCase({$I File1.txt});
end;
//新建个文本文件“File1.txt”、内容填写为:“'Hello Word')”看看
No.2 可爱强制转换
var B: Byte
begin
C... [阅读全文]
delphimscomm:Delphi中利用MSCOMMControl控件进行GPS数据采集
1、准备
GPS(Global Positioning )即全球定位系统利用24颗GPS卫星测距和测时功能进行全球定位在许多系统中如机场导航系统出租车辆管理和调度系统、江河流域灾害信息管理和预测系统中GPS得到了广泛应用本文利用MSCOMMControl控件实现了GPS数据采集可为信息管理和指挥调度等提供定位数据
本文采用GPS异步串行传送方式将GARMIN 12C按NMEA-0183... [阅读全文]
将日期转化为汉语的形式
在DELPHI中没有直接将日期转化为汉语形式用起来很不方便如:“2001年5月23日”在些特殊场合需要转化为汉语“ 2○○年 5月 2十 3日”
在这里有个可以直接进行转化在这里和大家共享原代码如下:
procedure datechange(var Dyear, Dmonth,Dday:;
const ADate:Tdatetime); //转化日期
fun... [阅读全文]
exeocx:EXE工程和OCX工程的转化
1 从EXE到OCX工程
此类转化有个常用也可以说较笨思路方法把EXE工程主Form上所有元素和其事件处理都拷贝过来此法虽说稳妥但麻烦塌糊涂容易让人头大下面着重介绍个比较快捷省事办法通过类继承来实现转化概括来说就是把EXE工程主Form直接作为OCX工程主Form,并把其父类由TForm改为TActiveForm详细介绍如下
(1)准备工作
在开始的前最好把EXE工程所有文件如.pas、.d... [阅读全文]
vc显示位图:用Delphi实现位图显示特技
作者:张晓辉 王孝军
在应用中引入位图并以多种特技显示会使
界面生动形象充满魅力那么在Delphi环境中如何实现
这切呢？笔者在用Delphi开发个多媒体系统时发现了
实现位图显示特技两种思路方法下面将对这两种思路方法予以
介绍供Delphi爱好者参考
、画布Tcanvas介绍
Delphi中和绘图和位图操作有关对象是画布Tcanva
sTcanvas对象功能强大封装了Wind... [阅读全文]
access数据库:对access数据库维护
{***************************************************************
*
* Unit Name: unAccessTools
* Purpose : Provide tools to compact and repair Access database.
*
**************************************... [阅读全文]
查找word文档:利用Delphi实现关键字查找word文档里相匹配的内容
让Word替换标记串要使用WordDocument.Range.Find.Execute
下面例子中用“Delphi”替换了“VB”:
var
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, ... [阅读全文]
delphi编程:谈Delphi编程中资源文件的应用
()初级应用篇:
资源文件般为扩展名为res文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带资源编译工具BRCC32.EXE(般位于\Delphi\BIN目录下),我们完全可以做出跟VC样效果文件来
资源文件最大好处是能将些在必要时才文件跟可执行文件起编译,生成个文件.这样做最大好处就是使外部文件免遭破坏.例如在条中你要临时幅... [阅读全文]
delphi快捷键:如何改变Delphi的快捷键
如果说DelphiIDE有什么优势话那么我想就是它本身就是由Delphi编写而成因此我们能定制DelphiIDE环境通过DelphiToolsAPICom接口
下面这个例子使用IOTAKeyboardBinding接口实现对快捷键重新绑定相关接口定义见ToolsAPI.pas源码很简单相信你看就懂该例子用来修改和中文环境冲突Code Completion得快捷键改成Ctrl+A... [阅读全文]
delphi编程:DELPHI编程实现3DS的动画播放
Delphi是种具有强大功能编程语言用它可以轻松创建任何种数据库应用将3DS动画文件FLC分解后按先后顺序存于Delphi提供Graphics数据类型中通过读取Graphics类型图形数据在窗口中实现动画效果
1．将DOS分解图片存于数据库中
(1)进入3DSKeyFrame模块在Output选项中选择．BMP类型文件将图形文件全部存于同目录中(例如目录c:pic文件可为f0001．b... [阅读全文]
