有谁用delphi做过ftp下载的例子呀? help me!

Question

公司要做一个ftp下载的(据说用indy组件可以, 不知道要用到里面哪些组件), 下载之后调用winRar自动解压(在delphi中如何调用winRar?), 怎么作?
小弟没有概念, 还望各位大侠们多多指教!! 希望能说详细点, 期待中....
解决马上给分!

Answer 1

用TIdFTP:HOST,PORT，UserName,Password用于设置各项属性，Put,Get事件用于上传，下载文件，List事件用于浏览FTP服务器上的目录与文件

Answer 2

winrar的话，shellexecute+命令模式就可以，用法根据版本的不同，看一下WINRAR自带的用户手册中关于控制台程序就可以了

Answer 3

使D5的时候用TNMftp控件做过，很简单，设几个属性就可以了，帮助上都有

Answer 4

还真找到当年的代码了，摘一段给你看看
try
        CuteFtp := TNMFTP.Create(nil);
        succ := false;
        Trans_Type := cmdDownload;        with CuteFtp do
        begin
            host := FtpHost;
            Port := FtpPort;
            UserId := FtpUser;
            PassWord := FtpPwd;
            TimeOut := 600000;            try
                connect;
                if ftpmode='MODE_ASCII' then
            Mode(MODE_ASCII)
            else if ftpmode='MODE_BYTE' THEN
            Mode(MODE_BYTE)
            else if ftpmode='MODE_IMAGE' THEN
            Mode(MODE_IMAGE);
            except
                
                Disconnect;
                ShowMessage(' 连接失败!);
                Result := false;
                exit;
            end;            ChangeDir(FtpRpath);
            try
                download(ftprpath + downfile, downfilepath + downfile);
            except
                on e: exception do
                begin
                    disconnect;
                    exit;
                end;
            end;
            Disconnect;
            free;
        end;