- 博客(94)
- 收藏
- 关注
RSS订阅转载 DBGridEh（增强型表格组件）功能详解
DBGridEh（增强型表格组件）功能详解EXT中国移动DelphiBorlandExcel DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这
2017-03-11 20:53:22
643
转载 表达式求值
利用VBScript的直接计算unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,StrUtils, Spin,comobj;type TForm1 = class(TForm)
2015-11-19 16:16:47
572
转载 表达式计算器
表达式计算器, 支持四则混合运算, 常量代入扩展后可实现表达式嵌套引用, 防循环调用等功能//公式解析单元[delphi] view plaincopyunit utFormula; interface uses SysUtils, Generics.Collections; type
2015-11-19 16:00:11
563
转载 Delphi连接Oracle控件ODAC的安装及使用
Delphi连接Oracle有很多种方式，但大多要在客户机上安装Oracle那庞大的客户端，比较不方便，使用ODAC控件连接Oracle则免去了这些麻烦。ODAC也是Oracle公司载发的控件。有for Delphi 6–Dephi 2007的版本。 Oracle数据访问组件（ODAC），全称：Oracle Data Access Components，Oracle数据存取组件（ODAC）库为Bo
2015-07-22 14:23:03
2581
转载 免安装Oracle客户端使用(转)
分类： Oracle 2012-11-08 09:47 999人阅读 评论(0) 收藏 举报 免安装Oracle客户端使用PLSQL Developer 8.0.3.1510 连接Oracle10g或11g 众所周知，Oralce的客户端几百兆太大，网上也有许多DIR的处理。这里的处理使用官方提供ORALCE工具包Instant Client Package!下载地址：http://www.or
2015-07-21 17:59:33
383
转载 TGPBitmap转为TBitmap
TGBBitmap用在GDI+中,而TBitmap用在GDI中,有的时候,我们需要将它们进行转换,例如我们要将一个JPEG的图片的缩略图放到TBitmap中,这样它就可以很方便的被Windows中的多个控件所使用（如ImageList、Image等等控件)。 程序用DELPHI实现，使用了for Delphi 的GDI+接口函数，GDI+部分的代码可能与网上的不同
2015-03-20 13:40:46
780
转载 GDI+旋转图片的几种方法
1. 使用旋转矩阵POINT imgRotateCenterPos={10,10}; //旋转中心在图片坐标(相对于图片本身)CRect rcShow(imgShowRect); //图片要绘制的位置区域.//把 相对于图片的旋转中心坐标 转换为 绘制区域的坐标PointF centerPos(imgRotateCenterPos.x+rcShow.
2015-03-19 13:20:16
3245
转载 对word文档的操作
VarItemIndex :OleVariant;FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,PasswordDocument, PasswordTemplate, Revert,WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
2015-03-10 16:59:55
666
转载 Istream用法
procedure TForm1.Button1Click(Sender: TObject); var memoStream,OleStream:TStream; Stream : IStream; begin image1.Picture :=nil; image2.Picture :=nil;
2015-03-09 23:53:46
1270
转载 大素数判断和素因子分解（miller-rabin，Pollard_rho算法）
传说中的随机算法。效率极高。可以对一个2^63的素数进行判断。可以分解比较大的数的因子。#include#includestring.h>#include#include#include#includeusing namespace std;//******************************************************
2015-02-07 18:49:16
391
转载 几个常见的压缩算法
再学习了haffman算法之后发现压缩算法很有意思，上网查了点资料，这是做好的一篇（主要是我能理解）。前面几种都能看懂，关键是那个LZ77算法。这个是很强大的压缩算法，zip，rar用得都是这种算法，让我们来感叹下两个犹太人的强大！！！ 几个常见的压缩算法（转）（一） 字典算法字典算法是最为简单的压缩算法之一。它是把文本中出现频率比较多的单词或词汇组合做成一个对应的字典
2014-12-31 11:13:54
872
转载 LZ77 算法的基本流程
LZ77 算法的基本流程。1、从当前压缩位置开始，考察未编码的数据，并试图在滑动窗口中找出最长的匹配字符串，如果找到，则进行步骤 2，否则进行步骤 3。2、输出三元符号组 ( off, len, c )。其中 off 为窗口中匹配字符串相对窗口边界的偏移，len 为可匹配的长度，c 为下一个字符。然后将窗口向后滑动 len + 1 个字符，继续步骤 1。3、输出三元符号组
2014-12-31 11:13:30
2932
转载 关于 Delphi 中流的使用(9) 分割与合并文件的函数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;
2014-12-20 23:05:40
608
转载 关于 Delphi 中流的使用(8) 压缩与解压缩的函数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;
2014-12-20 23:04:46
492
转载 关于 Delphi 中流的使用(7) 压缩与解压缩(TCompressionStream、TDecompressionStream)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;
2014-12-20 23:04:16
413
转载 关于 Delphi 中流的使用(6) 用流读写结构化文件
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; {添加 Memo 显示内容} Bu
2014-12-20 23:03:29
585
转载 关于 Delphi 中流的使用(5) 组件序列化
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;
2014-12-20 23:02:32
607
转载 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
关于 Delphi 中流的使用(4) 遍历读取流中的所有数据unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) M
2014-12-20 22:53:08
746
转载 关于 Delphi 中流的使用(3) 通过内存流读取文件
关于 Delphi 中流的使用(3) 通过内存流读取文件unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Mem
2014-12-20 22:52:36
512
转载 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门前言:所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在
2014-12-20 22:52:03
992
转载 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:TFileStream: 文件流TStringStream: 字符串流TMemoryStream: 内存流TResourceStream: 资源文件流THandleStream: 是 T
2014-12-20 22:51:32
503
转载 Delphi对文件流的操作
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。正在装载数据……TStream类中定义的属性介绍如下：1、Size: 此属性以字节返回流中数据大小。2、Position: 此属性控制流中存取指针的位置。Tstream中定义的虚方法有四个：1、Read:此方法实现将数据从流中读出。函数原形为：Function Read(var Bu
2014-12-20 22:48:55
480
转载 用Delphi创建windows服务程序
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File-
2014-09-07 22:23:22
502
转载 简洁代码一定比复杂代码效率高吗？
春节期间，一个正在读计算机系大四的朋友到我这里聊天，谈到C语言的学习时，他说C语言入门容易，精通很难，我表示赞同。他接着举例说，每次写一些函数，自己反复修改后，拿给同学们看时，不是被挑出一些毛病，就是代码被大量精简。我说，初学者首要的是要保证代码的正确性和可读性，代码写多了后，问题自然少了，代码也较简洁了，效率也会随之提高。后来我问他，实现同样功能，简洁代码一定比复杂代码效率高吗？他想了一下说，还
2014-01-11 20:31:08
742
转载 GDI+ 在Delphi程序的应用 -- GDI+图像与GDI位图的相互转换
Delphi的TBitmap封装了Windows的GDI位图，因此，TBitmap只支持bmp格式的图像，但是在Delphi应用程序中，常常会遇到图形格式的转换，如将Delphi位图TBitmap的图像转换为其它格式保存，或者将其它图像格式转换为TBitmap等。这时候，我们往往借助一些第三方组件或代码，Delphi自带的TJPEG.pas就是jpeg格式图像转换的第三方代码单元。
2014-01-11 19:49:54
1722
转载 DELPHI 将TBitmap与TGPImage转换
uses GDIPOBJ, GDIPAPI;procedure TForm1.FormPaint(Sender: TObject);const ImgPath = 'c:\temp\test.bmp';var img: TGPImage; bit: TBitmap; g: TGPGraphics;begin bit := TBitmap.Creat
2014-01-11 12:55:21
2236
转载 怎样调试delphi写的服务程序-com对象及hook程序
作者：呆呆(abingle.com)我只会用delphi,也深感于delphi的灵气。1.调试delphi 写的服务程序，有这么一个办法。原来每次都是用attach to process方法，很麻烦。并且按照服务线程的执行线路，可能会停不到想要的断点。笨办法是，在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个
2014-01-02 18:09:58
685
转载 Delphi 变体类型（Variant）的介绍（流与变体类型的相互转换、变体类型常用的函数）
一、变体类型常用的函数介绍： Variant： 一种可以拥有各种数据类型； 也可以告诉目前存储的数据是什么类型(通过使用VarType函数)； 可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法； variant数组只不过是variant型的数组，不必包含同类型的数据；1、 VarArrayOf函数：更快捷的创建一维变体数组，可以创
2014-01-01 11:17:29
473
转载 DELPHI判断是否64位操作系统
function IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL;stdcall;GetNativeSystemInfo : procedure(var
2013-12-29 20:29:44
846
转载 几个获取Windows系统信息的Delphi程序
1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下： Procedure Tform1.Button1Click(sender:TObject); Var OSVI:OSVERSIONINFO; begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIO
2013-12-29 19:47:22
742
转载 delphi获取windows系统版本信息，大全，准确
很多时候从网上找到的取操作系统版本的代码都不是很准确，有些信息也不全面。为此，在msdn上找到全面的信息整理成代码，共享！unit WindowsSysVersion;interfaceuses windows ;{$IFDEF CONDITIONALEXPRESSIONS}{$IF Defined(TOSVersionInfoEx)}{$DEFINE TOSVER
2013-12-26 23:49:00
852
原创 网络传输工作原理的通俗理解
本文结合生活中的实例，说明网络传输的基本原理我们以甲对乙表达“大家好！”为例。甲乙两人一个只会讲中文，一个只会讲法文，两人如何交流呢？我们把不同层次的翻译当做通信协议的实现来看。网络层次图：甲（讲中文） 乙（讲法文）<英语翻译协议> <英语翻译协议><英语单词分解协议> <英语单词传输协议><字母传输协议>----------真正的网络传输-------><字母传输翻译>
2013-12-25 16:31:16
1488
1
原创 初学者如何理解网络协议(二)
说到底：协议是人规定的一套通信规范，所以任何人都可以规定自己的协议，只要通信的双方能够共同遵守，你就实现了你的协议。事实上协议本身是可以无所谓分层的概念，分层只是为了方便人们处理复杂的协议而人为做出的划分。所以，初学者请不要网络协议深遂的面孔吓倒，更不要被网络分层的假相所迷惑。你只要认清了网络协议的本质，大胆得去实践，你完全可以创造出属于你自己的网络协议。
2013-12-25 16:28:42
1513
原创 初学者如何理解网络协议(一)
初学者如何理解网络协议(一)FYL 2013-12-25网络协议是什么？协议分层是怎么回事？什么是协议的实现？回想当年初识网络协议，被一张网络层次模型图中的“物理层、数据链路层、网络层、传输层……”搞得云里雾里。花了很长时间才搞明白网络协议大概是怎么回事，甚至己经做出了几个网络程序，但仍感觉对网络协议的本质认识还不够清楚。一直在思考这些问题，突然有一天，我发现我对网络协议的认识已经变得明朗。直到今天，我心血来潮写下这篇文章，希望对初学网络编程的朋友有所帮助。
2013-12-25 16:26:53
2474
转载 Delphi TStringList的用法
Delphi TStringList的用法TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {
2013-12-23 03:34:27
531
转载 简单实现系统托盘
使用 Delphi 提供的 TTrayIcon 类, 两三行程序甚至不写程序(设计时选择几下)即可实现.设计时的准备工作:1、添加 TTrayIcon、TPopupMenu 控件, TPopupMenu 用于托盘的右键菜单.2、随意给 TPopupMenu 添加些菜单项.代码文件:unit Unit1;interfaceuses Win
2013-12-22 19:55:39
486
转载 Delphi 的接口(1) - 前言
之前, 有朋友夸过我: 博文通俗易懂, 能把复杂的问题简单化; 希望我对接口的理解也能对大家有所帮助; 不过其中个人理解的成分多些, 错误之处万望指出."接口" 的概念和 "类" 特别是 "抽象类" 近似, Delphi 之初并没有接口, 后来(Delphi 3)为了支持 COM 引入了接口, 再后来发展成为 Delphi 重要的语言特性.应该先简单了解点 COM, 说
2013-12-22 19:54:37
433
转载 Delphi 的接口(4) - 接口的属性
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;
2013-12-22 19:51:08
442
转载 Delphi 的接口(3) - 关于接口的释放
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;
2013-12-22 19:50:24
472
转载 Delphi 的接口(2) - 第一个例子
第一个例子的操作实况录像: Interface_Test.rar代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm
2013-12-22 19:49:17
400
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人