Recherche avancée

Sur d’autres sites (3637)

• Additionals : Add notEqualTo method

  17 février 2015, par robotdan

  Additionals : Add notEqualTo method
  New method ‘notEqualTo’ that delegates to the equalTo method and
  
  returns the inverted value.
  Closes #1020
  

• Revision 30079 : servait pour débuguer ... donc plus nécessaire

  22 juillet 2009, par kent1@… — Log

  servait pour débuguer ... donc plus nécessaire

• delphi firemonkey + FFmpeg Fill image/Tbitmap with data of AVFRAME->pixelformat->YUV420P

  9 février 2020, par coban

  I have managed to create a simple Video player using SDL2 + FFmpeg libraries with Delphi VCL. It’s about the same as ffplay.exe but not a Console app.
  I’ve noticed that FFmpeg (I might be wrong) converts/scales (sws_scale) source pixelformat(any) -> to destination -> YUV420P faster than to any other format.

  What I want to achieve is some kind of a (video)surface, where over I can put other components, like for example a TProgressbar. SDL has a function sdl_createwindowfrom which can turn a tpanel into video(surface/window) where it is possible to put any component over it. But this function is only for windows.

  Maybe I am looking in the wrong direction to achieve what I want, if so, any hint is welcome.
  I was thinkin of drawing the data retrieved in pixelformat yuv420p to a TBitmap of a Timage, this way I won’t need SDL2 library, and I will be able to put any other component above, in this case, Timage. Or another component which might be faster.

  It seems like I need to convert the YUV420P into BGRA format, because TBitmap does not seem to support any YUV format, worse is FIREMONKEY tbitmap is always BGRA format, changing to other format is not possible.

  In first case, I need a function to convert yuv420 to BGRA, can anyone help with this, is there a component/package/function for this which I could use ? Or maybe is it anyhow possible to use yuv420p format directly without converting ?
  I tried to convert some SDL2 functions from SDL2 source (C/C++) to Delphi functions but it’s to complicate for me, specially with my knowledge of C/C++. In SDL2 there are methods/functions implemented for converting RGB <-> YUV. (Why did I ever start Delphi programming ? my mistake).

  BTW, I already tried TMediaplayer, it’s drawing video(picture) above everything, nothing else than the video is visible.

  ---

  I’ve made an attempt, what I don’t understand is where to get/what is "y_stride, uv_stride and rgb_stride"
  Some variable declarations and/or assignments can be incorrect, need to debug the values, but first I need to know what to pass for the above variables.

  ---

      procedure STD_FUNCTION_NAME(width, height:Cardinal;Y, U, V:PByte; Y_stride, UV_stride:Cardinal;
  
                            RGB:PByte;     RGB_stride:Cardinal;yuv_type:YCbCrType;
  
                          YUV_FORMAT,RGB_FORMAT:Word);
  
  var param:PYUV2RGBParam;
  
    y_pixel_stride,
  
    uv_pixel_stride,
  
    uv_x_sample_interval,
  
    uv_y_sample_interval:Word;
  
  
  
    x, ys:Cardinal;
  
    y_ptr1,y_ptr2,u_ptr,v_ptr:PByte;
  
    rgb_ptr1,rgb_ptr2:PByte;
  
  
  
    u_tmp,v_tmp,r_tmp,
  
    g_tmp,b_tmp:Cardinal;
  
    y_tmp:Integer;
  
  begin
  
  param := @(YUV2RGB[integer( yuv_type)]);
  
  if YUV_FORMAT = YUV_FORMAT_420
  
  then begin
  
    y_pixel_stride      := 1;
  
    uv_pixel_stride     := 1;
  
    uv_x_sample_interval:= 2;
  
    uv_y_sample_interval:= 2;
  
  end;
  
  if YUV_FORMAT = YUV_FORMAT_422
  
  then begin
  
    y_pixel_stride        := 2;
  
    uv_pixel_stride       := 4;
  
    uv_x_sample_interval  := 2;
  
    uv_y_sample_interval  := 1;
  
  end;
  
  if YUV_FORMAT = YUV_FORMAT_NV12
  
  then begin
  
    y_pixel_stride        := 1;
  
    uv_pixel_stride       := 2;
  
    uv_x_sample_interval  := 2;
  
    uv_y_sample_interval  := 2;
  
  end;
  
  
  
  
  
  //for(y=0; y<(height-(uv_y_sample_interval-1)); y+=uv_y_sample_interval)
  
  ys := 0;
  
  while ys < height-(uv_y_sample_interval-1) do
  
  begin
  
      y_ptr1  := Y+ys*Y_stride;
  
    y_ptr2  := Y+(ys+1)*Y_stride;
  
    u_ptr   := U+(ys div uv_y_sample_interval)*UV_stride;
  
    v_ptr   := V+(ys div uv_y_sample_interval)*UV_stride;
  
  
  
      rgb_ptr1:=RGB+ys*RGB_stride;
  
  
  
      if uv_y_sample_interval > 1
  
    then rgb_ptr2:=RGB+(ys+1)*RGB_stride;
  
  
  
  
  
      //for(x=0; x<(width-(uv_x_sample_interval-1)); x+=uv_x_sample_interval)
  
  x := 0;
  
  while x<(width-(uv_x_sample_interval-1)) do
  
      begin
  
          // Compute U and V contributions, common to the four pixels
  
  
  
          u_tmp := (( u_ptr^)-128);
  
          v_tmp := (( v_ptr^)-128);
  
  
  
          r_tmp := (v_tmp*param.v_r_factor);
  
          g_tmp := (u_tmp*param.u_g_factor + v_tmp*param.v_g_factor);
  
          b_tmp := (u_tmp*param.u_b_factor);
  
  
  
          // Compute the Y contribution for each pixel
  
  
  
          y_tmp := ((y_ptr1[0]-param.y_shift)*param.y_factor);
  
          PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
  
  
          y_tmp := ((y_ptr1[y_pixel_stride]-param.y_shift)*param.y_factor);
  
          PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
  
  
          if uv_y_sample_interval > 1
  
    then begin
  
      y_tmp := ((y_ptr2[0]-param.y_shift)*param.y_factor);
  
      PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr2);
  
  
  
      y_tmp := ((y_ptr2[y_pixel_stride]-param.y_shift)*param.y_factor);
  
      PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr2);
  
          end;
  
  
  
          y_ptr1 := y_ptr1 + 2*y_pixel_stride;
  
          y_ptr2 := y_ptr2 + 2*y_pixel_stride;
  
          u_ptr  := u_ptr  + 2*uv_pixel_stride div uv_x_sample_interval;
  
          v_ptr  := v_ptr  + 2*uv_pixel_stride div uv_x_sample_interval;
  
    x := x + uv_x_sample_interval
  
      end;
  
  
  
      //* Catch the last pixel, if needed */
  
      if (uv_x_sample_interval = 2) and (x = (width-1))
  
      then begin
  
          // Compute U and V contributions, common to the four pixels
  
  
  
          u_tmp := (( u_ptr^)-128);
  
          v_tmp := (( v_ptr^)-128);
  
  
  
          r_tmp := (v_tmp*param.v_r_factor);
  
          g_tmp := (u_tmp*param.u_g_factor + v_tmp*param.v_g_factor);
  
          b_tmp := (u_tmp*param.u_b_factor);
  
  
  
          // Compute the Y contribution for each pixel
  
  
  
          y_tmp := ((y_ptr1[0]-param.y_shift)*param.y_factor);
  
          PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
  
  
          if uv_y_sample_interval > 1
  
    then begin
  
            y_tmp := ((y_ptr2[0]-param.y_shift)*param.y_factor);
  
      PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr2);
  
            //PACK_PIXEL(rgb_ptr2);
  
          end;
  
      end;
  
  ys := ys +uv_y_sample_interval;
  
  end;
  
  
  
  //* Catch the last line, if needed */
  
  if (uv_y_sample_interval = 2) and (ys = (height-1))
  
  then begin
  
      y_ptr1 :=Y+ys*Y_stride;
  
  u_ptr  :=U+(ys div uv_y_sample_interval)*UV_stride;
  
  v_ptr  :=V+(ys div uv_y_sample_interval)*UV_stride;
  
  
  
      rgb_ptr1:=RGB+ys*RGB_stride;
  
  
  
      //for(x=0; x<(width-(uv_x_sample_interval-1)); x+=uv_x_sample_interval)
  
  x := 0;
  
  while x < (width-(uv_x_sample_interval-1)) do
  
      begin
  
          // Compute U and V contributions, common to the four pixels
  
  
  
          u_tmp := (( u_ptr^)-128);
  
          v_tmp := (( v_ptr^)-128);
  
  
  
          r_tmp := (v_tmp*param.v_r_factor);
  
          g_tmp := (u_tmp*param.u_g_factor + v_tmp*param.v_g_factor);
  
          b_tmp := (u_tmp*param.u_b_factor);
  
  
  
          // Compute the Y contribution for each pixel
  
  
  
          y_tmp := ((y_ptr1[0]-param.y_shift)*param.y_factor);
  
          //PACK_PIXEL(rgb_ptr1);
  
    PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
          y_tmp := ((y_ptr1[y_pixel_stride]-param.y_shift)*param.y_factor);
  
          //PACK_PIXEL(rgb_ptr1);
  
    PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
  
  
          y_ptr1 := y_ptr1 + 2*y_pixel_stride;
  
          u_ptr  := u_ptr  + 2*uv_pixel_stride div uv_x_sample_interval;
  
          v_ptr  := v_ptr  + 2*uv_pixel_stride div uv_x_sample_interval;
  
  
  
    x := x + uv_x_sample_interval
  
      end;
  
  
  
      //* Catch the last pixel, if needed */
  
      if (uv_x_sample_interval = 2) and (x = (width-1))
  
      then begin
  
          // Compute U and V contributions, common to the four pixels
  
  
  
          u_tmp := (( u_ptr^)-128);
  
          v_tmp := (( v_ptr^)-128);
  
  
  
          r_tmp := (v_tmp*param.v_r_factor);
  
          g_tmp := (u_tmp*param.u_g_factor + v_tmp*param.v_g_factor);
  
          b_tmp := (u_tmp*param.u_b_factor);
  
  
  
          // Compute the Y contribution for each pixel
  
  
  
          y_tmp := ((y_ptr1[0]-param.y_shift)*param.y_factor);
  
          //PACK_PIXEL(rgb_ptr1);
  
    PACK_PIXEL(RGB_FORMAT,y_tmp,r_tmp, g_tmp, b_tmp, rgb_ptr1);
  
      end;
  
  end;

  end ;