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

Question

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

2

В последнее время мне нужно использовать DLL-библиотеку Delphi в моем проекте на С#, и у меня есть поиск некоторых ответов, но все остальное терпит неудачу. Имя 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;

Мой код С# был следующим: "Попытка чтения или записи защищенной памяти. Это часто указывает на то, что другая память повреждена". ошибка.

[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.

tomi chen 24 окт. 2018, в 05:05

Источник

0

Я не вижу, куда вы экспортируете метод Delphi. Проверьте эту ссылку, она дает некоторое представление о том, что вы можете попробовать. stackoverflow.com/a/38219260/3516555
fourwhey 24 окт. 2018, в 02:48
0

Вы должны показать описание функции в DLL (особенно соглашение о вызовах) и указать версию Delphi (это Unicode?)
MBo 24 окт. 2018, в 02:50
0

спасибо за ваш ответ, я не могу рассказать вам описание функции в DLL прямо сейчас (я опубликую позже) и версия Delphi была 7. Но поставщик DLL дает мне краткое описание функции:
tomi chen 24 окт. 2018, в 02:56
0

(используя C): Char NIRSAPretreatInfor (char * ModelFileName) ； входные параметры: char ModelFileName [600]; / имя файла модели ， Имя расширения * .mdl или * .mdr * / возвращаемое значение: массив char str [600] content описание содержимого ；
tomi chen 24 окт. 2018, в 03:03
0

Вы также можете показать код Delphi для импорта функции, если это возможно. И включить информацию о Delphi 7 в тело вопроса - это важно /
MBo 24 окт. 2018, в 03:10
0

Спасибо за ваши советы, и я обновил некоторую необходимую информацию в теле вопроса!
tomi chen 24 окт. 2018, в 03:41
0

stdcall определен в обоих случаях - все нормально. Но размер символа составляет 1 байт в Delphi 7 и, возможно, 2 байта в функции c # со CharSet = CharSet.Auto
MBo 24 окт. 2018, в 04:04
0

Вы правы, размер символа в C # составляет 2 байта, так что мне нужно просто изменить размер массива? Я попробую позже.
tomi chen 24 окт. 2018, в 04:48
0

Возможно, вам нужен CharSet.Ansi , но эта простая замена не решит все проблемы.
MBo 24 окт. 2018, в 04:52
0

Я попробовал этот метод, но снова не удалось, есть ли что-то, что я могу сделать, чтобы решить эту проблему?
tomi chen 24 окт. 2018, в 06:09
0

Теперь сообщение об ошибке: функция PInvoke «NIRSAPre! NIRSAPre.Form1 :: NIRSAPretreatInfor» вызывает асимметрию стека.
tomi chen 24 окт. 2018, в 06:22
0

В разделе Delphi SO есть много вопросов, касающихся взаимодействия C # -Delphi dll. Возможно, некоторые из них имеют дело с PAnsiChar. У меня недостаточно опыта работы с типами данных c # - например, я не уверен, правильно ли используется ref string fileName .
MBo 24 окт. 2018, в 06:22
0

stack asymmetry - соглашение о вызовах и несоответствие списка / типов параметров. read or write protected memory - ошибочная интерпретация указателя на данные или несоответствие размера тела строки
MBo 24 окт. 2018, в 06:24
1

Набор символов не является главной проблемой. Я напишу ответ, чтобы я надеюсь объяснить.
David Heffernan 24 окт. 2018, в 06:30
0

Использование ref string fileName или string fileName ничего не изменит. Так что мне нужно сделать? Это сводит меня с ума!
tomi chen 24 окт. 2018, в 06:34
0

Функция возвращает буфер 600 (Ansi) Char. Это, вероятно, не то, что C # может проглотить. Смотрите мою статью: DLL и что нельзя делать . Это касается структур, но то же самое относится и к статическим массивам.
Rudy Velthuis 24 окт. 2018, в 07:42
0

Я вижу, что Давид приходит к такому же выводу. Если вы имеете какое-либо влияние на автора (ов) DLL, то скажите им, что использование массива фиксированного размера, особенно возвращающего его из функции DLL , никогда не будет хорошей идеей. Они должны скорее следовать стилю Windows API и, возможно, прочитать мою статью.
Rudy Velthuis 24 окт. 2018, в 08:05

Показать ещё 15 комментариев

Теги:

c#

delphi

dllimport

1 ответ

Ещё вопросы

Я не вижу, куда вы экспортируете метод Delphi. Проверьте эту ссылку, она дает некоторое представление о том, что вы можете попробовать. stackoverflow.com/a/38219260/3516555
Вы должны показать описание функции в DLL (особенно соглашение о вызовах) и указать версию Delphi (это Unicode?)
спасибо за ваш ответ, я не могу рассказать вам описание функции в DLL прямо сейчас (я опубликую позже) и версия Delphi была 7. Но поставщик DLL дает мне краткое описание функции:
(используя C): Char NIRSAPretreatInfor (char * ModelFileName) ； входные параметры: char ModelFileName [600]; / имя файла модели ， Имя расширения * .mdl или * .mdr * / возвращаемое значение: массив char str [600] content описание содержимого ；
Вы также можете показать код Delphi для импорта функции, если это возможно. И включить информацию о Delphi 7 в тело вопроса - это важно /
Спасибо за ваши советы, и я обновил некоторую необходимую информацию в теле вопроса!
stdcall определен в обоих случаях - все нормально. Но размер символа составляет 1 байт в Delphi 7 и, возможно, 2 байта в функции c # со CharSet = CharSet.Auto
Вы правы, размер символа в C # составляет 2 байта, так что мне нужно просто изменить размер массива? Я попробую позже.
Возможно, вам нужен CharSet.Ansi , но эта простая замена не решит все проблемы.
Я попробовал этот метод, но снова не удалось, есть ли что-то, что я могу сделать, чтобы решить эту проблему?
Теперь сообщение об ошибке: функция PInvoke «NIRSAPre! NIRSAPre.Form1 :: NIRSAPretreatInfor» вызывает асимметрию стека.
В разделе Delphi SO есть много вопросов, касающихся взаимодействия C # -Delphi dll. Возможно, некоторые из них имеют дело с PAnsiChar. У меня недостаточно опыта работы с типами данных c # - например, я не уверен, правильно ли используется ref string fileName .
stack asymmetry - соглашение о вызовах и несоответствие списка / типов параметров. read or write protected memory - ошибочная интерпретация указателя на данные или несоответствие размера тела строки
Набор символов не является главной проблемой. Я напишу ответ, чтобы я надеюсь объяснить.
Использование ref string fileName или string fileName ничего не изменит. Так что мне нужно сделать? Это сводит меня с ума!
Функция возвращает буфер 600 (Ansi) Char. Это, вероятно, не то, что C # может проглотить. Смотрите мою статью: DLL и что нельзя делать . Это касается структур, но то же самое относится и к статическим массивам.
Я вижу, что Давид приходит к такому же выводу. Если вы имеете какое-либо влияние на автора (ов) DLL, то скажите им, что использование массива фиксированного размера, особенно возвращающего его из функции DLL , никогда не будет хорошей идеей. Они должны скорее следовать стилю Windows API и, возможно, прочитать мою статью.

David Heffernan · Accepted Answer · 2018-10-24T05-50-00.000Z

Самая значительная проблема (есть несколько проблем) заключается в том, что код Delphi работает с массивами символов фиксированной длины, которые нелегко маршалировать. Маршалер С# не имеет типа, который точно соответствует этим вещам. Проблема в том, что массив символов 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);

Это действительно хорошее решение для обхода неадекватного дизайна DLL.
Спасибо за ваш ответ. В настоящее время программа может работать, но поступающие данные были пустыми, что означает, что каждый размер outputBytes был (байт) 0, я не знаю, что делает это условие. Я просто заменил foo на путь к файлу ( fileName ).
Код в моем ответе работает. Я проверил это. Вы можете проверить это самостоятельно, создав тестовую DLL с одной функцией. Как и я, докажите себе, что данные передаются правильно в обоих направлениях.
Извините, что беспокою вас. Я не проверял это с помощью другой DLL, однако обнаружил странное явление: исходные входные параметры byte[] ModelFileName содержали некоторые возвращаемые данные правильно (не все), я не знаю, по каким причинам это происходит? Я думаю, что-то о кодировании может привести к этому?
Только содержание первой строки вернулось, а содержание следующей строки должно быть китайским описанием (непонятный текст не отображался). С другой стороны, если delphi dll принимает массив (например, double [] []), могу ли я просто использовать C # double [,] в качестве переменной для вызова этой функции (и другие типы такие же, как Integer, соответствующий int)? Спасибо за ваше время и работу!
Я думаю, что я ответил на то, что было задано в вопросе.
Извините, но не могли бы вы рассказать мне подробнее? переменная outputBytes была пуста, а входные параметры содержали данные outputBytes ? а когда я использую другую функцию в DLL File, на outputBytes пришли некоторые данные (не все)? более того, как мне сделать, чтобы исправить неразборчивый текст (я пытался, но не получилось)!
Как я уже сказал, я тестировал этот код. Я знаю. Оно работает. Как и вы, если вы проверили с помощью простого теста DLL, как было рекомендовано ранее. Вы не последовали моему совету. Я не могу помочь вам отладить ваш код и эту DLL, это не так, как этот сайт работает, не в последнюю очередь потому, что вы спрашиваете о деталях, которых нет в вопросе. Кроме того, это не о тебе. Этот ответ полезен для любого будущего посетителя, столкнувшегося с той же проблемой.