J
jxjx
Unregistered / Unconfirmed
GUEST, unregistred user!
我找了一些资料,但有些看不懂,或者要在D6下解决的。前不久我是 用网易的邮箱的,不需要验证,但现在需要了,
我想请问有什么快而有效的方法吗?
我不知道如何在下面的代码里面加password的登录和验证。请各位大虾帮帮忙,或者用别的控件但要在D5下,行吗?
screen.cursor := crHourGlass;
StatusBar1.Panels[0].Text := 'Wait a moment, please';
SakSMTP1.host := EditHost.text;
SakMsg1.CharSet := EditCharSet.Text;
if ComboBoxEncoding.ItemIndex = 0 then
begin
SakMsg1.TextEncoding := te8Bit;
end else
begin
SakMsg1.TextEncoding := teBase64;
end;
SakMsg1.UserName := EditUserName.text;
SakMsg1.From := EditFrom.text;
SakMsg1.SendTo := EditTo.text;
SakMsg1.Subject := EditSubject.text;
SakMsg1.Text.Assign( Memo1.Lines);
SakSMTP1.connect;
if not SakSMTP1.SMTPError then
begin
BtnCancel.Enabled := true;
SakSMTP1.SendTheMessage( SakMsg1);
BtnCancel.Enabled := false;
SakSMTP1.Disconnect;
StatusBar1.Panels[0].Text := SakSMTP1.ReplyString;
end;
SakMsg1.Free;
SakMsg1 := TSakMsg.Create( self);
screen.cursor := crDefault;
我想请问有什么快而有效的方法吗?
我不知道如何在下面的代码里面加password的登录和验证。请各位大虾帮帮忙,或者用别的控件但要在D5下,行吗?
screen.cursor := crHourGlass;
StatusBar1.Panels[0].Text := 'Wait a moment, please';
SakSMTP1.host := EditHost.text;
SakMsg1.CharSet := EditCharSet.Text;
if ComboBoxEncoding.ItemIndex = 0 then
begin
SakMsg1.TextEncoding := te8Bit;
end else
begin
SakMsg1.TextEncoding := teBase64;
end;
SakMsg1.UserName := EditUserName.text;
SakMsg1.From := EditFrom.text;
SakMsg1.SendTo := EditTo.text;
SakMsg1.Subject := EditSubject.text;
SakMsg1.Text.Assign( Memo1.Lines);
SakSMTP1.connect;
if not SakSMTP1.SMTPError then
begin
BtnCancel.Enabled := true;
SakSMTP1.SendTheMessage( SakMsg1);
BtnCancel.Enabled := false;
SakSMTP1.Disconnect;
StatusBar1.Panels[0].Text := SakSMTP1.ReplyString;
end;
SakMsg1.Free;
SakMsg1 := TSakMsg.Create( self);
screen.cursor := crDefault;