Please Help: Question about AVIMakeCompressedStream

Hi all,

this is my problem. First you can see the definition of my function:

function  AVIMakeCompressedStream(var pCompressed: PAVIStream;
                                      pSource: PAVIStream;
                                  var acoOptions: TAVICompressOptions;
                                  var clsidHandler: TClsID): LongInt
stdcall;
                                  external 'AVIFil32.dll';

----------------------------------------------------------------------------
------------

// This is what I have declared

var clsidHandler: TClsID;

----------------------------------------------------------------------------
-------------

// But when I call the function with this parameters, it seem that
clsidHandler gets no data and so the
   AVIStreamCompressed is empty.  The result error code is a unknown error,
nothing which is defined
   in VFW.

Result :=
AVIMakeCompressedStream(AVIStreamCompressed,AVIStream,AVIOptions,clsidHandle
r);

I can not figure out where the problem is, do you have any clues ?

Cheers

Thomas