Вызов процедуры/функции

[W0LF]

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

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


Использую ICQClient, при принятии сообщения которое начинаеться с !run,
программа выдерает текст после ":" в переменную, а именно имя функции/процедуры

If pos ('!run:',ansilowercase(msg))>0 then begin
theS:=copy(msg,pos(':',msg)+1,length(msg));
//...

Прошу мне помочь!
ps: если чотото не понятно, спросите, желательно по icq, 4122177

[Neeter]

Как же вы это сделаете? Обращаться к функциям/процедурам из dll надо полностью, т.е.:

var
 MyFunc: function(num1, num2: Integer; str1: PChar): Integer; stdcall;

Надо знать все ее параметры.

Вы конечно можете искать по какому-нибудь массиву записей вида:

TFunctions = record
 FName: string;
 FPointer: pointer;
end;

где FName - текстовое представление функции (которое вы вводите), а FPointer - указатель к другой переменной, означающей уже нужную функцию.
В разделе var объявить динамический массив

var
 Functions: array of TFunctions;

Загружать его при создании формы.
Все возможные функции надо, конечно, объявить заранее, например так:

var
 Func1: function(...): ...; stdcall;
 Proc1: procedure(...); stdcall;
 ...

Потом расположить, например в разделе var, еще одну переменную, которая будет означать найденную процедуру.

var
 CurrentFunc: pointer;

И потом уже загружать в переменную функции, которая будет использоваться при GetProcAddress, типа CurrentFunc^ (если так конечно можно... точно не знаю)

В общем, я сам не знаю, правильно я тут сказал или нет, т.к. сейчас без делфи.

[W0LF]

Например, у меня в переменной theS есть некий текст (SM), так же есть процедура SM которая выводит сообщение... Как вызвать процедуру кнопкой не используя

var theS:string;

theS:='SM';

procedure SM;
begin
showmessage('текст');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sm; //вместо использования имени процедуры для вызова, как-то использовать theS
end;

[Neeter]

В данном примере, например, так:

type
 TFunctions = record
  fname: string;
  ffunc: pointer;
 end;
 TForm1 = class(TForm)
 ...

var
 Form1: TForm1;
 theS: string;
 CurrentFunc: pointer;
 Functions: array of TFunctions;

procedure SM;
begin
 showmessage('текст');
end;

procedure SM1;
begin
 showmessage('text');
end;

procedure Form1.FormCreate(Sender: TObject);
begin
 SetLength(Functions, 2);
 Functions[0].FName := 'SM';
 Functions[0].FFunc := SM^; //Вроде так, не знаю....
 Functions[0].FName := 'SM1';
 Functions[0].FFunc := SM1^;
end;

//И вот например при нажатии кнопки запуск процедуры:
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 Func: CurrentFunc^;
begin
 for i := 0 to Length(Functions) do
  if Functions[i].FName = Edit1.Text then
  begin
   CurrentFunc := Functions[i].FFunc;
   Break;
  end;
 Func^; //Эхх, совсем не уверен в этой строчке...
end;

Может быть можно написать вот так:

CurrentFunc: function;

Тоже не уверен. Но так бы было легче.

То что я тут понаписал, мне кажется, совсем не правильно (еще раз скажу что без делфи сижу). Так что вам придется все додумывать самому... Сильно не пинать.

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

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

[W0LF]

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

[Neeter]

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

Ну тогда я не знаю что делать, прислушайтесь к Роману Радеру

зная какая функция находиться в какой dll вызвать её от туда...

Значит я не так вас понял.

[Пепел Феникса]

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