Функция Delphi DLL для C #

Question

Функция Delphi DLL для C #

2

С скомпилированной dll Delphi одна из объявленных функций

MyDll.dll

type
 TInfo = array [0..255] of byte;

type
 public
   function GetInfo(Memadr, Infolen: Integer): TInfo;

Каков формат DLLImport для использования в С#?

Steve 14 июль 2011, в 14:00

Источник

4

Кажется, вы извлекли объявление функции из объявления более высокого уровня, возможно, из объявления класса. Я подозреваю, что это из-за зависания type и public слов. Это очень важно знать для правильного определения импорта.
PA. 14 июль 2011, в 11:08
0

Проверьте эту ссылку: Вызов метода DLL Delphi из кода C #
Hasan Fahim 14 июль 2011, в 11:22

Теги:

c#

delphi

pinvoke

2 ответа

Ещё вопросы

Кажется, вы извлекли объявление функции из объявления более высокого уровня, возможно, из объявления класса. Я подозреваю, что это из-за зависания type и public слов. Это очень важно знать для правильного определения импорта.
Проверьте эту ссылку: Вызов метода DLL Delphi из кода C #

David Heffernan · Answer 1 · 2011-07-14T08-49-00.000Z

Я бы сделал это вот так:

Delphi

type
  TInfo = array [0..255] of byte;

procedure GetInfo(Memadr, Infolen: Integer; var Result: TInfo); stdcall;

С#

[DllImport(@"testlib.dll")]
static extern void GetInfo(int Memadr, int Infolen, byte[] result);

static void Main(string[] args)
{
    byte[] result = new byte[256];
    GetInfo(0, result.Length, result);
    foreach (byte b in result)
        Console.WriteLine(b);
}

Вам нужно, чтобы соглашения о вызовах совпадали. Я пошел за stdcall, который по умолчанию используется для P/invoke (почему он не указан в P/invoke подписи).

Я бы не возвращал массив в качестве возвращаемого значения функции. Легче его сортировать в качестве параметра.

На самом деле, если вы хотите уйти от буферов фиксированного размера, вы можете сделать это следующим образом:

Delphi

procedure GetInfo(Memadr, Infolen: Integer; Buffer: PByte); stdcall;

Затем, чтобы заполнить буфер, вам нужно будет использовать некоторую арифметику указателя или что-то эквивалентное.

+1 однако ... ОП может фактически пытаться экспортировать «Процедуру объекта» и вызывать ее как Процедуру. (Зачем еще он поместил бы публичное ключевое слово прямо над сигнатурой метода).
@Warren Вы не можете экспортировать procedure of object потому что вы не можете экспортировать объекты Delphi. Чтобы экспортировать интерфейс ООП, вы смотрите на COM или непрозрачные дескрипторы для ссылок на объекты.
Конечно, вы не можете, и я знаю это, но мне интересно, что пытается сказать нам «public» в «примере кода» OP… public не является допустимым ключевым словом в области видимости блока верхнего уровня. Это сигнализирует о путанице ОП.
@ Дэвид: я согласен с Уорреном. Похоже, код не является оригинальным кодом, который он на самом деле использует. Тот факт, что там есть «public», может означать, что он извлек этот код из фактического объявления класса. Если он действительно хочет экспортировать метод, то, что вы описали, конечно, не сработает.
@rudy @warren Вы можете быть правы. Я предположил, что блок был обработкой байтового буфера.

Steve · Answer 2 · 2011-07-18T01-45-00.000Z

Необходимо исправить ошибку в моем исходном сообщении,

type
 TInfo = array [0..255] of byte;

implementation
 function GetInfo(Memadr, Infolen: Integer): TInfo;


procedure TForm1.Button5Click(Sender: TObject);
var Data: TInfo;
    i: integer;
    s: string;
begin
for i:=0 to 255 do Data[i]:=0;
Data:=GetInfo($04,12);
if (Data[1]=0) then
  begin StatusBar1.SimpleText:='No Data'; exit; end;
s:='';
for i:=1 to 8 do
  s:=s+Chr(Data[i+1]);
Edit3.Text:=s;
end;