最近，我需要在我的C＃项目中使用Delphi DLL，并且已经搜索了一些答案，但是其他所有方法都失败了。DLL的名称为modelDLL.dll，它需要另一个DLL文件（我已经将这两个文件放在debug文件夹中）
德尔福代码
type
TCharStr=array[0..599] of char;
使用Delphi调用DLL可以正常工作（下面的代码），但是，我不知道DLL File中的特定注释。Delphi的相对代码如下：
procedure TMainDLLForm.PedBitBtnClick(Sender: TObject);
var
fileName:TCharStr;
begin
OpenDataFileDlg.InitialDir:= GetCurrentDir;
OpenDataFileDlg.Title:='load model file';
OpenDataFileDlg.Filter := 'model_A[*.mdl]|*.mdl|model_T[*.mdr]|*.mdr';
if OpenDataFileDlg.Execute then
begin
StrPCopy(FileName,OpenDataFileDlg.FileName);
tmpD:=NIRSAModelForPred(graphyData,dataLength,FileName,targetName);
end;
if compareText(fileExt,'.MDR')=0 then
begin
memo1.Lines.Add('model_T: '+ExtractFileName(FileName));
memo1.Lines.Add(Format('Result: %10s：%0.0f',[targetName,tmpD]));
end;
memo1.Lines.Add('--------------');
memo1.Lines.Add(trim(NIRSAPretreatInfor(FileName)));// calling this function
memo1.Lines.Add('--------------');
memo1.Lines.Add(trim(NIRSAModelInfor(FileName)));
end;
我的C＃代码如下，提示“尝试读取或写入受保护的内存。这通常表明其他内存已损坏。” 错误。
[MarshalAs(UnmanagedType.LPStr, SizeConst = 600)]
public string fileName;
[DllImport(@"modelDLL.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)]
[return: MarshalAs(UnmanagedType.LPStr, SizeConst = 600)]
public static extern string NIRSAPretreatInfor(ref string fileName);
private void preCalcButton_Click(object sender, EventArgs e)
{
OpenFileDialog dialog = new OpenFileDialog();
dialog.Multiselect = false;
if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
{
fileName = dialog.FileName;
string result = NIRSAPretreatInfor(ref fileName);
modelInfoTextBox.Text = result;
}
}
那么，有人可以给我一些建议吗？您的答复将不胜感激！
PS：Delphi版本：7.0
导入DLL代码：
implementation
function
NIRSAModelForPred(Data:TGraphyData;dataLength:integer;ModelFileName:TCharStr;var targetName:TCharStr):double;stdcall;external 'modelDLL.dll';
function NIRSAModelInfor(ModelFileName:TCharStr):TCharStr;stdCall;external 'modelDLL.dll';
function NIRSAPretreatInfor(ModelFileName:TCharStr):TCharStr;stdCall;external 'modelDLL.dll';
现在，我将更CharSet = CharSet.Auto改为CharSet = CharSet.Ansi，并且错误消息再次出现。
The call to the PInvoke "NIRSAPre!NIRSAPre.Form1::NIRSAPretreatInfor" function causes the stack to be asymmetric.
最重要的问题（存在多个问题）是Delphi代码与固定长度的字符数组一起使用，这不容易编组。C＃封送处理程序没有与这些内容完全匹配的类型。问题是，如果Delphi定长字符数组是数组的完整长度，则它不会以null终止。
另一个问题是字符集。Delphi 7char是8位ANSI类型。CharSet.Auto在Windows 9x以外的平台上，您将按16位UTF-16编组。我相信您不会在Windows 9x上运行。
最后一个问题与用作返回值的大型类型的ABI有关。Delphi ABI实现了诸如额外（隐藏）var参数之类的功能。所以
function NIRSAPretreatInfor(ModelFileName: TCharStr): TCharStr;
stdCall; external 'modelDLL.dll';
实际上实现为：
procedure NIRSAPretreatInfor(ModelFileName: TCharStr; var ReturnValue: TCharStr);
stdCall; external 'modelDLL.dll';
为了正确编组，您将需要手动处理字符串。从一些辅助方法开始：
public const int DelphiTCharStrLength = 600;
public static byte[] NewDelphiTCharStr()
{
return new byte[DelphiTCharStrLength];
}
public static byte[] ToDelphiTCharStr(string value)
{
byte[] result = NewDelphiTCharStr();
byte[] bytes = Encoding.Default.GetBytes(value + '\0');
Buffer.BlockCopy(bytes, 0, result, 0, Math.Min(bytes.Length, DelphiTCharStrLength));
return result;
}
public static string FromDelphiTCharStr(byte[] value)
{
int len = Array.IndexOf(value, (byte)0);
if (len == -1)
len = DelphiTCharStrLength;
return Encoding.Default.GetString(value, 0, len);
}
这些处理的事实是，固定长度的Delphi字符数组不必为空终止。
一旦到位，p / invoke声明将如下所示：
[DllImport(@"modelDLL.dll", CallingConvention = CallingConvention.StdCall)]
public extern static void NIRSAPretreatInfor(byte[] ModelFileName, byte[] ReturnValue);
这样称呼它：
byte[] outputBytes = NewDelphiTCharStr();
NIRSAPretreatInfor(ToDelphiTCharStr("foo"), outputBytes);
string output = FromDelphiTCharStr(outputBytes);
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句