DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: szliyu112358
今日帖子: 49
在线用户: 12
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 beginner999 (beginner999) ★☆☆☆☆ -
盒子活跃会员
2003/5/30 15:19:58
标题:
为何运行到:nmsmtp.connect时就出错? 浏览:2903
加入我的收藏
楼主: procedure TForm1.Button2Click(Sender: TObject);
begin
  if nmsmtp1.Connected=false then
  begin
  NMSMTP1.Host   := 'smtp.sohu.com';
  NMSMTP1.UserID := 'luxingpu678';
  
  NMSMTP1.Connect;
  end;
  NMSMTP1.PostMessage.FromAddress       := 'luxingpu678@sohu.com';
  NMSMTP1.PostMessage.ToAddress.Text    := 'beginner999@163.com';
  NMSMTP1.PostMessage.ToCarbonCopy.Text := 'luxingpu678@sohu.com';
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'luxingpu678@sohu.com';
  NMSMTP1.PostMessage.Body.Text         := 'This is the message';
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\code.txt'; 
  NMSMTP1.PostMessage.Subject           := 'Mail subject'; 
  NMSMTP1.SendMail; 
  ShowMessage('Mail sent !'); 
  NMSMTP1.Disconnect;
end;

----------------------------------------------
-
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2003/5/30 19:36:13
1楼: 亲爱的,用户名和密码呢?userid不是用户名和密码啊,nmsmtp不可以这样用,要增加一些东西或者用其他的。
TMD,找了半天也找不到那篇文章了。
http://61.132.118.185:8080/dispdocnew.php?id=2909
我的一个小程序,里面有关于nmsmtp的用法。
找不到下在地址电极这个:
http://61.132.118.185:8080/datanew/盖微信使.exe
----------------------------------------------
http://www.gaiwei.com
作者:
男 beginner999 (beginner999) ★☆☆☆☆ -
盒子活跃会员
2003/5/30 20:09:15
2楼: 首先感谢楼上老兄,但是源码空间要收费的,我没有钱。后一个下载中出错,有没有别的办法啊?谢谢!
----------------------------------------------
-
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2003/5/31 0:32:51
3楼: 用蚂蚁,或者flashget,
----------------------------------------------
http://www.gaiwei.com
作者:
男 beginner999 (beginner999) ★☆☆☆☆ -
盒子活跃会员
2003/5/31 15:46:32
4楼: 用了也不行啊!总提示有错误发生,5秒后重试!
----------------------------------------------
-
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2003/5/31 17:16:36
5楼: 帮人帮到底,你可以这样断线再续:
直接点击,等出错时,确定,然后赶紧再点击,还保存到原来的位置即可。呵呵:-)。下完了,请我吃饭:-()
----------------------------------------------
http://www.gaiwei.com
作者:
女 yjcheng (sunny) ★☆☆☆☆ -
盒子活跃会员
2003/5/31 21:21:03
6楼: procedure TForm1.Button1Click(Sender: TObject);
建议看看delphi的帮助,里面都有!!!

begin
  Powersock1.Host := 'www.netmastersllc.com';
  Powersock1.Port := 13;

  Powersock1.ReportLevel := 1;
  Powersock1.Timeout := 5000;

  Powersock1.Connect;
end;


----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行804.6875毫秒 RSS