How do I get the namespaces right when using a Transaction Exchange Server Web service?

I am trying to consume a TxServer web service, but I'm getting the error response

Unmarshalling Error: unexpected element (uri: "http://txserver.sut.softekpr.com/1", local:"transaction"). Expected elements are<{}transaction>`.

I found out the XML that Delphi generates does not work with the service,

but if I add xmlns="" to the transaction tag, it works.

Can anyone help me to add xmlns="" to the transaction tag?

I'd like to have: <transaction xmlns="">.

BTW I tried changing: InvRegistry.RegisterInvokeOptions(TypeInfo(TxServer), ioDocument); to all the io.. Options, but it doesn't work.

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
  xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SOAP-ENV:Body>
    <requestIVULoto xmlns="http://txserver.sut.softekpr.com/1">
      <transaction>
        <merchantId>00000000000</merchantId>
        <municipalTax>.01</municipalTax>
        <stateTax>开发者_开发知识库;.06</stateTax>
        <subTotal>1</subTotal>
        <tenderType>CASH</tenderType>
        <terminalId>POS02</terminalId>
        <terminalPassword/>
        <total>1.07</total>
        <txDate>2011-05-05T10:02:17.708Z</txDate>
        <txType>SALE</txType>
      </transaction>
    </requestIVULoto>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

RemClassRegistry.RegisterXSClass(InstitutionCode, #0, 'InstitutionCode');

where InstitutionCode is some node name, #0 empty char, simply empty string '' not working it is replaced by generated name.

It can be problem with widestring, but you can use TXSString instead

Use an OnBeforePost event on the RIO object, and simply edit the outgoing string. It's dirty, but it works.

procedure TMyHandler.RIO_BeforeExecute(const MethodName: string; var SOAPRequest: WideString);
begin
  SOAPRequest := StringReplace(SOAPRequest,'<transaction>','<transaction xmlns="">',[]);
end;

Here is an example of hooking the RIO via the GUI way: http://www.onlinedelphitraining.com/newsletters/webservices.htm

Here is discussion on doing it in code: THttprio onBeforeExecute changing the soapRequest

Then try to use THTTPRIO component, if you have it in your Delphi distribution and try to pass it into the GetTxServer method call.

...
var MyTxServer: TxServer;
begin
  MyTxServer := GetTxServer(True, '', HTTPRIO1); // HTTPRIO1 is your component
end;

And as Chris mentioned before you can change the request in OnBeforeExecute event (of that HTTPRIO component); I have D2009 so you will probably have different parameters if you have it at all.

procedure TForm10.HTTPRIO1BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var MyStringList: TStringList;

begin
  MyStringList := TStringList.Create;
  SOAPRequest.Position := 0;
  MyStringList.LoadFromStream(SOAPRequest);
  MyStringList.Text := StringReplace(MyStringList.Text, '<transaction>', '<transaction xmlns="">', [RfReplaceAll]);
  SOAPRequest.Position := 0;
  MyStringList.SaveToStream(SOAPRequest);
end;