Delphi 6 與 ASP.NET 使用 Web Service 資料傳輸 (由ASP.NET 傳XML Delphi 6接收)

Delphi 6 引用ASP.NET的Web Service後呼叫test() function 回傳xml 注意事項: 1. DataSet ds 為要傳送給Delphi的資料 2. 將ds轉成xml後再傳送 3. 注意中文問題，要轉成BIG5 4. 假使Delhpi方面只能接收xml內容 請在表頭處強制加上即可中文顯示正常 5. Delphi編輯xml請使用XML Mapping Tool

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Services;
using System.Data;
using System.Data.OleDb;
using System.Data.SqlClient;
using System.Transactions;
using System.Xml;
///

/// tls_export_test 的摘要描述
/// 
[WebService(Namespace = "http://tempuri.org/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
// 若要允許使用 ASP.NET AJAX 從指令碼呼叫此 Web 服務，請取消註解下一行。
// [System.Web.Script.Services.ScriptService]
public class tls_export_test : System.Web.Services.WebService
{
public tls_export_test()
{
//如果使用設計的元件，請取消註解下行程式碼
//InitializeComponent();
}
[WebMethod]
public XmlDataDocument test()
{
XmlDeclaration xmldec;
XmlDataDocument xml = new System.Xml.XmlDataDocument(ds);
xml.DataSet.EnforceConstraints = false;
xmldec = xml.CreateXmlDeclaration("1.0", "BIG5", null);
xml.PrependChild(xmldec);
return xml;
}}