-
Delphi 7在数据库中存取图像
Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。
- 2022-10-12 00:05:03下载
- 积分：1
-
Delphi生成立体字效果
Delphi生成立体字效果，在文字下面增加阴影效果，这个在PS软件中是一个常用的特效，用Delphi也可以实现这种原生效果，阴影大小和面积、角度在代码中可以设置，最终自定义的阴影效果如图所示，实现了一个不错的立体文字效果。
- 2023-07-03 14:00:03下载
- 积分：1
-
Delphi演示UniCode编码、简体繁体互转的方法实现
Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）：
常用编码：
codepage=936 简体中文GBK
codepage=950 繁体中文BIG5
codepage=437 美国/加拿大英语
codepage=932 日文
codepage=949 韩文
codepage=866 俄文
codepage=65001 unicode UTF-8
本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。
- 2023-06-10 00:30:04下载
- 积分：1
-
形象的电子表-Delphi程序
Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考：
vh := Hour/12.0*2*Pi;
vm := Min/60.0*2*Pi;
vs := Sec/60.0*2*Pi;
with Canvas do
begin
Pen.Width:=4;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh)));
Pen.Width:=2;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm)));
Pen.Width:=1;
Pen.Color := clRed;
MoveTo(60,60);
LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs)));
end;
窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。
- 2022-01-27 12:29:32下载
- 积分：1
-
Delphi 百叶窗的方式显示图像
百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。
- 2022-02-04 23:25:14下载
- 积分：1
-
Delphi 将TColor换算成RGB
Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。
- 2023-07-28 04:55:03下载
- 积分：1
-
Delphi 播放指定avi-mid-wav文件
Delphi 播放指定avi-mid-wav文件,这几种都是音频格式，因此这个可以说是播放音频文件的例子，控制面板中包括了常用的播放控制按钮，在此基础上，可写出一个Delphi音乐播放器，当然本源码比较早了，适合学习一些简单的Delphi音频编程技巧。
procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
with MediaPlayer1 do
begin
Filename := OpenDialog1.FileName ;
Open;
DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );
Notify := true;
end;
end;
end;
- 2023-05-08 02:15:02下载
- 积分：1
-
Delphi 文件目录操作
一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。
- 2022-03-15 15:35:17下载
- 积分：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 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。
- 2022-01-25 17:06:08下载
- 积分：1
