在将文件作为附件发送到浏览器时，IntraWeb应用程序被锁定

如何解决在将文件作为附件发送到浏览器时，IntraWeb应用程序被锁定

我正在尝试使用intraweb 14.0.32，delphi xe6和MSsql服务器来部署Web应用程序。用户单击文件名时，我需要显示邮件的附件。这是我执行该操作的代码。问题是当用户单击链接以显示附件时，文件将下载到用户的计算机，但应用程序锁定显示加载页面。所以请帮助我确定问题。谢谢。

procedure TMailMgr_f.IWDBGrid2Columns0Click(ASender: TObject;const AValue: string);
    var
       blob:TStream;
       qryAttach:TADOQuery;
       fileName:string;
    begin
        qryAttach:=TADOQuery.Create(self);
        qryAttach.Connection:=ADOConnection1;
        qryAttach.sql.Add(format('SELECT OrginalFileName,Attachment FROM Mail_Attachmentwhereid=%s'[AValue]));
        qryAttach.Active:=true;
     blob := qryAttach.CreateBlobStream(qryAttach.FieldByName('Attachment'),bmRead);
     fileName:=qryAttach.FieldByName('OrginalFileName').Asstring;
         qryAttach.Close;
     WebApplication.SendStream(blob,true,'image/jpeg',fileName);
    end;

解决方法

好，我找到了答案，我只想在这里为可能有类似问题的人提及它。

您只需要将form的“ lockonsubmit”属性设置为false，这将删除该儿童车锁。