变速齿轮Delphi实现

变速齿轮Delphi实现的相关文章

• 
  Delphi实现Singleton模式

  标签：编程语言 网络编程

  单例模式用于限制进程中只有一个某个类的对象，本例的Singleton是一个线程实例，在每一个时钟到达时检测是否到达某个时刻（本例的时刻存于Ini文件中），如果到达则产生一个线程，但是如果在这个线程完成其任务前又到达一个时钟，则有可能会产生多个线程执行任务，以致出现混乱，所以考虑使用Singleton模式解决这个问题（当然还有其他解决方案，但本例使用的是Singleton）。 核心代码如下： //timer...[ 查看全文 ]

  益灵集团

  11
• 
  delphi实现关闭Windows

  标签：编程语言 网络编程

  控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数 首先定义常数 const EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 EWX_LogoFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_REBOOT=2; //重新启动计算机 EWX_SHUTDOWN=1;//关闭计算机 运行时给How赋值，让他等于EWX_SHUTDOWN或其他...[ 查看全文 ]

  无奈有耐

  01
• 
  delphi实现控制声音音量

  标签：编程语言 网络编程

  当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChange事件都写上下列语句： procedure TForm1.Tr...[ 查看全文 ]

  美好人生685

  521
• 
  用Delphi实现文件关联

  标签：Delphi

    文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} Reg := TRegistry...[ 查看全文 ]

  依小然Z

  101
• 
  用Delphi实现打印功能

  标签：Delphi

    给单位开发软件，涉及一打印模块，我感到颇有兴趣，就拿来其中的一个小功能模块与读者共享。下面以打印在纸张的矩形框内为例简单介绍： 程序要求： 单击[打印]按钮，把Memo的内容最多分三行打印出来，每行最多能容纳22个三号字，限定汉字上限为50个汉字。 编程思路： 用LineTo和MoveTo函数画一矩形框，根据Memo组件的内容长度用Copy函数把它分割为1到3个子串。在矩形框...[ 查看全文 ]

  就差你了go

  1961
• 
  Delphi编程实现Ping操作

  标签：编程语言 网络编程

  在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！ 新建一个工程，命名为 PingGUI.dpr ，窗口命名为“frmPing”，加入如下组件：     lstReplies: TListBox;     ICMP: TIdIcmpClient;     Panel1: TPanel;     btnPing: TButton;     edtHost: TEdit;     spnPin...[ 查看全文 ]

  京宝

  191
• 
  Delphi7.0实现添加记录的“携带”实现

  标签：Delphi

  在数据库管理系统中，数据录入是数据处理的基本功能，录入操作方便与否是衡量数据库应用程序交互良莠的指标之一。录入中除了应要对录入数据进行合法检验外，还应为用户提供更多的方便操作，即对于“规范性”数据，如：性别、职称等字段的数据，应尽可能供用户“选择”录入，而非直接文字输入，另外，如：出生年月、联系电话、邮编等类似名称的字段，程序应设置数据录入格式，这可以从一定程度 上“规范...[ 查看全文 ]

  坑人嘚圆通

  361
• 
  用DELPHI实现文件加密压缩

  标签：编程语言 网络编程

  用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘 点击下载此详细说明文件 概述： 在这篇文件中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。 关键字：加密压缩、Zlib、流、资源文件 引 言： 在日...[ 查看全文 ]

  1127787680

  341
• 
  delphi编程实现检测声卡存在

  标签：编程语言 网络编程

  如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Caption :=系统没有发现声卡;end; [ 查看全文 ]

  尕伍儿

  11
• 
  用Delphi轻松实现背景播放

  标签：Delphi

  如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法 修改TWinControl，让Handle可写。 建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二种方法比较好. TSurpriseDisplay=class(TWinControl) protected...[ 查看全文 ]

  回头看帖

  151
• 
  Delphi实现窗体控件自由摆布

  标签：Delphi

    Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件  在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事： 1、设置进入控件边缘的光标形状； 2、改变控件的大小及位置； 3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下： 1、修改控件光标。只...[ 查看全文 ]

  风萧笑兮

  961
• 
  Delphi中如何实现透明按钮

  标签：Delphi

    各位亲爱的读者，在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时，我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果？笔者在互联网搜索了不少时间也没有找到这方面的控件，于是决定自己DIY一番，下面笔者就将自己的经验与广大读者共享一番。 要实现透明按钮，共需要三个控件-image、label、bevel。其中image控件是为了突出透明...[ 查看全文 ]

  兮贝城

  1541
• 
  delphi编程实现动态创建别名

  标签：编程语言 网络编程

  对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，...[ 查看全文 ]

  霸天嚣张的活着

  01
• 
  用Delphi实现超级链接

  标签：编程语言 网络编程

  在许多程序的关于对话框中，我们常可以看到超级链接式的标签，只须轻轻一点，就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页，或者远程登录，或者自动链入新闻组 如果你苦于找不到实现这些功能的Delphi控件，又无法在帮助文件中找到相关主题，那不妨参照下文，亲手一试！ 别看上述的超级链接功能繁多，其实用一条函数就能完成，那就是ShellAPI单元中的ShellExecute。不要误以为...[ 查看全文 ]

  你有这用户名吗

  641
• 
  Delphi中正常窗口的实现

  标签：编程语言 网络编程

    Delphi中正常窗口的实现 摘要 在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案，且不需要原有的编程方式作任何改变。 关...[ 查看全文 ]

  liywzq

  41
• 
  用Delphi实现远程屏幕抓取

  标签：Delphi

    在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 一、软硬件要求。 Windows95/98对等网，用来监视的计算机（...[ 查看全文 ]

  lifulailawyer

  1011
• 
  Delphi实现远程串口的数据采集

  标签：Delphi

  摘要：本文介绍了在Windows平台下串口开发的方法，并给出一个使用Delphi设计的远程数据采集的实例。 关键词：远程数据采集 AcitiveX MSComm控件 1 引言 在工业生产实践中，使用PC机对Inprise公司推出的Delphi是一种功能强大的高级编程语言，其具有可视化面向对象的特征，特别适合Windows平台下的图形界面和用户程序的编制。本文就介绍在Windows平台下用Delphi开发串口的方法和使用Delph...[ 查看全文 ]

  那夜我喝醉了0

  451
• 
  如何在Delphi中实现ASP编程

  标签：Delphi

    众所周知，ASP技术是我们在以internet/intranet为平台的web程序的主要技术，在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言，其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题，因此我们一般在开发web系统时用高级语言编写asp执行体，然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的，因...[ 查看全文 ]

  兮謡话

  41
• 
  delphi编程实现在Word插入字符

  标签：编程语言 网络编程

  现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙： procedure TForm1.Button1Click(Sender: Tobject);var MSWord: Variant;beginMSWord := CreateOLEObject(Word.Application);//连接WordMSWord.Documents.Open(FileName:=d:\test.doc, ReadOnly:=True);//打开外部Word文档MSWord.Visible := 1;//是否显示文件编辑MSWord.ActiveDocume...[ 查看全文 ]

  liangtian0107

  511
• 
  DELPHI中自适应表单的实现

  标签：编程语言 网络编程

  我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终 要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会 走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。 一、根据新的分辨率自动重画表单及控件 先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）...[ 查看全文 ]

  wwwcom881

  171