Pater's profile程序世界PhotosBlogListsMore Tools 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上看到的经典文章!转来大家一起笑笑!不过或许也不可笑……

有日,出差到北京,与客户相约吃饭。此人五十余岁,身材魁梧,眉眼之间很是和善。与客户之间的应酬原本是我最不喜欢的事情。好在,这客户性格爽朗,又非常健谈,所以这顿饭吃的还算开心。吃过之后要了一壶茶开始闲聊。也不知怎地,就聊到了孩子的事情上去。源头好像是说起来人这一生,忙忙碌碌究竟是为了什么。他的总结是:如果你结婚,并有了下一代的话,那么你的一生就全得交代给孩子了。
大概是见我表情淡然,对他得总结似乎不以为然。他说:你不信?那你听我跟你说道说道吧。
他用一口纯正的京片子给我做了以下一番人生总结。
打从老婆怀孕开始,一切就拉开了序幕。刚开始,谁也不认为生活将彻底改变。这都是在实践中,慢慢悟出来的。
女人一旦怀孕,心理的变化自不必说。生理上的反应先就同时要了夫妻两人的命。今天要吃酸的,明天要吃辣的。明明这一分钟嚷嚷着要吃白煮面条(这东西,没怀孕的时候她压根不知道面条还能这么吃!),等你把面条做得了端到她面前,还没送进嘴她就开始哇哇大吐。你必须以闪电的速度从她眼前拿开。否则,她能把肠子吐出来。吐完了还继续要吃的,这回可能想吃的就是“聚仙居”的灌肠。她可不管外面是刮风下雨还是下刀子,也不管是凌晨还是半夜,反正那会儿你要是不想办法让她吃到想吃的东西。她能立刻一尸两命的死给你看。那个阶段,什么奇怪她吃什么,什么没有她要什么。我那时就琢磨,这女人肚子里到底怀的是孩子啊还是魔障!
七八个月的时候,反应少了,可各种检查多了。去医院就象回咱家,三天不去一趟,就觉得心里没底,八成要出事儿似的没谱。各种仪器全上,今天查查胎位,明天扫扫心跳。弄的我们全家总有兵临城下的感觉。生怕哪天从医生嘴里就吐出些让我们心颤的话来。越是临近要生了,脑子里的念头就越复杂。就琢磨着,孩子健康不?缺什么不?多什么不?看得见不?听得见不?能说话不……总之,那个时候,是男是女根本不是最重要的。终于,进了手术室了。这些念头更是排着队的在脑子里转圈,更加上了孩子她妈平安不。老婆在里面使劲,这老爷们在外面几个小时来回兜圈子也很需要体力。
孩子呱呱落了地,正片才叫真的开演了。
从早到晚,所有的大人轮轴围着孩子转。负责洗尿布的,负责给孩子洗屁股的,负责给产妇做饭的。偏偏我老娘又是医院的护士,当了半辈子的护士长,超级的责任心外加职业病。退休以后就等着孙子降临人间以发扬她老人家的光和热呢。
尿布光洗不行,洗完了得上高压锅煮,煮完了还得在太阳底下晒。绝不允许任何一块尿布上出现可疑的印记。小东西的屁股拉了尿了只擦干净不行,必须用水仔仔细细的洗一遍,完了再扑一层香喷喷的强生婴儿爽身粉。洗澡更是马虎不得,澡盆里谁的温度是用温度计严格控制好的,房间里的温度也必须保持在一个恒温的状态。手势要稳,动作要快,该洗的地方也不能漏了。
产妇吃的东西也有讲究,不是为了大人吃,全都得考虑小东西的营养需求。不能太油腻,孩子会拉稀。不能太清淡,孩子营养不够。不能吃上火的东西,孩子要发疹子。每餐必须有足够的钙、铁、蛋白质、粗纤维、维生素ABCDEFG。从前媳妇儿挑食,现在坚决制止。为了孩子,你嘛都得硬着头皮给我吃!就这么伺候着,孩子还是难保不得病。那就真是了不得的大事情了。全家出动,轮流守候。看着孩子浑身插着管子的时候,全体大人都悲痛万分,恨不能替孩子疼了,受了。
就这么伺候着小家伙平安到了入托的年龄。开始考察幼儿园的水平,吃的好不好,住的好不好,教学质量好不好。现在的孩子,升了中班就开始有了兴趣课。孩子上,你也得跟着学。否则,你怎么辅导孩子?重点幼儿园里会有各种外事活动,今天演出,明天汇报。这些,家长都得陪同前往。漏一次不只孩子不依不饶,老师都会给你脸色看。谁敢不去?!快要离开幼儿园的时候,又要开始挑选好的小学。要看学校环境,要看升学率,要看师资水平。入学了还要随时注意孩子的学习成绩,继续参加更多的兴趣班,大人也继续跟着学习更多的文化知识。不光这样,还得每天有大人去学校接孩子放学。一接六年,风雨无阻。
上了初中,不用再接送孩子上学了。可是要操心的事情就更多了。学习成绩不能放松,兴趣学习继续加强。十几岁的孩子开始玩儿叛逆了,见天去和班主任互相沟通,以掌握孩子的第一动向。德智体美全面均衡的发展。自打孩子上了学,他奶奶的主要工作就放在了孩子的一日三餐上。他老人家就能十年如一日的做到,孩子放学那边推开门,这边最后一道热炒上桌。荤素搭配,既科学又营养。
上高中是关键中的关键,学校要挑最好的。考不进去就掏赞助费进去。各种课外的兴趣课全停了,但各种补习课多了。周末上奥数,节假日上加强班。孩子天天扎在书堆里,大人也基本上扎书堆边儿。要是孩子不专心学习,又谈个早恋什么的,麻烦就大了。现在的小孩你还不能来硬的。你要跟他讲道理,讲的还得好听,还得生动。否则孩子听烦了根本不买你的帐。他那边小牛犊子什么都不怕。哪知道我们已经操碎了心就快一夜白头。
临近高考,千军万马过独木桥的时候到了。一次又一次的模拟考试,总结经验、寻找差距。四处打听各种有谱的没谱的消息。注意孩子的情绪,身体,成绩。那三天对于孩子是黑色的,对于我们也是乌云漫天。我眼见着我们两口子日渐消瘦和衰老。
好不容易的,如愿以偿的考上理想大学了,你想松口气了?门儿都没有。操不完的心重来一遍!你这边操心巴拉的费着神,他那边正儿八经的谈上恋爱了。你怎么办?孩子大了难道还能象小的时候那样横加干涉么?当然不行,你得注意方式,注意别使拧了劲儿!实在没辙你还就得由着他爱个昏天黑地去。毕业不到半年他同居了,一年过后说要结婚了。好么,你这儿又要开始张罗婚事了。结婚得有房子吧,得办酒席吧,得准备家当吧。
终于,孩子结婚了,成家了。出去单过了。你想着终于可以松口气了吧!嘿!咣珰!他俩又给你整出个孩子来!
听得目瞪口呆的我,此刻终于笑昏了过去。

算是对人生的感悟……挺好笑的文章,你笑得出来么?

 
Photo 1 of 1

程序世界