知识大全使用TNMSMTP控件在需认证服务器上发送邮件

Posted 2022-07-21 知

篇首语：古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全使用TNMSMTP控件在需认证服务器上发送邮件相关的知识，希望对你有一定的参考价值。

使用TNMSMTP控件在需认证服务器上发送邮件 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　前言　　现在很多STMP服务器在发送邮件时均需重新认证一遍而Delphi的TNMSMTP控件对它没有很可视化的支持使很多人在开发过程中大打问号

　　由于前段时间在做《CSDN查询助手》的时候使用的也是需认证的服务器（）从其它地方摘取了部分代码得以解决现在此发布与大家共享

　　实现

　　在NMSMTP的OnConnect事件中添加代码

var strUserName strPassword: String;begin strUserName := EncodeString( CoolSlob );//CoolSlob是服务器的帐号 strPassword := EncodeString( Password );//Password是密码进行认证输入编码后的用户名密码 nmsmtp Transaction( EHLO ) ; nmsmtp Transaction( AUTH LOGIN ); nmsmtp Transaction(strUserName); nmsmtp Transaction(strPassword); StatusBar SimpleText := 连接成功 ;end;

　　 EncodeString函数实现过程

对参数Decoded字符串进行Base 编码返回编码后的字符串function EncodeString(Decoded:string):String;var mmTemp mmDecoded:TMemoryStream; strTemp:TStrings;begin mmTemp := TMemoryStream Create; mmDecoded:=TMemoryStream Create; strTemp:=TStringList Create; strTemp Add(Decoded); strTemp SaveToStream(mmTemp); mmTemp Position := ; 剔除mmTemp从strTemp中带来的字符# # mmDecoded CopyFrom(mmTemp mmTemp Size ); 对mmDecoded进行Base 编码由mmTemp返回编码后的结果 EncodeBASE (mmTemp mmDecoded); 获得Base 编码后的字符串 mmTemp Position:= ; strTemp LoadFromStream(mmTemp); 返回结果必须从strTemp[ ]中获得如果使用strTemp Text会带来不必要的字符# # Result:=strTemp[ ];end;

　　 EncodeBASE 函数实现过程

function EncodeBASE (Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;const _Code : String[ ] = ( ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz +/ );var I: LongInt; B: array[ ] of Byte; J K L M Quads: Integer; Stream: string[ ]; EncLine: String;begin Encoded Clear; Stream := ; Quads := ; 为提高效率每字节流为一组进行编码 J := Decoded Size div ; Decoded Position := ; 对前J* 个字节流进行编码 for I := to J do begin Decoded Read(B ); for M := to do begin for K := to do begin L:= *M + *K; Stream[Quads+ ] := _Code [(B[L] div )+ ]; Stream[Quads+ ] := _Code [(B[L] mod )* + (B[L+ ] div )+ ]; Stream[Quads+ ] := _Code [(B[L+ ] mod )* + (B[L+ ] div )+ ]; Stream[Quads+ ] := _Code [B[L+ ] mod + ]; Inc(Quads ); if Quads = then begin Stream[ ] := # ; EncLine := Stream+# # ; Encoded Write(EncLine[ ] Length(EncLine)); Quads := ; end; end; end; end;

对以为模的余数字节流进行编码 J := (Decoded Size mod ) div ; for I := to J do begin Decoded Read(B ); Stream[Quads+ ] := _Code [(B[ ] div )+ ]; Stream[Quads+ ] := _Code [(B[ ] mod )* + (B[ ] div )+ ]; Stream[Quads+ ] := _Code [(B[ ] mod )* + (B[ ] div )+ ]; Stream[Quads+ ] := _Code [B[ ] mod + ]; Inc(Quads ); 每行个字符 if Quads = then begin Stream[ ] := # ; EncLine := Stream+# # ; Encoded Write(EncLine[ ] Length(EncLine)); Quads := ; end; end; = 补位 if (Decoded Size mod ) = then begin Decoded Read(B ); Stream[Quads+ ] := _Code [(B[ ] div )+ ]; Stream[Quads+ ] := _Code [(B[ ] mod )* + (B[ ] div )+ ]; Stream[Quads+ ] := _Code [(B[ ] mod )* + ]; Stream[Quads+ ] := = ; Inc(Quads ); end;

if (Decoded Size mod ) = then begin Decoded Read(B ); Stream[Quads+ ] := _Code [(B[ ] div )+ ]; Stream[Quads+ ] := _Code [(B[ ] mod )* + ]; Stream[Quads+ ] := = ; Stream[Quads+ ] := = ; Inc(Quads ); end;

Stream[ ] := Chr(Quads); if Quads > then begin EncLine := Stream+# # ; Encoded Write(EncLine[ ] Length(EncLine)); end;

cha138/Article/program/Delphi/201311/25054

知识大全 使用TNMSMTP控件在需认证服务器上发送邮件

知识大全使用TNMSMTP控件在需认证服务器上发送邮件