C#调用Delphi编译的DLL函数库返回大文本数据

[DllImport(DLL_NAME, EntryPoint = "NovellGetObjects", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
public static extern int NovellGetObjects(string NovellPath, string ClassName, StringBuilder ADestBuffer, int ADestSize);

/// <summary>
/// 获取Novell网对象
/// </summary>
/// <param name="NovellPath">有效路径.如: .mis.csframework.com 或 .xx.cn</param>
/// <param name="ClassName">取对象类型: Organizational Unit,Group,User </param>
/// <returns></returns>
public static DataTable NovellGetObjects(string NovellPath, string ClassName)
{
   try
   {
      StringBuilder sb = new StringBuilder(100000);
      int count = LDAP_DLL_DelphiComplied.NovellGetObjects(NovellPath, ClassName, sb, 100000);
      return GetStringTable(sb.ToString());
   }
   catch
   {
      return null;
   }
}

// 来源:www.CSFramework.com, C/S结构框架学习网

function NovellGetObjects(NovellPath: PChar; ClassName: PChar; ADestBuffer: PChar; ADestSize: Integer; only3: Integer): Integer; stdcall; export;
var S: string;
begin
S := DirTools.NovellGetObjects(NovellPath, ClassName, only3 = 1); //获取字符串
Move(S[1], ADestBuffer^, Min(ADestSize, Length(S) 1));
Result := Length(S);
end;

// 来源:www.CSFramework.com, C/S结构框架学习网