Вызов произвольной функции из DLL

[Д'якон]

Сообщение от Роман Радер

Stilet, а вы знаете как иначе?

Мне не CallSomeFunc ассемблером вызвать надо!
Ладно объясню по-другому.
Есть dll. Программе задается число N - количество параметров.
N типов - типы параметров.
N значений - сами параметры.
Также, задается путь и имя к DLL и имя функции. Необходимо вызвать функцию.
Буду очень признателен.

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

[Роман Радер]

так в том и проблема что положить в стек нужно разные типы параметров и неизвестно как ложить разные типы.
и потом вызвать функцию.

call name

вот это name как писать, если оно в переменной?

[alexBlack]

Сообщение от Роман Радер

call name

вот это name как писать, если оно в переменной?

Ну, положим это не проблема. Адрес по имени мы всегда сможем получить:

   h := GetModuleHandle('GDI32');
   P := GetProcAddress(h, 'GetTextAlign');

А вот вторая часть...

так в том и проблема что положить в стек нужно разные типы параметров и неизвестно как ложить разные типы.
и потом вызвать функцию.

При большом желании с порядком помещения параметров в стек разобраться можно. Можно посмотреть как сделан ObjectInvoke() из unit ObjAuto и сделать по аналогии.

Только как Вы будете контролировать соответствие переданных параметров значениям, нужным в dll ?. Все равно придется обрабатывать какие-то заголовочные файлы. (Это, наверное, для использования API в Вашем языке ?)

[Роман Радер]

Все равно придется обрабатывать какие-то заголовочные файлы.

да нет, это не проблема. как-нибудь с этим разберусь. а вот по поводу объекта можно поподробнее? что это за модуль такой?
да, вы правильно поняли. это для моего языка. не только для API, для поддержки сторонних функций кроме встроеных.
с адресом функции действительно не проблема.
с целыми числами - тоже.
а вот с плавающей точкой и double - ужас один. как оно его в стек ложит?! там 4 push'a и последний - 1 байт какой-то. непонятно откуда берется. это для real. (смотрел CPU при трассировке)

[alexBlack]

С double (для stdcall) особых проблем нет. Вот модель register, действительно непонятна. Вот здесь я выкладывал код для вызова метода с передачей параметров. Потом нашел вариант проще.

type
   {$METHODINFO ON}
   TMyClass = class
   published
      function test4(N:integer; S:String):String;
   end;
   {$METHODINFO OFF}

function TMyClass.test4(N:integer; S:String):String;
begin
   Writeln(S);
   Writeln(N);
   result := 'test string';
end;

var C:TMyClass;
    M:PMethodInfoHeader;
    P:PTypeInfo;
    V:Variant;
begin
   C := TMyClass.Create;
   try
      M := GetMethodInfo(C, 'test4');
      if M <> nil then begin

         V := ObjectInvoke(C, M, [1, 2], [55, 'string']);
         writeln(V);

      end;
   finally
      C.Free;
   end;

Смысл в следующем:
GetMethodInfo - возвращает структуру - описание параметров, возвращаемого значения и модели вызова. Вот эту часть нужно будет сделать из описания метода в dll.

Дальше просто - передаем описание в invoke и метод выполняется. Там в исходниках видно как заполняется стек и делается вызов. В принципе, его можно просто подправить под вызов процедуры вместо метода объекта.

[Д'якон]

Сообщение от Роман Радер

так в том и проблема что положить в стек нужно разные типы параметров и неизвестно как ложить разные типы.
и потом вызвать функцию.

call name

вот это name как писать, если оно в переменной?

В стек меньше dword не положешь. А любой тип - это либо указатель на буфер или значение - не вижу проблем
И зачем call name, если есть GetProcAddress

[Somebody]

В общем случае надо знать типы параметров. Например, вещественное число в array of const всегда будет extended, и уже нельзя будет узнать, передавать его функции как single, double или extended. Если известно, что параметры только, например, integer, double, boolean, char, pchar, то вроде никаких особых проблем не видно.

[Stilet]

От проблему нашли, Рома, а не скажеш ли нам что это за ДЛЛ такая, что ну никак к ней не подступишся, а?

[Роман Радер]

Сообщение от Somebody

В общем случае надо знать типы параметров. Например, вещественное число в array of const всегда будет extended, и уже нельзя будет узнать, передавать его функции как single, double или extended. Если известно, что параметры только, например, integer, double, boolean, char, pchar, то вроде никаких особых проблем не видно.

ну можно и переделать структуру array of const, например,

array of record
  v:variant;
или
a:integer;
b:real;
c:double;
...
end;

хотя это тупо...главное суть.

Сообщение от Stilet

От проблему нашли, Рома, а не скажеш ли нам что это за ДЛЛ такая, что ну никак к ней не подступишся, а?

я ведь писал уже

для API, для поддержки сторонних функций кроме встроеных.

сижу сейчас, пытаюсь разобраться в модуле ObjAuto. капец. это хуже ассемблера)

[Stilet]

для API, для поддержки сторонних функций кроме встроеных.

Ты знаеш какие параметры эти функции принимают?
SDK на них есть?