- 博客(0)
- 资源 (2)
- 收藏
- 关注
修改过的适合Delphi7的GifImage程序(经多线程测试)
原GifImage在多线程运行时,经常产生异常。因此特别做了特殊的判断和处理。
在调用时,需要特别注意。
var
gif: TGifImage;
image: TImage;
aFileName: String; // 图片文件名称
begin
....
gif := TGIFImage.Create;
try
gif.LoadFromFile(aFileName);
image.Picture.Assign(gif.Bitmap);
gif.AnimationSpeed := 200;
gif.Animate := true; // 设置为动画,这样才能有动画效果
// 需要加上这个,否则,会出现Out of System Resource
if image.Picture.Graphic.Palette 0 then
begin
deleteObject(image.Picture.Graphic.Palette);
image.Picture.Graphic.Palette := 0;
end;
// 注意:这个是关键(没有用Assign),新产生的对象拷贝了原来的Gif信息
image.Picture.Graphic := gif;
finally
if Assigned(gif) then FreeAndNil(gif); // 注意:释放了gif的对象资源
end;
2020-07-19
多通道音乐播放软件
目前这个软件最多支持8个Asio通道。如果没有Asio驱动,需要安装一个ASIO4ALL就可以了。
此软件支持22KHz,44KHz,48KHz的WAV格式语音(单音频或双音频),可以把计算机的左右声道播放不同的音乐。
安装上多通道声卡后,可以支持更多的通道。
操作比较简单:
1)通过界面上的“加载”按钮,选择音频文件所在的目录,加载后,音频文件将出现在列表中;
2)对相应的文件点击右键,就会出现一个菜单。
3)界面的按钮基本没有作用,只是一个演示用途,表明以后此软件能做的事情。
2015-08-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人