用 WebService 实现 Silverlight 客户端调用第三方动态链接库(Fortran DLL)的具体过程
出于安全性考虑，Web端调用第三方动态链接库则没有本地调用动态链接库那么方便，关于本地调用第三方动态链接库，可以参考之前的一篇博文：
http://www.cnblogs.com/potential/archive/2012/11/05/2755899.html
本文主要将如何在Web端调用第三方动态链接库。
前言：
之前在做毕业设计的时候用的是Silverlight，曾经用Fortran写了一个大气污染物扩散模型的计算代码，但是在用Silverlight之前都是本地调用，开始的时候也是按照本地调用，发现不行。经查阅，可以通过WebService，或者WCF等方式来实现。现总结如下：
第一步：
首先新建一个Silverlight项目,界面如下：
XAML代码：
<UserControl x:Class="SilverlightApplication.MainPage" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d" d:DesignHeight="300" d:DesignWidth="400"> <Grid x:Name="LayoutRoot" Background="White" HorizontalAlignment="Center"> <TextBox Height="23" HorizontalAlignment="Left" Margin="25,55,0,0" Name="textBoxA" VerticalAlignment="Top" Width="78" /> <TextBox Height="23" HorizontalAlignment="Left" Margin="141,55,0,0" Name="textBoxB" VerticalAlignment="Top" Width="85" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="274,55,0,0" Name="AddResulttextBlock" VerticalAlignment="Top" Width="76" /> <TextBlock Height="23" Margin="109,112,0,0" Name="RandomtextBlock" Text="" VerticalAlignment="Top" HorizontalAlignment="Left" Width="229" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="119,55,0,0" Name="textBlock2" Text="+" VerticalAlignment="Top" /> <Button Content="计算" Height="23" HorizontalAlignment="Left" Margin="144,265,0,0" Name="CaculationButton" VerticalAlignment="Top" Width="75" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="249,58,0,0" Name="textBlock3" Text="=" VerticalAlignment="Top" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="25,112,0,0" Name="textBlock4" Text="生成的随机数：" VerticalAlignment="Top" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="109,156,0,0" Name="SorttextBlock" Text="" VerticalAlignment="Top" Width="229" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="26,156,0,0" Name="textBlock6" Text="排序后的结果：" VerticalAlignment="Top" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="26,197,0,0" Name="textBlock1" Text="数组的最大值：" VerticalAlignment="Top" /> <TextBlock Height="23" HorizontalAlignment="Left" Margin="109,197,0,0" Name="MaxValuetextBlock" Text="" VerticalAlignment="Top" Width="229" /> </Grid> </UserControl>
第二步：
将Fortran动态链接库编译后的Dll文件，放到Silverlight Web项目的bin文件夹下。
下面给出了本文的Fortran DLL示例代码:
DOUBLE PRECISION FUNCTION ADD(A,B) !DEC$ ATTRIBUTES DLLEXPORT::ADD !DEC$ ATTRIBUTES STDCALL,ALIAS:'Add'::ADD DOUBLE PRECISION:: A,B ADD=A+B END FUNCTION SORTANDFINDMAX(ARRAY,LENGTH) !DEC$ ATTRIBUTES DLLEXPORT::SORTANDFINDMAX !DEC$ ATTRIBUTES STDCALL,ALIAS:'Sortandfindmax'::SORTANDFINDMAX DOUBLE PRECISION ::ARRAY(LENGTH) INTEGER::I,J DOUBLE PRECISION::TEMP DO I=1,LENGTH-1 DO J=I+1,LENGTH IF(ARRAY(I).GT.ARRAY(J)) THEN TEMP=ARRAY(I) ARRAY(I)=ARRAY(J) ARRAY(J)=TEMP END IF END DO END DO END
第三步：
在Silverlight Web项目中添加新建项——选择WebService
这里我们将WebService命名为CaculationWebService.之后点击添加。
第 四 步：
通过WebService来调用Fortran DLL.
由于Web是运行在客户端，因此无法像本地一样调用服务器的DLL,因此这里我们借助WebService的方式实现。
在第三步之后，我们的Web项目中会增加如下两个文件,也就是我们新建的WebService项。
打开CaculationWebService.asmx.cs。编写调用FORTRAN DLL的代码。
注意WebService是运行在服务器端的，因此，调用Fortran DLL的代码和本地一致。下面给出了本文的示例代码：
using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.Services; using System.Runtime.InteropServices; namespace SilverlightApplication.Web { /// <summary> /// Summary description for CaculationWebService /// </summary> [WebService(Namespace = "http://tempuri.org/")] [WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)] [System.ComponentModel.ToolboxItem(false)] // To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. // [System.Web.Script.Services.ScriptService] public class CaculationWebService : System.Web.Services.WebService { [WebMethod] public double AddCaculation(double a,double b) { return Add(a,b); } [WebMethod] public double [] SortCaculation(double []array, int length) { //在服务器端执行的语句 Sortandfindmax(array, length); //在服务端返回排序后的结果 return array; } //在服务器端调用Fortran DLL [DllImport("TestDll.dll", CallingConvention = CallingConvention.Cdecl)] private static extern double Add(double a, double b); [DllImport("TestDll.dll", CallingConvention = CallingConvention.Cdecl)] private static extern void Sortandfindmax(double[] array, int length); } }
注意Web调用Fortran Dll时，如果需要返回，则不能直接返回给客户端
比如在本地调用时，我们直接传入数组，完成调用后，数组的值就会发生改变。
但是在Web端则不是，因为本地调用直接修改了数组的地址，但是由于Web调用是在服务器端进行的，因此无法修改我们本机的地址，因此传入的数组无论怎样也不会发生改变
而Web调用可以通过给方法增加一个返回值来实现，比如传入了一个数组，我们可以在Web端将这个结果返回，然后再通过WebMethod返回给客户端，并在在客户端通过注册Completed事件的响应函数，获得最后的结果。
关于服务器端的WebService搭建工作已经完成。
第 五 步：
验证WebService是否能够正常运行。以上我们搭建好了WebService，在添加WebService的引用之前，最好测试一下其是否能够正常工作。步骤如下：
右键Silverlight Web项目中的WebService的asmx文件，选择view in browser.
此时没有错误，在浏览器中会出现如下视图：
我们可以看见有两个方法，随便点击一个方法，例如AddCaculation.则会出现验证方法的界面：
我们输入以上参数：3和4，点击Invoke.如果成功调用则会出现正确的结果，并以XML的方式返回。
如下图所示：
以上的过程便是验证WebService的过程，验证成功之后，下面开始客户端调用的工作。
第六步：
首先需要在Silverlight项目中添加WebService的引用，如图所示：
接着点击Discover,就会找到我们之前新建的WebService.如下图所示：
将服务的引用名称设置为CaculationService,之后点击OK，从以上途中我们也可以发现，我们添加的WebService包含了两个方法：一个是AddCaculation,一个是SortCaculation.我们将在后续的工作中调用这两个方法。
最后，在Silverlight项目中则会出现WebService的引用。
第 七 步：
在Silverlight项目中编辑调用WebService的代码：
这里值得需要注意的就是调用WebService需要注意的参数类型匹配问题。之前我们在WebService定义了一个SortCaculation方法，其输入参数是double数组类型的。虽然在Web端是DOUBLE类型的数组，但是我们在客户端调用的时候会发现其类型变成了ArrayOfDouble，这是为什么呢？原因是WebService的返回结果及参数是以XML形式传递的，而在XML中，数组类型的数据则会变成ArrayOf<类型名>，例如double类型的数组则就变成了ArrayOfDouble。
关于调用的过程：
- 首先声明一个WebService引用的实例。
CaculationService.CaculationWebServiceSoapClient client = new CaculationWebServiceSoapClient();
2. 注册调用方法完成事件的响应函数
client.AddCaculationCompleted += new EventHandler<AddCaculationCompletedEventArgs>(client_AddCaculationCompleted); client.SortCaculationCompleted += new EventHandler<SortCaculationCompletedEventArgs>(client_SortCaculationCompleted);
3. 在Button Click事件中请求WebService(调用WebService的计算方法)。
例如：
client.AddCaculationAsync(Convert.ToDouble(textBoxA.Text),Convert.ToDouble(textBoxB.Text));
client.SortCaculationAsync(array, numbers);
4. 在完成事件响应函数中获取WebService计算的结果。
void client_SortCaculationCompleted(object sender, SortCaculationCompletedEventArgs e) { if (e.Result!= null) { array = e.Result; MaxValuetextBlock.Text = e.Result[e.Result.Count-1].ToString(); for (int i = 0; i < array.Count; i++) { SorttextBlock.Text += e.Result[i] + " "; } } } void client_AddCaculationCompleted(object sender, AddCaculationCompletedEventArgs e) { AddResulttextBlock.Text = e.Result.ToString(); }
以上工作便是调用WebService的基本步骤。
下面来看一看最后完整的代码：
这里声明了一个Random变量，用户生成随机数组，然后调用Fortran的DLL，对随机数组排序。
using System; using System.Collections.Generic; using System.Linq; using System.Net; using System.Windows; using System.Windows.Controls; using System.Windows.Documents; using System.Windows.Input; using System.Windows.Media; using System.Windows.Media.Animation; using System.Windows.Shapes; using SilverlightApplication.CaculationService; namespace SilverlightApplication { public partial class MainPage : UserControl { ArrayOfDouble array = new ArrayOfDouble(); CaculationService.CaculationWebServiceSoapClient client = new CaculationWebServiceSoapClient(); public MainPage() { InitializeComponent(); client.AddCaculationCompleted += new EventHandler<AddCaculationCompletedEventArgs>(client_AddCaculationCompleted); client.SortCaculationCompleted += new EventHandler<SortCaculationCompletedEventArgs>(client_SortCaculationCompleted); CaculationButton.Click += new RoutedEventHandler(CaculationButton_Click); } void CaculationButton_Click(object sender, RoutedEventArgs e) { Random rnd = new Random(); int numbers = rnd.Next(8, 12); for (int i = 0; i < numbers; i++) { double temp; temp = rnd.Next(100); RandomtextBlock.Text += temp + " "; array.Add(temp); } client.AddCaculationAsync(Convert.ToDouble(textBoxA.Text),Convert.ToDouble(textBoxB.Text)); client.SortCaculationAsync(array, numbers); } void client_SortCaculationCompleted(object sender, SortCaculationCompletedEventArgs e) { if (e.Result!= null) { array = e.Result; MaxValuetextBlock.Text = e.Result[e.Result.Count-1].ToString(); for (int i = 0; i < array.Count; i++) { SorttextBlock.Text += e.Result[i] + " "; } } } void client_AddCaculationCompleted(object sender, AddCaculationCompletedEventArgs e) { AddResulttextBlock.Text = e.Result.ToString(); } } }
随后的运行效果：
(版权所有，转载请标明出处)
