2022年Delphi让你发送Flash电子邮件(2)Delphi教程.docx

《2022年Delphi让你发送Flash电子邮件(2)Delphi教程.docx》由会员分享，可在线阅读，更多相关《2022年Delphi让你发送Flash电子邮件(2)Delphi教程.docx（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年Delphi让你发送Flash电子邮件(2)Delphi教程 Delphi让你发送Flash电子邮件完整源代码: {*Unit1.pas源代码内容如下*}unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Psock, NMsmtp;typeTForm1 = class(TForm)Label1: TLabel;txtTo: TEdit;Label2: TLabel;txtFrom:

2、TEdit;Label3: TLabel;txtSubject: TEdit;Label4: TLabel;memContents: TMemo;Label5: TLabel;txtUserName: TEdit;Label6: TLabel;txtPassword: TEdit;chkSmtpVerify: TCheckBox;btnSend: TButton;btnOpen: TButton;txtSwfFile: TEdit;Label7: TLabel;OpenDialog1: TOpenDialog;Label8: TLabel;txtSmtpServer: TEdit;NMSMTP

3、1: TNMSMTP;Label9: TLabel;txtPort: TEdit;procedure btnOpenClick(Sender: TObject);procedure btnSendClick(Sender: TObject);procedure NMSMTP1SendStart(Sender: TObject);procedure NMSMTP1Connect(Sender: TObject);procedure chkSmtpVerifyClick(Sender: TObject);private{ Private declarations }public

4、{ Public declarations }end;varForm1: TForm1;function EncodeString(Decoded:string):String;function EncodeBASE64(Encoded: TMemoryStream {TMailText} Decoded: TMemoryStream): Integer; /编码函数implementation{$R *.dfm}{对参数TMemoryStrema中的字节流进行Base64编码，编码后的结果保存在Encoded中，函

5、数返回编码长度}function EncodeBASE64(Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;const_Code64: String64 =(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);varI: LongInt;B: array0.2279 of Byte;J, K, L, M, Quads: Integer;Stream: string76;EncLine: String;beginEncoded.Clear;

6、Stream := ;Quads := 0;{为提高效率，每2280字节流为一组进行编码}J := Decoded.Size div 2280;Decoded.Position := 0;{对前J*2280个字节流进行编码}for I := 1 to J dobeginDecoded.Read(B, 2280);for M := 0 to 39 dobeginfor K := 0 to 18 dobeginL:= 57*M + 3*K;StreamQuads+1 := _Code64(BL div 4)+1;StreamQuads+2 := _Code6

7、4(BL mod 4)*16 + (BL+1 div 16)+1;StreamQuads+3 := _Code64(BL+1 mod 16)*4 + (BL+2 div 64)+1;StreamQuads+4 := _Code64BL+2 mod 64+1;Inc(Quads, 4);if Quads = 76 thenbeginStream0 := #76;EncLine := Stream+#13#10;Encoded.Write(EncLine1, Length(EncLine);Quads := 0;end;end;end;end;{对以2280为模的余数字节流进行编码

8、25;J := (Decoded.Size mod 2280) div 3;for I := 1 to J dobeginDecoded.Read(B, 3);StreamQuads+1 := _Code64(B0 div 4)+1;StreamQuads+2 := _Code64(B0 mod 4)*16 + (B1 div 16)+1;StreamQuads+3 := _Code64(B1 mod 16)*4 + (B2 div 64)+1;StreamQuads+4 := _Code64B2 mod 64+1;Inc(Quads, 4);{每行76个字符}if Qua

9、ds = 76 thenbeginStream0 := #76;EncLine := Stream+#13#10;Encoded.Write(EncLine1, Length(EncLine);Quads := 0;end;end;{“=”补位}if (Decoded.Size mod 3) = 2 thenbeginDecoded.Read(B, 2);StreamQuads+1 := _Code64(B0 div 4)+1;StreamQuads+2 := _Code64(B0 mod 4)*16 + (B1 div 16)+1;StreamQuads+3 := _Co

10、de64(B1 mod 16)*4 + 1;StreamQuads+4 := =;Inc(Quads, 4);end;if (Decoded.Size mod 3) = 1 thenbeginDecoded.Read(B, 1);StreamQuads+1 := _Code64(B0 div 4)+1;StreamQuads+2 := _Code64(B0 mod 4)*16 + 1;StreamQuads+3 := =;pageStreamQuads+4 := =;Inc(Quads, 4);end;Stream0 := Chr(Quads);if Quads > 0 thenbegi

11、nEncLine := Stream+#13#10;Encoded.Write(EncLine1, Length(EncLine);end;Result := Encoded.Size;end;{对参数Decoded字符串进行Base64编码，返回编码后的字符串}function EncodeString(Decoded:string):String;varmmTemp,mmDecoded:TMemoryStream;strTemp:TStrings;beginmmTemp := TMemoryStream.Create;mmDecoded:=TMemoryStream.C

12、reate;strTemp:=TStringList.Create;strTemp.Add(Decoded);strTemp.SaveToStream(mmTemp);mmTemp.Position := 0;{剔除mmTemp从strTemp中带来的字符#13#10}mmDecoded.CopyFrom(mmTemp,mmTemp.Size-2);{对mmDecoded进行Base64编码，由mmTemp返回编码后的结果}EncodeBASE64(mmTemp,mmDecoded);{获得Base64编码后的字符串}mmTemp.P

13、osition:=0;strTemp.LoadFromStream(mmTemp);{返回结果必需从strTemp0中获得，假如运用strTemp.Text会带来不必要的字符#13#10}Result:=strTemp0;end;procedure TForm1.btnOpenClick(Sender: TObject);begin{打开对话框，选择SWF文件}if OpenDialog1.Execute thenbeginnd;end;procedure TForm1.btnSendClick(Sender: TObject);varmmSwfFile

14、,mmEncoded:TMemoryStream;iResult:Integer;strsTemp:TStrings;strContents:TStringList;i:Integer;begin{验证用户输入信息}if txtTo.Text= thenbeginShowMessage(请输入收信人！);Exit;end;if txtFrom.Text= thenbeginShowMessage(请输入发信人！);Exit;end;if txtSmtpServer.Text= thenbeginShowMessage(请输入SMTP服务器！);Exit;end;if txt

15、Port.Text= thenbeginShowMessage(请输入端口号！);Exit;end;if txtSwfFile.Text= thenbeginShowMessage(请选择SWF文件!);Exit;end;{检验服务器认证的用户名和密码}if chkSmtpVerify.Checked = True thenif (txtUserName.Text=) or (txtPassword.Text=) thenbeginShowMessage(您已选择SMTP服务器须要认证+#13#10+请输入用户名和密码！);Exit;end;{设置SMTP服务器地

16、址、端口}NMSMTP1.Host:=txtSmtpServer.Text;NMSMTP1.Port:=StrToInt(txtPort.Text);{断开原来的连接，保证TForm1.NMSMTP1Connect中服务器认证的执行}if NMSMTP1.Connected thenbeginNMSMTP1.Disconnect;end;{连接服务器}NMSMTP1.Connect;{创建流}mmSwfFile:=TMemoryStream.Create;mmEncoded:=TMemoryStream.Create;

17、23;加载文件至流mmSwfFile}mmSwfFile.LoadFromFile(txtSwfFile.Text);{对mmSwfFile进行Base64编码，mmEncoded为编码后内容}iResult:=EncodeBASE64(mmEncoded,mmSwfFile);strsTemp:=TStringList.Create;mmEncoded.Position:=0;strsTemp.LoadFromStream(mmEncoded);{-生成邮件内容-}strContents:=TStringList.Create;strCont

18、ents.Add(-SwfEmail by JDH);strContents.Add(Content-Type: text/html; charset=gb2312);strContents.Add(Content-Transfer-Encoding: 8bit);{留意：空行是邮件格式所必需的！}strContents.Add();strContents.Add(< HTML >< HEAD >< TITLE >SWFEMAIL< /TITLE >< /HEAD >);strContents.Add(< B

19、ODY >);{添加邮件正文内容}for i:=0 to memContents.Lines.Count-1 dobeginstrContents.Add(memContents.Linesi + < br >);end;{添加SWF文件相关内容}strContents.Add(< object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=cabs/flash/swflash.cab#version=5,0,0,0>);strContents.Add

20、(< param name=movie value=cid:jdh_swfemail001 >);strContents.Add(< param name=quality value=high >);strContents.Add(< embed src=cid:jdh_swfemail001 quality=high pluginspage=P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash >);strContents.Add(< /embed>< /obj

21、ect >< /BODY >< /HTML >);strContents.Add();strContents.Add(-SwfEmail by JDH);strContents.Add(Content-Type: image/swf);strContents.Add(Content-ID: < jdh_swfemail001 >);strContents.Add(Content-Transfer-Encoding: base64);strContents.Add(Content-Disposition: inline; filename=+ExtractFileName(txtSwfFile.Text)+ );strContents.Add();strCon