program Project1;uses
windows,messages,IDsmtp,IDmessage;{$R *.res}var
idsmtp1:TIdsmtp;
idmessage1:TIdmessage;
begin
idmessage1.Recipients.EMailAddresses:='[email protected]';
idmessage1.Subject:='abc100';
idmessage1.from.Address:='[email protected]';
idmessage1.Body.Add('发送邮件');
idsmtp1.host:='smtp.163.com';
idsmtp1.port:=25;
idsmtp1.Username:='f2000';
idsmtp1.password:='7hh31';
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
end.编译后提示检测到错误类 EAccessViolation
windows,messages,IDsmtp,IDmessage;{$R *.res}var
idsmtp1:TIdsmtp;
idmessage1:TIdmessage;
begin
idmessage1.Recipients.EMailAddresses:='[email protected]';
idmessage1.Subject:='abc100';
idmessage1.from.Address:='[email protected]';
idmessage1.Body.Add('发送邮件');
idsmtp1.host:='smtp.163.com';
idsmtp1.port:=25;
idsmtp1.Username:='f2000';
idsmtp1.password:='7hh31';
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
end.编译后提示检测到错误类 EAccessViolation
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货