C # 2010 не загружает Delphi DLL

Question

C # 2010 не загружает Delphi DLL

1

Я столкнулся с проблемой. Я написал и win32 DLL в delphi 2009. Теперь я хочу динамически загружать эту DLL из настольного приложения С#, но функция LoadLibray возвращает 0. Здесь CSharp-код, пожалуйста, может ли кто-нибудь помочь мне, почему DLL не загружается?

public partial class Form1 : Form
{
  [DllImport("kernel32.dll")]
  public static extern IntPtr LoadLibrary(string dllToLoad, IntPtr hFile, uint dwFlag);

  [DllImport("kernel32.dll")]
  public static extern IntPtr GetProcAddress(IntPtr hModule, string procedureName);

  [DllImport("Kernel32.dll")]
  private extern static Boolean CloseHandle(IntPtr handle);


  public Form1()
    {
        InitializeComponent();
    }

    private void Form1_Load(object sender, EventArgs e)
    {
        IntPtr ptr = IntPtr.Zero;
        ptr = LoadLibrary("MyDLL.dll", IntPtr.Zero, 0);

        if (ptr == IntPtr.Zero)
        {
            MessageBox.Show("DLL not laded");
        }
    }
}

}

user2724058 28 авг. 2014, в 15:59

Источник

1

Убедитесь, что ваше приложение C # работает в режиме x86.
wdosanjos 28 авг. 2014, в 13:28
0

Пожалуйста, проверьте, как заставить эти функции сообщать об ошибках с помощью GetLastError . Здесь вы, вероятно, можете просто добавить это в свой оператор if: throw new Win32Exception(); и посмотрим, что получится.
Lasse Vågsæther Karlsen 28 авг. 2014, в 13:33
0

Вы читали документацию по LoadLibrary? Он описывает, как обрабатываются ошибки.
David Heffernan 28 авг. 2014, в 14:22
0

@DavidHeffernan Не может ли это быть, потому что user2724058 вызывает API LoadLibrary (), но с посадочной площадкой параметра LoadLibraryEx ()? (Я никогда не делал что-то подобное, поэтому я не уверен.)
mg30rg 28 авг. 2014, в 14:32
0

Я делал это много раз с загрузкой DLL VC ++ в .NET, и она работает постоянно. Но я получаю проблему с DLL Win32 Delphi
user2724058 28 авг. 2014, в 14:34
0

Вы не согласны с тем, что сказал mg30org, и что я написал в своем ответе? Есть ли веская причина пренебрегать проверкой ошибок?
David Heffernan 28 авг. 2014, в 15:10

Показать ещё 4 комментария

Теги:

c#

.net

delphi

pinvoke

2 ответа

3

У вас есть неправильная подпись для LoadLibrary. Должен быть:

[DllImport("kernel32.dll", SetLastError = true)]
public static extern IntPtr LoadLibrary(string dllname);

У вас были два паразитных параметра и они не фиксировали код ошибки.

Всегда проверяйте наличие ошибок при вызове функций Win32. В этом случае

IntPtr lib = LoadLibrary(dllname);
if (lib == IntPtr.Zero)
    throw new Win32Exception();

Общие режимы отказа включают:

Неравномерная битость.
DLL не найден на пути поиска DLL.
Зависимости DLL не разрешены.

David Heffernan 28 авг. 2014, в 12:58

0

Именно то, что я думал!
mg30rg 28 авг. 2014, в 14:40

Ещё вопросы

Убедитесь, что ваше приложение C # работает в режиме x86.
Пожалуйста, проверьте, как заставить эти функции сообщать об ошибках с помощью GetLastError . Здесь вы, вероятно, можете просто добавить это в свой оператор if: throw new Win32Exception(); и посмотрим, что получится.
Вы читали документацию по LoadLibrary? Он описывает, как обрабатываются ошибки.
@DavidHeffernan Не может ли это быть, потому что user2724058 вызывает API LoadLibrary (), но с посадочной площадкой параметра LoadLibraryEx ()? (Я никогда не делал что-то подобное, поэтому я не уверен.)
Я делал это много раз с загрузкой DLL VC ++ в .NET, и она работает постоянно. Но я получаю проблему с DLL Win32 Delphi
Вы не согласны с тем, что сказал mg30org, и что я написал в своем ответе? Есть ли веская причина пренебрегать проверкой ошибок?

Lasse Vågsæther Karlsen · Accepted Answer · 2014-08-28T11-40-00.000Z

Я не могу сказать вам, почему эта DLL не загружается, поскольку в этом вопросе недостаточно информации.

Подсказка: вы проверили, что ваше приложение работает в 32-разрядной или 64-разрядной версии для DLL?

Однако я могу рассказать вам, как получить дополнительную информацию о проблеме.

Сначала добавьте следующие атрибуты:

[DllImport("Kernel32.dll", SetLastError=true)]
                         ^-----------------^

Затем добавьте это в ваш if-statement, который обрабатывает проблему:

if (ptr == IntPtr.Zero)
    throw new Win32Exception();

Это должно дать вам более конкретное сообщение об исключении, указывающее на то, что может быть проблемой.

Приложение C # скомпилировано с использованием настроек x86, а Delphi DLL находится в delphi 2009, которая является 32-битной. Моя ОС Windows 7 64 бит. Я просто загружаю библиотеку, не загружая никакую процедуру DLL. Отладкой Теперь это дает мне следующую ошибку при выполнении функции LoadLibrary. Вызов функции PInvoke 'LoadLibrary' разбалансирует стек. Это вероятно потому, что управляемая подпись PInvoke не совпадает с неуправляемой целевой подписью. Убедитесь, что соглашение о вызовах и параметры подписи PInvoke соответствуют целевой неуправляемой подписи
Это сообщение является средой выполнения, обнаруживающей ошибку, которая описана в моем ответе.