-
Delphi 与Java TCPIP通信的范例
这个Delphi例子我觉得值得看，用Java写了TCPIP通信的服务端，用Delphi写了客户端，两者在不同的语言环境下运行，并建立TCPIP通信，服务端的运行效果如示例截图所示。为了不发生消息乱码的现象，两者程序编码采用UTF8格式，用UTF-8格式发送出去，收到的UTF-8数据转成ANSI，这一部分的参考请参见util_utf8.pas文件，消息发送、服务器建立连接部分，请参见Unit1.pas文件。
- 2022-08-23 01:44:09下载
- 积分：1
-
Delphi数据库编程案例：教材管理系统源码
这是一款基于Delphi和Access数据库的编程案例：教材管理系统源码，经过修正完善后可作为学校的教材管理程序，功能模块主要有：系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
- 2022-04-14 14:29:20下载
- 积分：1
-
获取windows System目录路径-Delphi示例
Delphi获取windows System目录路径，这个比较简单，觉得没啥用，只是可以练习一下GetSystemDirectory函数如何使用，下面分享出核心的代码，完整代码需要您下载哦：
begin
GetMem(SysDir,255);
GetSystemDirectory(SysDir,255);
Edit1.Text := SysDir;
end;
- 2022-03-18 16:21:27下载
- 积分：1
-
Delphi在TListView中显示数据库
Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。
self.ListView1.ViewStyle:=vsReport;
for i:=0 to Query1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=Query1.Fields[i].FieldName;
end;
Query1.First;
while not Query1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=Query1.Fields[0].AsString;
for i:=1 to Query1.FieldCount-1 do
begin
TempItem.SubItems.Add(Query1.Fields[i].AsString);
end;
Query1.Next;
end;
- 2023-06-25 00:05:04下载
- 积分：1
-
Delphi实现TdxDBTreeView节点全部展开或收拢
本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能，也就是大家熟悉的树形菜单节点的折叠或展开功能，在平时的使用中，树形节点是很常用的一个菜单功能，本例子的树形菜单节点功能读取自数据库，因此在测试前请连接好数据库。
//单击全部展开按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
dxDBTreeView1.FullExpand;
end;
//单击全部收拢按钮
procedure TForm1.Button2Click(Sender: TObject);
begin
dxDBTreeView1.FullCollapse;
end;
- 2022-01-26 05:17:01下载
- 积分：1
-
Delphi 百叶窗的方式显示图像
百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。
- 2022-02-04 23:25:14下载
- 积分：1
-
Delphi使用AES算法加密源码下载
整合网上下载到的资源（ElAES.pas,AES.pas），在Delphi7下编译后，测试能用
- 2023-07-07 06:10:03下载
- 积分：1
-
Delphi POP3接收邮件-Email客户端例子
Delphi POP3接收邮件-Email源码实例，像是一个邮件客户端那样，设定好邮件服务器相关参数后，可连接到邮件服务器，接收邮件，本例子仅包括邮件接收功能，不能发送邮件哦。使用本程序需要设置的参数：邮件服务器POP3、端口、邮件帐户、密码，连接成功后，邮件列表会显示在“邮件”一栏中，单击任意一个邮件，详细信息会显示在“内容”栏中。
- 2022-12-15 05:00:03下载
- 积分：1
-
窗口中的弹出式右键菜单-delphi源码
窗口中的弹出式右键菜单-delphi PopupMenu源码,
procedure TForm1.Button1Click(Sender: TObject);
var
Poin:TPoint;
begin
Poin := Point(Button1.Left,Button1.Top+Button1.Height);
Poin := ClientToScreen(Poin);
PopupMenu1.Popup(Poin.X,Poin.Y);
end;
- 2022-07-24 15:12:59下载
- 积分：1
-
指纹开发源代码
中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对
(In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)
- 2022-10-15 02:05:03下载
- 积分：1
