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

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

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

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

Я должен сделать универсально, а в runtime будут известны параметры, имена функций и имя dll файла.

и еще вопросик такой: что это за директива $METHODINFO такая? в справке нет, но делфи не ругается. недокументированная какая-то.

[alexBlack]

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

и еще вопросик такой: что это за директива $METHODINFO такая? в справке нет, но делфи не ругается. недокументированная какая-то.

У меня в справке есть (Turbo Delphi):

The $METHODINFO switch directive is only effective when runtime type information (RTTI) has been turned on with the {$TYPEINFO ON} switch. In the {$TYPEINFO ON} state, the $METHODINFO directive controls the generation of more detailed method descriptors in the RTTI for methods in an interface. Though {$TYPEINFO ON} will cause some RTTI to be generated for published methods, the level of information is limited. The $METHODINFO directive generates much more detailed (and much larger) RTTI for methods, which describes how the parameters of the method should be passed on the stack and/or in registers.

вот это "much more detailed" - те самые структуры
TMethodInfoHeader, TReturnInfo и TParamInfo.

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

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

У меня в справке есть (Turbo Delphi):


вот это "much more detailed" - те самые структуры
TMethodInfoHeader, TReturnInfo и TParamInfo.

да-да, простите что не отписался, я уже разобрался с директивой.

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

Вот подсказали:

void *FuncAddr=GetAddr(FuncName);
asm{
mov eax,0
lab:
push [Param+ecx]
inc ecx
cmp ecx,ParamSize
jne lab
call [FuncAddr]
}

что вы думаете по этому поводу?
я лично не очень понимаю что это правильно.

[Ivan_32]

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

void funcCall(char *szFName,char *Param)
{
void *FuncAddr=GetAddr(FuncName);
  asm{
  mov eax,0
  lab:
  push DWORD PTR[Param+ecx] ; маленькая оптимизация, так вроде бы чуть чуть быстрее если не ошибаюсь
  add ecx,4 
  cmp ecx,ParamSize
  jne lab
  call [FuncAddr]
  }
}

PS: Что то мне кажется что ваш вопрос не о том был?

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

PS: Что то мне кажется что ваш вопрос не о том был?

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

ЗЫ тоесть не в массив. просто в память. ведь каждый параметр разный размер имеет.

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

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

пока что я работаю с моделью stdcall. если все получится, продолжу с register, pascal и cdecl по этому-же принципу.

Кстати, модель register не такая уже и непонятная. там первых 3 параметра заносятся в регистры eax,ebx,ecx, а остальные - в стек. правда, не знаю в каком порядке.

[JTG]

Про стек не забывайте, при cdecl его чистит сама программа, при fastcall(он же register) функция

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

Все! сделал, вроде работает. Осталось только выяснить как типы засовывать - по адресу или напрямую. об этом - ниже.

Сделал я так:
(stdcall!)

var
  testptr,param:pointer;
  mm:TMemoryStream;
  i,paramsize:integer;
begin
  testptr:=@test;
  mm:=TMemoryStream.Create;
// в обратном порядке кидаю параметры в память
  i:=20;
  mm.Write(i,sizeof(i));
  i:=10;
  mm.Write(i,sizeof(i));
// здесь надо кидать по 4 байта - или указатель, или значение.
  mm.Position:=0;
  paramsize:=mm.Size;
  param:=mm.Memory;
  asm
    mov eax,0
    mov ecx,0
    lab:
    mov ebx,[Param+ecx]
    // получаю значение под указателем
    // если этого не сделать, то положим указатель на память вместо значения.
    mov ebx,[ebx]
    // в стек
    push ebx
    add ecx,4
    cmp ecx,ParamSize
    jne lab
    // сам вызов
    call [testptr]
  end;
end;

Извините, что в этой-же теме, но такие вопросы попутно возникли:
1) Какие типы нужно передавать по адресу, а какие - напрямую. (integer - я знаю точно, что напрямую и классы - по адресу. а остальные?).
2) Каким образом нужно "чистить стек"?

[Ivan_32]

Чистить стек можно с помощью любого регистра pop-ами, а можно сделать проще - просто сохранить esp где ни будь и восстановить. Вобще то любую переменную больше 4 байт обычно передают по адресу, так как она уже является массивом и считывать ее придется уже побайтово, тоесть инкрементируя адрес. Но я правда не уверен насчет языков высокого уровня, что там из себя представляют переменные. Я бы делал для надежности так :
int a;
LEA eax,a
mov ebx,[eax]
ну это конечно утрировано, но зато надежно.

mov ebx,[Param+ecx]
mov ebx,[ebx]

Вот в эту шаманскую песенку я не вкурил. [Param+ecx] это уже ваша переменная со смещением, двойное слово. Или там в param список адресов?