안녕하세요

http://www.progdigy.com/download/dspack1.05.rc1(20-11-2001).zip

dspack을 설치하려구 하는데 잘 안되네요...

설치해서 사용하시는분 설명좀 부탁드릴께요.

delphi 5.0입니다.

컴파일하면 이부분에서

         if Filename <> '' then
           FileSinkFilter2.SetFileName(StringToOleStr(Filename),nil);

이런 애러가..ㅜㅜ

[Error] DSFilters.pas(276): Types of actual and formal var parameters must be identical
[Error] DSFilters.pas(364): Types of actual and formal var parameters must be identical
[Error] DSFilters.pas(374): Types of actual and formal var parameters must be identical
[Error] DSFilters.pas(612): Types of actual and formal var parameters must be identical
[Fatal Error] DSEditors.pas(28): Could not compile used unit 'DSFilters.pas'


=================================================================

constructor TFilterASFWriter.Create(AOwner: TComponent);
var
   hr: HRESULT;
begin
   inherited Create(AOwner);
   if not (csDesigning in ComponentState) then
     begin
       hr := cocreateinstance(CLSID_WMAsfWriter, nil, CLSCTX_INPROC ,IID_IBASEFilter, BaseFilter);
       assert(hr = S_OK, format('Error $%x creating the File Source Async filter',[hr]));
       if assigned(BaseFilter) then
       begin
         BaseFilter.QueryInterface(IID_IAMFilterMiscFlags    , FilterMiscFlags);
         BaseFilter.QueryInterface(IID_IConfigAsfWriter      , ConfigAsfWriter);
         BaseFilter.QueryInterface(IID_IFileSinkFilter2      , FileSinkFilter2);
         BaseFilter.QueryInterface(IID_IMediaSeeking         , MediaSeeking);
         BaseFilter.QueryInterface(IID_IPersistStream        , PersistStream);
         BaseFilter.QueryInterface(IID_IServiceProvider      , ServiceProvider);
         BaseFilter.QueryInterface(IID_ISpecifyPropertyPages , SpecifyPropertyPages);
         if Filename <> '' then
           FileSinkFilter2.SetFileName(StringToOleStr(Filename),nil);
       end;
   end;
end;