Recherche avancée

Médias (1)

Mot : - Tags -/wave

Autres articles (46)

  • Contribute to a better visual interface

    13 avril 2011

    MediaSPIP is based on a system of themes and templates. Templates define the placement of information on the page, and can be adapted to a wide range of uses. Themes define the overall graphic appearance of the site.
    Anyone can submit a new graphic theme or template and make it available to the MediaSPIP community.

  • Des sites réalisés avec MediaSPIP

    2 mai 2011, par

    Cette page présente quelques-uns des sites fonctionnant sous MediaSPIP.
    Vous pouvez bien entendu ajouter le votre grâce au formulaire en bas de page.

  • Gestion générale des documents

    13 mai 2011, par

    MédiaSPIP ne modifie jamais le document original mis en ligne.
    Pour chaque document mis en ligne il effectue deux opérations successives : la création d’une version supplémentaire qui peut être facilement consultée en ligne tout en laissant l’original téléchargeable dans le cas où le document original ne peut être lu dans un navigateur Internet ; la récupération des métadonnées du document original pour illustrer textuellement le fichier ;
    Les tableaux ci-dessous expliquent ce que peut faire MédiaSPIP (...)

Sur d’autres sites (6172)

  • lavc/htmlsubtitles : handle colors starting with many '#'

    29 juillet 2017, par Clément Bœsch
    lavc/htmlsubtitles : handle colors starting with many '#'
    • [DH] libavcodec/htmlsubtitles.c
    • [DH] tests/ref/fate/sub-srt-badsyntax

  • Delphi, TBitmap (rgb) to YCbCr colors format

    18 octobre 2019, par Alexander M.

    have a video encoding example from http://www.delphiffmpeg.com - need to convert a set of TBitmaps to YCbCr (YUV), how should we do it ? the example contains dummy colors :

      (* encode 1 second of video *)
    
  idx := 1;
    
  for i := 0 to 25 - 1 do
    
  begin
    
    av_init_packet(@pkt);
    
    pkt.data := nil;    // packet data will be allocated by the encoder
    
    pkt.size := 0;
    

    
    //fflush(stdout);
    
    (* prepare a dummy image *)
    
    (* Y *)
    
    for y := 0 to c.height - 1 do
    
      for x := 0 to c.width - 1 do
    
        PByte(@PAnsiChar(frame.data[0])[y * frame.linesize[0] + x])^ := x + y + i * 3;
    

    
    (* Cb and Cr *)
    
    for y := 0 to c.height div 2 - 1 do
    
      for x := 0 to c.width div 2 - 1 do
    
      begin
    
        PByte(@PAnsiChar(frame.data[1])[y * frame.linesize[1] + x])^ := 128 + y + i * 2;
    
        PByte(@PAnsiChar(frame.data[2])[y * frame.linesize[2] + x])^ := 64 + x + i * 5;
    
      end;
    

    
    frame.pts := i;
    

    
    (* encode the image *)
    
    ret := avcodec_encode_video2(c, @pkt, frame, @got_output);
    
    if ret < 0 then
    
    begin
    
      Writeln(ErrOutput, 'Error encoding frame');
    
      ExitCode := 1;
    
      Exit;
    
    end;
    

    
    if got_output <> 0 then
    
    begin
    
      Writeln(Format('Write frame %d (size=%d)', [idx, pkt.size]));
    
      FileWrite(f, pkt.data^, pkt.size);
    
      av_packet_unref(@pkt);
    
      Inc(idx);
    
    end;
    
  end;

    But we need to convert bitmaps to YCbCr..instead of filling pixels with dummy image. Here is a full source code :

    (*
    
 * Video encoding example
    
 *)
    
procedure video_encode_example(const filename: string; codec_id: TAVCodecID);
    
const
    
  endcode: array[0..3] of Byte = ( 0, 0, 1, $b7 );
    
var
    
  codec: PAVCodec;
    
  c: PAVCodecContext;
    
  idx, i, ret, x, y, got_output: Integer;
    
  f: THandle;
    
  frame: PAVFrame;
    
  pkt: TAVPacket;
    
begin
    
  Writeln(Format('Encode video file %s', [filename]));
    

    
  (* find the mpeg1 video encoder *)
    
  codec := avcodec_find_encoder(codec_id);
    
  if not Assigned(codec) then
    
  begin
    
    Writeln(ErrOutput, 'Codec not found');
    
    ExitCode := 1;
    
    Exit;
    
  end;
    

    
  c := avcodec_alloc_context3(codec);
    
  if not Assigned(c) then
    
  begin
    
    Writeln(ErrOutput, 'Could not allocate video codec context');
    
    ExitCode := 1;
    
    Exit;
    
  end;
    

    
  (* put sample parameters *)
    
  c.bit_rate := 400000;
    
  (* resolution must be a multiple of two *)
    
  c.width := 352;
    
  c.height := 288;
    
  (* frames per second *)
    
  c.time_base.num := 1;
    
  c.time_base.den := 25;
    
  (* emit one intra frame every ten frames
    
   * check frame pict_type before passing frame
    
   * to encoder, if frame->pict_type is AV_PICTURE_TYPE_I
    
   * then gop_size is ignored and the output of encoder
    
   * will always be I frame irrespective to gop_size
    
   *)
    
  c.gop_size := 10;
    
  c.max_b_frames := 1;
    
  c.pix_fmt := AV_PIX_FMT_YUV420P;
    

    
  if codec_id = AV_CODEC_ID_H264 then
    
    av_opt_set(c.priv_data, 'preset', 'slow', 0);
    

    
  (* open it *)
    
  if avcodec_open2(c, codec, nil) < 0 then
    
  begin
    
    Writeln(ErrOutput, 'Could not open codec');
    
    ExitCode := 1;
    
    Exit;
    
  end;
    

    
  f := FileCreate(filename);
    
  if f = INVALID_HANDLE_VALUE then
    
  begin
    
    Writeln(ErrOutput, Format('Could not open %s', [filename]));
    
    ExitCode := 1;
    
    Exit;
    
  end;
    

    
  frame := av_frame_alloc();
    
  if not Assigned(frame) then
    
  begin
    
    Writeln(ErrOutput, 'Could not allocate video frame');
    
    ExitCode := 1;
    
    Exit;
    
  end;
    
  frame.format := Ord(c.pix_fmt);
    
  frame.width  := c.width;
    
  frame.height := c.height;
    

    
  (* the image can be allocated by any means and av_image_alloc() is
    
   * just the most convenient way if av_malloc() is to be used *)
    
  ret := av_image_alloc(@frame.data[0], @frame.linesize[0], c.width, c.height,
    
                       c.pix_fmt, 32);
    
  if ret < 0 then
    
  begin
    
    Writeln(ErrOutput, 'Could not allocate raw picture buffer');
    
    ExitCode := 1;
    
    Exit;
    
  end;
    

    
  (* encode 1 second of video *)
    
  idx := 1;
    
  for i := 0 to 25 - 1 do
    
  begin
    
    av_init_packet(@pkt);
    
    pkt.data := nil;    // packet data will be allocated by the encoder
    
    pkt.size := 0;
    

    
    //fflush(stdout);
    
    (* prepare a dummy image *)
    
    (* Y *)
    
    for y := 0 to c.height - 1 do
    
      for x := 0 to c.width - 1 do
    
        PByte(@PAnsiChar(frame.data[0])[y * frame.linesize[0] + x])^ := x + y + i * 3;
    

    
    (* Cb and Cr *)
    
    for y := 0 to c.height div 2 - 1 do
    
      for x := 0 to c.width div 2 - 1 do
    
      begin
    
        PByte(@PAnsiChar(frame.data[1])[y * frame.linesize[1] + x])^ := 128 + y + i * 2;
    
        PByte(@PAnsiChar(frame.data[2])[y * frame.linesize[2] + x])^ := 64 + x + i * 5;
    
      end;
    

    
    frame.pts := i;
    

    
    (* encode the image *)
    
    ret := avcodec_encode_video2(c, @pkt, frame, @got_output);
    
    if ret < 0 then
    
    begin
    
      Writeln(ErrOutput, 'Error encoding frame');
    
      ExitCode := 1;
    
      Exit;
    
    end;
    

    
    if got_output <> 0 then
    
    begin
    
      Writeln(Format('Write frame %d (size=%d)', [idx, pkt.size]));
    
      FileWrite(f, pkt.data^, pkt.size);
    
      av_packet_unref(@pkt);
    
      Inc(idx);
    
    end;
    
  end;
    

    
  (* get the delayed frames *)
    
  repeat
    
    //fflush(stdout);
    

    
    ret := avcodec_encode_video2(c, @pkt, nil, @got_output);
    
    if ret < 0 then
    
    begin
    
      Writeln(ErrOutput, 'Error encoding frame');
    
      ExitCode := 1;
    
      Exit;
    
    end;
    

    
    if got_output <> 0 then
    
    begin
    
      Writeln(Format('Write frame %d (size=%d)', [idx, pkt.size]));
    
      FileWrite(f, pkt.data^, pkt.size);
    
      av_packet_unref(@pkt);
    
      Inc(idx);
    
    end;
    
  until got_output = 0;
    

    
  (* add sequence end code to have a real mpeg file *)
    
  FileWrite(f, endcode[0], SizeOf(endcode));
    
  FileClose(f);
    

    
  avcodec_close(c);
    
  av_free(c);
    
  av_freep(@frame.data[0]);
    
  av_frame_free(@frame);
    
  Writeln('');
    
end;

    yes we know this formula, but what should we do with (* Cb and Cr *) loop that goes up to c.height div 2 - 1 and c.width div 2 - 1 ? all our experiments make correct image geometry but incorrect colors... Here is what we have :

    ( Y )
    
    for y := 0 to c.height - 1 do
    
    begin
    
      Line := image.ScanLine[y];
    
      for x := 0 to c.width - 1 do
    
      begin
    
        Yy := Round(Line[x].R*0.29900 + Line[x].G*0.58700 + Line[x].B*0.11400);
    
        PByte(@PAnsiChar(frame.data[0])[y * frame.linesize[0] + x])^ := Yy;
    
      end;
    
    end;
    
    ( Cb and Cr )
    
    for y := 0 to c.height div 2 - 1 do
    
    begin
    
      Pixels := image.ScanLine[y];
    
      for x := 0 to c.width div 2 - 1 do
    
      begin
    
        Cb := Round(Line[x].R  -0.16874 - Line[x].G  0.33126 + Line[x].B * 0.50000) + 128;
    
        Cr := Round(Line[x].R   0.50000 - Line[x].G  0.41869 - Line[x].B * 0.08131) + 64;
    
        PByte(@PAnsiChar(frame.data[1])[y * frame.linesize[1] + x])^ := Cr;
    
        PByte(@PAnsiChar(frame.data[2])[y * frame.linesize[2] + x])^ := Cb;
    
        //PByte(@PAnsiChar(frame.data[1])[y  frame.linesize[1] + x])^ := 128 + y + i  2;
    
        //PByte(@PAnsiChar(frame.data[2])[y  frame.linesize[2] + x])^ := 64 + x + i  5;
    
      end;
    
    end;

    How this should be fixed ?

  • avcodec/xsubdec : Check that RLE coded image and colors fit in the buffer

    22 mai 2017, par Michael Niedermayer
    avcodec/xsubdec : Check that RLE coded image and colors fit in the buffer

    Fixes : Timeout
    
Fixes : 1747/clusterfuzz-testcase-minimized-6035451213250560
    

    Found-by : continuous fuzzing process https://github.com/google/oss-fuzz/tree/master/projects/ffmpeg
    
Signed-off-by : Michael Niedermayer <michael@niedermayer.cc>
    • [DH] libavcodec/xsubdec.c

Navigation