Pater's profile程序世界PhotosBlogListsMore ![]() | Help |
Flash 和 Delphi 交互我直接把代码贴上来了,希望对大家有所帮助!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls; type
TForm1 = class(TForm) shckwvflsh: TShockwaveFlash; btn2: TButton; procedure btn2Click(Sender: TObject); procedure shckwvflshFSCommand(ASender: TObject; const command, args: WideString); procedure shckwvflshFlashCall(ASender: TObject; const request: WideString); function getCallName(request: WideString): WideString; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin shckwvflsh.Movie:= ExtractFilePath(Application.ExeName)+'swfdelphi.swf'; end; function TForm1.getCallName(request: WideString): WideString;
var str: WideString; begin str:= Copy(request, 15, Length(request)); str:= Copy(str, 0, Pos('"', str)-1); Result:= str; end; procedure TForm1.btn2Click(Sender: TObject);
begin shckwvflsh.CallFunction('<invoke name="setLabel"><arguments><string>1234</string></arguments></invoke>') end; procedure TForm1.shckwvflshFlashCall(ASender: TObject;
const request: WideString); var str_command: WideString; begin str_command:= getCallName(request); if str_command='CallDelphi' then begin shckwvflsh.SetReturnValue('<bool>false</bool>'); end else if str_command='GetObject' then begin shckwvflsh.SetReturnValue('<object><property id="success"><bool>false</bool></property><property id="message"><string>Dummy error</string></property></object>'); end; end; procedure TForm1.shckwvflshFSCommand(ASender: TObject; const command,
args: WideString); begin ShowMessage(command); end; end. 1/11/2007 呜咪,爸爸写给你的……呜咪,还恨爸爸当时拿报纸吓你不?谁叫你当时不乖呀!爸爸只是要教你一些东西么!谁叫你乱拉屎乱拉尿啦!
爸爸对你不好就离开爸爸妈妈啦?爸爸妈妈希望你每天都能和你刚来家里第一天那样开开心心的,爸爸妈妈会一直记得你的,路上小心啊!平时生活中也要小心哦!可别遇到女流氓哦!有事情叫周公捎信过来,爸爸妈妈一定帮你解决!
等你看到这个space的时候估计已经很多天以后了,我们宝宝还是很聪明的对吧!没几天就学会使用电脑和Internet了对吧?爸爸是老IT了,妈妈怎么说算是搞IT的,有其父必有其子么!
爸爸就写到这里,过几天再给你写,现在再看守你的躯体一下! 10/27/2006 写给自己看得(摘自DRL):一度温暖,一百度爱情刚刚结婚时,他没有钱,带着她住在破旧的老房子里。她从北方城市来,习惯了北方冬天房子里的暖气,随他到这里,房间冰冷,四处漏风,没几日,便病了一场。他守在她的病床前,心疼得说不出话来。 她病好后,他就习惯了每天晚上睡觉前为她端来洗脚水,热腾腾地冒着水汽,然后拉着她的脚放在水里,帮她洗着搓着,小心翼翼地,好像洗的并不是脚,而是一件瓷器,极其珍贵的瓷器。为她洗好擦干后,他再脱掉袜子,把脚放进已经凉掉的水里,嘴里唏唏嘘嘘地说 ,这水可真热啊。 冬天,她每周要洗两次澡,周三和周日。她也跟着养成了这个习惯,并且每次他都执意要先洗,他洗好了再叫她去浴室,那天,她想快快洗过澡后看电视剧,同他说,今天我要先洗澡。他摇头,不行,我先洗。她以为他在开玩笑,一边向浴室走去一边撒娇着说,不,我 要先洗,洗好了可以看电视。他去一步冲上来,拉住她,一脸严肃,我说过我先洗!说完,转身进了浴室。 他从没有在任何一件事情上不迁就着她,唯独这次,为了洗澡,这么微小的事情,她在浴室外,听着流水声,委屈得哭了出来。那天,她赌气要回家,并收拾了衣服,他苦苦求她,她坚决要离开他,她说,连这么点小事都不迁就我,还算什么好丈夫。 还是哄好了她,他许诺下次任何事情都让着她,不再同她争。可是,她的气渐渐消了后,他依旧是先她一步洗澡,她便也不与他计较,忘记了谁先谁后的诺言。 从冬季过渡到夏季,房子热得像蒸笼,不动也会出一身汗。不再泡脚,每晚都要洗一次澡。他反倒磨蹭起来,不是说自己要看足球,就是说自己要看新闻,总是让她先洗,便又颠倒了顺序,每天都是她先洗,然后才是他。 后来,他的弟弟准备结婚,买了房子,同样没有暖气,让哥哥嫂子去新房子看看。他首先进了浴室,左右看了看,对弟弟说,新房就是比老房子好,没有暖气也不会漏气,不过你要记住,女人怕受凉,冬天洗澡,你要先洗,洗过以后,浴室的温度就会上升,我试过,最 少也能上升一度呢!弟弟笑,哥你可真细心,那夏天呢?夏天是不是一定要让她先洗,这样会比后洗的人凉快一度?他拍着弟弟的肩,点点头。 他以为正在参观厨房的她没有听到,其实她听得清清楚楚,听得泪流满面。她想呀,自己太笨了,这么多年,从老房子搬到新房子,从没暖气到有暖气,他一直保持这个习惯,她竟然从未认真揣摩过里面的意义。 当晚,她第一次为他端了洗脚水。有了新房子后,洗脚的习惯反而因为每天洗澡而忽略了。他拗不过她,只好把脚放在热水里,她为他洗着搓着,那脚板上满是硬硬的茧,她眼底渐渐潮湿,这是他走过多少路,受过多少累,给了她如今这个温暖的家啊,而她自己,竟然 从未为她洗过一次脚。 她抬起头时,他只笑着说了一句,原来,媳妇给洗脚这么舒服啊!她便哭了。 他洗过后,她学着他当年的样子,脱了袜子,把脚放在水中,却发现,水已经凉掉。原来,一个人洗过后的水,第二个人洗时,是凉掉的,而非仍然热着。 她没有说出来,也没有刻意去改变那个先洗后洗的顺序,因为她知道,这是他以自己的方式所给予她的爱,实实在在的爱。冬天为她增一度,夏天为她减一度,只是一度温暖,却是一百度有爱情。 10/17/2006 写给自己看的:时间“四象限”法时间“四象限”法是目前很时髦的一种时间管理理论,我参加的培训主要讲的就是这方面的内容。“四象限”法是美国的管理学家科维提出的一个时间管理的理论,把工作按照重要和紧急两个不同的程度进行了划分,基本上可以分为四个“象限”:既紧急又重要(如客户投诉、即将到期的任务、财务危机等)、重要但不紧急(如建立人际关系、人员培训、制订防范措施等)、紧急但不重要(如电话铃声、不速之客、部门会议等)、既不紧急也不重要(如上网、闲谈、邮件、写博客等)。 重要紧急的事马上做,例如处理客户投诉、处理服务器故障等突发性问题,尽量以最短最快的时间内完成这些事情。 其次是做重要而不紧急的事,这一类的事情影响深远,例如学习新知识、新技能等,这类事情的效益是中长期的,科维提出的时间管理理论的的重点是把主要的精力和时间集中地放在处理重要但不紧急的工作上。 紧急但不重要的事,要学会说“不”。一个人的时间和精力是有限的,对于自己不重要的事情,能不做就不做,想办法将事情推脱给其它部门,拒绝或推脱工作要讲究技巧,不要直截了当,要委婉,用让上级觉得确实是合理的理由来拒绝这个新增派的任务。一个人只有学会说“不”,他才会得到真正的自由。当然这并不等于推卸责任,如果确实需要自己来完成,那么就使用最短的时间完成这些工作。 对于不重要也不紧急的事,尽量不去做。如果确实需要做,那么要严格限定时间,比如写博客,限定一个小时,时间一到就立刻停止写作,千万不要被无聊的人和无关重要的事缠住。 因此,只要我们把精力主要放在重要但不紧急的事务处理上,合理安排时间,我们就能做到自己的长远规划,工作效率就会大幅提升,一段时间过后,等待你的就会是升职和加薪。 10/11/2006 爱情中的快乐清理了一下自己msn的好友列表,把一些勉强算是哥们的哥们清理掉了!留在这里的都是一些最最好的哥们,当然,涛哥、二孬、妹妹三位同志因为没有通过验证,所以也删除了,要加进来的话自己发个msn给我!我再发一次邀请给你们!(貌似这话他们看不到了么……
这里剩下的也只有自己人了!
没啥其他说的,其实还是说我家宝宝……
原先spaces中关于宝宝的帖子因为一些原因被删除掉了!现在重新写一份咯!
把背景音乐换成了小刚的《快乐练习曲》,这段时间在一起虽然有些小摩擦,但是还是很快乐的!宝宝对吧?
在贴张目前为止我最最喜欢的宝宝的照片:
![]() 嘿嘿……
上次2张照片大家有收藏的么?我可不再提供咯!
宝宝,我对你说过的,真正的喜欢真正的爱不是放在嘴上,放在行动上,而是放在心里
希望宝宝每天都开开心心的,我不希望你愁眉苦脸的样子,每天都要快乐,虽然我有时候也是挺讨人生气的对不?
还在公司呢!宝宝我去忙咯! 9/20/2006 在DRL上看到的经典文章!转来大家一起笑笑!不过或许也不可笑……有日,出差到北京,与客户相约吃饭。此人五十余岁,身材魁梧,眉眼之间很是和善。与客户之间的应酬原本是我最不喜欢的事情。好在,这客户性格爽朗,又非常健谈,所以这顿饭吃的还算开心。吃过之后要了一壶茶开始闲聊。也不知怎地,就聊到了孩子的事情上去。源头好像是说起来人这一生,忙忙碌碌究竟是为了什么。他的总结是:如果你结婚,并有了下一代的话,那么你的一生就全得交代给孩子了。 算是对人生的感悟……挺好笑的文章,你笑得出来么? 程序世界 |
||||||||
|
|