请大虾解决关于dsPack叠加滚动字幕的问题。

2005-09-27 12:48:37 424 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Sharding-JDBC 系列专题 - 第九篇：高可用性与集群管理高可用性是指系统在面对故障（如数据库宕机、网络中断）时，能够快速恢复并继续提供服务。Sharding-JDBC 和 Sharding-Proxy 提供了多种机制支持高可用性，同时需要结合底层数据库的高可用方案（如 MySQL 主从复制、MHA）来实现。高可用性和集群管理是 Sharding-JDBC 和 Sharding-Proxy 在生产环境中成功应用的关键。本篇详细介绍了数据库高可用方案、Sharding-JDBC 的故障切换机制、Sharding-Proxy 的集群部署，以及分布式治理功能。阅读详情

我想用dsPack在视频上叠加滚动字幕。
　　在Mixer例子中用到的FilterGraph.RenderFile，可在视频上叠加一个gif或者另一个视频文件，强！不知道还可以叠加其他什么文件？
　　另外，在VMRBitmap例子中用到的Filter.BaseFilter.Moniker，可以在视频上叠加一个bmp图片，或者把文字画成bmp叠加上去，我想做一个滚动的字幕，就用了一个Timer，定时重画，然而出来一帧过后，后面的图片就不出来了，请教大虾们如何解决该问题。
　　或是有其它什么办法，在视频上叠加上滚动字幕呢？谢谢！

...全文

1.深入浅出：理解三极管截止、放大和饱和状态！——参考《模拟电子技术基础》清华大学华成英主讲幼儿园水平理解三极管截止、放大和饱和状态！书上看不懂，听课听不懂的过来！绕不开的三极管结构以NPN为例，晶体三极管的结构，这是很多人不想看的，但是确实是非常重要的！不看结构是理解不了工作原理的！（这样记忆：N是negative，负，代表多子为电子；P是positive，正，代表多子为空穴）注意观察三极管的结构，有助于理解工作时的状态。两张图结合起来看，略作解释： 1.图中空心为空穴带正... 阅读详情

cnscshitao

GAME，图形处理/多媒体 1,184 成员 14,330 内容

+ 关注 + 加入社区

切换为时间正序

cnscshitao 2005-09-28

打赏
举报

小弟才疏学浅，受老大指导，感之不尽。太感谢了！

S.F. 2005-09-27

打赏
举报

有了dsPack还有什么办不到得？很容易啊；

你打开SampleGrabber 这个demo ;然后按我添加代码得位置修改代码如下即可达到你得目的：

var
Form1 : TForm1;
OffsetX : Integer; //by s.f.
const
ShowText : string = '字幕啊字幕啊字幕啊字幕啊字幕啊'; //by s.f.
implementation

{$R *.dfm}

procedure TForm1.OpenPlayClick(Sender: TObject);
begin
if OpenDialog.Execute then
begin
OffsetX := Image.Width; //by s.f.

FilterGraph.Mode := gmCapture;
FilterGraph.Active := False;
FilterGraph.Active := true;

FilterGraph.RenderFile(OpenDialog.FileName);
FilterGraph.Play;

end;
end;

procedure TForm1.VMRTextOut(AText: string);
var
VMRBitmap : TVMRBitmap;
begin
if AText = '' then
exit;

end;

procedure TForm1.SnapshotClick(Sender: TObject);
begin
SampleGrabber.GetBitmap(Image.Picture.Bitmap)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CallBack.Checked := false;
FilterGraph.ClearGraph;
FilterGraph.Active := false;
end;

procedure TForm1.SampleGrabberBuffer(sender: TObject; SampleTime: Double;
pBuffer: Pointer; BufferLen: Integer);
var
textLength : integer; //by s.f.
begin
if CallBack.Checked then
begin
Image.Canvas.Lock; // to avoid flickering
try
SampleGrabber.GetBitmap(Image.Picture.Bitmap, pBuffer, BufferLen);
//draw my text.by s.f.
textLength := Image.Picture.Bitmap.Canvas.TextWidth(ShowText);
if (OffsetX + textLength) > 0 then
begin
Image.Picture.Bitmap.Canvas.Brush.Style := bsClear;
Image.Picture.Bitmap.Canvas.Font.Color := clRed;
Image.Picture.Bitmap.Canvas.TextOut(OffsetX, 10, ShowText);
Dec(OffsetX, 1);
end;

finally
Image.Canvas.Unlock;
end;
end;
end;

原理再容易不过了，因为CallBack后，可以直接绘制视频到canvas上，这样可以对这个canvas进行操作，你加什么东西都行。

请大虾解决关于dsPack叠加滚动字幕的问题。

相关推荐