func init // add using namespaces sys.add_use('System.Net') sys.add_use('System.ComponentModel') // initialize instance this.wc = sys.get_undef_manager("WebClient") // initialize events sys.event_add('onProgress', 'UploadProgressChangedEventHandler', '', 'UploadProgressChanged', this.wc) sys.event_imp('onProgress', '', '', '', 'Object sender, UploadProgressChangedEventArgs args') if(linked('onUpload')) a = block.reggen() a.inc().inc().println('if(args.Cancelled && args.Error != null) return;') sys.event_add('onUpload', 'UploadValuesCompletedEventHandler', '', 'UploadValuesCompleted', this.wc) sys.event_imp('onUpload', '', '', '', 'Object sender, UploadValuesCompletedEventArgs args', a) block.delete(a) end end func doUpload(uri, data) blk.println(this.wc, '.UploadValuesAsync(new Uri(', d("URI"), '), ', d("Data"), ');') end func doUpload2(uri, method, data) addr = d("URI") dt = d("Data") meth = d("Method") blk.println(this.wc, '.UploadValuesAsync(new Uri(', addr, '), ', meth, ', ', dt, ');') end func doCancel() blk.println(this.wc, '.CancelAsync();') end