delphi tms web core 通过URL 传递参数-木庄网络博客

本文整理自网络，侵删。
 一般我们都会通过URL 给服务器传递很多参数，通过参数来决定对应的处理，今天就大概讲一下
如果通过URL 参数实现一些功能。
1、通过参数跳入不同的界面
首先我们先建立一个tms web core 工程文件。
除了主页面，我们再建两个页面，分别叫做第一个页面和第二个页面
我们可以通过不同URL 参数直接进入不同的页面。
在工程文件里面做一下处理
var   s:string;begin   Application.Initialize;  Application.AutoFormRoute := true;  Application.MainFormOnTaskbar := True;   if HasQueryParam('page',s) then      begin      if s='one' then             Application.CreateForm(Tonepagef, onepagef);     if s='two' then            Application.CreateForm(TtwopageF, twopageF);     end      else          Application.CreateForm(Tmainf, mainf);  Application.Run;end.
注意，要在uses 部分加上单元 WEBLib.WebTools。
我们现在运行这个例子
 
 不加参数，直接显示主页面
我们加上参数试一下
可以看见通过URL参数直接跳到我们需要的页面。
 
2、通过URL  参数给当前页面传递参数
在主页面放上对应的控件
在formshow 事件里面加上对应的代码
procedure Tmainf.WebFormShow(Sender: TObject);var   s:string;begin       if HasQueryParam('arg1',s) then           WebLabel2.Caption:=s        else           WebLabel2.Caption:='';      if HasQueryParam('arg2',s) then           WebLabel5.Caption:=s        else           WebLabel5.Caption:='';end;
运行这个程序
正常显示传进来的参数
 
 汉字也可以正常处理。
题外话，由于URL 参数时SQL 注入的一个非常方便的一个途径，因此在实际程序处理过程中
使用URL 拼SQL 时，一定要注意，首先对输入的参数进行合法性验证，不可直接使用输入参数拼SQL。
另外，尽可能使用SQL参数方式处理输入值。
来源：https://blog.csdn.net/weixin_34174422/article/details/86006948
delphi tms web core 通过URL 传递参数

相关推荐

评论
