liaoshuxun的博客

修改说明： ================================================================================== 1 原版只支持Delphi XE，本版改为可以支持Delphi6/7，在Delphi6下编译运行通过 2 修正了原版无法支持中文名称的BUG 使用示例： ================================================================================== ossTemp := TAliOssFileSystem.Create(OSS_ACCESS_ID, OSS_ASSCESS_KEY, OSS_HOSTNAME); ossTemp.ChangeVolumn(sBucketName); ossTemp.UploadFile(sLocalFileName, sOSSFileName); ossTemp.Free; 原版说明： ================================================================================== 该SDK使用Delphi/Object Pascal编程语言编写，完整实现了阿里云OSS API的全部功能，并提 供了两套API：第一套API（类名：TAliOss）仿照OSS PHP SDK实现了全部函数，第二套API（ 类名：TAliOssFileSystem）封装了TAliOss，并在其的基础上实现了类似于文件系统的API， 实现了包括“卷”、“文件夹”、“文件”等抽象概念，并提供相应的功能函数。 两套API面向的应用场景不同：TAliOssFileSystem适合于将OSS服务看作是一种文件系统的应 用，开发人员不必了解OSS API的内部参数及XML定义，可提高编程效率，使用方便；TAliOSS 适合于其他类型的应用，当编程人员需要更加定制化的调用或者需要更加灵活的参数设置时， 可以直接使用该SDK操作调用参数和返回值。两套API互不干扰，可以在项目中同时使用。

用Indy10中的TIdSMTP发送邮件，按以下方法可以实现SSL安全连接： 1 把附件文件解压缩后的两个dll放到程序文件夹下 2 增加一个TIdSSLIOHandlerSocketOpenSSL控件 3 两个控件的关键属性设置如下： object IdSMTP1: TIdSMTP IOHandler = IdSSLIOHandlerSocketOpenSSL1 Host = 'smtp.qq.com' Port = 465 UseTLS = utUseImplicitTLS end object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL Destination = 'smtp.qq.com:465' Host = 'smtp.qq.com' Port = 465 end 以上方法，用Delphi6+Indy10.5.5测试通过。同样用此方法，可以用TIdPOP3实现接收邮件。 注意，网上查到的相关说明大都是针对Indy9的，不适用于Indy10。