我不知道这个内容应该填什么?我试了一下用户名,密码,都失败了。
请帮帮我。
请帮帮我。
解决方案 »
- 请教一个记录方面的问题(问题简单,请各位赐教)
- 这样标记的数据怎么去解析?
- 需要TMS INTRAWEB 9.0.15 for D2007 的源码文件。
- Delphi中字串长度超过255,如何解决?
- 今天去一家公司面试,老板要我先学好dephi在去找他谈!
- SQLServe中的SubString()功能,在Access中要用什么来表达。
- 我需要处理PSD、 AI等格式的文件,象WINDOWS的图象预览功能那样!
- 哪有纯免费的类QQ的控件,100分送
- asp到delphi的转变
- 高手请进:50分求解!
- 我在使用TNMSmtp控件时怎么老是出现Authentication failure,该怎么解决? 多谢!!!
- 问个制作安装程序的问题,越详细的越好..
unit frmSendEMail;interfaceuses
Windows, NMsmtp, classes, Sysutils, Forms;type
Tevendesc = class
private
class procedure NMSMTPConnect(Sender: TObject);
end; function SendM_E_Mail(Host: String; Port: Integer; FromAddress: String; ToAddressList: TStringList;
aUserName, aPassword: string; Subject: String = ''; Body: TStringList = nil): Boolean;
function SendA_E_Mail(Host: String; Port: Integer; FromAddress: String; ToAddress: String;
aUserName, aPassword: string; Subject: String = ''; Body: TStringList = nil): Boolean; implementationconst
BaseTable = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
var
fNMSMTP: TNMSMTP;
fUserName, fPassword: String;
function EncodeBase64(Source: string): string;
var
Times, LenSrc, i: Integer;
x1, x2, x3, x4: Char;
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);
if LenSrc mod 3 = 0 then
Times := LenSrc div 3
else
Times := LenSrc div 3 + 1;
for i := 0 to Times - 1 do
begin
if LenSrc >= (3 + i * 3) then
begin
x1 := BaseTable[(ord(Source[1 + i * 3]) shr 2)+1];
xt := (ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
xt := xt or (Ord(Source[3 + i * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (ord(Source[3 + i * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + i * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2) + 1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2)+1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;function GeneralFromEmailAddress(aHost: String; aUserName: String): String;
var
iPos: Integer;
tempString: String;
begin
Result := '';
if Pos('.', aHost) > 0 then
tempString := Copy(aHost, Pos('.', aHost) + 1, Length(aHost) - Pos('.' , aHost));
if Pos('.', tempString) > 0 then
tempString := Copy(tempString, Pos('.', tempString) + 1, Length(tempString) - Pos('.' , tempString));
if Pos('.', tempString) > 0 then
Exit;
iPos := Pos('.', aHost);
if iPos > 0 then
begin
Result := aUserName + '@' + Copy(aHost, iPos + 1, Length(aHost) - iPos);
end;
end;procedure SetHost(aNMSMTP: TNMSMTP; Host: String; Port: Integer; UserID: String);
begin
aNMSMTP.Host := Host;
aNMSMTP.Port := Port;
if UserID <> '' then
aNMSMTP.UserID := UserID;
aNMSMTP.TimeOut := 1000;
aNMSMTP.OnConnect := Tevendesc.NMSMTPConnect;
end;procedure SetConnection(aNMSMTP: TNMSMTP);
begin
if not aNMSMTP.Connected then
aNMSMTP.Connect;
end;procedure SetAndSendMail(aNMSMTP: TNMSMTP; FromAddress: String;
Subject: String = ''; Body: TStringList = nil);
begin
//if (aNMSMTP.ReplyNumber = 235) or (aNMSMTP.ReplyNumber = 500) or (fUserName = '') then
//begin
try
aNMSMTP.Charset := 'GB2312_CHARSET ';
aNMSMTP.PostMessage.FromAddress := FromAddress;
aNMSMTP.PostMessage.Subject := Subject;
if Body <> nil then
aNMSMTP.PostMessage.Body.Text := Body.Text;
aNMSMTP.PostMessage.Date := DateToStr(Now());
aNMSMTP.SendMail;
if aNMSMTP.Connected then
aNMSMTP.Disconnect;
except end;
//end;
if (aNMSMTP.ReplyNumber <> 235) and (fUserName = '') then
;//Application.MessageBox('', '', 0);
end;function SendM_E_Mail(Host: String; Port: Integer; FromAddress: String; ToAddressList: TStringList;
aUserName, aPassword: string; Subject: String = ''; Body: TStringList = nil): Boolean;
var
aFromAddress: String;
begin
fUserName := aUserName;
fPassword := aUserName;
fNMSMTP := TNMSMTP.Create(nil);
try
try
SetHost(fNMSMTP, Host, Port, aUserName);
SetConnection(fNMSMTP);
fNMSMTP.PostMessage.ToAddress.Text := ToAddressList.Text;
aFromAddress := GeneralFromEmailAddress(Host, fUserName);
if aFromAddress = '' then
aFromAddress := FromAddress;
SetAndSendMail(fNMSMTP, aFromAddress, Subject, Body);
Result := True;
except
Result := False;
end;
finally
fNMSMTP.Free;
end;
end;function SendA_E_Mail(Host: String; Port: Integer; FromAddress: String; ToAddress: String;
aUserName, aPassword: string; Subject: String = ''; Body: TStringList = nil): Boolean;
var
aFromAddress: String;
begin
fUserName := aUserName;
fPassword := aPassword;
fNMSMTP := TNMSMTP.Create(nil);
try
try
SetHost(fNMSMTP, Host, Port, aUserName);
SetConnection(fNMSMTP);
fNMSMTP.PostMessage.ToAddress.Text := ToAddress;
aFromAddress := GeneralFromEmailAddress(Host, fUserName);
if aFromAddress = '' then
aFromAddress := FromAddress;
SetAndSendMail(fNMSMTP, aFromAddress, Subject, Body);
Result := True;
except
Result := False;
end;
finally
fNMSMTP.Free;
end;
end;{ Tevendesc }class procedure Tevendesc.NMSMTPConnect(Sender: TObject);
begin
if fNMSMTP.ReplyNumber <> 500 then
begin
if fNMSMTP.ReplyNumber = 250 then
fNMSMTP.Transaction('auth login');//开始认证
if fNMSMTP.ReplyNumber = 334 then
begin
fNMSMTP.Transaction(EncodeBase64(fUserName)); // 处理用户名
fNMSMTP.Transaction(EncodeBase64(fPassword)); // 处理密码
end;
end;
end;end.