关于Tanimate的问题

zsr 2000-06-06 10:05:00

如何在Tanimate中使用DLL中的AVI?为什么总是出现"无法打开AVI"的错误?

...全文

170 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

roach 2001-01-14

打赏
举报

把原来的多媒体控件删了，从放一个，从新设一下参数！！
应该可以了！！！

wenzm 2001-01-14

打赏
举报

为什么不用资源文件，你可在命令行下用BRCC32编译为资源文件调用啊！

Delfly 2001-01-14

打赏
举报

如果你直接用Tamimate调用AVI都不行，那么可能是下面的原因。
AVI有很多种格式，你的AVI文件Delphi不支持。你用Paint Shop Pro的Animation Shop转换成其他格式的AVI试试，我记得只有一种格式Delphi是支持的，具体不记得了。

Kingron 2001-01-13

打赏
举报

看看你的代码就知道了。可能是你的句柄不对。

zsr 2001-01-13

打赏
举报

help!

Lin 2000-06-07

打赏
举报

1、使用正确的ResHandle；
2、使用正确的ResID或者ResName

使用Delphi制作响应TAnimate组件的OnClick事件..rar

程序中总会用到支持Gif格式的动态窗口，从其他地方找的要么用第三方，要么在D2010 Win6 64位环境下 TAnimate 无法显示问题用不了就花了些时间自己写个动态窗口，使用线程来执行动画窗口，用Image控件显示动态Gif

不得擅自修改该文件，如果你在使用中有什么意见，可以和作者联系，联系方式：whj7510@citiz.net 主要用于程序运行过程中显示一个等待对话框,其中包含一个AVI(TAnimate),两个提示信息(即TLabel),一个进度条(TGauge)；可以对相关主要方法： FormShow : 显示等待对话框 FormHide : 关闭等待对话框 ProgressStepIt : 等待对话框中进度条位置自增一个Step 主要属性： Name : 等待对话框名称 Caption : 等待对话框标题Caption Message1 : 等待对话框的提示信息1 Message2 : 等待对话框的提示信息2 wordWrap : Message1,Message2一行显示不完，是否自动转行 Message1Font , Message2Font : Message1,Message2字体 AVIAcitive : 等待对话框中AVI动作是否执行 ProgressMax : 进度条最大值 ProgressMin : 进度条最小值 Progresspos : 进度条当前位置 ProgressStep : ProgressStepIt 方法中进度条自增一个Step的量 DialogStyle(=dlgNormal, dlgStayOnTop): 等待对话框显示时是否始终在最前面 AviPosition(=aviBottom，aviTop，aviLeft) : AVI的位置 [Options]: showMessage1 :是否显示提示信息1 showMessage2 :是否显示提示信息2 showAVI :是否显示AVI showCaption :是否显示等待对话框Caption showProgress :是否显示进度条 ShowProgressText :进度条上是否显示进度百分比

Easiest way to install: Load the program group AviDemo.bpg, install the package AviPack.dpk(bpl), try the demos. Read the source of AviWriter_2.pas (in AviPack) to get help on what the procedures and properties do. **Current version: AviWriter_2 ver 1.0.0.4 Changes: Finally got On-the-fly compression working with still being able to add an audio-stream. Use property OnTheFlyCompression (default is true) Also, now more than one audio file can be added. For each wav-file a delay (ms) can be specified, which says when it'll start playing. Use method AddWaveFile. In 1.0.0.3 the delay got too short. Now it seems to work, due to really adding "silence" from the end of the previous audio file. Note: Some Codecs don't support On-the-fly compression. If OnTheFlyCompression is false, only one wave file can be added. **A list of codec-gotchas: (still unclear about the exact range of occurrance) IV50 Indeo Video 5: Both frame dimensions must be a factor of 4. DIVX DivX codec: Both frame dimensions must be a factor of 4. Gives a floating point error under certain circumstances. More and more likely that this occurs if the frames are too "different". If this happens, then there's an AV in Avifil32.dll, don't know how to prevent this. The codec compresses real movies nicely at frametimes <=60 ms, when changing the settings in its dialog box as follows: Bitrate (1st page): to >=1300 Max Keyframe interval (2nd page): to <=20. MRLE MS-RLE Use that one if you want to make avis which play transparently in a TAnimate. (Thanks Eddie Shipman) But it does not support on-the-fly compression. Whenever a codec fails to work, there's this dreaded error "A call to an operating system function failed" while writing a compressed file, or an unhandled exception. The only way to prevent it, that I see, is, to collect more peculiarities about the codecs and stop execution in case of certain combinations of settings. When queried about their capabilities, some of these guys seem to lie. Renate Schaaf renates@xmission.com

第1章　窗体与界面设计　1 1.1　菜单应用　2 实例001　在系统菜单中添加菜单项　2 实例002　带历史信息的菜单　3 实例003　菜单动态合并　4 实例004　像“开始”菜单一样漂亮的菜单　5 实例005　多彩的菜单　6 实例006　可以拉伸的菜单界面　8 1.2　工具栏设计　9 实例007　带背景的工具栏　9 实例008　浮动工具栏　10 1.3　状态栏设计　11 实例009　在状态栏中显示检查框　11 实例010　带进度条的状态栏　12 实例011　状态栏中加入图标　13 1.4　导航菜单界面　14 实例012　OutLook界面　14 实例013　带导航菜单的主界面　15 实例014　图形化的导航界面　16 1.5　特色程序界面　18 实例015　类QQ的程序界面　18 实例016　类似Windows XP的程序界面　20 实例017　以图形按钮显示的界面　21 实例018　以树型显示的程序界面　23 实例019　以XPManifest组件显示界面　24 实例020　动态按钮的窗体界面　25 1.6　特殊形状的窗体　26 实例021　非矩形窗体　26 实例022　建立字体形状窗体　28 1.7　多媒体光盘　29 实例023　自动启动的多媒体光盘程序　29 实例024　为触摸屏程序添加虚拟键盘　30 实例025　触摸屏系统　31 1.8　窗体效果　33 实例026　半透明渐显窗体　33 实例027　窗口颜色的渐变　34 实例028　带背景的窗体　35 实例029　为窗体增加边框　36 1.9　窗体动画　37 实例030　窗体中的滚动字幕　37 实例031　动画显示窗体　38 实例032　制作闪烁的窗体　39 实例033　直接在窗体上绘图　40 实例034　动画形式的程序界面　41 实例035　以时钟显示界面窗体　42 1.10　标题栏窗体　44 实例036　标题栏上的按钮　45 实例037　使窗体标题栏文字右对齐　47 实例038　没有标题栏但可以改变大小的窗口　48 1.11　设置窗体位置　49 实例039　不可移动的窗体　49 实例040　设置窗体在屏幕中的位置　50 实例041　始终在最上面的窗体　51 1.12　设置窗体大小　52 实例042　限制窗体大小　52 实例043　获取桌面大小　53 实例044　组件大小随窗体的改变而改变　53 实例045　在窗口间移动按钮　54 实例046　如何实现Office助手　55 1.13　窗体控制技术　56 实例047　在关闭窗口前加入确认对话框　56 实例048　程序在循环中响应界面操作　57 实例049　使用任意组件拖动窗体　58 实例050　动态创建窗体和释放窗体　59 实例051　修改提示字体及颜色　60 1.14　其他技术　61 实例052　窗口融合技术　61 实例053　给MDI窗体加背景　62 实例054　如何关闭MDI类型窗体中的子窗体　63 实例055　向提示框中添加图标　64 第2章　控件应用　67 2.1　TEdit控件应用典型实例　68 实例056　从右至左输入数据　68 实例057　为TEdit控件添加列表选择框　69 实例058　只允许输入数字的TEdit组件　70 2.2　TSpeedButton控件应用典型实例　71 实例059　在TSpeedButton按钮中显示图标　71 实例060　折行显示按钮标题　72 2.3　TMemo控件应用典型实例　73 实例061　设置TMemo组件的边界　73 实例062　TMemo组件的光标定位　74 实例063　得到TMemo中的可见行数　75 2.4　TListBox控件应用典型实例　76 实例064　在TListBox组件间交换数据　76 实例065　为TListBox添加水平滚动条　77 实例066　将数据库数据添加到组合框中　78 实例067　借助绑定控件实现数据选择录入　79 2.5　TListView控件应用典型实例　80 实例068　TListView列表拒绝添加重复信息　80 实例069　将数据库数据添加到TListView控件　82 实例070　用TListView控件制作导航界面　83 实例071　在TListView控件中对数据排序或统计　84 实例072　在TListView组件中绘制底纹　86 实例073　在列表视图中拖动视图项　87 2.6　TTreeView控件应用典型实例　88 实例074　将数据库数据显示到树视图中　88 实例075　用TTreeView控件制作导航界面　90 实例076　TTreeView组件遍历磁盘目录　91 实例077　TTreeView组件在数据库中的应用　92 2.7　TStringGrid控件应用典型实例　94 实例078　程序运行时对

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章