Здравствуйте, уже полторы недели туплю, над "волшебной" функцией заданной мне преподом, эта "уникальная" функция должна уметь загружать библиотеки, и использовать их функции, основоваясь на входящих аргументах: имя длл, имя функции, внутренние аргументы, заданные строкой. т.е. примерно так
Код:
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;
это то что я наклепал, я никак не могу решить праблу внутренних параметров(((( глаза уже мутные и мозг плавится, кто подскажет... помогите, всё что плохо обьяснил спросите, отвечу как смогуууу