在webservice是用的utf-8需要在生成的接口中添加:
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;
RIO.HTTPWebNode.UseUTF8InHeader := True;
RIO.Converter.Encoding := 'UTF-8';
RIO.Converter.Options := RIO.Converter.Options + [soUTF8InHeader,soUTF8EncodeXML];
try
Result := (RIO as YouGuessServiceSoap);
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;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(YouGuessServiceSoap), 'http://localhost:8080/', 'utf-8');
InvRegistry.RegisterInvokeOptions(TypeInfo(YouGuessServiceSoap),ioDocument);
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(YouGuessServiceSoap), 'http://localhost:8080/%operationName%');
end.