快讯

	首页 > 软件 > 开发特区 > 开发语言 > Delphi > 正文	世界杯

Delphi让你发送Flash电子邮件(1)

2004-02-14 09:34 出处：电脑爱好者 作者：江德华 责任编辑：zwg

在本页浏览全文

二、编程实战 　　启动Delphi 5，参考图1在Form1上创建各种控件。图中黑色方框内标明了控件名称，其中txt前缀表示TEdit控件，mem前缀表示TMemo控件，chk前缀表示TCheckbox控件，btn前缀表示TButton控件，NMSMTP1是TNMSMTP控件，OpenDialog1是TOpenDialog控件。图2列出了一部分控件的某些关键属性。 现在添加代码如下： {******Unit1.pas源代码内容如下******} unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Psock, NMsmtp; type ...... procedure TForm1.btnOpenClick(Sender: TObject); begin {打开对话框，选择SWF文件} if OpenDialog1.Execute then procedure TForm1.NMSMTP1SendStart(Sender: TObject); begin {在邮件发送开始时修改邮件的消息头，标明邮件为多部分组成} NMSMTP1.FinalHeader.Values['Content-Type'] := 'multipart/related; boundary="------------SwfEmail by JDH"'; end; procedure TForm1.chkSmtpVerifyClick(Sender: TObject); begin {根据是否需要SMTP服务器认证，改变用户名、密码状态} if chkSmtpVerify.Checked = True then ...... 完整源代码请点击　这里　查看 三、程序运行 　　首先在Delphi 5中编译运行，接着在对话框中输入收信人、发信人、主题、正文内容以及SMTP服务器，比如填写“smtp.263.net”，端口号使用默认的25，选中“SMTP服务器需要认证”，并根据发信人输入用户名、密码。单击“打开文件”按钮，选择要发送的Flash动画文件，确认无误后，单击“发送”按钮即可。发送成功后，会出现发信成功

上一页 12在本页浏览全文

键盘也能翻页，试试“← →”键