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

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

Подскажите пожалуйста, как используя ассемблер(без него никак) интегрированный в Delphi вызвать произвольную функцию с параметрами из любой ДЛЛки.
Например, есть

function CallSomeFunc(dllfile:string;name:string;params:array of const):Какой-то тип;

которая вызывает функцию и возвращает результат.

[rpy3uH]

если функция stdcall, то так

push params
push name
push dllfile
call CallSomeFunc
mov [res], eax

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

нет, немного не так. нужно загрузить библиотеку dllfile, поместить в стек параметры из массива и вызвать оттуда функцию name с теми параметрами.
CallSomeFunc - обертка этого вызова.

function CallSomeFunc(dllfile:string;name:string;params:array of const):integer;
asm
код вызова
end;

можно и изменить описание функции. "подогнать" под реализацию.
просто учитывая, что параметр каждый своего типа, я не знаю как помещать в стек их. вызвать из длл впринципе не проблема. вот поместить неопределенное кол-во параметров - незнаю как.
и вызвать функцию не по имени - а по содержанию в переменной.

[Stilet]

Роман Радер

Ну а Грузин тебе что сказал? Как раз то что сказал только что ты.

как используя ассемблер(без него никак)

Кстати почему?

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

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

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

[Stilet]

DLL ты пишеш?
Примени массив Variant или безразмерный массив

Всетки я не пойму почему именно ассемблер.
Можно просто выделить память напихать туда нужной информации, а в ДЛЛ передавать указатель на эту память и кол-во параметров.

Вот что я имею ввиду:

Проект:

    function a(aga:array of integer):integer; external 'project2.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=inttostr(a([1,2,3]));
end;

ДЛЛ

uses
  SysUtils,
  Classes;

{$R *.res}
    function a(aga:array of integer):integer;
    var i:integer;
    begin
      for i:=low(aga) to high(aga) do result:=result+aga[i];
    end;
    exports a;
begin
end.

[rpy3uH]

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

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

во-первых, универсальную сделать не получится
во-вторых, в ассемблере нет типов
в-третьх, сколько параметров столько раз надо сделать push.
В основном передают указатели, за исключением числовых типов и символьных.

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

Stilet, dll пишу не я. например, это dll из /system32/ apiшная какая-то.
rpy3uH, а как тогда работает компилятор Делфи? вот мы пишем статическую привязку к функции в ДЛЛ. как компилятор это обрабатывает? парсит код, определяет параметры и как-то вызывает.
да и не только делфи, любой язык который позволяет работать с DLL

[rpy3uH]

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

rpy3uH, а как тогда работает компилятор Делфи? вот мы пишем статическую привязку к функции в ДЛЛ. как компилятор это обрабатывает? парсит код, определяет параметры и как-то вызывает.
да и не только делфи, любой язык который позволяет работать с DLL

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

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

мдя... ясно. может, генерировать код, ассемблером компилировать, засунуть в память и запустить? О_о
кстати, компилятор ассемблера бесплатный?