c# 调用 dephi 字符串传输

先吐槽一下，网上很多文章的问题却没有一个详细的解决方案的，而且百度了一堆都是问题，哎；

下面就来看下我的解决方案吧，希望对你有用：

1.先说下方式：

采用 c# StringBuilder 对应 dephi 的 Pointer

2.误区点：

c# : [DllImport("Sign_AnySignInterface.dll", CharSet = CharSet.Ansi // 这个地方必须为：Ansi  不然会乱码，这个折腾了好久

dephi: function Sign_AnySignGetInfo_ex(nInfolx :Integer ;qmxh :PChar ;memo :PChar; strInfo :Pointer ):Boolean ;stdcall;   //  strInfo  前面一定不要加 var，加了就无法返回结果

说完这些还是上代码最直接：

c# :

//静态反射

 [DllImport("Sign_AnySignInterface.dll", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall, EntryPoint = "Sign_AnySignVerifyData")]
   public static extern Boolean Sign_AnySignVerifyData(int qmxh, StringBuilder memo, StringBuilder strInfo);

//调用反射

        StringBuilder sbBuilder = new StringBuilder(1000000);
            bool bl = AnySignMethods.Sign_AnySignVerifyData(int.Parse(qmxh), new StringBuilder(memo), sbBuilder);
            strInfo = sbBuilder.ToString();

dephi:

定义：

function Sign_AnySignVerifyData(qmxh :Integer ;memo :PChar; strInfo :Pointer  ):Boolean ;stdcall;

方法：

function Sign_AnySignVerifyData(qmxh :Integer ;memo :PChar; strInfo :Pointer ):Boolean ;stdcall;
var

   b_ret :Boolean ;
   strLog :string ;
   strmeno:WideString;
   strInfo1:WideString;
   str,strlen:string;
   pstr:PChar;
   plen,i:Integer;
begin
    Result :=False ;
     while Char(strInfo^) <> #0 do
    begin
      str := str +string(Char(strInfo^));
      inc(Integer(strInfo));
    end;
    

      str := ‘你的字符串’;
        pstr:=PChar(str);
     plen:=Length(str);
      for i:=0 to plen do
    begin
      Char(strInfo^):=pstr[i];
      inc(Integer(strInfo));
    end;
    Char(strInfo^):=#0;
    
    Result :=True ;
end;