delphi中使用flash控件的方法
flash是macromedia公司出品的，用在互联网上动态的、可互动的shockwave。它的优点是体积小，可边下载边播放，这样就避免了用户长时间的等待。
flash可以用其生成动画，还可在网页中加入声音。这样你就能生成多媒体的图形和界面，而使文件的体积却很小。
flash虽然不可以象一门语言一样进行编程，但用其内置的语句并结合 javascripe，您也可作出互动性很强的主页来。
flash另外一个特点就是必须安装插件plug-in，才能被浏览器所接受！当然这也避免了浏览器之间的差异，使之一视同仁！
但是你知道吗？在delphi中可以直接打开flash动画，并控制它播放和停止。你还可以得到它的总帧数，知道怎么实现的吗？请跟我来。
在delphi中的component|import activex contrals...中选中 "shockwave flash(version 1.0)",并单击install,会出现一个install窗口。
如果要把它添加到一个已经存在的包中，在"into existing package"对话框中的 "file name:"窗口中选择你想安装的路径，并单击"ok"；会弹出一个确认的对话框，它问你"package dclusr50.bpl will be rebuilt. continue?",单击"yes"；在弹出的窗口中单击击"install",该插件就安装完毕。
如果要把它添加到一个新建的包中，在"into new package"对话框中的 "file name:"窗口中选择你想安装的路径，并新建一个包，假如命名为test，并单击"ok"；它问你"package test.bpl will be built. continue?",单击"yes"。 在弹出的窗口中单击击"install",该插件就安装完毕。
这时，你会在控件条的activex下发现一个新的控件，名字为shokewaveflash, 单击它把它放在form中，在该form中放一个opendialog控件和一个panel，在该panel上放四个button，他们的caption属性分别命名为"openfile","play","stop","close".设置panel1，shockwaveflash的align 属性分别为alleft 和alclient; 分别在这四个button的onclick事件中写下如下代码：
procedure tform1.button1click(sender: tobject);
begin
if opendialog1.execute then
shockwaveflash1.movie:=
opendialog1.filena
相关文档：
首先用Notepad或Resource workshop 4.5建立RC文件。 结构如下 /****************************************************************************
rcdemo.rc
produced by Borland Resource Workshop
*****************************************************************************/
# ......
今天看了外国一篇文章，觉得很有意思，于是在这里记录一下。彩色图转换成黑白照。在ps 要是将彩色的图转换黑白照的方式只是需要简单的动作。而在flash 处理起来也非常简单。
先选择一张喜欢的图片，然后进行处理。例如这张照片，图片中的是一个很不错的靓女。呵呵
现在通过� ......
首先， 我的FF版本是3.0.16的，从官网（http://get.adobe.com/flashplayer/）上下载.tar.gz包后。。解压出里面的一个＊.so文件
件之后，把该文件复制到/usr/lib/mozillia/plugins下，重启ff就OK了。
（以上方法仅供参考，至少我是这样做的，并且成功了，） ......
有时候我们需要可以高速检索的列表，自然会想到哈希表，平时我们可能想到用IniFiles单元里的THashedStringList，但 THashedStringList每次新增一个Item后都需要刷新一遍，数据多了可能会有点慢，感觉不太好，而TStringHash则只能存 Integer型的(虽然我们可以把别的东西强制转成整型存进去，但感觉不太好)。TStringHash已经� ......
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;
......
