Automation 服务器不能创建对象--MSComDlg.CommonDialog 《续》

最新推荐文章于 2024-05-11 08:51:24 发布
最新推荐文章于 2024-05-11 08:51:24 发布
阅读量983 收藏 2
点赞数
分类专栏： MSComDlg.CommonDialog Automation 文章标签： 服务器 button 报表 javascript function input
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yunfan555/article/details/6773655
版权

采用MSComDlg.CommonDialog 经常出现Automation 服务器不能创建对象--的情况，所以还是采用传统的IE 中的html来实现比较好。

 <script language="javascript" type="text/javascript">

        //根据选择的报表项目从服务器端载入报表模板
        function LoadRpt() {

            var Hid = document.getElementById("Hid");
            var id = Hid.value;

            if (id != "") {
                var LoadURL = "ReportLoadFromDB.aspx?id=" + id;

                var success = ReportDesigner.Report.LoadFromURL(encodeURI(LoadURL));

                if (success == true) {
                    ReportDesigner.Reload();
                }
                else {
                    alert("载入报表失败!");
                }
            }
        }

        //将当前设计的报表模板保存到服务器上
        function btnSave_onclick() {
            var Hid = document.getElementById("Hid");
            var id = Hid.value;

            if (id == "") {
                alert("请先保存报表的名称等信息，再保存报表信息！");
                return;
            }

            ReportDesigner.Post();
            var SaveURL = "ReportSaveToDB.aspx?id=" + id;
            var success = ReportDesigner.Report.SaveToURL(encodeURI(SaveURL));

            if (success == true)
                alert("保存报表成功!");
            else
                alert("保存报表失败!");
        }

        /// type="file" 解决IE8下的C:\fakepath\路径问题
        function getUPFilePath(obj) {
            if (obj) {

                if (window.navigator.userAgent.indexOf("MSIE") >= 1) {
                    obj.select();
                    return document.selection.createRange().text;
                }

                else if (window.navigator.userAgent.indexOf("Firefox") >= 1) {
                    if (obj.files) {
                        return obj.files.item(0).getAsDataURL();
                    }
                    return obj.value;
                }
                return obj.value;
            }
        }

        //显示打开文件对话框选择一个文件，从客户端本地文件中载入报表模板
        function btnLoadLocalFile_onclick() {
            document.all.LOADFILE.click();

            var file_upl = document.getElementById('LOADFILE');

            FileName = getUPFilePath(file_upl);

            if (FileName != "") {
                var filetypes = FileName.substring(FileName.lastIndexOf('.') + 1, FileName.length)
                if (filetypes == 'grf') {
                    ReportDesigner.Report.LoadFromFile(FileName);
                    ReportDesigner.Reload();
                }
                else {
                    alert("只能上传 *.grf 格式的报表文件！");
                }

            }
            else {
                alert("没有选择报表文件！");
            }
        }


        //另存为
        function btnSaveFile_onclick() {
            ReportDesigner.Post();
            try {
                var FileName = 'c:\\Report.grf';
                if (FileName != "") {
                    ReportDesigner.Report.SaveToFile(FileName);
                    alert("报表文件已经保存到：" + FileName);
                }
            } catch (e) {
                if (e.message != 'Cancel was selected.')
                    alert(e.description);

            }
        }

    </script>

注意 btnLoadLocalFile_onclick函数和getUPFilePath函数

 


HTML代码：

<body style="margin: 0" οnlοad="return LoadRpt()">
    <form id="form1" runat="server">
    <asp:HiddenField ID="Hid" runat="server" />
    </form>
   
    <div class="navigationBg"> 
     <input type="file" name="LOADFILE" id="LOADFILE" style="width: 0px; height: 0px;">
        <input id="Button2" name="btnLoadLocalFile" οnclick="return btnLoadLocalFile_onclick()"
            class="Btn" type="button" value="载入本地文件" />
         
        <input id="Button4" name="btnLoadLocalFile" οnclick="return btnSaveFile_onclick()"
            class="Btn" type="button" value="另存为" />
         
        <input id="Button1" name="btnSave" class="Btn2" type="button" value="保存" language="javascript"
            οnclick="return btnSave_onclick()" />
         
        <input id="Button3" class="Btn2" type="button" value="关闭" language="javascript" οnclick="javascript:window.close();" />
    </div>

    <script language="javascript">
        CreateDesigner("", "", "");
        //        CreateDisplayViewer("../../attachment/Rpt/grf/www.grf", "")                             
    </script>

</body>

 

注意：<input type="file" name="LOADFILE" id="LOADFILE>的样式，主要是为了隐藏该框

 

<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
    <title></title>
    <object id="Report" classid="CLSID:50CA95AF-BDAA-4C69-A9C6-93E1136E68BC" codebase="../../lib/griectl/griectl.cab#Version=5,5,11,215">
    </object>
    <style type="text/css">
        html, body
        {
            margin: 0;
            height: 100%;
        }
    </style>

    <script src="../../Scripts/RptCreateControl.js" type="text/javascript"></script>

    <script src="../../Scripts/RptGRUtility.js" type="text/javascript"></script>

    <script language="javascript" type="text/javascript">

        //根据选择的报表项目从服务器端载入报表模板
        function LoadRpt() {

            var Hid = document.getElementById("Hid");
            var id = Hid.value;

            if (id != "") {
                var LoadURL = "ReportLoadFromDB.aspx?id=" + id;

                var success = ReportDesigner.Report.LoadFromURL(encodeURI(LoadURL));

                if (success == true) {
                    ReportDesigner.Reload();
                }
                else {
                    alert("载入报表失败!");
                }
            }
        }

        //将当前设计的报表模板保存到服务器上
        function btnSave_onclick() {
            var Hid = document.getElementById("Hid");
            var id = Hid.value;

            if (id == "") {
                alert("请先保存报表的名称等信息，再保存报表信息！");
                return;
            }

            ReportDesigner.Post();
            var SaveURL = "ReportSaveToDB.aspx?id=" + id;
            var success = ReportDesigner.Report.SaveToURL(encodeURI(SaveURL));

            if (success == true)
                alert("保存报表成功!");
            else
                alert("保存报表失败!");
        }

        /// type="file" 解决IE8下的C:\fakepath\路径问题
        function getUPFilePath(obj) {
            if (obj) {

                if (window.navigator.userAgent.indexOf("MSIE") >= 1) {
                    obj.select();
                    return document.selection.createRange().text;
                }

                else if (window.navigator.userAgent.indexOf("Firefox") >= 1) {
                    if (obj.files) {
                        return obj.files.item(0).getAsDataURL();
                    }
                    return obj.value;
                }
                return obj.value;
            }
        }

        //显示打开文件对话框选择一个文件，从客户端本地文件中载入报表模板
        function btnLoadLocalFile_onclick() {
            document.all.LOADFILE.click();

            var file_upl = document.getElementById('LOADFILE');

            FileName = getUPFilePath(file_upl);

            if (FileName != "") {
                var filetypes = FileName.substring(FileName.lastIndexOf('.') + 1, FileName.length)
                if (filetypes == 'grf') {
                    ReportDesigner.Report.LoadFromFile(FileName);
                    ReportDesigner.Reload();
                }
                else {
                    alert("只能上传 *.grf 格式的报表文件！");
                }

            }
            else {
                alert("没有选择报表文件！");
            }
        }


        //另存为
        function btnSaveFile_onclick() {
            ReportDesigner.Post();
            try {
                var FileName = 'c:\\Report.grf';
                if (FileName != "") {
                    ReportDesigner.Report.SaveToFile(FileName);
                    alert("报表文件已经保存到：" + FileName);
                }
            } catch (e) {
                if (e.message != 'Cancel was selected.')
                    alert(e.description);

            }
        }

    </script>

</head>
<body style="margin: 0" οnlοad="return LoadRpt()">
    <form id="form1" runat="server">
    <asp:HiddenField ID="Hid" runat="server" />
    </form>
   
    <div class="navigationBg"> 
     <input type="file" name="LOADFILE" id="LOADFILE" style="width: 0px; height: 0px;">
        <input id="Button2" name="btnLoadLocalFile" οnclick="return btnLoadLocalFile_onclick()"
            class="Btn" type="button" value="载入本地文件" />
         
        <input id="Button4" name="btnLoadLocalFile" οnclick="return btnSaveFile_onclick()"
            class="Btn" type="button" value="另存为" />
         
        <input id="Button1" name="btnSave" class="Btn2" type="button" value="保存" language="javascript"
            οnclick="return btnSave_onclick()" />
         
        <input id="Button3" class="Btn2" type="button" value="关闭" language="javascript" οnclick="javascript:window.close();" />
    </div>

    <script language="javascript">
        CreateDesigner("", "", "");
        //        CreateDisplayViewer("../../attachment/Rpt/grf/www.grf", "")                             
    </script>

</body>
</html>


 

望梵
关注
专栏目录
warning: Require self-closing on Vue.js custom components
郭宝的博客
05-28 1万+
错误提示： 2 warnings found. 2 warnings potentially fixable with the `--fix` option. Module Warning (from ./node_modules/eslint-loader/index.js): warning: Require self-closing on Vue.js custom component...
MSComDlg.CommonDialog服务器不能创建对象错误的解决
weixin_34206899的博客
02-24 522
作者：朱金灿来源：http://blog.csdn.net/clever101 在JavaScript中弹出打开文件对话框，代码如下:var fileOpenDlg = new ActiveXObject("MSComDlg.CommonDialog"); 结果出现错误：解决办法是： 假如是Windows32位环境，检查C:\Windows\system3...
MSComDlg.CommonDialog参数说明
weixin_30338481的博客
09-30 995
CommonDialog 控件CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。语法CommonDialog说明CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll. 的例程之间提供了一个接口。为了...
Automation 服务器不能创建对象--MSComDlg.CommonDialog
07-29 1402
//显示打开文件对话框选择一个文件，从客户端本地文件中载入报表模板 function btnLoadLocalFile_onclick() { var fd = new ActiveXObject("MSComDlg.CommonDia
VB6.0 在代码中直接调用 文件打开对话框，不使用windows控件
weixin_33951761的博客
11-11 725
Dim fileDlg As Object ' 文件对话框 ' 变量初始化 Set fileDlg = CreateObject("MSComDlg.CommonDialog") ' 打开附件 fileDlg.DialogTitle = "选择附件文件" fileDlg.F...
jquery插件jquery-ui-1.8.2.custom.min.js
05-22
例如，要创建一个对话框，可以使用`$("#element").dialog()`方法，其中"#element"是需要转换成对话框的DOM元素。 总的来说，"jquery-ui-1.8.2.custom.min.js"是jQuery UI的一个压缩版实现，包含了丰富的UI组件和...
jquery-ui-1.10.0.custom.zip
01-22
《jQuery UI 1.10.0 自定义版本详解》 jQuery UI 是一个基于 jQuery JavaScript 库的可扩展用户界面库。...在实际项目中，掌握 jQuery UI 的使用不仅能提升开发效率，也能显著提升用户界面的品质。
jquery-ui-1.9.2.(免费)
11-27
它提供了丰富的组件和工具，可以帮助开发者快速创建出功能丰富、用户体验良好的网页应用。本文将深入探讨jQuery UI 1.9.2版本中的关键知识点，以及如何利用这些功能来提升你的项目质量。 1. **jQuery UI组件**：...
jquery-ui.min.js 插件
热门推荐
lllllllllaaa的博客
09-02 1万+
1、导入js库： script src="//apps.bdimg.com/libs/jqueryui/1.10.4/jquery-ui.min.js">script>       2、用法： 附赠案例一份： html> html> head lang="en">     meta charset="UTF-8">     title>折叠title>     script
VB listview导出数据到EXCEL
03-01
由Listview中的数据直接导入到EXCEL并打开，并显示表头，可以直接加入到开发代码中去而省去单独编写代买的精力跟时间。
打开,另存为,属性,打印等14个JS代码
06-02
CommonDialog 控件 CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。 语法 CommonDialog 说明 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll. 的例程之间提供了一个接口。为了用这个控件创建一个对话框，ommdlg.dll. 必须在 Microsoft Windows 的 SYSTEM 目录下。 在应用程序中要使用 CommonDialog 控件，可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不能改变。 使用指定的方法，CommonDialog 控件能够显示下列对话。 方法 所显示的对话框 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”或“打印选项”对话框 ShowHelp 调用 Windows 帮助引擎 在对话框接口上单击，CommonDialog 控件将自动提供与上下文有关的帮助： 单击标题栏中的“这是什么？”帮助按钮，然后单击想详细信息的项目。 将鼠标放在想进一步详细信息的项目上，单击右键，然后在所显示的上下文菜单中选择这是什么命令。 操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags 属性，在带有 CommonDialog 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。 注意 无法指定对话框显示在什么地方。 详细信息 要查看各对话的帮助主题，单击“请参阅”。 下例显示“打开”对话框然后在信息框中显示所选的文件名： Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" ' 指定缺省的过滤器 CommonDialog1.FilterIndex = 2 ' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 MsgBox CommonDialog1.filename Exit Sub ErrHandler： ' 用户按了“取消”按钮 Exit Sub End Sub 参考资料：MSDN var fd = new ActiveXObject("MSComDlg.CommonDialog"); fd.Filter = "Microsoft Office Word(*.doc)|*.doc"; fd.FilterIndex = 2; // 必须设置MaxFileSize. 否则出错 fd.MaxFileSize = 128; // fd.FileName=document.all.FlSubject.value+thisform.WFStartTime.value.split(" ")[0];; // 显示对话框 fd.ShowSave(); 判断"取消"事件,可判断fd.flags为0,或fd.FileName为空。
VB6.0 关于如何便捷的使用 打开文件 保存文件对话框，而不使用CommonDialog控件
最新发布
hzdl0001的博客
05-11 446
对于VB6.0 CommonDialog控件 非标准控件，如果用该控件编程后，程序挪到其他的电脑，有可能会提示无法找到CommonDialog.ocx的报错，因此我这里还是尽量避免使用CommonDialog控件。那么不使用CommonDialog控件，还有别的好方法吗？这里网上找了很多资料，自己总结了一下，下面附上代码，
系统缺失mscomctl32.ocx文件导致程序出现错误怎么办？
file
06-06 368
其实很多用户玩单机游戏或者安装软件的时候就出现过这种问题，如果是新手第一时间会认为是软件或游戏出错了，其实并不是这样，其主要原因就是你电脑系统的该dll文件丢失了或没有安装一些系统软件平台所需要的动态链接库，这时你可以下载这个mscomctl32.ocx文件(挑选合适的版本文件)把它放入到程序或系统目录中，当我们执行某一个.exe程序时，相应的DLL文件就会被调用，因此将缺失的文件放回到原目录之后就能打开你的软件或游戏了.那么出现mscomctl32.ocx丢失要怎么解决？
MFC：用另存为对话框保存文件
小咸鱼_的博客
05-04 1万+
主要代码： CStdioFile file; CString filepath; TCHAR szFilter[] = _T("文本文件(*.txt)|*.txt|所有文件(*.*)|*.*||"); CFileDialog fileDlg(FALSE, _T("txt"), m_txtName, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, szFilter,
bootstrap-dialog.min.js下载
10-01
要下载bootstrap-dialog.min.js，您可以按照以下步骤操作： 1. 打开一个网页浏览器，如Google Chrome、Mozilla Firefox或Microsoft Edge。 2. 在搜索栏中输入“bootstrap-dialog.min.js下载”，并按下Enter键。 3. ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值