BorlandTalk.com

Ayhan Eren · Guest

I am trying to use OptibasePlayerax.ocx with delphi 6.0. The control has a
record of the following type

PCLIP_VIDEO_PARAMETERS = ^CLIP_VIDEO_PARAMETERS;
CLIP_VIDEO_PARAMETERS = packed record
StreamID:BYTE;
PID :WORD;
Coding :Integer;
ChannelType:Integer;
ColorSystem:Integer;
Resolution :Integer;
AspectRatio :Integer;
BitRate:DWORD;
SeqHeaderLength :DWORD ;
SequenceHeader:array[0..100]of BYTE;
end;

PCLIP_AUDIO_PARAMETERS =^CLIP_AUDIO_PARAMETERS;
CLIP_AUDIO_PARAMETERS =Packed Record
StreamID:BYTE ;
PID:WORD ;
Coding:Integer ;
ChannelType:Integer ;
SampleRate:Integer ;
BitRate:Integer ;
AudioMode:CHANNELMODE ;
end;

PCLIP_PARAMETERS =^CLIP_PARAMETERS;
CLIP_PARAMETERS = Record
// multiplex
MuxFormat:Integer ;
MuxBitRate:DWORD ;

// video
VideoCount:integer ;
Video : array [0..MAX_VIDEO_LIST] of CLIP_VIDEO_PARAMETERS ;

// audio
AudioCount:integer ;
Audio:array [0..MAX_AUDIO_LIST] of CLIP_AUDIO_PARAMETERS;

end;

and a method to get this structure. Method is:

function GetActiveProperties(out FileName: WideString; nSize: SYSINT; var
Params: Smallint;
StreamIndex: Integer): Integer; safecall;

When I try to use this function I always get "invalid argumand". So how can
I use this function to get clip parameters as params. In the documantation
this function is described as

BOOL GetActiveProperties (

/*[out]*/ BSTR *FileName,

int nSize,

/*[in, size_is(nSize / 2 + 1)]*/ short Params[],

long StreamIndex

)

Return value:

TRUE if an active clip is found that contains at least (StreamIndex + 1)
streams.

Parameters:

/*[out]*/ BSTR *FileName -

This is a pointer, which receives the name of the stream in the active clip

int nSize -

This is the size of the Params structure

/*[in, size_is(nSize / 2 + 1)]*/ short Params[]-

This is a pointer to the CLIP_PARAMETERS structure, receiving the MPEG
properties

of the selected stream.

long StreamIndex -

Describes the index of the stream in the clip. In non-split clips this index
should be 0.

Remarks:

FileName must be freed if the method returns TRUE. To free FileName, call

SysFreeString.

Can anyone describe me the way that I can get clip properties with this
function;
regards
Ayhan