(1)在uses中增加OPConvert引用；

(2)在主函数中加入以下内容：

  //add-------to support UTF-8

    RIO.HTTPWebNode.UseUTF8InHeader := true;  //添加该行，指定采用UTF-8代码传输

  //add-------END

添加的位置是以下代码的下面：

var

  RIO: THTTPRIO;

begin

  Result := nil;

  if (Addr = '') then

  begin

    if UseWSDL then

      Addr := defWSDL

    else

      Addr := defURL;

  end;

  if HTTPRIO = nil then

    RIO := THTTPRIO.Create(nil)

  else

    RIO := HTTPRIO;

(3)在文件的末尾，也就是 initialization 的最后加入以下语句：

这样，完整的initialization 就变成

initialization

  InvRegistry.RegisterInterface(TypeInfo(SIPPlanApproval2009WebService_forAGSSoap), 'http://unimap.com/', 'utf-8');

  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(SIPPlanApproval2009WebService_forAGSSoap), 'http://unimap.com/%operationName%');

  InvRegistry.RegisterInvokeOptions(TypeInfo(SIPPlanApproval2009WebService_forAGSSoap),ioDocument);

其中SIPPlanApproval2009WebService_forAGSSoap是服务名；根据你调用的webService不同而不同；

这样自动产生的文件就修改完成了；