func init // adds using namespace sys.add_use('D.Net.EmailInterfaces') sys.add_use('D.Net.EmailClient') // adds assembly sys.add_assembly('D.Net.EmailClient', 'D.Net.EmailClient.dll') sys.add_assembly('D.Net.EmailInterfaces', 'D.Net.EmailInterfaces.dll') sys.add_assembly('LumiSoft.Net', 'LumiSoft.Net.dll') // initialize instance sys.add_var(this.name, 'IEmailClient') blk_init.println(this.codename, ' = EmailClientFactory.GetClient(EmailClientEnum.', this.props("Protocol").value, ');') // makes implementation of simple methods sys._method_init('Disconnect') // makes implementation methods for properties sys._prop_init('Server', 0, 1, 2) sys._prop_init('Port', 0, 1, 1) sys._prop_init('EnableSsl', 0, 1, 104) sys._prop_init('User', 0, 1, 2) sys._prop_init('Password', 0, 1, 2) sys._prop_init('IsConnected', 1, 0, 104) // makes implementation of methods as properties sys._mtd_as_prop_init('MailClient') // initialize events if(linked('onConnected')) sys.event_add('onConnected', 'EmailClient_OnConnected', '', 'OnConnected') sys.event_imp('onConnected', '', '(IEmailClient)sender', '', 'Object sender') end end func doConnect(server, port, user, password, enablessl) blk.println(this.codename, '.Connect(', d("Server"), ', ', d("User"), ', ', d("Password"), ', ', d("Port"), ', ', lower(this.props("EnableSsl").value), ');') end