C # вызывает DLL файл Delphi - PullRequest
Новая
       15

C # вызывает DLL файл Delphi

0 голосов
/ 24 октября 2018

В последнее время ， Мне нужно использовать Delphi DLL в моем проекте на C #, и у меня есть поиск некоторых ответов, однако все остальное терпит неудачу.Имя DLL было modelDLL.dll, которому нужен другой файл DLL (я уже поместил эти два файла в папку отладки)

Delphi-код 

type
TCharStr=array[0..599] of char;

Использование Delphi для вызова DLL работаетхорошо (код следующий), однако, я не знаю конкретных комментариев в DLL-файле.Относительный код 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.

1 Ответ

0 голосов
/ 24 октября 2018

Самая значительная проблема (есть несколько проблем) заключается в том, что код Delphi работает с массивами символов фиксированной длины, которые нелегко маршалировать.Маршалер C # не имеет типа, который точно соответствует этим вещам.Проблема в том, что массив символов Delphi фиксированной длины не завершается нулем, если он является полной длиной массива.

Другая проблема - это набор символов.Delphi 7 char - это 8-битный тип ANSI.Вы маршалируете как CharSet.Auto, который является 16-битным UTF-16 на платформах, отличных от Windows 9x.Я уверен, что вы не работаете в 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);
...