CSDN博客

img hurricane

ActiveX控件的开发

发表于2003/12/29 17:26:00  1117人阅读

ActiveX控件的开发

 

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

 

一,ActiveX控件的功能

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

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

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

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

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

 

二,ActiveX控件的开发过程

1,通过VCMFC ActiveX  ControlWizard 向导开发这个控件,将项目命名为ActiveX3

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

3打开ClassWizardAutomation下添加方法:

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)

   DownloadArrayDownloadSingle调用,用来实现具体下载功能。

 

三,关键代码

 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;

}

3void 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" onclick="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>

 

0 0

相关博文

我的热门文章

img
取 消
img