Delphi实现简单TCP服务器范例源码

用delphi编写的rfid读卡器程序，支持epcc1-g2和18000-6b，囊括了所有操作，对于进行rfid开发的人，应该有很大的帮助

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi SQLSERVER停车场收费管理系统，本系统涉及有多个硬件，运行后需要初始化硬件，读取硬件的配置数据，包括控制器。需要联网读取数据，比较综合的一套系统。可对挡车器、停车场照明系统进行管理，可财务报帐、年终结算等功能，主窗口启动时，先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效，设置照明灯自动开关时间，向数据库中写入记录，控制硬件打开挡车器，开始事务：fee_station-结帐次数加1，维护费用AMaintain=0 ,start_fee增加。。。

Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。 　　self.ClientHeight:=200; 　　self.ClientWidth:=200; 　　r:=self.ClientWidth/2; 　　Sect:=20; 　　for i:=0 to Sect-1 do 　　begin 　　 x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2); 　　 y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2); 　　end;

在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。

Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 LogBrush:TLogBrush; 　　begin 　　 LogBrush.lbStyle:=BS_HATCHED; 　　 LogBrush.lbColor:=clRed; 　　 LogBrush.lbHatch:=HS_DIAGCROSS; 　　 Canvas.Brush.Handle := CreateBrushIndirect(LogBrush); 　　 Canvas.FillRect(ClientRect); 　　end;

Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j:integer; 　　begin 　　 j:=0; 　　 For i := 1 to 10 do 　　 begin 　　 if i mod 2 =0 then 　　 Continue; 　　 j := j+i; 　　 Edit1.text := IntToStr(j); 　　 end; 　　end;