我已经实现了使用Indy提取FTP控件的方法了,现在想实现使用OleContainer控件来预览FTP上的文件的功能,我不想把文件存放到本地,如何才能把FTP上的文件存放到文件流中,然后时候OleContainer控件来预览显示,谢谢

解决方案 »

  1.   

    {*****************************************************
    执行下面的方法,给了我一个
    TStream.Seek not implemented 的EStreamError类型的异常
    高手帮忙看看
    *****************************************************}
    procedure TPDFYL.Button3Click(Sender: TObject);
    var
       lStream:TStream;
    begin
         lStream:=TStream.Create;
         try
            if not IdFTP1.Connected then IdFTP1.Connect(true,1000);
            IdFTP1.ChangeDir('\');
            IdFTP1.Get('11.doc',lStream,True);
            OleContainer1.LoadFromStream(lStream);
         finally
                lStream.Free;
         end;
    end;