修改过的适合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;

多通道音乐播放软件

目前这个软件最多支持8个Asio通道。如果没有Asio驱动，需要安装一个ASIO4ALL就可以了。 此软件支持22KHz，44KHz，48KHz的WAV格式语音（单音频或双音频），可以把计算机的左右声道播放不同的音乐。 安装上多通道声卡后，可以支持更多的通道。 操作比较简单： 1）通过界面上的“加载”按钮，选择音频文件所在的目录，加载后，音频文件将出现在列表中； 2）对相应的文件点击右键，就会出现一个菜单。 3）界面的按钮基本没有作用，只是一个演示用途，表明以后此软件能做的事情。