求教ImageEn,在虚拟视频上做上时间戳,但如何实现回传带了时间戳的图像?

笛声悠扬2021 2018-07-21 07:25:10
如题,ImageEn有回传功能吗?



...全文
308 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
笛声悠扬2021 2018-07-21
  • 打赏
  • 举报
回复
var
ss,XX: string;
I,J:INTEGER;
begin
ImageEnView1.LayersCurrent:=0;
ImageEnView1.IO.DShowParams.GetSample(ImageEnView1.IEBitmap);
ss := FormatDateTime('c', date + time)+DJS;
I:=POS(':',DJS)+1;
J:=POS('分',DJS)-1;
XX:=COPY(DJS,POS(':',DJS)+1,J-I+1);

ImageEnView1.CurrentLayer.Locked := False; //添加层不锁定
with ImageEnView1.IEBitmap.Canvas do
begin
font.Size:=18;
Brush.Style := bsClear;
IF (STRTOINTDEF(XX,0)>10) OR (STRTOINTDEF(XX,0)=0) THEN
Font.Color := clWindow
ELSE
IF STRTOINTDEF(XX,0)>5 THEN
Font.Color := clYELLOW
ELSE
Font.Color := clRED;

FONT.Name:='黑体';
TextOut(0, 0, ss);
end;

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧