求带附件soap协议传输代码 Delphi

Question

如上
数据通讯格式如下：
<?xml version='1.0' encoding="UTF-8">
<SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Header>
 <p:messageProperties xmlns:p="http://www.tdenergys.com/v4.0"/>
  <p:test1> </p:test1>
  <p:test2> </p:test2>
  <p:test3> </p:test3> </p:messageProperties>
</SOAP-ENV:Header><SOAP-ENV:Body>
<write:messageBody xmlns:Write="http://www.tdenergys.com/v4.0"/>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
数据文件以soap消息的附件传输这样的数据通讯是什么样的机制呢；代码上怎么写呢？