delphi – 按名称动态调用SOAP方法？

我正在使用Delphi XE2与一个相当大的SOAP服务进行通信.我已成功导入wsdl,一切都正常工作.但是,我发现自己写了很多类似的代码.我想要一个通用的方法来调用我的Web服务.我也很难多次读取我的代码,因为我现在必须为每种类型的调用写入这么多的代码.

更多的是一个周末的程序员,我远远不能掌握德尔福的进出口,但我认为至少对RTTI有一个很好的理解,我相信我应该习惯做我想做的事情.

Web服务有大约700种不同的方法,这几乎是问题.从wsdl生成的代码具有如下方法：

function  addPhone(const Params: addPhone): addPhoneResponse; stdcall;
function  updatePhone(const Params: updatePhone): updatePhoneResponse; stdcall;
function  getPhone(const Params: getPhone): getPhoneResponse; stdcall;
function  removePhone(const Params: removePhone): removePhoneResponse; stdcall;
function  listPhone(const Params: listPhone): listPhoneResponse; stdcall;
function  addStuff(const Params: addStuff): addStuffResponse; stdcall;
function  updateStuff(const Params: updateStuff): updateStuffResponse; stdcall;
...
... about 700 more of the above

基本上,有大约700种不同类型的东西可以被处理,并且有它们的添加,更新,获取,删除和列表方法.对于每个调用,都有一个对应的类用作SOAP请求的参数.如上所述,还有一个相应的响应类.

这些类似于(非常简化)：

addStuff = class
  private
    FStuff: string;
  published
    property stuff: string  Index (IS_UNQL) read FStuff write FStuff;
  end;

所以当我打电话给Web服务我做例如：

procedure CreateStuff;
var
    req:    addStuff;
    res:    addStuffResponse;
    soap:   MyWebServicePort;
begin
    // Use the function in the wsdl-generated code to create HTTPRIO
    soap := GetMyWebServicePort(false,'',nil);
    // Create Parameter Object
    req := addPhone.Create;
    req.stuff := 'test';
    // Send the SOAP Request
    res := soap.addStuff(req);
end;

(是的,我知道我应该尝试,完全免费,还有:-))

那么,代码中的其他地方我需要调用一个不同的方法：

procedure listStuff;
var
    req:    listStuff;
    res:    listStuffResponse;
    soap:   MyWebServicePort;
begin
    // Use the function in the wsdl-generated code to create HTTPRIO
    soap := GetMyWebServicePort(false,nil);
    // Create Parameter Object
    req := listPhone.Create;
    req.stuff := 'test2';
    // Send the SOAP Request
    res := soap.listStuff(req);
end;

因为我知道这个参数总是一个类,它的名字等同于我所调用的方法,所以我想要像下面的metacode那样做一些动态的调用.我想这需要一些RTTI的魔法,但是我没有找到办法来做到这一点：

procedure soapRequest(Param: Something; var Response: Something);
begin
  soap := GetMyWebServicePort(false,nil);
  Response := soap.DynamicInvoke(Param.ClassName,Param);
end

然后我可以做一些像：

soapRequest(VarOfTypeAddStuff,VarOfTypeAddStuffResponse)
soapRequest(VarOfTypeListStuff,VarOfTypeListStuffResponse)
...

有没有人有一个想法如何可以简化我对网络服务的呼叫？

提前致谢

担