Радар своими руками

[Cooper85]

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

struct NetworkPacket
{
    char ID;
    char u1; //subid
    char u2;
    char u3;
    short length;
    char u4; //=0
    char u5; //=0
    char* data;
};

Как-то так у меня получается...
Офф, здешний тестовый сервер.

[brat]

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

NetworkPacket: Pointer
А кто-то может поделится примерной структурой этого дела ?

PNetworkPacket = ^TNetworkPacket;
TNetworkPacket = packed record
    id: byte;  // ID пакета
    res: byte; // тут ничего нужного нет
    id2: Smallint; // второй ID если есть
    size: Cardinal; // размер данных
    data: Pointer; // указатель на данные
  end;

[CodeMonkey]

xkor выше писал, как он переходит в Delphi от thiscall к stdcall, примерно так, код работает:

procedure UNetworkHandler_AddNetworkQueue_Call(Packet:PNetworkPacket);stdcall;
asm
  mov ecx,UNetworkHandler
  mov esp,ebp
  pop ebp
  jmp [UNetworkHandler_AddNetworkQueue_Original]
end;

procedure UNetworkHandler_AddNetworkQueue_New(unh:integer;Packet:PNetworkPacket);stdcall;
begin
  UNetworkHandler:=Pointer(unh);
  UNetworkHandler_AddNetworkQueue_Call(Packet);
end;

procedure UNetworkHandler_AddNetworkQueue_Hook(Packet:PNetworkPacket);stdcall;
asm
  push ecx
  push [ebp+8]
  push ecx
  call UNetworkHandler_AddNetworkQueue_New
  pop ecx
end;

а если вместо функций методы класса? что-то у меня не получается.

TUNetworkHandler = class
private
    UNetworkHandler:pointer;
    AddNetworkQueue_Original: procedure (Packet:PNetworkPacket);stdcall;
    FOnRecievePacket:TRecievePacketEvent;
    procedure AddNetworkQueue_Hook(Packet:PNetworkPacket);stdcall;
    procedure AddNetworkQueue_Call(Packet:PNetworkPacket);stdcall;
    procedure AddNetworkQueue_New(unh:integer;Packet:PNetworkPacket);stdcall;
    procedure SetOnRecievePacket(const Value: TRecievePacketEvent);
  public
    property OnRecievePacket:TRecievePacketEvent read FOnRecievePacket write SetOnRecievePacket;
end;

procedure TUNetworkHandler.AddNetworkQueue_Call(Packet: PNetworkPacket);stdcall;
{
тут хз как делать, запутался уже
при переходе к оригинальной функции в стеке:
значение Packet
указатель на объект TUNetworkHandler
адрес возврата
}
var
  p:pointer;
  fnc:pointer;
begin
  p:=UNetworkHandler;
  fnc:=@AddNetworkQueue_Original;
  asm
    mov eax,fnc
    mov ecx,p
    mov esp,ebp   
    pop ebp  
    jmp eax
  end;
end;


procedure TUNetworkHandler.AddNetworkQueue_Hook(Packet: PNetworkPacket);stdcall;
asm
  push ecx
  push [ebp+12]
  push ecx
  push Self // указатель на объект
  call AddNetworkQueue_New
  pop ecx
end;

procedure TUNetworkHandler.AddNetworkQueue_New(unh: integer;
  Packet: PNetworkPacket);stdcall;
begin
  UNetworkHandler:=Pointer(unh);
  if Assigned(FOnRecievePacket) then FOnRecievePacket(Packet);
  AddNetworkQueue_Call(Packet);
end;

помогите, пожалуйста. уже мозг кипит

[Yegor]

CodeMonkey, может на с++ сделаешь и не будеш мучать мозг?

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

[Fertis]

пасиба, щас поковыряюсь )

[Cooper85]

Теперь другая проблема. Менеджмент памяти в чужом процессе...
reallocmemory при изменении размера данных пакета очевидно не выход...
Если выделять память самостоятельно, то интересно по завершению обработки пакета в дебрях л2 уже выделенный линейкой блок будет освобождаться , или мной созданный. В первом случае - утечка памяти, во втором - как мне освобождать созданные блоки, по таймеру что ли, или по следующему вызову функции скорее всего...

Или все-таки с reallocmemory прокатит...
зы: это все про хук на UNetworkHandler_AddNetworkQueue

[xkor]

Cooper85, у меня не вышло заставить UNetworkHandler_AddNetworkQueue принимать мои пакеты, как я только не выделял память - клиент вылетает с критом при попытке вызвать эту функцию...
ЗЫ хотя возможно эт из за того что я её вызывал в отдельном потоке, лень мне было пробовать вызвать её в еёном потоке)

[Cooper85]

murc,

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

заставить UNetworkHandler_AddNetworkQueue принимать мои пакеты

[Cooper85]

Там как я понял, свой менеджер памяти (и не один наверно) в виде класса FMallocWindows(FMalloc). Причем один экземляр FMalloc объявлен в экспорте Core.dll. Наверно тот который инициализируется вместе с AppInit(..).
Теперь интересует все про представление сишных классов в памяти... В частности, как получить указатель на метод класса, имея указатель на экземпляр в памяти.

[murc]

Тебе для чего это ?