http://www.pconline.com.cn/pcedu/empolder/gj/delphi/10205/58403.html
解决方案 »
- EmbeddedWB高手进,如何为webbrowser设置代理服务器,100分求解!结贴快
- listview的单无格里能否加下拉框
- delphi开发连接star500打印机碰到问题
- 我查看了一下,这个opengl的glColor4f函数是设置透明的,可为什么不起作用呢?下面是我的一段程序.
- 如何使POWERPDF支持中文
- 为什么?总线等待。。。。
- 统计程序员使用的输入法是什么。。。。。。。。。。。。。前一百个来者有份。。。。
- 100分,好用的delphi6下载地址,http的
- “类字符串无效”为什么出现这样的错误?
- 小弟急需解决的问题,请各位帮忙解决,感激不尽!
- 8410分求解:如何在发送正文为HTML格式的邮件(同时带附件)!!!
- 如何强制结束一个子线程?
二、编程实战 启动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 thenprocedure 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......
完整源代码http://www.pconline.com.cn/pcedu/empolder/gj/delphi/10205/58405.html