Вариант загрузки файла в БД:
Class AttachedFile Extends %Persistent
{
Property FileData As %Stream.GlobalBinary;
Property FileName As %String;
Property FileSize As %Integer;
}
Class FileUpload Extends %ZEN.Component.page
{
Parameter APPLICATION = "TestUploadFile";
Parameter PAGENAME = "UploadFile";
/// Domain used for localization.
Parameter DOMAIN;
/// This Style block contains page-specific CSS style definitions.
XData Style
{
<style type="text/css">
</style>
}
/// This XML block defines the contents of this page.
XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page xmlns="http://www.intersystems.com/zen" title="">
<form id="FileForm" labelPosition="left" enctype="multipart/form-data"><!-- should be enctype="multipart/form-data" -->
<fileUpload label="File:" id="File" name="File"/>
<hgroup align="right">
<submit caption="Submit" action="submit"/><spacer width="5"/>
<button caption="Cancel" onclick="window.close();"/>
</hgroup>
</form>
</page>
}
/// Загрузка файла в базу как %Stream.GlobalBinary
ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
if $data(%request.MimeData("$V_File",1))&&$isobject(%request.MimeData("$V_File",1)) {
set FileObj =##class(AttachedFile).%New()
set FileObj.FileName = %request.MimeData("$V_File",1).FileName
set FileObj.FileSize = %request.MimeData("$V_File",1).Size
set FileObj.FileData = ##class(%Stream.GlobalBinary).%New()
set stream = %request.GetMimeData("$V_File",1)
Set status = FileObj.FileData.CopyFrom(stream)
set status = FileObj.%Save()
if $$$ISOK(status) {
set ^CacheTempPav($zh,"rc")="OK"
} else {
do $system.Status.DecomposeStatus(status, .errors)
merge ^CacheTempPav($zh,"rc")=errors
}
set status = FileObj.%Close()
}
Quit $$$OK
}
}
