micha137 / dspack-continued-mirror-for-delphinus Goto Github PK

function TThreadedQueueIMediaSampleHelper.GetQueue: TArrayIMediaSample;
begin
  Result := TArrayIMediaSample(FQueue);
end;

function TThreadedQueueIMediaSampleHelper.GetQueueOffset: Integer;
begin
  Result := FQueueOffset;
end;

function TBCAsyncOutputPin.GetMediaType(Position: Integer;
  out MediaType: PAMMediaType): HResult;
begin
  if (Position < 0) then
    Result := E_INVALIDARG
  else
    if (Position > 0) then
      Result := VFW_S_NO_MORE_ITEMS
    else
      begin
        if (FReader = nil) then
        begin
          Result := E_UNEXPECTED;
          Exit;
        end;

    if not Assigned(MediaType) then
    begin
      MediaType := CoTaskMemAlloc(SizeOf(TAMMediaType));
    end;

        CopyMemory(MediaType, FReader.LoadType, SizeOf(TAMMediaType));
        Result := S_OK;
      end;
end;