示例 3：访问 Visual FoxPro 7.0 XML Web Service
可以使用 ASP.NET 调用通过 Visual FoxPro 7.0 创建的 Web service。
FoxCentral.net (http://foxcentral.net) 是一个免费的 Web 站点，提供 FoxPro 社区感兴趣的信息。此 Web 站点是使用 Visual FoxPro 7.0 创建的，可以用作 Web service，其功能在 XML Web Services 说明语言 (WSDL) 文件中进行了说明，该文件位于 http://www.foxcentral.net/foxcentral.wsdl。
该 Web service 提供了一个 GetItems() 方法，可以调用该方法以返回符合各种标准（作为参数传递给该方法）的张贴项。在 WSDL 文件中，为 Getitems() 方法指定的参数如下：
<message name="foxcentral.GetItems">
<part name="ldLastOn" type="xsd:dateTime" />
<part name="ldTimeZone" type="xsd:int" />
<part name="lnProvider" type="xsd:int" />
<part name="lcType" type="xsd:string" />
</message>
有关 Visual FoxPro 7.0 中的 XML Web services 的详细信息，请参阅 Web Services Overview（英文）。
下面的屏幕快照显示了 Design（设计）视图中显示的 FoxCentral Extract Web 页 (FoxCentral.aspx) 的 ASPx 文件。其中使用了四个控件，包括两个 Label、一个日历控件和一个 DataGrid。
图 5：Design（设计）视图中的 FoxCentral Extract Web 窗体
下面列出了使用 C# 编写的本示例的实现代码。
// 设置对类库的引用。类似于 Visual FoxPro 7.0 中的
SET CLASSLIB TO。
using System;
using System.IO;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
// 设置对 Visual FoxCentral.net Web Service 对象的引用。
using FoxCentralASPX.net.foxcentral.www;
namespace FoxCentralASPX
{
/// <summary>
/// WebForm1 的摘要说明。
/// </summary>
// 创建 ASP.NET 页对象。
public class WebForm1 : System.Web.UI.Page
{
// 设置对 ASP.NET 页上的服务器控件的引用。
protected System.Web.UI.WebControls.DataGrid dgrNews;
protected System.Web.UI.WebControls.Calendar calDate;
protected System.Web.UI.HtmlControls.HtmlGenericControl cTitle;
protected System.Web.UI.WebControls.Label outError;
// 此方法是由 Visual Studio .NET 生成的。
public WebForm1()
{
Page.Init += new System.EventHandler(Page_Init);
}
// 首次加载 ASP.NET 页以及每次刷新该页时都会运行
Page_Load 事件。
private void Page_Load(object sender, System.EventArgs e)
{
// 此处放置用于初始化该页的用户代码。
// 初始化变量以存储对 FoxCentral.net Web Service
的引用。
foxcentral loData = new foxcentral();
// 初始化要在此方法中使用的其他对象。
string lcXML = "";
string lcError = "";
System.Data.DataSet oDS = new DataSet();
bool lbError = false;
// 将 ASP.NET 页可视属性上的服务器控件
标签和 DataGrid 初始化为 False，
以隐藏这些对象。
outError.Text = "";
outError.Visible = false;
dgrNews.Visible = false;
// 如果是第一次呈现该页。
if (Page.IsPostBack == false)
{
// 将选定日期设置为今天的日期。
calDate.SelectedDate=System.DateTime.Today;
}
try
{
// 调用 FoxCentral.net 的 GetItems 方法，传递用户
输入的日期。
lcXML = loData.GetItems(calDate.SelectedDate,0,0,"ALL");
// 如果未返回数据，将引发异常。
if (lcXML == "")
{
throw new Exception();
}
}
catch(Exception ex)
{
// 如果发生异常，则在 ASP.NET 页上设置错误标签文本
并显示该文本。
lcError = "没有要检索的消息项";
outError.Text = lcError;
outError.Visible = true;
return;
}
try
{
// 将 XML 读入 DataSet。
oDS.ReadXml(new StringReader(lcXML));
}
catch(Exception ex)
{
// 如果发生异常，则获取对错误的引用并将 error 变量
设置为 True。
lcError = ex.ToString();
lbError = true;
}
// 如果发生错误，则在 ASP.NET 页上设置错误标签文本
并显示该文本。
if (lbError)
{
outError.Text = lcError;
outError.Visible = true;
return;
}
// 将 DataView 对象设置为使用 XML
创建的名为“News”的表。
DataView oDataView = new DataView(oDS.Tables["News"]);
// 将 DataGrid 源设置为 DataView。
dgrNews.DataSource = oDataView;
// 绑定 DataGrid。
dgrNews.DataBind();
// 显示 DataGrid。
dgrNews.Visible = true;
}
// 此方法是由 Visual Studio .NET 生成的。
private void Page_Init(object sender, EventArgs e)
{
//
// CODEGEN：该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
}
// 这段代码是由 Visual Studio .NET 生成的。
#region Web 窗体设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用
/// 代码编辑器修改此方法的内容。
/// </summary>
private void InitializeComponent()
{
this.calDate.SelectionChanged += new
System.EventHandler(this.Page_Load);
this.Load += new System.EventHandler(this.Page_Load);
}
#endregion
}
}
示例 4：从 ASP.NET Web Service 访问 Visual FoxPro 数据
您可以创建访问 Visual FoxPro 7.0 数据的 ASP.NET Web service。Web service 定义了 CustomersInCountry() 方法，该方法在传递包含国家/地区名称的字符串时，使用 OLE DB 提供程序连接到 Visual FoxPro 7.0 数据库。然后，执行查询以检索指定国家/地区的客户的详细信息。如果返回数据，则将结果集打包为 XML 并返回给调用对象。
XML Web services 没有用户界面，因此本示例也没有 ASPx 文件。下面列出了使用 C# 编写的实现代码。
// 设置对类库的引用。类似于 Visual FoxPro 7.0 中的
SET CLASSLIB TO。
using System;
using System.IO;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Data.Common;
using System.Data.OleDb;
using System.Diagnostics;
using System.Web;
using System.Web.Services;
namespace VFP7WebServiceExample
{
/// <summary>
/// Service1 的摘要说明。
/// </summary>
// 创建 ASP.NET Web Service。
public class Service1 : System.Web.Services.WebService
{
// 此方法是由 Visual Studio .NET 生成的。
public Service1()
{
// CODEGEN：该调用是 ASP.NET Web 服务设计器所必需的。
InitializeComponent();
}
// 这段代码是由 Visual Studio .NET 生成的。
#region 组件设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用
/// 代码编辑器修改此方法的内容。
/// </summary>
private void InitializeComponent()
{
}
#endregion
/// <summary>
/// 清理所有正在使用的资源。
/// </summary>
protected override void Dispose( bool disposing )
{
}
// WebMethod 属性将该方法作为 Web Service 方法提供。
[WebMethod]
// 此方法将国家/地区作为参数接受并以 XML 格式的字符串
返回该国家/地区的所有客户记录。
public string CustomersInCountry(string strCountry)
{
string cReturnString;
注意： OLE DB 提供程序连接字符串的规范包括一个完整的驱动器和路径声明，用于在默认位置存储示例数据。如果您的数据位于其他位置，请对以下行进行相应的修改。
// 连接到 Visual FoxPro 数据库。
String strConnection = @"provider=VFPOLEDB.1 ;data
source='C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO
7\SAMPLES\DATA\TESTDATA.DBC';password='';user id=''";
OleDbConnection VFP7Connection = new OleDbConnection();
VFP7Connection.ConnectionString = strConnection;
VFP7Connection.Open();
// 创建带 select 语句的 Command 对象。
String strSelect = "SELECT * FROM customer WHERE
upper(country)='" + strCountry.ToUpper() + "'";
OleDbCommand VFP7SelectCommand = new
OleDbCommand(strSelect,VFP7Connection);
// 创建 DataAdapter。
OleDbDataAdapter VFP7DataAdapter = new OleDbDataAdapter();
VFP7DataAdapter.SelectCommand = VFP7SelectCommand;
// 创建 DataSet。
DataSet VFP7DataSet = new DataSet();
// 使用表信息填充 DataSet。
int iRecFound;
iRecFound = VFP7DataAdapter.Fill(VFP7DataSet,"Customer");
// 如果未找到客户记录，则返回空字符串。
if (iRecFound==0)
{
cReturnString = "";
}
else
{
// 如果找到客户记录，则将 DataSet 结果
写入 XML 并将其作为字符串返回。
StringWriter cXML = new StringWriter();
VFP7DataSet.WriteXml(cXML);
cReturnString = cXML.ToString();
}
return cReturnString;
}
}
}
要通过 Visual FoxPro 7.0 使用此 Web service，首先应创建一个 Web service 实例，然后将其分配给一个本地对象引用，如以下代码所示：
LOCAL oCustomers as ASPDotNetWS
LOCAL loWS, lcRetStr
* 初始化 ASP.NET Web service。
loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
loWS.cWSName = "ASPDotNetWS"
oCustomers = loWS.SetupClient
("http://localhost/VFP7WebServiceExample/VFP7WebService.asmx?WSDL",
"Service1", "Service1Soap")
获得对 Web service 的对象引用后，便可以象调用实际本机 Visual FoxPro 对象一样调用其方法。Web service 以 XML 的形式返回结果，因此，为在 Visual FoxPro 7.0 中查看或使用该结果，我们需要使用 XMLTOCURSOR() 及以下代码将结果转换为本地游标。
* 将从 Web service 返回的 XML 转换为
* Visual FoxPro 7.0 游标并浏览其内容
STORE "" TO lcRetStr
lcRetStr = oCustomers.CustomersInCountry("GERMANY")
IF NOT EMPTY( lcRetStr )
XMLTOCURSOR( lcRetStr,"CustomersGermany")
BROWSE
ENDIF
当然，这里我们使用了 Visual FoxPro 7.0 来访问 Web service，但实际上我们可以使用任何能够创建对象并处理 XML 数据的开发工具。XML Web services 的精髓就在于它独立于语言（甚至平台）。
小结
Visual Studio .NET 为开发人员提供了一种使用新的 Web 窗体和 ASP.NET 技术（它们是 Microsoft .NET 框架的关键部分）开发应用程序的入口。Visual Studio .NET 提供了一个功能完备、集成的开发环境，并隐藏了管理各种工具所需的大多数复杂工作，从而使开发人员可以集中精力完成创建和部署应用程序的主要任务。对于 Visual FoxPro 7.0 开发人员来说，使用 Web 窗体和 ASP.NET 创建前端应用程序可以在以下三方面获得显著好处：
允许开发人员开发独立于平台的应用程序。与本机 Visual FoxPro 应用程序不同，ASP.NET 应用程序可以在浏览器中运行，并且不需要安装 Windows 平台。
允许开发人员远程访问 FoxPro 数据。使用在 ASP.NET 中开发的前端应用程序，可以在受控环境中提供 Visual FoxPro 数据，以便 Internet 上的用户可以查看并修改这些数据。
允许开发人员开发独立于设备的应用程序。ASP.NET 应用程序本身支持广泛的设备（包括蜂窝电话和 PDA）访问。
本文中的示例显示了 Visual FoxPro 7.0 如何以不同的方式轻松地与使用 Visual Studio .NET 中的 ASP.NET 创建的 Web 窗体相集成。随着新的 OLE DB 提供程序的问世和 Visual FoxPro 7.0 中引入的 XML 支持的增强，这种级别的集成已经成为可能。
但是，这决不仅仅是单向的交互。Visual FoxPro 7.0 可以轻松地创建以数据为中心的 XML Web services，这些服务很难使用数据和语言之间未紧密集成的工具来构建，而这一功能始终是 Visual FoxPro 的一项优势。
Visual FoxPro 7.0 还可用于创建中间层组件。由于 Visual FoxPro 7.0 全面支持 COM+ 服务，因而可以用来创建很容易从 Web 窗体中调用的数据密集型 COM 组件。这类组件既可以与本机 FoxPro 数据进行交流，也可以通过 OLE DB 与 SQL 数据库进行交流。
如本文所述，虽然 Visual FoxPro 7.0 不是 Visual Studio .NET 的一个组成部分，但这并不意味着它不能积极参与到基于 .NET 的环境中，并对该环境做出贡献。
有关 Visual FoxPro 的详细信息，请参阅 Microsoft Visual FoxPro（英文）主页。有关 ASP.NET 的详细信息，请参阅 Microsoft ASP.NET（英文）主页。
自由编程
[专家分：140] 发布于 2002-08-02 14:38:00 
您所在位置：社区首页 — Visual Foxpro讨论区 — VF7.0学习网站~~~微软的杀手锏呀--VF7.0
