Сделать картинку поверх видео.

[Vyacheslav.]

Видео отображается на Panel, но нужно поверх видео наложить картинку(она без фона, ну т.е. пнг). SendToBack/Bring to Front - не помогают. Картинку помещал как на форму, так и на панель, тоже ничего. Пробовал еще Панель, на нее поместить еще 1 панель, и на вторую панель уже картинку, сработало, но вторая панель то не прозрачная. Вообщем подскажите вариант решения это проблемы.

[Aliens_wolfs]

Нужно выводить кадр в DIB либо в Bitmap затем накладывать свою картинку туда же, а уже потом выводить на panel. Покажите часть кода как вы работаете с видео, нужно понять какими методами вы работаете с видео что бы вам помочь.

[Vyacheslav.]

procedure TForm3.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('Images\Personage\Personage Arsenal\Killjoy.png');
MediaPlayer1.DeviceType:= dtAutoSelect;
MediaPlayer1.FileName := 'D:\Скилловая папка\Delphi-7\BK\Video\Killjoy.mp4';
MediaPlayer1.Display:=Panel1;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;

[Vyacheslav.]

Delphi7. Использую стандартный MediaPlayer из вкладки System. Ну а вот с двумя панельками у меня получилось, только можно как-то вторую прозрачной сделать? Или как лучше/проще?

[Аватар]

Прозрачная панель с прозрачным image поверх другой панели с картинкой. Что там будет над панелью с видео сам смотри

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, TypInfo,
  jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyPanel = class(TPanel)
  private
  protected
    procedure Paint; override;
  public
    constructor CreateWithBitMap(AOwner: TComponent; BitMap: TBitMap);
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TMyPanel.CreateWithBitMap(AOwner: TComponent; BitMap: TBitMap);
var Image: TImage;
begin
  inherited Create(AOwner);
  Image:=TImage.Create(Self);
  Image.Parent:=Self;
  Image.Align:=alClient;
  Image.Proportional:=True;
  Image.Stretch:=True;
  Image.Transparent:=True;
  Image.Picture.Bitmap.Assign(BitMap);
end;

procedure TMyPanel.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle:=Params.ExStyle+WS_EX_TRANSPARENT;
end;

procedure TMyPanel.Paint;
begin
  Canvas.Brush.Style:=bsClear;
end;

procedure TForm1.FormCreate(Sender: TObject);
var MyPanel: TMyPanel;
    BitMap: TBitmap;
begin
  BitMap:=TBitmap.Create;
  BitMap.LoadFromFile('d:\Cheked1.bmp');
  MyPanel:=TMyPanel.CreateWithBitMap(Self,BitMap);
  MyPanel.Parent:=Self;
  MyPanel.Caption:='';
  MyPanel.Left:=24;
  MyPanel.Top:=48;
  MyPanel.Width:=185;
  MyPanel.Height:=209;
  BitMap.Free;
end;

[Vyacheslav.]

Работает, спасибо!

[Vyacheslav.]

Только не понимаю, почему при попытке снять на видео форму, или заскриншотить ее, видео становится черным, просто ничего не видно, почему Делфи не отрисовывает его? Ну как в посте #3 видно на скриншоте.

[Aliens_wolfs]

Вот еще примерчик небольшой, пишет на панели с видео, правда немного моргает

procedure VideoView(aMediaPlayer: TMediaPlayer; aX, aY: integer;  aTitle: string);
var
mainDC: HDC;
Canvas:TCanvas;
begin
 Canvas:=TCanvas.Create;
try
 Canvas.Handle:= GetDC(AMediaPlayer.Display.Handle);
 Canvas.Font.Size:= 18;
 Canvas.Font.Style:= [fsBold];
 Canvas.Font.Color:= clRed;
 Canvas.Brush.Style:=bsClear;
 Canvas.TextOut(aX, aY,'Text');
 finally
 ReleaseDC(AMediaPlayer.Display.Handle,Canvas.Handle);
 Canvas.Free;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.DeviceType:= dtAutoSelect;
MediaPlayer1.FileName := 'D:\Скилловая папка\Delphi-7\BK\Video\Killjoy.mp4';
MediaPlayer1.Open;
Timer1.Interval:= 1;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Display:= Panel1;
if MediaPlayer1.Mode = mpPlaying then
VideoView(MediaPlayer1, 10, 10, 'Hello World');
end;

А то что у вас черный фон это потому что вы закрываете видимо панель, она должна быть видимой, иначе видео не будет
MediaPlayer работает только с видимой панелью, окном, эксперименты по наложению изображения будут глючными, для правильной работы с наложением изображения нужен полноценный буфер кадра чего MediaPlayer не дает.

Ищите другой компонент для работы с кадрами видео
Посмотрите эти темы
http://www.programmersforum.ru/showthread.php?t=313060
http://www.programmersforum.ru/showthread.php?t=312840

[Sciv]

Сообщение от Vyacheslav.

Только не понимаю, почему при попытке снять на видео форму, или заскриншотить ее, видео становится черным, просто ничего не видно, почему Делфи не отрисовывает его?

Потому что ДиректИкс. Дельфи тут не при чём. Попробуйте сделать скриншот видео из медиаплеера стандартным PrtScr - увидите такое же чёрное пятно.

[Vyacheslav.]

Сделал.

Сообщение от Sciv

Попробуйте сделать скриншот видео из медиаплеера стандартным PrtScr - увидите такое же чёрное пятно.

https://pp.userapi.com/c621701/v6217...eDRlZh69mo.jpg