SendEmail với các thành phần Indy

Question

tôi cố gắng để gửi một email, nhưng tôi có một vấn đề, tuy nhiên, tôi tìm thấy mã này trên trang web:

Uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, IdMessage, IdTCPConnection, IdTCPClient, 
IdMessageClient, IdSMTP, IdBaseComponent, IdComponent, IdIOHandler, 
IdExplicitTLSClientServerBase, IdSMTPBase 

procedure SendSimpleMail; 
var 
Msg: TIdMessage; 
DestAddr: TIdEmailAddressItem; 
begin 
Msg := TIdMessage.Create(Self); //error here 
Msg.From.Text := 'name'; 
Msg.From.Address := 'username@gmail.com'; 
Msg.Subject := 'Test'; 

DestAddr := Msg.Recipients.Add; 
DestAddr.Text := 'name'; 
DestAddr.Address := 'username@yahoo.com'; 
Msg.Body.Add('simple test mail.'); 

tIdSMTP.Host := 'smtp.gmail.com'; 
tIdSMTP.Port := 25; 
tIdSMTP.AuthenticationType := atLogin; //error here (2 error) 
tIdSMTP.Username := 'username@gmail.com'; 
tIdSMTP.Password := 'password'; 
tIdSMTP.Connect; 
tIdSMTP.Authenticate; 
tIdSMTP.Send(Msg); 
tIdSMTP.Disconnect; 
end; 

Nhưng tuy nhiên, tôi ghi nhận nhiều sai lầm và tôi đang thiếu một thành phần của Indy. lỗi biên dịch:

[DCC Error] Unit1.pas(36): E2003 Undeclared identifier: 'Self' 
[DCC Error] Unit1.pas(46): E2233 Property 'Host' inaccessible here 
[DCC Error] Unit1.pas(47): E2233 Property 'Port' inaccessible here 
[DCC Error] Unit1.pas(48): E2003 Undeclared identifier: 'AuthenticationType' 
[DCC Error] Unit1.pas(48): E2003 Undeclared identifier: 'atLogin' 
[DCC Error] Unit1.pas(49): E2233 Property 'Username' inaccessible here 
[DCC Error] Unit1.pas(50): E2233 Property 'Password' inaccessible here 
[DCC Error] Unit1.pas(51): E2076 This form of method call only allowed for class methods 
[DCC Error] Unit1.pas(52): E2076 This form of method call only allowed for class methods 
[DCC Error] Unit1.pas(53): E2076 This form of method call only allowed for class methods 
[DCC Error] Unit1.pas(54): E2076 This form of method call only allowed for class methods 
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' 

Thanks for the help trước

Answer 1

Mã từ câu hỏi của bạn được viết cho Indy 9 và từ lỗi biên dịch của bạn có vẻ như bạn đang sử dụng Indy 10. lỗi biên dịch của bạn:

• Undeclared identifier: Self - các Self là con trỏ đến cá thể lớp bản thân và vì bạn không viết SendSimpleMail làm phương thức lớp học nhưng cũng giống như một quy trình độc lập, bạn không có bất kỳ Self chỉ vì bạn không có bất kỳ lớp nào. Phương thức lớp bạn có thể viết ví dụ cho lớp biểu mẫu của bạn, ví dụ: TForm1.SendSimpleMail, trong đó bên trong của phương thức đó, Self sẽ có ý nghĩa của cá thể TForm1, chính biểu mẫu đó.

• Và phần còn lại của các lỗi bạn nhận được vì bạn đang truy cập vào lớp TIdSMTP, không phải là trường hợp đối tượng. Thực hành thường được sử dụng là khai báo một biến cục bộ, tạo một cá thể đối tượng gán nó cho biến đó, làm việc với đối tượng đó (biến) và giải phóng cá thể đối tượng.

tôi sẽ cố gắng một cái gì đó như thế này (thử nghiệm với Indy 10 vận chuyển với Delphi 2009):

uses 
    IdSMTP, IdMessage, IdEMailAddress; 

procedure SendSimpleMail; 
var 
    IdSMTP: TIdSMTP; 
    IdMessage: TIdMessage; 
    IdEmailAddressItem: TIdEmailAddressItem; 
begin 
    IdSMTP := TIdSMTP.Create(nil); 
    try 
    IdSMTP.Host := 'smtp.gmail.com'; 
    IdSMTP.Port := 25; 
    IdSMTP.AuthType := satDefault; 
    IdSMTP.Username := 'username@gmail.com'; 
    IdSMTP.Password := 'password'; 
    IdSMTP.Connect; 
    if IdSMTP.Authenticate then 
    begin 
     IdMessage := TIdMessage.Create(nil); 
     try 
     IdMessage.From.Name := 'User Name'; 
     IdMessage.From.Address := 'username@gmail.com'; 
     IdMessage.Subject := 'E-mail subject'; 
     IdMessage.Body.Add('E-mail body.'); 

     IdEmailAddressItem := IdMessage.Recipients.Add; 
     IdEmailAddressItem.Address := 'recipient@email.com'; 

     IdSMTP.Send(IdMessage); 
     finally 
     IdMessage.Free; 
     end; 
    end; 
    IdSMTP.Disconnect; 
    finally 
    IdSMTP.Free; 
    end; 
end; 

Answer 2

Đối với google SMTP bạn cần phải sử dụng TLS hoặc SSL! http://support.google.com/mail/bin/answer.py?hl=en&answer=13287

Mẫu quy trình của bạn được viết cho INDY9 và nếu bạn sử dụng INDY10 không thể biên dịch. Bạn cần điều chỉnh.