Правила написание dll на Delphi:
Сразу оговорось что описанные ниже правила применимы для "крос-языковой" dll, но я очень советую если не знаете что делаете, то применять их и в случаее когда верна схема приложение(delphi) - dll(delphi).
Что можно передавать безопасно:
[const, var, out]Целочисленные(возможно только надо быть осторожным с int64/uint64 в 32 битной dll, но я не уверен)
[const, var, out]Дробные single и double(real лучше не использовать)
[const, var, out]Любые указатели на элементарные типы, структуры и
статические массивы
[const, var, out]WideString
Что можно возращать безопасно:
- Любые целочисленные
- Любые указатели
Перадача структур:
Со структурами нужно соблюдать осторожность и понимать что они могут передаваться как указатель в регистре или полностью в регистре значение. Также не мало важно выравнивание.
Перерача строк, массивов:
Никогда не передавайте и не возвращайте строки или массивы. Эти типы являются управляемыми в контексте языка Delphi, и если вы попытаетесь передавать эти типы в лучшем случаем получите AV или утечку. В худшем случае приложение может и схлопнуться.
Исключения:
Вы должны обеспечить обработку исключений внутри dll и ни когда не допускать их наружу. Исключения являются классами Delphi и другие языки о них ни чего не знают, из за этого поведение при исключениях может быть не предсказуемым.
Память:
Если вы возвращаете какой либо указатель, то вы должны обеспечить функцию в вашей dll котороя освободит эту память, тогда вызывающий после использования вашего указателя сможет его освободить. Иначе буду утечки
Примеры:
Код dll
type
PDblArray = ^TDblArray;
TDblArray = array[0 .. 0] of Double; // можно вместо 0 .. 0 написать 0 .. 100000, но это может привести к печальным последтсвия если объявить переменную с таким типом
// пример входного массива
procedure DllTest1(const InputArray: PDblArray; InputArraySize: Integer); stdcall;
var
I: Integer;
begin
try
for I := 0 to InputArraySize - 1 do begin
// some calculation
end;
except
// some handling
end;
end;
// пример выходного массива
procedure DllTest2(var OutputArray: PDblArray; var OutputArraySize: Integer); stdcall;
var
I: Integer;
Size: Integer;
begin
try
Size := 100;
GetMem(OutputArray, Sizeof(Double) * Size);
OutputArraySize := Size;
for I := 0 to OutputArraySize - 1 do begin
// some calculation
end;
except
// some handling
end;
end;
// пример освобождения памяти для выходного массива
procedure DllTestFree(var OutputArray: PDblArray); stdcall;
var
Size: Integer;
begin
try
FreeMem(OutputArray);
OutputArray := nil;
except
// some handling
end;
end;
Код C#
[DllImport("TestDll.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
public static extern void DllTest1(double[] InputArray, int InputArraySize);
[DllImport("TestDll.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
public static extern void DllTest2(ref IntPtr OutputArray, ref int OutputArraySize);
[DllImport("TestDll.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
public static extern void DllTestFree(ref IntPtr OutputArray);
Если dll не ваша:
Напиши свою длл обертку соблюдая правила и все буде хорошо
PS:
Для шарпа под рукой ни чего нет поэтому код проверял только на Delphi. И вот хорошие описание для шарпа как надо преобразовывать передачу массиов в шарпе