dclparam sSessionInfo1 : string; dcluser user VUser transactions TInit : begin; TMain : 1; var sFormSid1 : string; // ... WebParseDataBoundEx(sSessionInfo1, STRING_COMPLETE, "name=\"", 3, "\"", WEB_FLAG_IGNORE_WHITE_SPACE | WEB_FLAG_CASE_SENSITIVE, 1); WebPageLink("Check out", "ShopIt - Check Out");// Link 3 Print("sSessionInfo1: " + sSessionInfo1); sFormSid1 := sSessionInfo1; WebPageUrl("http://u2/ShopItV60/kindofpayment.asp", "Unnamed page", SHOPITV60_KINDOFPAYMENT_ASP003); // ... dclform SHOPITV60_KINDOFPAYMENT_ASP003: "choice" := "CreditCard", "price" := "15.9", // "sid" := "348363999"; "sid" := sFormSid1;
第 2 の [スクリプトの試行] によって、カスタマイズが成功したこと、およびスクリプトが正しく実行されることを明確にします。