Delphi中 包 的妙用

2021-04-16 16:45:08 字數 1167 閱讀 8959

自動化測試框架的基礎是鉤子,也就是常說的hook機制。但這在實際的應用過程中可能會遇到一些問題。

一旦要做鉤子,那麼就必須獲取函式位址。由於我原先設計的鉤子的目標函式,都是delphi的內部函式,也就是說,這些函式在編譯之後,很難找到。

當然了,也是有幾種方式可以找到的:

將**植入到系統中,編譯的時候可以直接找到。

編譯的時候,帶上map檔案,可以通過map找到函式位址。測試框架以dll的方式遠端注入。

delphi中的包,可以公布這些函式的位址

前兩種方式,有乙個最大的缺點,在於必須為自動化測試,特別編譯乙個版本。雖然說可以接受,但顯然不是最好的方案。第三種方案雖然好,但是前提是系統必須構建在帶包編譯的基礎上。

幸好,我們目前的測試的系統就具備這樣的條件。

那麼,對於自動化測試框架來說,只需要隨意作為乙個dll,並注入到原系統中就可以了。如果原系統提供了注入的擴充套件,那是最好。因為這樣除錯起來很方便。否則就做成遠端注入,不過除錯的時候只能attach了,很麻煩。

這個時候,只需要將包含自動化測試框架**的測試用例**,對vcl的包,帶包編譯,就可以做到對包中函式的hook了。不過這裡面還是有一些細節需要注意的。原先我用的是fastcode的hook**,但是在代表編譯的時候就失效了。經過追查,發現代表編譯和非帶包編譯的**不一樣。由於vcl的**,編譯到了包中,那麼本dll在呼叫包中的方法的時候,加上了跳轉指令。簡單的就是乙個call操作。在包裝載的時候,call後的位址會更新。

經過一些探索,發現中國的cnpack(www.cnpack.org)中早就針對這個問題有了解決方案。其實方法也很簡單,就是判斷一下是否存在位址跳轉,如果有的話,就取跳轉後的位址,否則取當前位址。

完成了鉤子後,我們就會發現,在我的測試用例的dll中,對bpl中的方法,進行了hook。請注意,這裡面有乙個選擇,就是在dll內部hook,還是在bpl內部hook。在dll內部hook,只需要修改跳轉位址即可,鉤子的方法很簡單。在bpl中hook,則需要修改函式**的前5個位元組,這種方法複雜,但是使得入口單一,一處修改,全面有效。

自動化測試框架,就是選用的後者的hook方法。這樣,我們在dll中,對bpl中的方法進行了hook,所有帶著此包編譯的dll或者exe,都會受到影響。而這也正是我們想要的。

解決了這個問題後,我們就可以針對已有的系統安裝程式進行測試,而不需要修改任何開發**(包括版本構造過程)。滿足這個特性非常好!

自動化測試框架 Delphi中 包 的妙用

自動化測試框架的基礎是鉤子,也就是常說的hook機制。但這在實際的應用過程中可能會遇到一些問題。一旦要做鉤子,那麼就必須獲取函式位址。由於我原先設計的鉤子的目標函式,都是delphi的內部函式,也就是說,這些函式在編譯之後,很難找到。當然了,也是有幾種方式可以找到的 將 植入到系統中,編譯的時候可以...

Delphi中的包(二) 關於bpl

摘自 http blog.csdn.net soobey archive 2005 08 29 467732.aspx 現在我們不得不寫自己的dpk工程,以更改地檢測我們的猜想。我們首先建立乙個project group,包含三個工程 program projectexe uses forms,wi...

Delphi中的包(三) bpl和dll

摘 自 http blog.csdn.net soobey archive 2005 08 30 468017.aspx 曾經聽說過 bpl就是一種特殊的dll 但是沒有想到這句話具有這麼大的意義。最近看到有人在屬於某個dpk的unit裡面寫export語句,覺得非常驚奇。但是遍查delphi的he...