使用 IntraWeb (45) - 活用 IntraWeb

刺骨的言语ヽ痛彻心扉 2022-07-15 02:48 248阅读 0赞

# [使用 IntraWeb (45) - 活用 IntraWeb][IntraWeb _45_ - _ IntraWeb] #

asp.net 刚开始时, 也是拖拉控件, 但后来有了 MVC、xNext.  
  
换个思路使用 IntraWeb 吧:  
界面全部用 html+js+css 实现(有些会是用 Delphi 动态生成), 然后用 js 通过 Ajax 调用 Delphi 的方法.

--------------------

测试程序要使用的模板 IWForm1.html:  
<!doctype html> <html> <head> <meta charset="utf-8" /> <link rel="stylesheet" href="IWForm1.css" type="text/css"/> <script type="text/javascript" src="IWForm1.js"></script> </head> <body> <div id="div1"> <a href="\#" οnclick="AjaxFun1(1);">添加</a> <a href="\#" οnclick="AjaxFun1(2);">删除</a> </div> <div id="div2">\{%IWLabel1%\}</div> </body> </html>  
  
1、在程序所在目录建立 Templates 文件夹, 把 IWForm1.html 放其中.  
2、在程序所在目录建立 wwwroot 文件夹, 把模板中用到的 IWForm1.js 和 IWForm1.css 放其中.  
3、其中的 AjaxFun1() 方法是在 IWForm1.js 中实现的; 这里两次调用参数分别是 1、2  
4、\{%IWLabel1%\} 中的 IWLabel1 是在 Delphi 中添加的控件, 它用来返回数据结果.

--------------------

IWForm1.js:  
function AjaxFun1(n) \{ executeAjaxEvent("&x="+n, null, "IWCallBack1", false, null, false); \}  
  
1、executeAjaxEvent 或 processAjaxEven 方法是 IntraWeb 内置的 IWLib.js 提供的; 其第三个参数决定了它将调用 Delphi 中的 IWCallBack1 方法.  
2、Delphi 收到的参数将是一个 TStringList, 上面的 n 是将要传递的参数, x 是随意命名的参数标示.

--------------------

IWForm1.css:  
div \{ padding: 16px; \} \#div2 \{ background-color: green; color: \#fff; \} \#IWLABEL1 \{ font-size: large; \}  
  
这是随意定义的; IWLABEL1 对应的是在 Delphi 添加的 IWLabel1.

--------------------

//在新建 IW 主窗体上放置 IWTemplateProcessorHTML1、IWLabel1 两个控件.
    
    unit Unit1;
    
    interface
    
    uses
      Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
      IWTemplateProcessorHTML, IWCompLabel, Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompButton, IWCompEdit;
    
    type
      TIWForm1 = class(TIWAppForm)
        IWLabel1: TIWLabel;
        IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
        procedure IWAppFormCreate(Sender: TObject);
      public
        procedure DoCallBack1(EventParams: TStringList); //这是 IWForm1.js 将要调用的方法; 下面还需要通过 WebApplication.RegisterCallBack 注册一下
      end;
    
    implementation
    
    {$R *.dfm}
    
    uses IW.Common.AppInfo; //获取路径需要
    
    var gPath: string;
    
    procedure TIWForm1.IWAppFormCreate(Sender: TObject);
    begin
      LayoutMgr := IWTemplateProcessorHTML1;          //关联模板(IWForm1.html) 
      IWTemplateProcessorHTML1.RenderStyles := False; //禁用 IW 的样式设置
    
      WebApplication.RegisterCallBack('IWCallBack1', DoCallBack1); //注册回调; js 将通过指定名称("IWCallBack1")调用这里的 DoCallBack1 方法
    
      gPath := TIWAppInfo.GetAppPath + 'Data.txt'; //用于测试文件的路径
    
      if not FileExists(gPath) then //初始化测试文件
      begin
        with TStringList.Create do begin
          Add(DateTimeToStr(Now));
          SaveToFile(gPath, TEncoding.UTF8);
          Free;
        end;
      end;
    
      IWLabel1.RawText := True; //指定以 Html 的方式呈现其内容; 具有 RawText 属性的几个控件中, 发现 IWLabel1 最灵活.
      IWLabel1.StyleRenderOptions.RenderSize := False;     //既然前面已经指定了 IWTemplateProcessorHTML1.RenderStyles := False; 下面这些就应该不需要了, 但在 IE 下不行
      IWLabel1.StyleRenderOptions.RenderPosition := False;
      IWLabel1.StyleRenderOptions.RenderFont := False;
      IWLabel1.StyleRenderOptions.RenderZIndex := False;
      IWLabel1.StyleRenderOptions.RenderVisibility := False;
      IWLabel1.StyleRenderOptions.RenderStatus := False;
      IWLabel1.StyleRenderOptions.RenderAbsolute := False;
      IWLabel1.StyleRenderOptions.RenderPadding := False;
      IWLabel1.StyleRenderOptions.RenderBorder := False;
    end;
    
    procedure TIWForm1.DoCallBack1(EventParams: TStringList);
    var
      List: TStringList;
      x: Integer;
    begin
      x := EventParams.Values['x'].ToInteger; //获取 js 传来的参数
    
      List := TStringList.Create;
      List.LoadFromFile(gPath, TEncoding.UTF8);
    
      case x of
        1: List.Add(DateTimeToStr(Now));          //参数是 1 表示添加
        2: if List.Count > 0 then List.Delete(0); //参数是 2 表示删除
      end;
    
      IWLabel1.Text := List.Text.Replace(sLineBreak, '<br/>'); //呈现; 
    
      List.SaveToFile(gPath, TEncoding.UTF8);
      List.Free;
    end;
    
    initialization
      TIWForm1.SetAsMainForm;
    
    end.

--------------------

思路很简单, 在实践中可能会碰到一些小问题, 譬如:  
1、如果真传到服务器, 那个 Data.txt 修改其属性为可写;  
2、通过 executeAjaxEvent 传递中文参数时, 我在本机没发现问题, 但传到服务器不行了, 最后自己写了一个编码(js)、解码(Delphi)函数; 如果你需要可以告诉我.  
不过都是小问题.  
  
测试源文件(IW\_MVC\_Test.rar), 传到 "intraweb交流群 319037363" 了; 欢迎指正!

--------------------

分类: [ 003a.IntraWeb][003a.IntraWeb]

好文要顶 关注我  收藏该文 ![icon_weibo_24.png][] ![wechat.png][]

[![sample_face.gif][]][sample_face.gif 1]

[万一][sample_face.gif 1]  
[关注 - 34][- 34]  
[粉丝 - 849][- 849]

荣誉： [推荐博客][Link 1]

\+加关注

[« ][Link 2]上一篇： [使用 IntraWeb (44) - 测试读取 SqLite (三)][Link 2]  
[» ][Link 3]下一篇： [高亮 TRichEdit 当前行][Link 3]

posted on 2014-09-17 18:57 [ 万一][Link 4] 阅读( 5828) 评论( 7) [ 编辑][Link 5] [收藏][Link 6]

**FeedBack:**

[\#1楼][1]   2014-09-17 20:12  [findumars][] [  ][Link 7]

万一兄，我给你留言了，麻烦看一下。

支持(0) 反对(0)

[\#2楼][2]   2014-09-19 11:00  [noviastang][] [  ][Link 8]

万一老师，XE7出来了，有空带领大家梳理一下XE7的一些新特性嘛^\_^

支持(0) 反对(0)

[\#3楼][3] \[ 楼主\]  2014-09-19 12:28  [万一][Link 4] [  ][Link 9]

[@][2] noviastang  
先等等能用的版本

支持(0) 反对(0)

[\#4楼][4]   2015-01-15 13:42  [xiaoyan968][] [  ][Link 10]

万一老师，看了你的博客深受启发，请教个小问题，一直查不到该怎么弄，程序中怎么取得intraweb的active session数目？就是intraweb程序运行时那个server面板上显示的当前active session值。

支持(0) 反对(0)

[\#5楼][5]   2015-12-13 20:08  [丹心石][Link 11] [  ][Link 12]

现在在用XE10 感觉比XE7要好许多！有很多新功能还有待熟悉，只是感觉跟进的知识太少了！

支持(0) 反对(0)

[\#6楼][6]   2016-02-10 23:51  [嗟夫][Link 13] [  ][Link 14]

万老师，最近我一直在学习你的这个IntraWeb，现在在自己写的过程中也遇到了executeAjaxEvent 传递中文参数的问题，你发的编码(js)、解码(Delphi)函数在那个IntraWeb爱好者QQ群已经满了，我没法进去下载，只能在这里求组你了。

支持(0) 反对(0)

[\#7楼][7]  3360458 2016/2/10 23:53:14  2016-02-10 23:53  [嗟夫][Link 13] [  ][Link 14]

编码(js)、解码(Delphi)函数 如果不方便发这里请发我邮箱好吗？ [22968869@qq.com][22968869_qq.com]

[IntraWeb _45_ - _ IntraWeb]: http://www.cnblogs.com/del/p/3977660.html
[003a.IntraWeb]: http://www.cnblogs.com/del/category/583929.html
[icon_weibo_24.png]: http://common.cnblogs.com/images/icon_weibo_24.png
[wechat.png]: /images/20220715/4c5c4c1606e14083814a1f54384fa47c.png
[sample_face.gif]: /images/20220715/00c579633b5147c19b20380bdfa88683.png
[sample_face.gif 1]: http://home.cnblogs.com/u/del/
[- 34]: http://home.cnblogs.com/u/del/followees
[- 849]: http://home.cnblogs.com/u/del/followers
[Link 1]: http://www.cnblogs.com/expert/
[Link 2]: http://www.cnblogs.com/del/p/3813205.html
[Link 3]: http://www.cnblogs.com/del/p/3999780.html
[Link 4]: http://www.cnblogs.com/del/
[Link 5]: https://i.cnblogs.com/EditPosts.aspx?postid=3977660
[Link 6]: http://www.cnblogs.com/del/p/3977660.html#
[1]: http://www.cnblogs.com/del/p/3977660.html#3029997
[findumars]: http://www.cnblogs.com/findumars/
[Link 7]: http://msg.cnblogs.com/send/findumars
[2]: http://www.cnblogs.com/del/p/3977660.html#3030869
[noviastang]: http://home.cnblogs.com/u/674111/
[Link 8]: http://msg.cnblogs.com/send/noviastang
[3]: http://www.cnblogs.com/del/p/3977660.html#3030931
[Link 9]: http://msg.cnblogs.com/send/%E4%B8%87%E4%B8%80
[4]: http://www.cnblogs.com/del/p/3977660.html#3107424
[xiaoyan968]: http://home.cnblogs.com/u/707185/
[Link 10]: http://msg.cnblogs.com/send/xiaoyan968
[5]: http://www.cnblogs.com/del/p/3977660.html#3326129
[Link 11]: http://www.cnblogs.com/sundh1981/
[Link 12]: http://msg.cnblogs.com/send/%E4%B8%B9%E5%BF%83%E7%9F%B3
[6]: http://www.cnblogs.com/del/p/3977660.html#3360457
[Link 13]: http://www.cnblogs.com/bbnn38/
[Link 14]: http://msg.cnblogs.com/send/%E5%97%9F%E5%A4%AB
[7]: http://www.cnblogs.com/del/p/3977660.html#3360458
[22968869_qq.com]: mailto:22968869@qq.com