代码片断大致如下:
------------------
.......
try
RIO.HTTPWebNode.UseUTF8InHeader:=True;
//在此添加一句,修改编码方案。
Result := (RIO as test);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
.......
----------------