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
相关文档：
在当今数字技术飞速发展的时代, Flash 因其非易失性及可擦除性而在数码相机、手机、个人数字助理(PDA )、掌上电脑、MP3 播放器等手持设备中得到广泛的使用。Nor 和Nand 是两种主要的非易失闪存技术。自1989 年东芝公司发表了Nand Flash 结构以来,Nand Flash 以其具有更小的体积, 更快的写入和擦除速度, 更多次的可擦除次数, ......
以Caps Lock键举例，其它(VK_NUMLOCK),类同：
判断状态：
方法1
Level: integer;
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//没亮
else
//亮了(1)
方法2
KeyState : TKeyBoardState;
GetKeyboardState(KeyState);
if KeySt ......
最近需要将Magento(国外比较出名的开源PHP+MySQL电子商务网站)与一个ERP进行整合，就需要调用Magento的Webservice。
Magento提供2套api。
注：如果需要同构调用需要使用第1个wsdl，如异构程序调用需使用第2个wsdl。
1.http://xxx.xxxxxxx.xxx/magento/api/soap/?wsdl
2.http://xxx.xxxxxxx.xxx/magento/api/v2_soap/?ws ......
前几天大致分析了u-boot针对smdk2410的源码，了解了启动的流程，但是对板上许多硬件的驱动过程还不太清楚。smdk2410源码中有针对Nor Flash的初始化和读取，但源码中没有对Nand Flash的操作，虽然针对其他型号的板子应该有Nand的源码，但方便起见，我查阅了vivi的源码，它支持从Nand Flash启动，自然有我需要的东西。下面我� ......
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
//用IE打开
ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
//用火狐打开
ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);
//用默认浏览器打开
&nbs ......
