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

调用servics时.编译通过了.但1点就错.

热度:5045   发布时间: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