请问一下,有哪位delphi 7做过FTP上传文件,并支持TLS/SSL加密?
解决方案 »
- 放假了,我胡汉三又回来了
- IdFTPserver如何接受changedir的请求
- 关于ADOQuery的SQL查询语句问题~~
- 我的程序无法在WindowsXP中编译
- 急:怎样只显视查询到的记录
- 用了N年的程序合并数据后出现Couldn't perform the edit because another user changed the record
- 散分4 ,今晚放假!恭祝大家新出快乐!
- 动态的生成 form
- 如何把一个数据集导出成一个excel文件?
- DELPHI中的ABC控件用谁用过吗我谁便放点东西运行一下就说没有ABCTOOLBAR。DCU文件
- sendbuf 发送记录体的问题
- 求socket完成例程的简单例子,支持多连接,带 WSASend 的使用,谢谢!!!
TIdFTP + TIdSSLIOHandlerSocketOpenSSL
设置TIdFTP.UseTLS
IdFTP: TIdFTP;
IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
IdFTP := TIdFTP.Create(Nil);
try
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
try
IdFTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
IdFTP.UseTLS := utUseRequireTLS; ... finally
IdSSLIOHandlerSocketOpenSSL.Free;
end;
finally
IdFTP.Free;
end;
end;
http://www.openssl.org/source/openssl-0.9.8g.tar.gz
我水平一般,麻烦您说具体点!谢谢!!
LYSoft独家提供OpenSSL for Indy
大致的代码是:uses
IdSSLOpenSSL;var
IdFTP: TIdFTP;
IdSSLIOHandlerSocket: TIdSSLIOHandlerSocket ;
begin
IdFTP := TIdFTP.Create(Nil);
try
IdSSLIOHandlerSocket := TIdSSLIOHandlerSocket.Create(Nil);
try
IdFTP.IOHandler := IdSSLIOHandlerSocket;
IdFTP.UseTLS := utUseRequireTLS; ... finally
IdSSLIOHandlerSocket.Free;
end;
finally
IdFTP.Free;
end;
end;