Biz/BrowserはWEBサーバとHTTPで通信を行います。従って、WEBサーバ側で動作するアプリケーションは、通常のWEBブラウザとの通信と同じようにBiz/Browserからのリクエストを受け取り、レスポンスを返すことができます。
この例では、Biz/BrowserのTextBox1に"Hello"と表示します。
--- CRS sample1.crs ---
Form sample { Width = 300; Height = 200; TextBox TextBox1 { X = 10; Y = 10; Width = 100; Height = 30; } Get("sample1.asp"); }
--- VBScript – sample1.asp ---
<% Response.Write("TextBox1.value = "+Chr(&h22)+"Hello"+Chr(&h22)+";") %>
このようにサーバ側のプログラム方法はHTMLと何ら変りません。唯一の違いは応答する内容が、HTMLではなくCRSスクリプトとなる点だけです。
この例では、Biz/BrowserのButton1をタップしたときTextBox1に入力された値をWEBサーバに渡します。
--- CRS sample2.crs ---
Form sample { Width = 300; Height = 200; TextBox TextBox1 { X = 10; Y = 10; Width = 100; Height = 30; } Button Button1 { X = 10; Y = 50; Width = 100; Height = 30; Title = "click"; Function OnTouch(e) { Get("sample2.asp", sample.TextBox1); } } }
--- VBScript – sample2.asp ---
<% ' リクエストパラメータの取得 data = Request.Form("TextBox1") Response.Write("title = "+Chr(&h22)+data+Chr(&h22)+";") %>
このように、パラメータの受け取りも、HTMLの場合と何ら変ることはありません。
B〜EのCRSスクリプト例 : Button MyButton { : Function OnTouch(e) { try { var session = getHttpSession(); var request = session.CreateRequest("/app/proc1"); request.AddParam("code", 123); var response = session.Post(request); var xmlImpl = new xmlDOMImplimentation; var xdoc = xmlImpl.Load(response); this.Title = xdoc.SelectSingleNode("//name").Text; } catch (exp) { MessageBox(exp); } } : } : |