vc6开发activex并发布全攻略(三)（进阶篇）(转载)

最新推荐文章于 2024-11-02 12:42:04 发布
最新推荐文章于 2024-11-02 12:42:04 发布
阅读量114 收藏
点赞数
文章标签： javascript runtime 开发工具 ViewUI
原文链接：http://www.cnblogs.com/vc60er/archive/2013/01/07/2849013.html
版权

vc6开发activex并发布全攻略(三)（进阶篇）  

http://flashaway.blog.163.com/blog/static/95624576200942411404477/

 

 

前 面两片文章我们制作了个一简单的 ActiveX,而这个ActiveX只实现了一个简单的计算功能。其实ActiveX控件的功能很好很强大，只要你能想到的，它基本都能够实现。可我现 在的水平那也只能想到而做不到 >_< 。所以，还是在网上多找些例子，边做边学。

下面是我转载的一个例子，实现的功能是将网页保存到本地。照旧，我会在后面列出我制作时出现的问题及解决方案。

原文地址:http://www.7880.com/info/2005/06/08/article-14697.html

ActiveX控件的开发

    这段时间因为工作的需要，开发了一个ActiveX控件，采用的开发工具是VC，希望可以给大家做类似的开发时提供参考。

 

一，ActiveX控件的功能：

1，主要是用来下载和保存指定的网页。

2，要能够嵌在网页中，供服务器页面的脚本调用。

3，提供下载保存到哪个文件夹的窗口，给用户自己选择保存位置的机会。

4，提供程序接口，使得用户可以保存单个文件。

5，提供程序接口，使得用户可以保存多个文件，文件名以数组的方式传递过来。

 

二，ActiveX控件的开发过程：

1，通过VC的MFC ActiveX  ControlWizard 向导开发这个控件，将项目命名为ActiveX3

2，在向导的Step2 of 2中为Invisible at runtime打钩，并去掉Has an “About” Box前面的钩,该控件在调用时则不显示。

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

3，打开ClassWizard，在Automation下添加方法：

（1） External Name: DownloadSingle

 Internal Name: DownloadSingle

 Return Type: BOOL

 Parameter List: strDownload  LPCTSTR

         

         该方法的作用：接受并处理参数为字符串类型的下载请求，同时为操作员提供指定下载目录的机会并接受其指定。  

 

（2）    External  Name: DownloadArray

Internal Name: DownloadArray

Return Type: BOOL

Parameter List: arrDownload  Variant

 

         该方法的作用：接受并处理参数字符串数组类型的下载请求，同时为操作员提供指定下载目录的机会并接受其指定。

 

4，通过手工添加方法：  

   void TryUrl(CString strAddress)

   被DownloadArray和DownloadSingle调用，用来实现具体下载功能。

 

三，关键代码

 1，   BOOL CActiveX3Ctrl::DownloadSingle(LPCTSTR strDownload)

{

       // TODO: Add your dispatch handler code here

      char buf[MAX_PATH];

       _getcwd(buf,MAX_PATH);

   location=”d:\\”;

   TryUrl(strDownload);

       MessageBox("下载完成！");

       return TRUE;

}

 

2， BOOL CActiveX3Ctrl::DownloadArray(const VARIANT FAR& arrDownload)

{

       // TODO: Add your dispatch handler code here

       char buf[MAX_PATH];

       _getcwd(buf,MAX_PATH);

       location=”d:\\”;

       const VARIANT *varArray;

       if(arrDownload.vt==(VT_VARIANT|VT_BYREF))

       {

          varArray=arrDownload.pvarVal;

       }

       else

       {

          varArray=&arrDownload;

    }

   if((varArray->vt)==(VT_ARRAY | VT_BYREF | VT_VARIANT))

        {

              VARIANT* strarray;

              SAFEARRAY* psa = *(varArray->pparray);

              SafeArrayAccessData(psa,(void**)&strarray);

              UINT uDim = SafeArrayGetDim(psa);

              if(uDim==1)

              {

                     long lLbound,lRbound;

                     SafeArrayGetLBound(psa,1,&lLbound);

                     SafeArrayGetUBound(psa,1,&lRbound);

                     for(long i=lLbound;i<=lRbound;i++)

                     {

                            if(strarray[i].vt==VT_BSTR)

                            {    

                                 TryUrl(strarray[i].bstrVal);

                            }

                     }

              }

              SafeArrayUnaccessData(psa);

       }

    MessageBox("下载完成！");

       return TRUE;

}

3，void CActiveX3Ctrl::TryUrl(CString strAddress)

{

       CFile newFile;

              Cstring fileName=strAddress.Mid(strAddress.ReverseFind('/')+1); 

              newFile.Open(location+"\\"+fileName,CFile::modeCreate | CFile::modeWrite); 

              CInternetSession session;

       CInternetFile* file=NULL;

       try

         {

              file=(CInternetFile*)session.OpenURL(strAddress);      }

          catch(CInternetException* pEx)

         {

              file=NULL;

              pEx->Delete();

         }

         if(file)

         { 

              int number=0;

              BYTE *buf;

              buf=new BYTE[1024];

              do

              {

              number=file->Read(buf,1024);

           newFile.Write(buf,number);

              }

              while(number>0);

        delete []buf;

         }

         file->Close();

      newFile.Close();

       return;

}

四，测试页面

<html>

<head>

<title>Download three files from the web.</title>

<script language="javascript">

function download1()

{

var file;

file=document.form1.text1.value;

FavouriteDown.downloadSingle(file);

return;

}

</script>

<script language="VBScript">

<!--

Sub downN_OnClick

Dim s(2)

s(0)=document.form1.text1.value

s(1)=document.form1.text2.value

s(2)=document.form1.text3.value

ActiveXDown.DownloadArray(s)

End Sub

-->

</script>

</head>

<body>

<OBJECT ID="ActiveXDown"

CLASSID="CLSID:ADD73828-78F4-4EF1-8734-61590B044F87"

CODEBASE="ActiveX3.ocx#version=1,0,0,0">

</OBJECT>

<center>

<form name="form1">

<input type="text" name="text1" size="50"><p>

下载一个文件：<input type="button" name="down1" value="down1" οnclick="javascript:download1();"><p>

<input type="text" name="text2" size="50"><p>

<input type="text" name="text3" size="50"><p>

下载三个文件：<input type="button" name="downN" value="downN"><p>

</form>

</body>

</html>

 

 

 

 

 #######################以下是在开发ActiveX时出现的问题补充########################

 

按 照上面博文的方法，我们要添加三个方法，添加方法我就不具体讲了，前面一篇已经抓过图。需要注意的是博文中第四步说要手动添加void TryUrl(CString strAddress)方法，我到现在也还没理解，只有通过Automation添加了。在添加过程中，参数无法选择Cstring类型，如图：

 vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

如有高手路过，请指点一二。

那我们只能先选择LPCTSTR代替。那我们就必须在程序里该下，将LPCTSTR转换为CString类型。

//下载网页

void CMyActiveXCtrl::TryUrl(LPCTSTR str)

{

       // TODO: Add your dispatch handler code here

      CString   strAddress(str);//在这里转换成CString类型 

         CFile newFile;

      CString fileName=strAddress.Mid(strAddress.ReverseFind('/')+1);

      newFile.Open(location+"\\"+fileName,CFile::modeCreate | CFile::modeWrite);

      CInternetSession session;

      CInternetFile* file=NULL;

      try

      {

            file=(CInternetFile*)session.OpenURL(strAddress);     

         }

       catch(CInternetException* pEx)

       {

            file=NULL;

            pEx->Delete();

          }

       if(file)

          { 

              int number=0;

              BYTE *buf;

              buf=new BYTE[1024];

              do

              {

                  number=file->Read(buf,1024);

                  newFile.Write(buf,number);

              }

              while(number>0);

              delete []buf;

       }

       file->Close();

       newFile.Close();

       return;

}

 

而且程序中的location也得通过Automation选项卡添加成全局变量（添加变量请参见前面的一篇文章），并且赋初值，如下图：

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

还有BOOL CActiveX3Ctrl::DownloadArray(const VARIANT FAR& arrDownload)编译时也出错，说是字符分割时出现错误：修改后的代码如下：

//同时保存多个网页

BOOL CMyActiveXCtrl::DownloadArray(const VARIANT FAR& arrDownload)

{

       // TODO: Add your dispatch handler code here

 

      char buf[MAX_PATH];

 

       _getcwd(buf,MAX_PATH);

 

       const VARIANT *varArray;

 

       if(arrDownload.vt==(VT_VARIANT|VT_BYREF))

       {

          varArray=arrDownload.pvarVal;

       }

 

       else

 

       {

 

          varArray=&arrDownload;

 

    }

 

   if((varArray->vt)==(VT_ARRAY | VT_BYREF | VT_VARIANT))

   {

         VARIANT* strarray;

         SAFEARRAY* psa = *(varArray->pparray);

         SafeArrayAccessData(psa,(void**)&strarray);

         UINT uDim = SafeArrayGetDim(psa);

         if(uDim==1)

               {

              long lLbound,lRbound;

              SafeArrayGetLBound(psa,1,&lLbound);

              SafeArrayGetUBound(psa,1,&lRbound);

              for(long i=lLbound;i<=lRbound;i++)

                       {

                   if(strarray[i].vt==VT_BSTR)

                               {    

                                     //这里编译时出错，下面是改动后的代码

                                          int size= WideCharToMultiByte(CP_ACP,0,strarray[i].bstrVal,-1, NULL, 0, NULL,0);

                                          char * AsciiBuff =new char[size];

                                          WideCharToMultiByte(CP_ACP,0,strarray[i].bstrVal,-1,AsciiBuff,size, NULL, 0);

                        TryUrl(AsciiBuff);

 

                   }

                       }

               }

         SafeArrayUnaccessData(psa);

     }

 

       MessageBox("下载完成！");

       return TRUE;

}

 

哦，还要注意添加一个头文件引用：

#include <afxinet.h>

如下图：

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

现在编译下，直接通过，呵呵。

 

编译通过后，你可以通过ActiveXControlTestContainer对控件进行调试。调试前先设置下：打开

工程->设置，弹出对话框设置调试，选择可执行调试设置为ActiveXControlTestContainer，如下图:

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

然后在程序里打上断点。按F5启动调试，在方法中选择DownloadSingle方法，设置参数，我这里输入http://localhost/test.html，点击invoke按钮,程序就会走到你设置的断点处：

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

那我们点击invoke按钮，如果没有断点，程序直接执行，弹出下载完成对话框。因为程序中我设置的路径是D:\,所以应该在我的D盘下可以找到一个名为test.html的文件。如果你也找到了，说明你的控件也可以正常运行了。

 

下面就该发布这个ActiveX了。如果你是第一次让用户安装此控件，那你可以参照我的上一篇文章进行发布。如果前面用户已经安装了上一个版本，那我们这次就是让用户升级ActiveX了。

升级ActiveX,我们需要修改三个地方。

一， 我们首先要修改程序中的版本。打开工程的ResourceView资源浏览菜单，选择VS_VERSION_INFO节点，我们可以看到原来的 FILEVERSION中的版本号是1.0.0.1, 我们把它改成1，0，0，2。如下图(NND，图怎么倒了，凑活着看吧，呵呵)：

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

F7直接编译完成。

二,修改发布文件信息

MyActiveX.inf,将FileVersion该为1，0，0，2

 vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

重新生成cab文件并签名。将生成的MyActiveX.cab拷贝到服务器IIS发布目录。

三， 修改test.html页面cab的版本信息，将version改为1，0，0，2 

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

 

注意：文中的版本信息1，0，0，2中间一定是逗号。

 

那现在我们就可以让用户打开这个包含控件的页面，IE会提示用户重新安装ActiveX控件。

如果用户安装成功，我们可以在C:\WINDOWS\Downloaded Program Files目录下看到这个Activex控件信息:

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

还可以打开IE中的Internet选项，程序->管理加载项目中查看

vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

也可以点击删除按钮对我们的ActiveX进行删除。

 

下面我们开始对ActiveX进行测试：

Test.html页面我做了下改动，代码如下：

<html>

<head>

<title>Download three files from the web.</title>

</head>

<body>

<object id='test1' codeBase='http://10.79.108.75/MyActiveX.cab#version=1,0,0,2' classid='clsid:743F39F2-E3A5-4550-A203-4A1CFAE9ABCF' height=0 width=0 ></object>

<center>

<form name="form1">

<input type="text" name="text1" size="50"><p>

下载一个文件：<input type="button" name="down1" value="down1" οnclick="javascript:download1();"><p>

<input type="text" name="text2" size="50"><p>

<input type="text" name="text3" size="50"><p>

下载三个文件：<input type="button" name="downN" value="downN"><p>

</form>

</body>

</html>

<script language="javascript">

       a=test1.test(2,1);

       alert(a);

function download1()

{

       var file;

       file=document.form1.text1.value;

       test1.downloadSingle(file);

       return;

}

 

</script>

<script language="VBScript">

<!--

 

Sub downN_OnClick

 

Dim s(2)

 

s(0)=document.form1.text1.value

 

s(1)=document.form1.text2.value

 

s(2)=document.form1.text3.value

 

test1.DownloadArray(s)

 

End Sub

 

-->

 

</script>

如图：

 vc6开发activex并发布全攻略(三)（进阶篇） - 一闪而过 - 一闪而过的博客

 

输入网址进行测试，下载成功。

如果你输入为空，或者网页打不开，IE就会崩溃而退出，这是因为我们在程序中都没有做验证。反正大概功能已经实现，验证你可以自己修改正下。

还有就是我把test.html中的的vbscript该为javascript后，点多个下载后程序执行失败，很是郁闷，javascript代码如下：

function download2()

{

       alert(1);

       var a1=new Array(3);

       a1[0]=document.form1.text1.value;

       a1[1]=document.form1.text2.value;

       a1[2]=document.form1.text3.value;

       test1.DownloadArray(a1);

}

后来找了一篇博文《把javascript,vbscript中得数组传递给COM组件（or Activex）》，原文网址是：

http://blog.csdn.net/wzsy/archive/2008/03/18/2193551.aspx

有兴趣你可以研究下，我就不研究了，呵呵。

到此我们的ActiveX又新增了些功能。后面还会增加些简单的功能，敬请关注。

 

转载于:https://www.cnblogs.com/vc60er/archive/2013/01/07/2849013.html

afdd28617
关注
vc6开发activex并发布全攻略(三)（进阶篇）
四月的专栏
08-29 972
 前面两片文章我们制作了个一简单的ActiveX,而这个ActiveX只实现了一个简单的计算功能。其实ActiveX控件的功能很好很强大，只要你能想到的，它基本都能够实现。可我现在的水平那也只能想到而做不到 >_下面是我转载的一个例子，实现的功能是将网页保存到本地。照旧，我会在后面列出我制作时出现的问题及解决方案。原文地址:http://www.7880.com/info/20
Java学习资料2900篇2
脚印
05-21 1793
<br />501 J2SE中的序列化的认识<br /> 502 J2SE中的序列化详解(二)<br /> 503 J2SE中的序列化详解(三)(1)<br /> 504 J2SE中的序列化详解(一)<br /> 505 J2SE中的序列化之接受默认序列化<br /> 506 JADT 入门，第 1 部分<br /> 507 JADT 入门，第 2 部分<br /> 508 Jakarta Common Digester 应用<br /> 509 jakarta commons-net ft
计算机编程书籍大全
浮生未歇的博客
04-09 5646
MFC程序开发参考大全 USB应用开发技术大全 HTML参考大全 Java范例开发大全 Java开发技术大全 Java 2参考大全 Java Web开发典型模块大全 Java Web开发技术大全 精通Java Web整合开发 Java 2游戏设计 Java游戏编程 Java Web开发实战1200例 Java Web 2.0架构开发与项目实战 开发者突击 Java We
编程书籍大全
06-02 3844
MFC程序开发参考大全USB应用开发技术大全HTML参考大全Java范例开发大全Java开发技术大全Java 2参考大全Java Web开发典型模块大全Java Web开发技术大全精通Java Web整合开发Java 2游戏设计Java游戏编程Java Web开发实战1200例Java Web 2.0架构开发与项目实战开发者突击Java Web 开发详解 XML+XSLT+Servlet+JS...
c/c++成长之捷径 C/C++学习资料大全
Windeal
05-31 1万+
socket协议 三次握手与结束连接 客户端代码： #include #include #include //for bzero #include //for socketaddr_in #include #include #include #define PORT 5050 //端口号 #define MAXLEN_FOR_DATA
c/c++成长之捷径
明月松间照，清泉石上流！
10-15 7215
c++成长之路不再迷茫！           不知不觉中进入计算机行业已有多个年头了，回首往事依然历历在目。今天我把我这段时间收集的书籍资料以及实例源码帖出来（部分资料太大了放不上去，理解下），与大家一起分享，我想其中的一些资料对大家会有帮助，并且我希望这些资料以及实例源码能对大家有一定的提升作用。帮助初学者快速进入VC++并且能融会贯通，那么我的目的也就达到了。 首先推荐的视频教
CSDN社区排名出炉了，来看看你的排名是多少？
汉阳Hann's Home
10-30 1万+
粉丝数排名前30名 No.1 ：287773〖沉默王二〗 No.2 ：105856〖C#〗 No.3 ：101502〖78技术人社群〗 No.4 ： 97770〖冰河社区〗 No.5 ： 85272〖JavaScript〗 No.6 ： 78803〖Android〗 No.7 ： 65372〖抱团内卷，冲大厂！〗 No.8 ： 64038〖C语言〗 No.9 ： 63947〖程序人生，道阻且长〗 No.10： 60179〖CSS〗 No.11： 60071〖C++ 语言〗 No.12： 58788〖..
VC ActiveX控件的开发详细步骤说明
12-15
VC ActiveX 控件的开发详细步骤说明 本文档详细说明了使用 VC 开发 ActiveX 插件的详细步骤，包括工程的建立、JS 界面的编写、ActiveX 插件中代码的编写、JS 界面和 ActiveX 控件之间的相互通信的方法及示例，还有...
用VC开发ACTIVEX源代码和文件
12-30
用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发ACTIVEX源代码和文件用VC开发...
vc开发activex,ocx控件的很好的教程.rar
03-05
通过深入学习并实践这份教程，开发者能够熟练掌握在VC环境下利用MFC创建ActiveX控件的技能，这对于开发复杂的Windows应用程序或网页插件来说是非常有价值的。不过，随着Web技术的发展，现代浏览器逐渐放弃了对...
编程网站书籍下载大全
爱上了月儿就注定要为她挡太阳
03-26 2866
编程网站书籍下载大全 http://www.microsoft.com/msdownload...msdk/sdkupdate/ SDK  http://www.scstlab.com.cn/standard/T16260.htm 国家软件标准之一  经典网站:  www.vckbase.com vc知识库  www.csdn.net 程序员大本营  http://www.vche
VC++常用功能开发汇总
热门推荐
dvlinker的技术专栏
04-19 12万+
VC++常用功能开发汇总
VC ActiveX 控件 开发总结
bcbobo21cn的专栏
03-27 3082
VC 制作ActiveX 控件（OCX） http://ileson.iteye.com/blog/1002910 1、vc6下建立一下activeX工程     详见http://hi.baidu.com/mailrabbit/blog/item/0624a608bde798346b60fbb6.html 2、在页面中调用     2.1:注册ocx到系统（也可以这样）  C
一些常用的react hooks以及各自的作用
weixin_48602044的博客
11-01 394
关于react hooks的一些知识与应用
CesiumJS 案例 P12：添加指定长宽的图片图层并居中显示（圆点分别为图片图层的中心点、左上角顶点、右上角顶点、左下角顶点、右下角顶点）
weixin_52173250的博客
10-30 1137
CesiumJS 案例 P12：添加指定长宽的图片图层并居中显示（圆点分别为图片图层的中心点、左上角顶点、右上角顶点、左下角顶点、右下角顶点）
JavaScript 生成二维码
最新发布
qq_30049249的博客
11-02 209
我试过了，这一款js库支持中英文混合。进入网站后，可以直接点击运行哟～
VC6.0 ActiveX控件开发与网上发布全攻略
"这篇文章详细介绍了如何使用VC6.0开发并发布ActiveX OCX控件到互联网上的全过程，包括创建控件、增加方法、测试、打包以及发布等关键步骤。" 在开发ActiveX OCX控件的过程中，首先需要在VC6.0环境下创建一个新的...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值