当前位置: 代码迷 >> Delphi >> 调用servics时.编译通过了.但一点就错.解决方案
  详细解决方案

调用servics时.编译通过了.但一点就错.解决方案

热度:8471   发布时间:2013-02-25 00:00:00.0
调用servics时.编译通过了.但一点就错...
服务端
public struct ClientData
{
    public String Name;
    public int ID;
}


    [WebMethod(CacheDuration = 30,
        Description = "返回客户记录")]

    public ClientData[] GetClientData(int Number)
    {
        ClientData[] Clients = null;

        if (Number > 0 && Number <= 10)
        {
            Clients = new ClientData[Number];
            for (int i = 0; i < Number; i++)
            {
                Clients[i].Name = "Client " + i.ToString();
                Clients[i].ID = i;
            }
        }
        return Clients;

    }

客户端:
var call1:ServiceSoap;
  CallCleint:ArrayOfClientData;
  i:Integer;
begin
  call1:=GetServiceSoap();
  CallCleint:=call1.GetClientData(3);//运行到这里会出错
  for I := Low(CallCleint) to High(CallCleint) do
     ShowMessage(Format('%s  ;    %d',[CallCleint[i].Name_, CallCleint[i].ID]));
end;
------解决方案--------------------------------------------------------
sf
  相关解决方案