Выгрузка библиотеки через DLL_PROCESS_DETACH

[Johnson]

Здравствуйте, уважаемые!

Хукаю вызовы D3D функций библиотекой внедряемой, но при завершении работы приложения вылетает ошибка.
Хотелось бы её избежать.

library newera;
uses
  Windows,
  classes,
  Direct3D9,
  DXTypes,
  D3DX9,
  SysUtils, Dialogs,
  advApiHook in 'advApiHook.pas',
  NativeAPI in 'NativeAPI.pas',
  aL2Hooks in 'aL2Hooks.pas'{,
  clsMenuEngine in 'clsMenuEngine.pas'};

var
  g_Font  : ID3DXFont;
  TextRect: TRect;
  StridesN: integer;

  EndScene9Next : function (self: pointer): HResult stdcall = nil;
  CreateDevice9Next: function (self: pointer; Adapter: LongWord; DeviceType: TD3DDevType; hFocusWindow: HWND; 
BehaviorFlags: DWord; pPresentationParameters: PD3DPresentParameters; 
out ppReturnedDeviceInterface: IDirect3DDevice9): HResult; stdcall = nil;
  Direct3DCreate9Next: function (SDKVersion: LongWord): DWORD stdcall = nil;
  ResetNext      : function (self: pointer; const pPresentationParameters: TD3DPresentParameters): HResult; stdcall;
  SetStreamSourceNext     : function (self: pointer; StreamNumber: LongWord; pStreamData: IDirect3DVertexBuffer9; 
OffsetInBytes, Stride: LongWord): HResult; stdcall;

  D3DDev: IDirect3DDevice9;

function DummyFunc(Param:DWORD):DWORD;
begin
  Result := Param;
end;

function SetStreamSourceCallback(self: pointer; StreamNumber: LongWord; pStreamData: IDirect3DVertexBuffer9; 
OffsetInBytes, Stride: LongWord): HResult; stdcall;
begin
  StridesN := Stride;
  result  := SetStreamSourceNext(self,StreamNumber,pStreamData,OffsetInBytes, StridesN);
end;

function ResetCallback(self: pointer; const pPresentationParameters: TD3DPresentParameters): HResult; stdcall;
begin
  g_Font.OnLostDevice;
  result:= ResetNext(self,pPresentationParameters);
  if( SUCCEEDED(result) ) then g_Font.OnResetDevice;
end;

function EndScene9Callback(self: pointer): HResult; stdcall;
begin
  g_Font.DrawTextA(nil,PChar('Some Text'),-1,@TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_ARGB(255,255,0,0));
  Result:=EndScene9Next(self);
end;

// Вызывается один раз, при создании девайса.
function CreateDevice9Callback(self: pointer; Adapter: LongWord; DeviceType: TD3DDevType; hFocusWindow: HWND; 
BehaviorFlags: DWord; pPresentationParameters: PD3DPresentParameters; 
out ppReturnedDeviceInterface: IDirect3DDevice9): HResult; stdcall;
begin
  Result :=CreateDevice9Next(self,Adapter,DeviceType, hFocusWindow,BehaviorFlags,
pPresentationParameters,ppReturnedDeviceInterface);
  D3DDev := ppReturnedDeviceInterface;
  // Создаем шрифт
  if (result = 0) then begin
    TextRect:=Rect(100,100,100,100);  //Координаты верхнего левого угла
    D3DXCreateFont(ppReturnedDeviceInterface, 15 ,0,FW_LIGHT,1,
False,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,6,DEFAULT_PITCH or FF_DONTCARE,
PChar('Tahoma'),g_Font);
    HookCode(GetInterfaceMethod(ppReturnedDeviceInterface, 42), @EndScene9Callback, @EndScene9Next);
  end;

  HookCode(GetInterfaceMethod(ppReturnedDeviceInterface, 16), @ResetCallback, @ResetNext);
  HookCode(GetInterfaceMethod(ppReturnedDeviceInterface, 100),@SetStreamSourceCallback, @SetStreamSourceNext);
end;

function Direct3DCreate9Callback(SDKVersion: LongWord): DWORD; stdcall;
begin
  Result:=Direct3DCreate9Next(SDKVersion);
  if (Result <> 0) then begin
    if (@CreateDevice9Next <> nil) then UnhookCode(@CreateDevice9Next);
    HookCode(GetInterfaceMethod(result, 16), @CreateDevice9Callback, @CreateDevice9Next);
  end;
end;

procedure DLLEntryPoint(dwReason:DWord);
begin
  case dwReason of
    DLL_PROCESS_ATTACH: begin
      HookProc('d3d9.dll', 'Direct3DCreate9', @Direct3DCreate9Callback, @Direct3DCreate9Next);
    end;
    DLL_PROCESS_DETACH: begin
      if (@CreateDevice9Next <> nil) then UnhookCode(@CreateDevice9Next);
      if (@EndScene9Next <> nil) then UnhookCode(@EndScene9Next);
      if (@SetStreamSourceNext <> nil) then UnhookCode(@SetStreamSourceNext);
      if (@ResetNext <> nil) then UnhookCode(@ResetNext);
      UnhookCode(@Direct3DCreate9Next);
    end;
  end;
end;

exports DummyFunc;

begin
  DllProc:= @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

Ошибка во вложении.

Подскажите, пожалуйста, что я делаю не правильно?
Сам код работает "на ура", а вот завершить не могу.
Хуки вроже как снимаю все...

[Человек_Борща]

Хех, не знаете как делается отладка DLL?
Ставите breakpoint где надо, затем меню Run => Attach to process....

А дальше все будет хорошо.

[Johnson]

Дык... И где тут поставить бряк, чтоб отследить что происходит ПОСЛЕ DLL_PROCESS_DETACH?

Пробовал вызывать ShowMessage в конце детача, он вызывается, и уже после этого происходит ошибка, где-то через секунду...

Это во-первых. А во-вторых, библиотеку нужно присоединять до инициализации D3D, то есть сразу после запуска.

А в-третьих, LineageII запрещает свой запуск под дебагером, как выяснилось.

[Johnson]

Щас подгрузил в тестовое приложение, использующее D3D.
Поставил бряк после детача.
Весь код детача происходит нормально, а вот дальше, после того как сделаешь шаг после последнего вызова УнХука - ошибка.

Дебагер дает возможность брякнуть эту ошибку, однако я не знаю ассемблера совсем.

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

Папка DX - заголовки D3D, их нужно описать в компиляторе.
Deutsch Gothic.ttf - шрифт, пока не делал его подгрузку в систему, установите в ручную, или в коде поменяйте на Tahoma.
DirectX.exe - тестовая прога, которая просто инициализирует D3D.

PS: Извиняюсь. Приложение скидывал без либы D3D, и с правленными таблицами импорта (принудительно грузит newera.dll)... Во втором аттаче чистое.

[Человек_Борща]

А зачем на рабочем экземпляре чушь пороть? Перите любую мелкую программу, которая исп. перехватываемую API, и там практикуйте.

Ну значит логи, логи, логи... Пусть dll пишет в файл.
Ну или MadExcept, EurekaLog, FastMM...

[Johnson]

Блин. Библиотека не должна ни чего делать после детача.
Код детача проходит нормально, без ошибок.
ЧТО будет писать лог после детача (в котором он должен освободиться)?

Я скинул мелкую прогу и код... Помогите решить проблему, пожалуйста...

PS: Можно было бы, конечно, взять D3D приложение с исходником, и там уже отследить дальнейшие действия... Но в D3D я вообще "не в зуб ногой"... =(

[GunSmoker]

В D3D ни алё, в ассемблере не алё. Ну чо, называй сумму тогда.

(это шутка была. А смысл её был в том, что сначала надо бы знания подтянуть, а уж потом говнокодить).

[Johnson]

Обозначить сумму я тебе давеча предлагал, ты "тактично" отказался, так что не сарказничай
По поводу "подтягивай знания"... Я это и пытаюсь сделать, но нет ни времени на теорию, ни умения зубрить её. Приходится только методом проб и ошибок, экспериментов и курения чужого кода...
А по поводу "говнокодить"... Вспомни начало своей програмистской карьеры... Прямо-таки с первого раза начал писать идеальный код?

Вместо того, чтоб постить 2485-е сообщение бесполезным, лучше бы ткнул носом в проблему или в источник информации по ней...

[GunSmoker]

Ну ты же понимаешь, что когда человек не алё, то это именно тебе придётся дебажить проект, исправлять ошибки и писать правильный код, а не ему. Я таким иногда занимаюсь, но тут лениво. Особенно когда у тебя отсутствует воспроизводимый тест-кейс.

[Человек_Борща]

Есть мнение что ошибки в функция Hook'а. И вам нужно отладчиком скакать вместо ошибки.
Я бы пореккомендовал опробовать EasyHook, на его основе ещё что-то развивается какраз в стороеу хуков DX,GL и прочего грфического. Ваши сабжи исжили себя давно.

Судя по ошибке, ВАШи дествия вызывают глюки в работе совсем р. библиотеки. Реккомендую читать доки по вылавливаемым API.