Silverlight Com组件支持全解析

从4月份Mix 10大会微软发布 Silverlight 4 至今,SL的第四个4版本的推出已经历时半年之久,昨日在SBlakeMore.Com上看到一组关于采用Silverlight Com组件实现图像采集和数据实时分析运用相关讨论. 微软在定义Silverlight前景规划时 众所周知 SL一直走的跨平台 跨浏览器这条路线. 相比在前面的3个版本. 在第四个版本中,微软处理了8000多个客户功能请求,其中之一就是添加COM组件支持. 随着这个功能作为新特性在Sl 4版本中推出,对微软宣扬的SL 一直保持跨平台的争论也就出现了.

原因很简单:COM对象仅仅能够运行在Windows平台的IE或Firefox浏览器中,苹果的Mac OS X或Linux并不支持COM,而对于COM组件支持是否会破坏Silverlight 4的跨平台兼容性这个问题,微软也做出相关声明: 虽然Mac并不支持COM组件 但微软正在研究如何使得某些 COM组件能够访问Mac版的Silverlight,紧接着Linux的发言人Miguel de Icaza表示,为了更好地配合微软的Silverlight 4功能,该公司正在试图添加各项组件支持.但对于Linux团队来讲,这也是一个富有挑战性的工作.

目前关于Silverlight 4Com对跨平台的争议在很多SL开发者中常常能看到相关争论. 这里不再提及. 如下我会演示Windows 7系统关于Silverlight 4Com组件实用几个应用场景.

COM component（COM组件）是微软公司为了计算机工业的软件生产更加符合人类的行为方式开发的一种新的软件开发技术。在COM构架下，人们可以开发出各种各样的功能专一的组件，然后将它们按照需要组合起来，构成复杂的应用系统,Silverlight 4完全是在满足更多企业级用户对Com组件在Windows平台运用微软才加以支持的.

类似我们常在项目实用Silverlight 数据的导入导出基本操作需求是极为常见的. 如下我会展示利用Com组件方式 实现Silverlight在OOB模式下导出到Notepad[记事本]和World 07文档.

创建一个定义一个简单页面 XAML[源码]:

 
 

<Grid x:Name="LayoutRoot" BACkground="White">  
  
  
        <Grid.RowDeFinitions>  
  
  

            <RowDeFinition Height="Auto"/>  

  
  

            <RowDeFinition Height="*"/>  

  
  
        </Grid.RowDeFinitions>  
  
  
        <StackPanel>  
  
  

            <Button Content="Export data to Notepad" Click="TextExport_Click"/>  

  
  

            <Button Content="Export data to Word" Click="WordExport_Click">  

  
  
                <Button.ContentTemplate>  
  
  
                   <DataTemplate>  
  
  

                       <StackPanel Orientation="Horizontal">  

  
  

                           <TextBlock text="{Binding}"/>  

  
  

                           <TextBlock text=" ("/>  

  
  

                           <checkBox IsTabStop="false" 

  
  

                                     checked="checkBox_StateChanged" 

  
  

                                     Unchecked="checkBox_StateChanged" 

  
  

                                     Content="Print directly with default printer"/>  

  
  

                           <TextBlock text=")"/>  

  
  
                       </StackPanel>  
  
  
                   </DataTemplate>  
  
  
               </Button.ContentTemplate>  
  
  
           </Button>  
  
  
       </StackPanel>  
  
  

       <sdk:DataGrid Grid.Row="1" Name="dataGrid1" AutoGeneratecolumns="True"/>  

  
  
</Grid> 
 
 

在页面Grid中简单模拟多条数据 定义一个实体:

 
 

/// <sumMary>     
  
  
/// 定义一个数据载体实体Entity     
  
  

/// Sign by chenKai Date：2010年11月8日21:46:29     

  
  
/// </sumMary>     
  
  

public class PersonEntity     

  
  
{     
  
  

public String Name { set; get; }     

  
  

public String gender { set; get; }     

  
  

public int AGE { set; get; }    

  
  
} 
 
 

在Mainpage后台页面使用COR_130_11845@时需要引入命名空间:

 
 

using System.Runtime.Interop@R_673_9260@ces.Automation;     
  
  
using System.Collections;     
  
  
using System.Threading; 
 
 

页面加载初始化DataGrid中填充相关的数据:

 
 

/// <sumMary>     
  
  
/// 加载数据     
  
  
/// </sumMary>     
  
  
    void MainPage_Loaded(object sender, routedEventArgs E)     
  
  
    {     
  
  
        var list = new List<PersonEntity>();     
  
  
        var rand = new random();     
  
  

        for (int i = 0; i < 9; i++)     

  
  

            list.Add(new PersonEntity    

  
  
            {    
  
  

                Name = "Person:" + i,    

  
  

                AGE = rand.Next(20),    

  
  

                gender = (i % 2 == 0 ? "Male" : "Female"),    

  
  
            });    
  
  
 
  
  
        //Bind    
  
  
        dataGrid1.Itemssource = list;    
  
  
    } 
 
 

利用C# 新特性实现DataGrid数据导出到NotePad[记事本中]:

 
 

/// <sumMary>     
  
  
/// 核心操作 导出数据到记事本.     
  
  

/// Sign by chenki Date：2010年11月8日21:51:18     

  
  
/// </sumMary>     
  
  
private void textExport_Click(object sender, routedEventArgs E)     
  
  
{     
  
  

// check if using AutomationFactory is allowed.     

  
  
if (!AutomationFactory.IsAvailablE)     
  
  
{    
  
  

 messageBox.Show("This@R_317_3816@ need the silverlight application running at evaluated OOB mode.");    

  
  
}    
  
  

else    

  
  
{    
  
  

// Use sHell to open notepad application.    

  
  

using (dynamic sHell = AutomationFactory.CreateObject("WScript.SHell"))    

  
  
{    
  
  

sHell.Run(@"%windir%\notepad", 5);    

  
  
Thread.Sleep(100);    
  
  

sHell.SendKeys("Name{Tab}Age{Tab}gender{Enter}");    

  
  

foreach (PersonEntity item in dataGrid1.Itemssource as IEnumerablE)    

  
  

sHell.SendKeys(item.Name + "{Tab}" + item.Age + "{Tab}" + item.gender + "{Enter}");    

  
  
}    
  
  
}    
  
  
} 
 
 

注意所有的导出操作全部OOB模式下执行才能有权限实现，这个稍微我会详细解释:

当运行起程序后安装本地桌面:

在OOB模式下运行起来:

导出到记事本效果:

实现World就相对麻烦很多.在World导出对应OFFices套件必须是07 版本或是更高版本. 如下实现:

 
 

/// <sumMary>  
  
  
/// 核心操作 数据导出到World中     
  
  

/// sign by chenKai DAte：2010年11月8日22:06:15     

  
  
/// </sumMary>     
  
  
          private void WordExport_Click(object sender, routedEventArgs E)     
  
  
          {     
  
  

              // check if using AutomationFactory is allowed.     

  
  
              if (!AutomationFactory.IsAvailablE)     
  
  
              {    
  
  

                  messageBox.Show("This@R_317_3816@ need the silverlight application running at evaluated OOB mode.");    

  
  
              }    
  
  

              else    

  
  
              {    
  
  

                  // Create Word automation object.    

  
  

                  dynamic word = AutomationFactory.CreateObject("Word.Application");    

  
  

                  word.Visible = true;    

  
  
       
  
  

                  // Create a new word document.    

  
  

                  dynamic doc = word.Documents.Add();    

  
  
       
  
  
                  // Write title    
  
  

                  dynamic range1 = doc.Paragraphs[1].Range;    

  
  

                  range1.Text = "Silverlight4 Word Automation Sample\n";    

  
  

                  range1.Font.Size = 24;    

  
  

                  range1.Font.bold = true;    

  
  
       
  
  

                  var list = dataGrid1.Itemssource as List<PersonEntity>;    

  
  
       
  
  

                  dynamic range2 = doc.Paragraphs[2].Range;    

  
  

                  range2.Font.Size = 12;    

  
  

                  range2.Font.bold = false;  32:       

  
  

                  // Create table    

  
  

                  doc.Tables.Add(range2, list.Count+1, 3, null, null);    

  
  
       
  
  

                  dynamic cell = doc.Tables[1].Cell(1, 1);    

  
  

                  cell.Range.Text = "Name";    

  
  

                  cell.Range.Font.bold = true;    

  
  
       
  
  
                  cell = doc.Tables[1].Cell(1, 2);    
  
  

                  cell.Range.Text = "Age";    

  
  

                  cell.Range.Font.bold = true;  43:       

  
  
                  cell = doc.Tables[1].Cell(1, 3);    
  
  

                  cell.Range.Text = "gender";    

  
  

                  cell.Range.Font.bold = true;  47:       

  
  

                  // Fill data to table cells    

  
  

                  for (int i = 0; i < list.Count; i++)    

  
  
                  {    
  
  
                      cell = doc.Tables[1].Cell(i + 2, 1);    
  
  

                      cell.Range.Text = list[i].Name;    

  
  
       
  
  
                      cell = doc.Tables[1].Cell(i + 2, 2);    
  
  
                      cell.Range.Text = list[i].Age;    
  
  
       
  
  
                      cell = doc.Tables[1].Cell(i + 2, 3);    
  
  
                      cell.Range.Text = list[i].gender;    
  
  
                  }    
  
  
       
  
  
                  if (_isprint)    
  
  
                  {    
  
  
                      // Print the word directly without preview.    
  
  
                      doc.PrintOut();    
  
  
                  }    
  
  
       
  
  
              }    
  
  
          } 
 
 

Word 07版导出效果:

有些人为何要为对于数据导出 类似文件操作等为何要在OOB模式运行. 这一切都源自Silverlight的为了运行环境和部署的安全上做的沙箱设计.COM组件是客户端运行的,OOB模式获得高级权限跳出沙箱设计对本地系统文件操作权限的限制. 如果在安全沙盒模型下的，那就无法调用COM组件. 关于Silverlight的沙箱设计相比做过WP7嵌入式数据库本地访问应该是对这点深有体会. 虽然完整保证Silverlight安全但却本地系统交互上做了诸多限制对开发产生诸多不便.

在Visual C# 2010中引入了一种新的dynamic类型，该类型是一个静态的（static）类型，但是一个dynamic类型的对象会绕过静态类型检查。在大多数情况下dynamic和object类型有些相似，但是在编译时，dynamic类型被假定为支持任何操作，也就是说dynamic类型的对象可以是一个Office对象，可以是一个COM对象或者是DOM对象，而如果在运行时发现该对象不是期望的对象则会抛出一个运行时异常.

从上面代码可以看出大量使用了Dynamic类型. 注意我们开始编码引入空间System.Runtime.InteropServices.Automation下AutomationFactory 类提供对已注册的自动化服务器的访问.

自动化是应用程序用于向脚本撰写工具和其他应用程序公开功能的一种基于 Windows 的技术。例如，可以使用自动化将 Office 功能添加到基于 Silverlight 的应用程序中 如上操作就是.

应用程序或公开功能的组件称作自动化服务器，而访问功能的应用程序称作自动化客户端。因为必须预先安装并在完全信任下运行自动化服务器，所以 Silverlight 仅将受信任的应用程序作为自动化客户端， 这也是为什么要在OOB模式下一个重要原因.

如上对NotePad导出操作:

 
 

using (dynamic sHell = AutomationFactory.CreateObject("WScript.SHell"))     
  
  
                  {     
  
  

                      sHell.Run(@"%windir%\notepad", 5);     

  
  
                      Thread.Sleep(100);     
  
  
        
  
  

                      sHell.SendKeys("Name{Tab}Age{Tab}gender{Enter}");     

  
  

                      foreach (PersonEntity item in dataGrid1.Itemssource as IEnumerablE)     

  
  

                          sHell.SendKeys(item.Name + "{Tab}" + item.Age + "{Tab}" + item.gender + "{Enter}");     

  
  
                  } 
 
 

利用Dynamic对象封装SHell脚本来执行数据导出. 而作为OFFice套件之一的World则完全不同.采用直接动态创建一个对象方式CreateObject 或 GetObject 方法检索对自动化服务器的后期绑定引用，若要将引用用作后期绑定对象，必须将其分配给 Object 类型（在 Visual Basic 中）或dynamic 类型（在 C# 中）的变量. 同理对于outLook操作也是同样道理

Silverlight 只能使用已安装的自动化服务器；因此，当它们找不到要求的进程 ID 时，CreateObject 和 GetObject 方法将引发异常。

下表显示了几个常见的 progID 值：

• 办公自动化：Outlook.Application、Excel.Application、PowerPoint.Application

• 系统自动化：ScripTing.FileSystemObject、WScript.SHell、SHell.Application

• Windows 管理规范：WbemScripTing.SWbemLocator

一般情况下，这些字符串映射到自动化服务器的特定版本。如果服务器有多个版本，则该服务器通常会添加版本编号到该进程 ID

类似操作OutLook就极为简单:

 
 

private dynamic outlook;     
  
  
        
  
  
  private bool InitializeOutlook()     
  
  
  {     
  
  
      try     
  
  
      {     
  
  

          // If GetObject throws an exception, then Outlook is      

  
  

          // either not running or is not available.     

  
  

          outlook = AutomationFactory.GetObject("Outlook.Application");     

  
  

          return true;    

  
  
      }    
  
  
      catch (Exception)    
  
  
      {    
  
  
          try    
  
  
          {    
  
  

              // Start Outlook and display the InBox, but minimize     

  
  

              // it to avoid hiding the Silverlight application.    

  
  
              outlook =     
  
  

                  AutomationFactory.CreateObject("Outlook.Application");    

  
  
              outlook.Session.GetDefaultFolder(6 /* InBox */).Display();    
  
  
              outlook.ActiveWindow.WindowState = 1; // minimized    
  
  

              return true;    

  
  
          }    
  
  
          catch (Exception)    
  
  
          {    
  
  

              // Outlook is unavailable.    

  
  

              return false;    

  
  
          }    
  
  
      }    
  
  
  } 
 
 

如上关于Silverlight 4使用COR_130_11845@组件最为简短的分析. 使用范围主要涉及到我们常用的OFFice套件中.