delphi 调用 C# COM DLL 解析C#数据集

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Net.Sockets;
using System.Net;
using System.Data;
using System.IO;
using System.IO.Compression;
using System.Runtime.Serialization.Formatters.Binary;

namespace cstcp
{
public interface ICSTCPClass
{
string rtMsg();
bool SetHost(string host, string port);
//
bool SetDict1(string uid,ref string rMsg, IntPtr PData, int PDataLength);
}

[ClassInterface(ClassInterfaceType.None)]

public class CSTCPClass : ICSTCPClass
{
public string rHost = "";
public string rPort = "";
public const int HeadBufferSize = 16;
public const int StreamBufferSize = 65536;

public string rtMsg()
{
return "this is a result string";
}

public bool SetHost(string host, string port)
{
rHost = host;
rPort = port;
return true;
}

//BYTE数组转消息类（反序列）
public static object byteToOb(byte[] t_byte)
{
object dsResult = null;
try
{
if (t_byte == null) return null;
MemoryStream mStream = new MemoryStream(t_byte);
mStream.Seek(0, SeekOrigin.Begin);
DeflateStream unZipStream = new DeflateStream(mStream, CompressionMode.Decompress, true);
BinaryFormatter bFormatter = new BinaryFormatter();
dsResult = (object)bFormatter.Deserialize(unZipStream);
//dsResult = (object)bFormatter.Deserialize(mStream);
}
catch
{
return null;
}
return dsResult;
}
public bool SetDict1(string uid, ref string rMsg, IntPtr PData, int PDataLength)
{
try
{
byte[] b = new byte[PDataLength];
Marshal.Copy(PData, b, 0, PDataLength);
DataSet ds = (DataSet)byteToOb(b);

if (ds != null)
{
DataTable dt = ds.Tables[0];
dt.WriteXml("C:\\111.xml");
rMsg = "解析成功";
return true;
}
rMsg = "解析失败";
return false;
}
catch(Exception ex)
{
rMsg= ex.Message.ToString();
return false;
}
}
}

}

编译时设置 属性->生成->输出->勾选 为COM Interop注册选项

注册COM脚本：

%WINdir%\Microsoft.NET\Framework\v2.0.50727\regasm.exe tcpcom.dll /tlb:tcpcom.tlb /codebase
pause

调用方法：Delphi7为例

Project->Import Type Library->选择刚注册的tcpcom(com模块名)->Create Unit

uses tcpcom_TLB;
procedure TForm1.Button1Click(Sender: TObject);
var
t:TCSTCPClass;
begin
t:= TCSTCPClass.Create(self);
t.SetHost('127.0.0.1','8080') ;
t.Free;
end;