-
Delphi 邮件短信发送自动通知系统
Delphi 邮件短信自动通知系统,并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能,可添加邮箱帐户自动收集,并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况,部分功能需要依赖于硬件支持。
程序可最小化到windows托盘处显示图标,通过定义好的右键菜单来调出主窗口,虽然是一个发邮件的小程序,但是暗含的Delphi技巧有很多哦,欢迎下载源码研究学习。
1.实现邮件检测功能:
(1)注册账号,注意正确添写POP3服务器,用户名,密码。
2.实现发送短信功能:
(1)在注册账号时要添写正确的手机号码,并选中发送到手机的复选框。
(2)跟据自己购买的GSM模块说明书设置串口参数,一般是“19200,n,8,1”。
(3)添写当地短信中心号码,前面的86可加可不加,如果没有写,系统在按“确定”后会自动加上。
(4)注意:如果短信中含有中文字符,则一定要设成Pdu模式,否则短信可能发送失败。
- 2023-07-27 17:40:06下载
- 积分:1
-
Delphi获取电脑CPU硬件型号名称
Delphi获取电脑CPU硬件型号名称,这个可能不准确,我是64位 I5 3470 CPU,获取出来的是统称,不是太准确,可能是我系统的问题。不过这个代码是前几年书中的代码,现在的硬件发展快,也有可能是代码的问题,运行效果如下。
本获取CPU名称是根据注册表的方法获取的。
- 2022-07-06 23:12:47下载
- 积分:1
-
Delphi添加图层蒙版
Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);
var
bTrans: Byte;
OldStyle: Integer;
begin
form1.Color := clGradientActiveCaption;
WindowState := wsMaximized;
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);
bTrans := 128;
SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);
end;
- 2022-02-06 10:25:25下载
- 积分:1
-
Delphi 提高图像的亮度和对比度
Delphi 提高图像的亮度,每次只能提升一点高度,用着比较麻烦,不过解析图像部分可以借鉴下。以下代码可参考,不过我没发现哪里是调节图片亮度的:
PByte := ImageBmp.scanline[y];
for x:=0 to ImageBmp.Width-1 do
begin
if (PByte[x*3]
- 2023-09-02 06:40:03下载
- 积分:1
-
返回底数的任何次幂-Delphi方法
Delphi 返回底数的任何次幂,本演示求2的4次幂、3的3次幂,求解过程如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FloatToStr(Power(2,4));
Edit2.Text := FloatToStr(Power(3,3));
end;
以上代码定义在按钮事件中,当用户单击按钮后激活。
- 2022-03-01 01:34:29下载
- 积分:1
-
Delphi 全屏播放视频窗口
Delphi 全屏播放视频窗口,这是一个自动全屏的窗口,当你播放视频时,窗口会自动最大化,并且隐藏窗口的标题栏和状态栏,就像播放视频时的全屏效果一样。
- 2022-01-26 06:52:10下载
- 积分:1
-
Delphi数据库编程案例:教材管理系统源码
这是一款基于Delphi和Access数据库的编程案例:教材管理系统源码,经过修正完善后可作为学校的教材管理程序,功能模块主要有:系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
- 2022-04-14 14:29:20下载
- 积分:1
-
Delphi 多帧动画播放
Delphi 多帧动画播放,Delphi将多幅连续的BMP图像显示在一起,形成了动画的效果,类似于GIF的类型动画。每一张图片都是一帧,将帧快速的连起来,就形成了动画效果。
- 2023-07-24 05:15:03下载
- 积分:1
-
EI3.0(DELPHI源码)
EI3.0(DELPHI源码),据说挺完整的,可以下载一下试试
- 2022-03-30 08:16:31下载
- 积分:1
-
Delphi 得到 Windows当前时间的例子
Delphi 获取并显示当前Windows时间的例子,这个例子比较简单了,程序就完成一项功能,打开窗口后,点击按钮,即可获取当前的系统时间,并显示在窗体上,如效果图所示。
- 2022-06-29 06:02:41下载
- 积分:1