`
cfeers
  • 浏览: 140515 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
社区版块
存档分类
最新评论
文章列表
最近开发要使 用图表,Delphi里提供了图表开发的控件TChart,可惜帮助里没有DEMO代码,上网搜索了一下,竟然发现文章也少的可怜。没办法,自己丰衣足 食,写代码试用,看帮助,读代码,搞了半天大概弄明白了TChart的使用方式 ...
Delphi的Socket编程要分几步? ClientSocket 和ServerSocket几个重要的属性:   1.client和server都有port属性,需要一致才能互相通信   2.client有Address属性,使用时填写对方(server)的IP地址       几个重要的事件:       client:    On ...
这是一个关于父亲与儿子的故事: 父亲的一生:①生一个儿子。如果儿子被杀了,再生一个!              ②工作。 儿子的一生:等着父亲被杀,取而代之(成为父亲)。 这则故事已经完整地表达了我想要表达的全部思想,我们可以通过假设“父亲被杀了”或“儿子被杀了”来领会它。 废话少说,看源码: program Oliver; uses    Windows; procedure WaitForAncestor; var    MutexName: String;    MutexHandle: THandle; begin    MutexName := '110';    MutexHandl ...
<script type="text/javascript"></script> 自15年前Windows 3.1推出以来,Win32全局钩子的实现始终是32位Windows程序设计中最富挑战性的课题之一。全局钩子可以捕获系统向应用程序发送的消息(比如键盘和鼠标操作、系统 ...
获取 CPU 使用率 unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Gauges; type_SYSTEM_PERFORMANCE_INFORMATION = record    IdleTime: LARGE_INTEGER;    Reserved: array[0..75] of DWORD;end;PSystemPerformanceInformation = ^T ...
AcmIn/AcmOut 语音采集 unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ACMOut, ACMConvertor, ACMIn; typeTForm1 = class(TForm)    CheckBox1: TCheckBox;    Button1: TButton;    GroupBox1: TGroupBox;    Label1: TLabel;    ComboBox1 ...
  unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; typeTForm1 = class(TForm)    lbl1: TLabel;    lbl2: TLabel;    btn1: TButton;    btn2: TButton;    edt1: TEdit;    edt2: TEdit;    lbl3: TLabel;    procedure btn1Click(Send ...
一个友好的用户界面,必须具有下拉菜单,弹出菜单,工具条和快捷键。同样一个功能,程序员可能要提供几种操作方式,如文本拷贝,菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮,都是程序员提供给用户的操作,可以大大方便了不同层次的用户。但是,多增加一种操作方式,就意味着增加响应事件的代码,还有,实现统一功能的多个操作必须一致,如剪切板上不为空的时候,菜单命令,快捷键,按钮,都是可以选择的Enabled状态,而剪切板上没有内容时,这些构件的Enabled状态都为假。当然,如果不集中控制这些细节的话,实现相同功能的构件要一致,必须多增加代码,控制较为复杂。Action就是将实现某个功能的细 ...
研究外挂3个多月了~发现写一个完整的外挂,注入是少不了的,找了几篇不错的转来~和我一样的新手们可以看看,高手就当复习吧。呵呵。SDK文档里是这样描述的:进程是一个正在运行的程序,它拥有自己的地址空间,拥有自己 ...
假设有过程: procedure TForm1.Button1Click(Sender: TObject);begin    ShowMessage('cfeers 你好');end; 想在 FormCreate 时候调用,怎么调用? 办法是: procedure TForm1.FormCreate(Sender: TObject);begin     Button1Click(Sender);end; 呵呵,很简单.
我这里分别以VC和Delphi举例: 比如想生成 000005,000255 这样的字符串 先看VC的:  int i=5;  CString strOut;  strOut.Format("%.6d",i);  AfxMessageBox(strOut);   i=255;  strOut.Format("%.6d",i);  AfxMessageBox(strOut); 类似的,Delphi 就是下面这样,差不多:var    i:integer;    strOut:string;begin    i:=5;    strOut:=Forma ...
CREATE TABLE [dbo].[t_kjqj] ( [nf] [numeric](4, 0) NOT NULL , [yf] [numeric](4, 0) NOT NULL , [rq1] [smalldatetime] NOT NULL , [rq2] [smalldatetime] NOT NULL , [qybz] [varchar] (1) COLLATE Chinese_PRC_CI_AS NULL )         CREATE  PROCEDURE [dbo].[p_newkjqj] ASdeclare @li_maxnf integer, @li_nf i ...
  博客“ http://blog.csdn.net/wxf0204      GPRS电力远程自动抄表系统解决方案 : http://blog.csdn.net/wxf0204/archive/2007/11/01/1861263.aspx  
DELPHI 连接数据库是个头痛的问题,现在我写了个通用方法,由一个配置工具和一个配置文件实现数据库连接并且可以加密字符串,有需要的留下邮箱,发给你。   1.新建一个窗体,放置5个控件,(TADOConnection的ConnectionString属性不需要指定连接字段)如下:    dbgrd1: TDBGrid;    ADOConnection: TADOConnection;    ds1: TDataSource;    qry1: TADOQuery;     Button1: TButton;   2.主要几个事件的定义以及编写  function GetSysPa ...
最近,还是看到很多人在问对象和接口的问题。我原本以为,这已经不是个问题了,但是现在看来,它还困扰这很多程序员。   其实这个问题很简单,举例说明吧:   你是一个对象,继承自你的父母,你的gf也是一个对象,继 ...
Global site tag (gtag.js) - Google Analytics