-
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 格式化DataGrid表格中的数据
Delphi 格式化DataGrid表格中的数据,DataGrid网格列表在各种编程的数据库显示方面都使用广泛,因此对于Delphi的数据库编程,DataGrid的使用技巧是一定要撑握的,本源码所要演示的就是一个使用DataGrid的简单例子,将DataGrid表格中的数据格式式成你想要的格式,测试前请确保Delphi与数据库正常连接且有数据。
- 2022-01-25 15:23:01下载
- 积分:1
-
Delphi 目录操作范例:改变当前目录
Delphi 目录操作范例:改变当前目录,先获取当前的目录路径,然后改变这个目录路径,文件当前在此目录,那么如何修改文件路径呢?
procedure TForm1.Button1Click(Sender: TObject);
begin
try
chdir(Edit2.Text);
finally
getdir(0,result);
Edit2.Text := result;
end;
end;
源代码仅供参考。
- 2022-11-19 16:05:03下载
- 积分:1
-
Delphi 改变当前鼠标样式
Delphi 改变当前鼠标样式,这个样式比较个性了,把箭头状的鼠标指针替换成了一幅图像,还有动画效果。具体实现,请下载本源码一看究竟。本程序具备的功能是可以选择的,用户可选择改变鼠标的形状是否是当前窗口或系统,选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。
- 2023-07-31 03:10:03下载
- 积分:1
-
Delphi 7.0 显示密码编辑框中的密码
Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:
L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1
GetMem(Name,L);//为将要得到的名字分配内存
GetWindowText(Edit1.handle,Name,L);//得到名字
label1.Caption:=String(Name);//将得到的名字显示于Label1
FreeMem(Name,0); //释放分配的内存
完整的源代码请下载。
- 2022-04-06 19:23:17下载
- 积分:1
-
Delphi 利用API绘制弧形
Delphi 利用API绘制弧形,
begin
ArcRect := ClientRect;
Canvas.Pen.Width:=2;
for i:=1 to 10 do
begin
Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
InflateRect(ArcRect,-2,-2);
Canvas.Pen.Color := PaletteIndex(i+10);
end;
- 2022-03-21 03:44:09下载
- 积分:1
-
Delphi 演示使用演示Brush对象的各种风格
Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
- 2022-07-08 18:13:17下载
- 积分:1
-
Delphi 全屏播放视频窗口
Delphi 全屏播放视频窗口,这是一个自动全屏的窗口,当你播放视频时,窗口会自动最大化,并且隐藏窗口的标题栏和状态栏,就像播放视频时的全屏效果一样。
- 2022-01-26 06:52:10下载
- 积分:1
-
Delphi 获取磁盘序号
Delphi 获取磁盘序号,获取序号非磁盘编号,也不是序列号。运行后的效果如图所示,应该是所选择的磁盘在我的电脑中的排列序号。
操作时,只需选择对应的盘符,然后单击按钮即可,请参见测试截图所示。
- 2022-07-24 20:22:04下载
- 积分:1
-
Delphi 实现窗体的全屏显示效果
Delphi 实现窗体的全屏显示效果,单击按钮后即可全屏。
- 2023-03-25 11:25:03下载
- 积分:1