универсальная загрузка dll

[Biohazard]

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

Function SetFunction(dll,adress:string;a:array of b;l:integer):b;
var
  Func:function(a:array of b):HINST;stdcall;
  _dll:integer;
begin
  _dll:=LoadLibrary(PChar(dll));
  if(_dll<>0)then
  begin
    @Func:=getProcAddress(_dll,PChar(adress));
    if(addr(Func)<>nil)then
    begin
      Func(a);
      //setlength(result,l);
    end;
  end;
end;

это то что я наклепал, я никак не могу решить праблу внутренних параметров(((( глаза уже мутные и мозг плавится, кто подскажет... помогите, всё что плохо обьяснил спросите, отвечу как смогуууу

[eval]

stdcall

Почему именно?

[Biohazard]

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

Почему именно?

ну условие задания такое, но если и это можно универсальным сделать, наверно лучше

[eval]

ясна
а в чем конкретно проблема? прога компилится?

[Biohazard]

с прописанием внутренних аргументов вся и загвоздка

представь, есть форма, на ней куча едитов, в первый выбираешь имя длл во второй имя функции в ней, в третьем выбираешь типы параметров и значения, наример

integer 8
string 'thtyhty'
byte true

нажимаешь кнопочку и это всё срабатывает, аргументы пусть пользователь вводит правильно, но программно то как это сформировать... ппц((

на одном форуме дали к размышлению, но пока не знаю что делать если в параметрах и строки и целые и дробные и булеан будет, в общем тут весь тупик

[eval]

Здается мне что без асемблера тут не обойтись...

[Son Of Pain]

Придется тебе вручную параметры в стек класть и вызывать функцию. Тогда и calling convention универсальным можно сделать, да. И, действительно, без ассемблерных вставок не обойтись.

Почитай про то, как работает передача параметров в функции для начала.

[Biohazard]

сделал такую функцию, потестил на своей библиотеке, но параметры приходят искажённо( посмотрите плиз, в чём косяк?(

Function SetFunction(dll,adress,param:string):boolean;
var
  proc: pointer;
  _dll:integer;
  Params: array of DWORD;
  count:integer;
  p1,p2:string;
  //param = integer:8;boolean:true; ...
begin
  _dll:=LoadLibrary(PChar(dll));
  if(_dll<>0)then
  begin
    proc:=getProcAddress(_dll,PChar(adress));
    if(proc<>nil)then
    begin
      count:=0;
      if(param<>'')then
      repeat
        p1:=copy(param,1,pos(':',param)-1);
        delete(param,1,pos(':',param));
        p2:=copy(param,1,pos(';',param)-1);   
        delete(param,1,pos(';',param));
        inc(count);
        setlength(params,count);
        if(p1='Integer')then
          Params[count-1]:=strtoint(p2)
        else
        if(p1='Boolean')then
          Params[count-1]:=strtoint(p2)
        else
        if(p1='PChar')then
          Params[count-1]:=integer(PChar(p2));
      until(param='');
      asm
        mov esi, Params
        mov ecx, count
        lea esp, [esp - ecx * 4]
        mov edi, esp
        cld
        rep movsd
        mov eax, proc
        call eax
      end;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetFunction('Project2.dll','func','Boolean:1;Integer:10;PChar:rgtrhtyh;');
//  SetFunction('shell32.dll','ShellExecuteA','Integer:0;PChar:;PChar:calc.exe;PChar:;Integer:0;');//а если так вообще ругается громко(
end;

[xoodoo]

В эксп.функии func() в составе Project2.dll какое соглашение о вызове декларировано ?

[Biohazard]

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

В эксп.функии func() в составе Project2.dll какое соглашение о вызове декларировано ?

Function func(a:boolean;b:integer;g:PChar):HINST;
begin
  if(a)then
    b:=b-3;
end;

exports func;
begin

end.