C#调用Delphi Dll返回字符串的示例

 

//----------------------Delphi-------------------

procedure GetSqlData(ASource: PChar; ADest: PChar; ADestSize: Integer); stdcall;

var

 S: string;

begin

 if ASource = nil then Exit;

 S := Format('%s 路过！',[ASource]);

 Move(S[1], ADest^, Min(ADestSize, Length(S)+1));

end;{ GetSqlData }

 

exports

 GetSqlData;

 

//----------------------C#-------------------

[DllImport(@"TempLib.dll")]

public static extern void GetSqlData(string ASource, StringBuilder ADest, int ADestSize);

 

private void button1_Click(object sender, EventArgs e)

{

    StringBuilder vDest = new StringBuilder(1024);

    GetSqlData("Zswang", vDest, 1024);

    Text = vDest.ToString();

}