捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：Delphi AOP(Aspect Oriented Programming) Frame - MeAOP v0.5
garnett2183 23619 2006/5/15 20:31:24
源码提供出来吧...
wu_yanan2003 23618 2006/5/15 19:20:20


看看这个吧。。。。。。。。。。
http://www.delphibbs.com/keylife/iblog_show.asp?xid=20255
wu_yanan2003 23616 2006/5/15 19:18:38


if Name= 'SelectDataSet' then
这里方法拦截。

 //conn 注入
          InvContext.SetParamPointer(0, @conn);
          //sql 注入
          InvContext.SetParamPointer(1, @sql);
这里注入参数。
wu_yanan2003 23615 2006/5/15 19:17:46
    呵呵，可惜没source，要支持参数才行，没参数没什么用呀，只是纯粹的函数拦截吧，DELPHI下的AOP也不是什么神秘的技术了。DELPHI下的WEBSERVICE早就实现了。
    http://www.delphibbs.com/keylife/iblog_show.asp?xid=20252，以前和群里兄弟讲的就是这个，原码都发给他们了。
for i := 0 to High(IntfMD.MDA) do
      with IntfMD.MDA[i] do
      begin
         if Name= 'SelectDataSet' then
         begin
          InvContext.SetMethodInfo(IntfMD.MDA[i]);
          //conn 注入
          InvContext.SetParamPointer(0, @conn);
          //sql 注入
          InvContext.SetParamPointer(1, @sql);

          try
          Inv.Invoke(PerTemplate, IntfMD, i, InvContext);

          finally
          Inv.Free;
          end;

          break;
         end;

       end;
   
看看我这个吧。  //conn 注入
          InvContext.SetParamPointer(0, @conn);
          //sql 注入
          InvContext.SetParamPointer(1, @sql);
从数据库连接池，注入一个CONN，和一个SQL语句。呵呵。
swnh 23597 2006/5/15 9:36:00
想法不错，值得鼓励。不过，看样子楼主奉行的是真金白银换代码的政策，不想多说，纯粹鼓励了。
chinasf 23590 2006/5/15 1:27:34
强;没想到delphi 下陆续实现了log4delphi ,aop 这些好工具类
第一页 上一页 下一页 最后页 有 26 条纪录 共2页 21 - 26
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表