//AB/ Project Web Page Broker //AB/ Object prj is a WebObject_Project //AB/ Set ProjectName to "Web Page Broker" //AB/ Set ProjectFileName to "PageBroker.wo" //AB/ Set GenerateFileName to "NONAME" //AB/ Set Size to 114 170 // Project Object Structure // oPageBroker is a cWebBusinessProcess // Register all objects Register_Object oPageBroker //AB-StoreTopStart use WebApplication.pkg // This is the hubnail of the web application //AB-StoreTopEnd //AB-IgnoreStart Use cWebBusinessProcess.pkg //AB-IgnoreEnd Object oPageBroker is a cWebBusinessProcess //AB/ Set Location to 2 2 //AB/ Set Size to 80 100 //AB-DDOStart //AB-DDOEnd //AB-StoreStart function SessionVariables returns string function_return (WebSessionVariables_Encode()) end_function procedure DoSetSessionVariables string lsValue send WebSessionVariables_Decode lsValue end_procedure procedure DoWriteHtmlFullPage // You must declare a oWebPageBroker in your WebApplication.pkg: send DoWriteHTML of oWebPageBroker end_procedure //AB-StoreEnd //AB-RegisterInterfaceStart Send RegisterInterface get_SessionVariables "get_StateVariables" " Returns string" "" Send RegisterInterface msg_DoSetSessionVariables "msg_DoSetStateVariables" "string lsValue" "" Send RegisterInterface msg_DoWriteHtmlFullPage "msg_DoWriteHtmlFullPage" "" "" //AB-RegisterInterfaceEnd End_Object // oPageBroker //AB-StoreStart //AB-StoreEnd //AB/ End_Object // prj