[分享]Indy控件**

alang

声明：本人及本公司没有义务为此控件提供技术支持！
目前已经验证可用的是FTP和POP、SMTP

修改历史：
  20080104 FTP、SMTP、POP控件中的缺省参数的函数做了修改（具体参考本贴6楼）

alang

发邮件的例子，在uses中，增加JustepExt
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
var
  FSMTP : TIdSMTP;
  FSMTPSocksInfo: TIdSocksInfo;
  sMessage: TIdMessage;
  AOwner: TComponent;
  FSMTPIOHandlerSocket: TIdIOHandlerSocket;
begin
  AOwner := Self;
  FSMTP := TIdSMTP.Create(AOwner);
  FSMTPSocksInfo := TIdSocksInfo.Create(AOwner);
  FSMTPIOHandlerSocket := TIdIOHandlerSocket.Create(AOwner);
  sMessage := TIdMessage.Create(AOwner);
  try
    FSMTPIOHandlerSocket.SocksInfo := FSMTPSocksInfo;
    FSMTP.IOHandler := FSMTPIOHandlerSocket;
    sMessage.From.Address := 'xxx@justep.com';
    sMessage.Recipients.Add.Address := 'yyy@justep.com';
    sMessage.Subject := 'this is a test';
    sMessage.Body.Text := 'just a test';
    FSMTP.Host := 'mail.justep.com';
    FSMTP.Port := 25;
    FSMTP.Connect(-1);
    FSMTP.Send(sMessage);
    FSMTP.Disconnect;
  finally
    sMessage.Free;
    FSMTPIOHandlerSocket.Free;
    FSMTPSocksInfo.Free;
    FSMTP.Free;
  end;
end;

wangys_yt

顶一下，虽然给出的有点晚，我自己已经解决了SMTP和POP3的了。
对了，alang，给个包吧，只给例子有什么用啊？

alang

文件太大，我把dcu文件都删除掉，才能上传上来
附带了所有的pas文件，如果有需要，可以自己在此基础上添加自己需要的

wangys_yt

ok，我已经会用你那个包了。只要将想要的单元加入到那个.bat文件中，执行，再重新编译包就可以了。

alang

从网上下载了几个indy的demo，Delphi版的，直接放到平台上，只要把枚举值都改成 枚举类型.枚举值
有缺省参数的函数，把缺省参数增加上就可以在平台上运行了
这些例子主要包括：FTP、SMTP、POP
今天做了一点修改，把这三个控件中的缺省参数的函数都提供出来了，例如：
    procedure Connect(const ATimeout: Integer = IdTimeoutDefault); virtual;
变成了
    procedure Connect; overload; virtual;
    procedure Connect(const ATimeout: Integer); overload; virtual;
改变以后的源代码见本贴的附件

webcrow

请问你这里提供的indy控件的版本是多少啊？