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
解决方案 »
- delphi cxgrid 求助
- 写了个钩子,用的是记录钩子。但是在有的机器上会死机,非得按一下ctrl+alt+del才能恢复
- delphi update语句的问题 在线等!!
- OLE container控件控制word之后出现的两个问题(急需回答,谢谢大家!!)
- 问2个有关DBGrid,DBNavigator和combobox控件的问题
- 上机日志的导出问题?~~帮忙啊,帮忙~
- 真是不好意思提问啊?如何让Tedit中只能输入数字和字母啊?蛮急!!!
- [Error] String literals may have at most 255 elements 是什么意思?怎么解决?
- 我把一个控件hide了,现在怎么把它弄出来呢
- 如何编辑动态控件StringGrid
- 局域网聊天----但收不到信息
- 一个错难到我小菜啊
idsmtp1 := Tidsmtp.Create(nil);
idmessage1 := Tidmessage.Create(nil);
//你的代码
idsmtp1.Free;
idmessage1.Free;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————