2008年9月24日delphi局域网聊天:Delphi局域网传递消息程序代码
向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件 首先声明NetMessageBufferSend函数，该函数在netapi32.dll库中： type NET_API_STATUS=LongInt; functionNetMessageBufferSend(servername:LPCWSTR;msgname:LPCWSTR; fromname:LPCWSTR;buf:Pointer; buflen:DWORD):NET_API_STATUS; stdcall;external’netapi32.dll’; ...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi代码标准文档
Delphi代码标准文档Revision 1.0.0.5编者：Riceball([email protected])参考：[http://www.CrazyCoder.cn/]本文主要基于“Delphi Development Guide”一书的代码标准部分而来，编者参考其它的Delphi代码标准规范，以及结合现目前Delphi社区中流行的程序书写惯例，作了一些修改和裁剪，你也可以根据自己的需要进行裁剪和修改。如果你有什么建议，或是希望编者加上你认为遗漏的东西，欢迎Email至：[email protected]参考：[http...
[阅读全文] [PDF]
2008年9月24日delphiwinsock:Winsock完成端口模型-Delphi代码
原文出处《Windows网络编程技术》第8章 完成端口模型由于原书附的是C代码，我把其翻译成Delphi代码。其中winsock2.pas在delphi中不带，要另外下载http://jungla.dit.upm.es/~bti/files/winsock2.pasprogram CompletionIO;{$APPTYPE CONSOLE}uses SysUtils, WinSock2 in \'WinSock2.pas\', Mains in \'Mains.pas\';begin main();end.// Module Na...
[阅读全文] [PDF]
2008年9月24日delphi源代码:在WIN2000/XP下添加自定义纸张的delphi源代码
//////////////////////////// //武汉探索电脑工作室// //http://tansuo.51.net// //////////////////////////// //增加规格自定义纸张 //PaperName:自定义纸张名称 //PaperWidth:纸张的宽度，以0.1mm为单位 //PaperLength:纸张的高度，以0.1mm为单位 procedureTDM.AddCustomPaper(constPaperName:string;PaperWidth,PaperLength:integer)...
[阅读全文] [PDF]
2008年9月24日delphiopengl:Delphi版OpenGL样例代码导游
由于Delphi自带OpenGL.pas是1.0版的，而现在实际使用的至少是1.1版，Windows纯软件模拟方式也是1.1版的，所以要自己导入一些必要的函数。也可用一些开源的免费单元，如Mike Lischke的OpenGL12.pas。当然，自己写可以设计得更简洁，而且不必在过于超前完备的庞大代码中找错误。首先引入必要的单元Windows, Messages, OpenGL要增加一些必要的扩展。const // GL_EXT_bgra GL_BGR_EXT = $80E0; GL_BGRA_EXT = $80E1; // pol...
[阅读全文] [PDF]
2008年9月24日delphi源代码:delphi代码标准文档
1.前言 本文档主要是为Delphi开发人员提供一个源代码书写标准，以及程序和文件的命名标准，使他们在编程时有一致格式可遵循。这样，每个编程人员编写的代码能够被其他人理解。 2.源程序书写规范2.1.通用源代码格式规则1). 缩进 缩进就是每级间有两个空格。不要在源代码中放置制表符。这是因为，制表符的宽度随着不同的设置和代码管理实用程序(打印、文档及版本控制等)而不同。 通过使用Tools|Environment 菜单，在Environment Options 对话框的General页上，不要选中Use Tab Character ...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi代码创建形式规范
Delphi代码创建形式规范本规范的目的：给自己的代码一个统一而标准的外观，增强 可读性，可理解性，可维护性本规范的原则：名称反映含义,形式反映结构1、单元风格2、各区风格3、语句风格4、命名规则参考：Borland官方Object Pascal风格指南 Delphi5程序员指南编码标准 1、单元风格参考：[http://www.CrazyCoder.cn/] 参考：[http://www.CrazyCoder.cn/]{*******************************************************...
[阅读全文] [PDF]
2008年9月24日delphivcl:如何将界面代码和功能代码分离（基于Delphi/VCL）
很多朋友看了上次我写的“创建良好设计的代码（基于Delphi/VCL）”后，对我说感觉上可以接受其中的观点，但似乎说得太简单，不够具体；也有的朋友对其中的一个小例子有些异议。因此便有了此文。 上次，我举的例子是这样的：假设要从某处获得一个字符串列表，然后显示于 TListBox 中，我所推崇的代码是： ObjectXXX := TObjectXXX.Create; ListBox1.Items := ObjectXXX.GetStringList; ObjectXXX.Free; 的确，我承认，单纯从这三行代码来看，似乎有了“滥用...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi获取系统支持颜色代码
在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。
Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。
function GetSysColorNum:Integer;
Var
ScreenDc:HDC;
NumBitsPixel:Integer;
begin
Result:=0;
ScreenDc:...
[阅读全文] [PDF]
2008年9月24日delphi源代码:DELPHI关闭进程代码
unit Tlhelp323;interfaceuses Windows,SysUtils,Tlhelp32;function KillTask(ExeFileName: string): Integer; //关闭进程function EnableDebugPrivilege: Boolean; //提升权限 function FindProcessId(ExeFileName: string):THandle; //查找进程implementationfunction FindProcessId(ExeFileName: string...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi开发更新程序代码
刚毕业找了个软件公司，到公司找老大接了第一个任务：写一个更新程序，用来更新公司产品的客户端。本人水平实在有限，还好大学读的是“百度专业” ，最后勉强做了个Setup.exe出来。现在把涉及到的知识点记录在这里，希望对刚入行的朋友们（我！）有帮助。
IDE：Delphi 7
1、调用Web Service(C#)
导入WSDL：在你建立的工程里点File->New->Other->WebService->WebService Importer，然后按提示一步步来。
如何获得WSDL地址：如果老大给了你一个URL，可以访问他写...
[阅读全文] [PDF]
2008年9月24日delphi修改文件名:取得Delphi修改文件的时间代码
本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常 是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。 这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级W...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi设计Email程序方法及代码
传统的Email发送是基于smtp协议.也就是说,只要你的程序遵守RFC821规范的应答方式即可.实际应用中还有例如Web中转,ISAPI,MMX等等变种方式.最近不是有位权威说\"代码就是开发文档\"吗?所以,其它说话无须多讲,让我们直接开始code吧. 一:用API方式实现email邮件的发送. 我们首先将常用的网络操作单元集合为一个单元.注意:我们下面讲述Web发送的时候还会用到这个单元. unitUnit_MyWinSock; {======================================================= 项目:...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi代码优化技巧
忘掉extended
extended很大（10字节，如果代码对齐就有12字节），读写运算都很慢，是优化的大敌。且Delphi2-4对extended的代码对齐有bug。因此，若非必要，不要用extended。 同时，在混合浮点类型的运算中，编译器为了不丢失精度，临时变量以extended类型存储，所以要避免混合浮点运算。 还有，用const定义的常量，如不加指明，则也默认为extended类型。解决办法是，配合$J指示字，定义指明类型常量（typed constand）。
改变FPU控制字
默认的FPU控制字令除法运算和PII/PIII上的平方...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi中遍历XML文档的实现方法及源代码
XML文档的节点是标准的树形结构，可以通过递归或者回溯算法来遍历所有的节点。 本例使用递归算法为例，制作了2个遍历XML文档的例子。 第一个例子，给出一个XML节点，遍历所有子节点-不包括起始节点。 第二个例子，给出一个XML节点，遍历所给的节点及其下属的所有子节点。 以上2个示例均列举出了XML文档的标签属性和文本值，是比较完整的示例代码。 <?xmlversion=\"1.0\"encoding=\"gb2312\"?> <rootwebsite=\"http://www.why100000.com\"> <channel...
[阅读全文] [PDF]
2008年9月24日qq空间免费换肤代码:delphi图片换肤处理优化修正代码
原来见过一个png图像换肤处理的文章，但其中颜色处理上有些问题，特作优化修正处理，本是回复群友的问题的，所以用的是bmp图片，png图片处理原理是一样的。代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ColorBox1: TColorBox; procedure btn1Clic...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi中求两个时间差值代码
例如在Excel中的a1单元格中的20070124变成2007-01-24,可执行如下公式。left(a1,4)&-&mid(a1,5,2)&-&right(a1,2)例如在a1单元格中有2007-01-24时间，在b1单元格中有2007-02-24时间，要求两者相减，则可用函数days360(a1,b1)，即可算出结果，同理。Delphi中要求计算两者间的公式可用edit1.text:= IntToStr(YearsBetween(datetimepicker1.datetime,datetimepicker2.datetime)...
[阅读全文] [PDF]
2008年9月24日delphi源代码:Delphi特效菜单实现代码
Delphi具有功能强大的菜单设计器，可以很快地实现标准的菜单。但有时候，应用程序需要实现特定类型的菜单，我们常用的如金山毒霸的弹出式菜单就是一例，可以在菜单项里显示自己定义的图片，自己设置的文字以及自设置的菜单项大小。这种菜单称为自绘制菜单(Owner-drawMenuItem)当然，功能不止于此，我们还可以实现更好的菜单。下面就一起来做一个显示大图片和大文字的菜单吧！ 一、程序思路 Delphi在绘制每个菜单时，采用一个比较独特的方法。首先，Delphi会通过菜单的OwnerDraw属性来判定在菜单中是否允许自绘制菜单。若OwnerDraw属性为真(T...
[阅读全文] [PDF]
1 共18条 分1页
