КодClass sqlru.test Extends %ZEN.Component.page
{

Property isUpload As %Boolean(ZENURL = "isUpload") [InitialExpression = {$$$NO}];
Property fileName As %String(ZENURL = "fileName");
Property fileSize As %String(ZENURL = "fileSize");

XData Contents [ XMLNamespace = " http://www.intersystems.com/zen"  ]
{
<page xmlns=" http://www.intersystems.com/zen"  title="Ajax File Upload">
  <form enctype="multipart/form-data" target="upload_target">
  <label value="Ajax File Upload" containerStyle="font-weight:bold;color:red;"/>
    <fileUpload name="file" hint="Please select a file and click Upload button"/>
    <submit caption="Upload"/>
    <iframe name="upload_target" hidden="true"/>
  </form>
</page>
}

ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
  #dim %response As %CSP.Response
  #dim stream As %CSP.BinaryStream=pSubmit.%GetStream("file")

  if $IsObject(stream) {
    set %response.Context("isUpload")=$$$YES
    set %response.Context("fileName")=stream.FileName
    set %response.Context("fileSize")=stream.Size
  }
  quit $$$OK
}

ClientMethod onloadHandler() [ Language = javascript ]
{
  if (zenPage.isUpload) {
    zenAlert('File Name: ',zenPage.fileName,', File Size: ',zenPage.fileSize);
  }
}

}