双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

web service 地址加载后参数类型问题

2016-05-19 09:55:12 210 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

appleyk 墨衍会员 · AI 创作全网分发关注 + 加入社区

通过Web Service实现IP地址查询功能通过Web Service实现IP地址查询功能阅读详情

对方web service 是java写的，其中一个方法的参数是数组类型，delphi7导入地址后，参数类型为stringArray，delphi没有此类型，对方又不肯改参数类型，如何是好？ type stringArray = array of string；后，发现调用对方接口方法的时候，传入参数，传入一个 array of string 类型的值后，发现报 ‘incompatible types’,郁闷，哪里的问题？

...全文

面试题-web service接口如何测试？面试题-web service接口如何测试？阅读详情

appleyk

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

伊吹萃香 2016-05-19

打赏
举报

先试过再说，生成的代码有问题就得去动，而且如果你用的是D7这种老版本，生成的一些有问题也是常事

appleyk 2016-05-19

打赏
举报

引用 4 楼 masm32v9 的回复:

我看你最前面说的意思，不就是说自己加上了 ArrayOfString = array of WideString;这个定义，然后在调用时提示不兼容的类型吗？那问题就来了，你是怎么传参数调用的？

我直接拿来用 var arg4:ArrayOfString 然后传这个，是可以的前提是编译器加上了那行类型转换代码如果没加，就手动加，这个还没测试，不知道可行不，感觉加载过来的wsdl地址，里面的pas文件不能随便的改动啊

伊吹萃香 2016-05-19

打赏
举报

我看你最前面说的意思，不就是说自己加上了 ArrayOfString = array of WideString;这个定义，然后在调用时提示不兼容的类型吗？那问题就来了，你是怎么传参数调用的？

appleyk 2016-05-19

打赏
举报

引用 1 楼 masm32v9 的回复:

说明你对delphi的语法还是不熟，用实际例子说明下：


type
  TStringArray = array of string;

procedure MyPrint(Arr: TStringArray);
var
  i: Integer;
begin
  for i := Low(Arr) to High(Arr) do
    Form1.Memo1.Lines.Add(Arr[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  // MyArr: array of string; 类型将不匹配
  MyArr: TStringArray; // 正常
begin
  SetLength(MyArr, 2);
  MyArr[0] := '1';
  MyArr[1] := '2';
  MyPrint(MyArr);
end;

，我说的可能不是很明白，写了个C#的web服务进行测试，貌似发现问题了，string[] 类型在delphi里面会被自动定义为 ArrayOfString = array of WideString;//这一行代码是唯一系统自动生成的，但是，客户那调用java的服务（服务里的方法有个string[]类型的参数）的时候，却发现这行代码没有生成，导致const param: ArrayOfString，这个ArrayOfString类型未定义，客户真是麻烦，不配合远程，所以具体那边什么情况，我也没法跟，唉。。。

appleyk 2016-05-19

打赏
举报

错了，上面生成那个，改为增加。。。。完全两个意思

伊吹萃香 2016-05-19

打赏
举报

说明你对delphi的语法还是不熟，用实际例子说明下：


type
  TStringArray = array of string;

procedure MyPrint(Arr: TStringArray);
var
  i: Integer;
begin
  for i := Low(Arr) to High(Arr) do
    Form1.Memo1.Lines.Add(Arr[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  // MyArr: array of string; 类型将不匹配
  MyArr: TStringArray; // 正常
begin
  SetLength(MyArr, 2);
  MyArr[0] := '1';
  MyArr[1] := '2';
  MyPrint(MyArr);
end;

✦双11狂欢大促✦

web service 地址加载后参数类型问题

相关推荐

双11狂欢大促