前言：

　　現(xiàn)在很多STMP服務(wù)器在發(fā)送郵件時(shí)均需重新認(rèn)證一遍，而Delphi的TNMSMTP控件對(duì)它沒有很“可視化”的支持，使很多人在開發(fā)過(guò)程中大打問(wèn)號(hào)。

　　由于前段時(shí)間在做《CSDN查詢助手》的時(shí)候，使用的也是需認(rèn)證的服務(wù)器（163.com）。從其它地方摘取了部分代碼得以解決，現(xiàn)在此發(fā)布與大家共享。

實(shí)現(xiàn)：

1、在NMSMTP的OnConnect事件中添加代碼：

var  strUserName, strPassword: String;
begin
  strUserName := EncodeString('CoolSlob');//CoolSlob是服務(wù)器的帳號(hào)
  strPassword := EncodeString('Password');//Password是密碼
  {進(jìn)行認(rèn)證，輸入編碼后的用戶名、密碼}
  nmsmtp1.Transaction('EHLO') ;
  nmsmtp1.Transaction('AUTH LOGIN');
  nmsmtp1.Transaction(strUserName);
  nmsmtp1.Transaction(strPassword);
  StatusBar1.SimpleText := '連接成功';
end;

2、EncodeString函數(shù)實(shí)現(xiàn)過(guò)程：

{對(duì)參數(shù)Decoded字符串進(jìn)行Base64編碼，返回編碼后的字符串}
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 := 0;
    {剔除mmTemp從strTemp中帶來(lái)的字符#13#10}
    mmDecoded.CopyFrom(mmTemp,mmTemp.Size-2);
    {對(duì)mmDecoded進(jìn)行Base64編碼，由mmTemp返回編碼后的結(jié)果}
    EncodeBASE64(mmTemp,mmDecoded);
    {獲得Base64編碼后的字符串}
    mmTemp.Position:=0;
    strTemp.LoadFromStream(mmTemp);
    {返回結(jié)果必須從strTemp[0]中獲得，如果使用strTemp.Text會(huì)
    帶來(lái)不必要的字符#13#10}
    Result:=strTemp[0];
end;

3、EncodeBASE64函數(shù)實(shí)現(xiàn)過(guò)程：

function EncodeBASE64(Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;
const
    _Code64: String[64] =
        ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/');
var
    I: LongInt;
    B: array[0..2279] of Byte;
    J, K, L, M, Quads: Integer;
    Stream: string[76];
    EncLine: String;
begin
    Encoded.Clear;
    Stream := '';
    Quads := 0;
    {為提高效率，每2280字節(jié)流為一組進(jìn)行編碼}
    J := Decoded.Size div 2280;
    Decoded.Position := 0;
    {對(duì)前J*2280個(gè)字節(jié)流進(jìn)行編碼}
    for I := 1 to J do
    begin
        Decoded.Read(B, 2280);
        for M := 0 to 39 do
        begin
            for K := 0 to 18 do
            begin
                L:= 57*M + 3*K;
                Stream[Quads+1] := _Code64[(B[L] div 4)+1];
                Stream[Quads+2] := _Code64[(B[L] mod 4)*16 + (B[L+1] div 16)+1];
                Stream[Quads+3] := _Code64[(B[L+1] mod 16)*4 + (B[L+2] div 64)+1];
                Stream[Quads+4] := _Code64[B[L+2] mod 64+1];
                Inc(Quads, 4);
                if Quads = 76 then
                begin
                    Stream[0] := #76;
                    EncLine := Stream+#13#10;
                    Encoded.Write(EncLine[1], Length(EncLine));
                    Quads := 0;
                end;
            end;
        end;
    end;

    {對(duì)以2280為模的余數(shù)字節(jié)流進(jìn)行編碼}
    J := (Decoded.Size mod 2280) div 3;
    for I := 1 to J do
    begin
        Decoded.Read(B, 3);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + (B[2] div 64)+1];
        Stream[Quads+4] := _Code64[B[2] mod 64+1];
        Inc(Quads, 4);
        {每行76個(gè)字符}
        if Quads = 76 then
        begin
            Stream[0] := #76;
            EncLine := Stream+#13#10;
            Encoded.Write(EncLine[1], Length(EncLine));
            Quads := 0;
        end;
    end;
    {“=”補(bǔ)位}
    if (Decoded.Size mod 3) = 2 then
    begin
        Decoded.Read(B, 2);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + 1];
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    if (Decoded.Size mod 3) = 1 then
    begin
        Decoded.Read(B, 1);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + 1];
        Stream[Quads+3] := '=';
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    Stream[0] := Chr(Quads);
    if Quads > 0 then
    begin
        EncLine := Stream+#13#10;
        Encoded.Write(EncLine[1], Length(EncLine));
    end;

    Result := Encoded.Size;
end;