记录成长的每一步

原创 实现文件的拖放功能(Delphi)

unit uDropFile; { 这个小程序实现的内容是比较简单的,更有难度一些的,可以在RichEdit内部, 实现对选定文字的拖放=========================如何在Delphi程序中支持文本拖放========================}//支持文件拖放关键在于两点 ://1 、使程序能接收WM_DROPFILES消息 ;//2 、在WM_DROP

原创 卓文君

 卓文君，西汉临邛人，汉代才女，她貌美有才气，善鼓琴，家中富贵。她是卓王孙之女，丧夫后家居。许多名流向她求婚，她却看中了穷书生司马相如。司马相如能弹琴作诗，卓文君从中领会到他的才华和情感，一心相爱。司马相如家里一无所有，卓文君随他私奔后，就开了个酒铺，亲自当掌柜，文君当垆卖酒，相如则作打杂，不怕人讥笑。后卓王孙碍于面子，接济二人，从此二人生活富足。后来司马相如终于成名天下。而文君夜奔相如的故事，则

原创 RichEdit中添加链接

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls, Shellapi, RichEdit;type  TForm1 = class(TForm)    RichEdit1: TR

原创 终于搞定了Delphi的Unicode支持(Tnt控件)

原来是要在FormCreate中加入以下代码:procedure TTntForm1.TntFormCreate(Sender: TObject);begin  //这句很关键.对于平台的支持.  if Win32Platform = VER_PLATFORM_WIN32_NT then    Font.Name := MS Shell Dlg 2  else    Font.Name :

原创 StringGrid使用教程(Delphi)

StringGrid行列的增加和删除type  TExCell = class(TStringGrid)public  procedure DeleteRow(ARow: Longint);  procedure DeleteColumn(ACol: Longint);  procedure InsertRow(ARow: LongInt);  procedure InsertColumn

原创 dspack的安装

 dspack安装之前，必须先安装DirectX9.0(DSPack2.3.4默认支持DirectX9.0)利用最新 DircetX 9 中的 DirectShow 相关 API 播放 VCD、DVD、MP3、DivX 等影音格式文件的构件 ( 2.0 版，附源码 ) 影像与音质的质量极佳。适用 Win9X, ME, 2000已及D5 D6 D7 下载地址：1）http://sourceforge

原创 Delphi基础:回调函数及其使用

Delphi基础:回调函数及其使用   1 回调函数的概述  回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（一般会包含一个工作线程）就会按照回调函数地址调用该函数。  这种方式，调用者在一个线

原创 千纸鹤的折法

原创 忠诚的战神-------巴蒂

在潘帕斯的群星中，巴蒂在我心里始终占据着一个极其特殊的位置。从美洲杯初出茅庐的英俊少年，到佛罗伦萨忠心耿耿的战神，到罗马城的金发狮王，到世界杯的英雄迟暮，到国际米兰的救火队员，十几年的时光飞逝，我对巴蒂的喜爱却未稍减。一直想为心目中的战神写点什么，却一直觉得无从下笔。06世界杯即将拉开序幕,不知不觉间，战神已然老去，是该为他写点什么的时候了。 〖一〗紫色梦幻  蓝色和紫色都是我所喜

原创 Delphi开发时用到的一些控件(自己收集)

 Acm控件: http://download1.csdn.net/down3/20070528/28154955419.rarTntUnicode控件:http://download1.csdn.net/down3/20070528/28155215937.ZIPASPack控件:http://download1.csdn.net/down3/20070528/28155346495

原创 Delphi开发多媒体的书

上周末去中关村图书大厦,看到一本>张铭华著,中国铁道出版社.值得一看.

原创 自己收集的一些音视频的开发资料

 http://download1.csdn.net/down3/20070528/28153759764.doc http://download1.csdn.net/down3/20070528/28153916232.doc

原创 Inline函数用法小结

Inline函数用法小结 Inline函数能够防止宏定义的脆弱与不可预测性。Inline在编译阶段完成，但是它将代码直接插入到调用的地方，避免了函数调用的过程，从而提高了效率。Inline声明函数时，必须同时对该函数进行定义，否则编译器不会认为是一个inline函数，而只会认为是个普通函数，由于该函数要被很多编译单元引用，所以一般放在头文件中。之所以不会出现编译错误，是因为该段代码像一个const

转载 Api基础知识

(引用)API基础知识(引用)微软公司随Windows操作系统发布的应用程序接口（application programming Interface），即通常所说的API，是Windows系统为其下运行的各类应用程序提供的重要服务功能。微软的所有Win32平台都支持统一的API调用，包括函数、结构、消息、宏及接口。通过Windows系统提供的API服务功能，应用程序可以充分挖掘Wind

原创 Delphi的快捷键

CTRL+SPACE 代码补全，很好用的(先改了输入法热键) CTRL+SHIFT+C 编写申明或者补上函数 CTRL+SHIFT+↑(↓) 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义（在INTERFACE和IMPLEMENTATION之间来回切换） CTRL+SHIFT+G 插入GUID CTRL+J (弹出DELPHI语句提示窗口，选择所需语句将自动完成一条语句)代码模板

原创 delphi中函数指针的用法

       delphi中可以通过函数指针把一个函数作为参数来传递，然后在另外一个函数中调用。    1) 首先，申明函数指针类型TFunctionParameter。       type          TFunctionParameter = function(const value : integer) : string;     2) 定义准备被作为参数传递的函数  

原创 Delphi将表中数据导入EXCEL中来的代码

将表中数据导入EXCEL中来的代码如下:unit main;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ZAbstractRODataset, ZAbstractDataset, ZDataset, DB, DBClient,  P

原创 利用INI文件实现界面无闪烁多语言切换(Delphi)

利用INI文件实现界面无闪烁多语言切换越来越多的程序使用了多国语言切换，虽然DELPHI自带多语言包的添加和配置，但是那种方法在切换语言时界面会出现闪烁，而且实现起来很麻烦，这里我介绍给大家的是利用INI文件来读取界面的语种文字，用这种方法，不但简单易行，而且在切换的时候不会出现界面的闪烁。我们从一个例子出发，看看怎么实现语言的切换。首先建立一个新工程。放置如图的组件：    Main

原创 DirectShow实现抓图(Delphi)

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,shlobj, ExtCtrls,      {TFlatButtonUnit,TFlatPanelUnit,TFlatTitlebarUnit,}  

原创 DirectShow实现音视频分离(Delphi)

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus,Directshow9,WMF9,StrUtils;type  TForm1 = class(TForm)    MainMenu1: TMainMenu

原创 Delphi的字符处理

一、字符、字符串类型的使用　　（一）字符类型　　字符类型为由一个字符组成的字符常量或字符变量 。　　字符常量定义:　　const　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　字符常量=字符　　字符变量定义:Ⅱ　　Var　　　字符变量:char;　　字符类型是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适

原创 Delphi类型转换

Delphi是一种强类型转换的语言。在VC中，赋值符用″=″,例如x=1;到了Delphi赋值符就变成了″:=″,例如x:=1。 从赋值时用符号″:=″而不用″=″,就隐约可见Delphi对类型匹配要求之严,即赋值符右边的类型一定要和左边一致。用惯了VB或VC的程序员,初用Delphi,稍不留神,就会出现类型不匹配的错误。对初学者而言,类型转换也是学习Delphi的重点和难点,为此本文特对Delp

转载 Delphi实现Hash表

Hash表，其实就是一个Key对应一个Object在Delphi里最简单实现Hash的就是TStrings通过它的AddObject,IndexOf,Objects等方法可以做一个很简单的Hash表。TStrings没有排序，所以IndexOf比较慢，而它的子类TStringList具有Stored属性，设置为True之后，IndexOf是用折半查找的，效率很高。所以在Delphi里可以用Tstr

原创 检测Pc是否在线上(Delphi)

unit Unit1;interfaceuses  Windows, Messages, SysUtils, wininet,Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;type  TForm1 = class(TForm)    Label1: TLabel;    Edit1: TEdit;    Button1:

原创 Winsock的几个有用的Api函数

 一, GetHostByName struct hostent *gethostbyname(const char *name);    这个函数的传入值是域名或者主机名，例如"www.google.com","wpc"等等。    传出值，是一个hostent的结构（如下）。如果函数调用失败，将返回NULL。    struct hostent {      char  *h_na

原创 DES加密

DES加密算法基本知识DES(Data Encryption Standard)又叫数据加密标准，是1973年5月15日美国国家标准局(现在是美国标准技术研究所，即NIST)在联邦记录中公开征集密码体制时出现的。DES由IBM开发，它是对早期被称为Lucifer体制的改进。DES在1975年3月17日首次在联邦记录中公布，在经过大量的公开讨论后，1977年2月15日DES被采纳为“非密级”应用的一

原创 AES加密

128位分组对称加密算法：AESAES是美国高级加密标准算法,将在未来几十年里代替DES在各个领域中得到广泛应用。本文在研究分析AES加密算法原理的基础上，着重说明算法的实现步骤，并结合AVR汇编语言完整地实现AES加密和解密。根据AES原理，提出几种列变化的优化算法，并根据实验结果分析和比较它们的优缺点。 关键词：AES算法 DES AVR汇编语言 加密算法 解密算法引 言　　随着对

原创 获得主机名和操作系统(Delphi)

{判断是哪类操作系统}function GetOperatingSystem: string;var  osVerInfo: TOSVersionInfo;begin  Result := ;  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  if GetVersionEx(osVerInfo) then    case

原创 自动关机(Delphi)

unit AutoShut1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, Menus, AppEvnts, shellapi;type  TForm1 = class(TForm)    Timer1:

原创 返回主机名和Ip地址(Delphi)

// 该函数返回主机名function HostName : string;var    Buffer : array [0..63] of char;    GInitData      : TWSADATA;begin    WSAStartup($101, GInitData);    Result := ;    GetHostName(Buffer, SizeOf(Buffer));