Вывод текста в окно игры

[ALF]

Помогите вывести текст в игру.
Вот мой код, но он не работает.
Буду очень благодарен за помощь.

library MyFirstDLL;
uses
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Windows;
const
adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';
type
TBOB = procedure(x,y:Integer; text, font:PChar; color:TColor); stdcall;


procedure HelloWorld();
var
        DLLInstance : THandle;
        BOB: TBOB;
begin
        { загружаем DLL }
        DLLInstance := LoadLibrary('Engine.dll');

   @BOB := GetProcAddress(DLLInstance, adres);
   BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);
    FreeLibrary(DLLInstance);


end;

{Какой-нибудь код, в котором используется SomeBuffer.}

exports
        HelloWorld;
begin
end.

[Morfik]

DrawString есть методом класса FCanvasUtil
для его вызова нужно или найти указатель на уже готовый объект класса FCanvasUtil или создать свой (как работает клиент в этом отношении точно не скажу)

во 2-м случаем можно найти экспортируемый конструктор для FCanvasUtil и создать его. Далее при вызове после передачи параметров методу в ecx нужно вставить адресс обьекта класса FCanvasUtil (это проблема перехода из thiscall)

@BOB := GetProcAddress(DLLInstance, adres);
asm
   push 0ffffffh
   ...
   push 100
   mov ecx,PFCanvasUtil
   call [BOB]
end;
//BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);

где PFCanvasUtil и будет указателем на обьект класса FCanvasUtil

[ALF]

я полазил на форуме, и наткнулся на

PHP код:

function foo(obj:TObj , arg1:T1, arg2:T2);stdcall;
asm
  pop eax //адрес возврата, временно сохраняем в eax
  pop ecx //аргумент obj, записываем в ecx как того требует __thiscall
  push eax //записываем сохраненный адрес возврата
 jmp [foo] //вызываем метод    
end; 


[mira]

первый метод который описал морфик проще. Хукаеш любой метод этого обьекта сохраняеш содержимое есх. И пользуеш его в своих методах если отсуствие синхронизации не повлечёт проблем.
Я вообще хукаю endscene на уровне директх и рисую че хочу

[ALF]

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

DrawString есть методом класса FCanvasUtil
для его вызова нужно или найти указатель на уже готовый объект класса FCanvasUtil или создать свой (как работает клиент в этом отношении точно не скажу)

во 2-м случаем можно найти экспортируемый конструктор для FCanvasUtil и создать его. Далее при вызове после передачи параметров методу в ecx нужно вставить адресс обьекта класса FCanvasUtil (это проблема перехода из thiscall)

@BOB := GetProcAddress(DLLInstance, adres);
asm
   push 0ffffffh
   ...
   push 100
   mov ecx,PFCanvasUtil
   call [BOB]
end;
//BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);

где PFCanvasUtil и будет указателем на обьект класса FCanvasUtil

а можно чуть по подробнее о конструкторе и что должно быть там где три точки у Вас в кода...
И если не сложно можете объяснить эту методику?

На сколько я понял мы кидаем в стек 0ffffff
потом три точки О_о (хз что там за код должен быть)
потом в стек по идеи число 100 но зачем О_о?
а регистр есх помещаем адрес памяти к функциии..
Короче что-то я туплю... О_о
Можно описать по подробнее...?

[Morfik]

пример вызова функции BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);
на ассемблеровском вызове будет иметь вид

var
    text,font:string;
begin
    text:='SSSSSSSSS';
    font:='Font1';
    ptext:=pchar(text);
    pfont:=pchat(font);
    asm
        push 0FFFFFFh
        push pfont
        push text
        push 100
        push 100
        call [BOB]
    end;
end;

тоесть параметры функции засовуються в стек, в обратном порядке.

+еще перед вызовом засунуть в ecx указатель на обьект класа канваса, который луче всего получить перехватив один из его методов (курим тему хуков)

зы:вообщем луче создайка отдельное винапи окошко и выводи инфу туда - гемору будет меньше

[ALF]

и так у меня код сейчас выглядит так

PHP код:

library MyFirstDLL;
uses
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Windows;
const
adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';
type
TBOB = procedure(x,y:Integer; text, font:PChar; color:TColor); stdcall;


procedure HelloWorld();
var
        DLLInstance : THandle;
        BOB: TBOB;
        font,text:string;
begin
        { загружаем DLL }
        DLLInstance := LoadLibrary('Engine.dll');
   @BOB := GetProcAddress(DLLInstance, adres);
font:=PChar('Font1')'
text:=PChar('ssssssssss');
       asm
        push 0FFFFFFh
        push font
        push text
        push 100h
        push 100h
mov ecx, адрес фунции??? какой...?
        call [BOB]
    end;

    FreeLibrary(DLLInstance);


end;

{Какой-нибудь код, в котором используется SomeBuffer.}

exports
        HelloWorld;
begin
end. 


указатель на обьект класа канваса, который луче всего получить перехватив один из его методов (курим тему хуков)

вот тут я и не понял...
Нам надо указать адрес функции

PHP код:

?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z 


или чего? О_о
У меня есть полностью от "Декомпилированый" engine.dll прогой IDA pro (думаю знаете). но все равно туплю)
в пушом параметров - понял)))
но в регистр ecx - хз О_о
Пробовал без него - клиент запустился, на екране пусто)

Добавлено через 21 час 47 минут
потупил я потупил и пришла в голову мысль в еах засунуть адрес

PHP код:

FCanvasUtil::~FCanvasUtil 


Только какой именно? тот что получают методом GetProcAddress? или туда надо оригинальный RVA?

[Morfik]

в ecx нам надо указать не адрес функции (вообще твоя функция DrawString это метод класса FCanvasUtil - ты знаеш что такое классы и наф они нужны? ) а адресс обьекта класса

Вообщем рекомендую тебе забить на это... и использовать как mira рисование в endscene DirectX
http://tracker2k.kiev.ua/5.html

[ALF]

СПАСИИИИБООО!!!!!!!

[mira]

возможности на уровне ДХ куда больше но на столькаже больше и делов =)