wcf 将一个类的多个实例返回给客户端

Question

问题：我有一个 Web 服务启动并运行正常，我遇到的问题是我需要返回一个类的多个实例，并且不知道如何执行此操作。

我在服务中设置了一个循环：

If localtab.Rows.Count > 0 Then
            Do While i <= localtab.Rows.Count
                Mbr.Urn = localtab.Rows(i).Item(0) & vbNullString
                Mbr.Title = localtab.Rows(i).Item(1) & vbNullString
                Mbr.Initials = localtab.Rows(i).Item(2) & vbNullString
                Mbr.Surname = localtab.Rows(i).Item(3) & vbNullString
                Mbr.Address1 = localtab.Rows(i).Item(4) & vbNullString
                Mbr.Address2 = localtab.Rows(i).Item(5) & vbNullString
                Mbr.Address3 = localtab.Rows(i).Item(6) & vbNullString
                Mbr.Town = localtab.Rows(i).Item(7) & vbNullString
                Mbr.County = localtab.Rows(i).Item(8) & vbNullString
                Mbr.Country = localtab.Rows(i).Item(9) & vbNullString
                Mbr.Postcode = localtab.Rows(i).Item(10) & vbNullString
                Mbr.msg = "Success"

                i = i + 1
            Loop
        Else
            Mbr.msg = "Fail - no record found"
        End If 

我知道这工作正常，因为它返回数据库中列出的最后一个成员。执行诸如 Mbr(i).urn 等操作...不会起作用，因为当我循环 i 时，它只会返回第一个实例，并且一旦服务返回一次会停止。

下面是客户端调用服务的代码 - 足够简单，我现在所寻找的只是一个显示每个姓氏的消息框。

Dim abMem As New ArdbegMember
    Dim retMem As ArdbegMember

    abMem.Downloaded = "N"

    Try
        cc.Open()
        retMem = cc.MbrReq(abMem)
        MesgBox(retMem.Surname)
        cc.Close()

我需要知道的是如何将完整的记录集传递回客户端

编辑

所以根据下面的建议，我的代码现在看起来像这样 -

Dim results As List(Of ArdbegMember)
            Dim i As Integer = 0

            'assign values from the table to the ArdbegMember object
            If localtab.Rows.Count > 0 Then
                Do While i <= localtab.Rows.Count
                    Mbr.Urn = localtab.Rows(i).Item(0) & vbNullString
                    Mbr.Title = localtab.Rows(i).Item(1) & vbNullString
                    Mbr.Initials = localtab.Rows(i).Item(2) & vbNullString
                    Mbr.Surname = localtab.Rows(i).Item(3) & vbNullString
                    Mbr.Address1 = localtab.Rows(i).Item(4) & vbNullString
                    Mbr.Address2 = localtab.Rows(i).Item(5) & vbNullString
                    Mbr.Address3 = localtab.Rows(i).Item(6) & vbNullString
                    Mbr.Town = localtab.Rows(i).Item(7) & vbNullString
                    Mbr.County = localtab.Rows(i).Item(8) & vbNullString
                    Mbr.Country = localtab.Rows(i).Item(9) & vbNullString
                    Mbr.Postcode = localtab.Rows(i).Item(10) & vbNullString
                    Mbr.msg = "Success"

                    i = i + 1

                    results.Add(Mbr)
                Loop
            Else
                Mbr.msg = "Fail - no record found"
            End If

            'Tidy up
            dataAdapter.Dispose()
            Cmd.Dispose()
            oConn.Close()

            'Return the ArdbegMember object
            Return results

现在抛出的错误是 -

Value of type 'System.Collections.Generic.List(Of ArdbegWeb.ArdbegMember)' cannot be converted to 'ArdbegWeb.ArdbegMember'.

Answer 1

您始终可以创建一个返回 List 的服务，前提是您为 定义了具体类型：

[ServiceContract]
public interface IYourService
{
   [OperationContract]
   public List<ArdbegMember> GetMembers();  
}

假设您有一个数据协定类：

[DataContract]
public class ArdbegMember
{
    [DataMember]
    public string Title { get; set; }
    [DataMember]
    public string Initials { get; set; }
    [DataMember]
    public string Surname { get; set; }
    .... (and so forth - define all the properties you need on your `ArdbegMember`)
}

在您的服务中实现，你可以这样写：

public class YourService : IYourService
{
   public List<ArdbegMember> GetMembers()
   {
       List<ArdbegMember> results = new List<ArdbegMember>();

       // load your `localtab` somehow
       foreach(DataRow row in localtab.Rows)
       {
           ArdbegMember member = new ArdbegMember();
           // set the properties, based on the "row"

           results.Add(member);
       }

       return results;
   }  
}

现在你有了一个 WCF 服务，它有一个名为 GetMembers() 的方法（你可能想在你的实际服务中传递一些搜索条件等）并返回返回 ArdbegMember 对象列表。

一些不错的 WCF 资源：

• WCF 开发人员中心
• Windows Communication Foundation 初学者指南
• 资源和社区

对一本书感兴趣？我会推荐 Michele Leroux Bustamante 的学习 WCF。她以一种非常容易理解和平易近人的方式涵盖了所有必要的主题。这将教您编写高质量、有用的 WCF 服务所需的一切知识 - 基础知识、中级主题、安全性、事务控制等等。

Answer 2

感谢您的帮助，马克，解决方案非常明显，我不应该错过它！

Do While i <= localtab.Rows.Count 应该阅读 Do While i <= localtab.Rows.Count-1。当它尝试将 Mbr 返回到客户端时，循环本身重复太多次，导致出现问题！