Delphi播放Gif和Flash动画的方法
显示一个GIF动画
procedure ShowGIF( GIFFileName : String );
var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData := false;{不发送数据} Heads := '';{Header信息为空} Flags := 0;{Flags设为0} URL := GIFFileName; with formGIF.webbrowser do{在指定窗口中的IE浏览器控件中显示动画} begin navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件} end; end;
播放Flash
首先，你的机器里要装有 Flash 播放软件（你的 IE 能显示 Flash ）。IE 之所以能显示 Flash 是安装了由 Macromedia 公司提供的 swflash.ocx 控件，我们可以在Win98 的 $Windows\System\Macromed\Flash 中或在 Win2000 中的 $Winnt\System32\ Macromed\Flash 中找到它。ActiveX 控件在 Windows 里是通用的，Delphi也同样支持。
运行 Delphi 后，选择选单Component→Import ActiveX Control，找到SWFlash.OCX 文件进行安装。安装完成后，ActiveX 面板里出现 TShockwaveFlash控件，这是Delphi对SWFlash.OCX 的封装，现在我们就可以用这个控件来播放 Flash 了。拖一个 Flash 过来，放在 Form 上，指定其 Movie 属性为 d:\test.SWF，并按 F9 键加以运行即可。怎么样，运行效果不错吧？
下面，笔者将具体介绍TShockwaveFlash主要属性、方法和事件，以便于读者开发。
TShockwaveFlash主要属性如下：
ReadyState：读一个flash文件时的状态，其中包括0=Loading、1=Uninitialized、2=Loaded、 3=Interactive和4=Complete； TotalFrames：总帧数，只有当ReadyState = 4时才能访问该属性； FrameNum：当前播放的帧； Playing：播放或暂停一个flash； Quality：指定当前渲染的质量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh； ScaleMode：缩放模式，0=ShowAll、1= NoBorder、2 = ExactFit； AlignMode：对齐模式，Left=+1、Right=+2、Top=+4、Bottom=+8； BackgroundColor：背景色，-1为默认颜色； Loop：是否循环； Movie：指定播放的flash文件路径，可以为一个URL。
TShockwaveFlash主要方法如下：
Play()：开始播放动画； Stop()；停止播放动画； Back()；播放前一帧动画； Forward()：播放后一帧动画； Rewind()：播放第一帧动画； SetZoomRect(int left, int top, int right, int bottom)：设置缩放的区域； Zoom(int
相关文档：
函数一：
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
公司的餐饮系统出品的助记码，还没实现自动从出品名称获取汉字拼音首字母。
所以在网上找了三种解决方法，
一种是kaguo 的使用常用汉字拼音查找方法，这种代码十分简单，实现方便，但是这种代码仅仅是一级字库，只支持三千零几个字的。
//获取中文字串的声母� ......
首先， 我的FF版本是3.0.16的，从官网（http://get.adobe.com/flashplayer/）上下载.tar.gz包后。。解压出里面的一个＊.so文件
件之后，把该文件复制到/usr/lib/mozillia/plugins下，重启ff就OK了。
（以上方法仅供参考，至少我是这样做的，并且成功了，） ......
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TDemoForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GetButton: TBitBtn;
CloseButton: TBitBtn;
Bevel1: TBevel;
Label5: TLabel;
......
flash是macromedia公司出品的，用在互联网上动态的、可互动的shockwave。它的优点是体积小，可边下载边播放，这样就避免了用户长时间的等待。
flash可以用其生成动画，还可在网页中加入声音。这样你就能生成多媒体的图形和界面，而使文件的体积却很小。
flash虽然不可以象一门语言 ......
