從Delphi 2006升級到Delphi XE後關閉應用程序時出現無效的指針異常

我剛剛將一個項目從Delphi 2006升級到Delphi XE。一切都按預期工作，除非我關閉我的應用程序時發生異常。從Delphi 2006升級到Delphi XE後關閉應用程序時出現無效的指針異常

它不會破壞代碼行。它在LEAVE命令中切換到CPU窗口。如果有任何幫助，我附上了Eureka日誌。

EurekaLog 6.0.25 

Application: 
------------------------------------------------------ 
    1.1 Start Date  : Fri, 3 Dec 2010 10:44:17 +0100 
    1.2 Name/Description: LogoTid.exe 
    1.3 Version Number : 
    1.4 Parameters  : 
    1.5 Compilation Date: Fri, 3 Dec 2010 10:44:15 +0100 
    1.6 Up Time   : 5 seconds 

Exception: 
---------------------------------------------------- 
    2.1 Date   : Fri, 3 Dec 2010 10:44:22 +0100 
    2.2 Address  : 004062A0 
    2.3 Module Name : LogoTid.exe 
    2.4 Module Version: 
    2.5 Type   : EInvalidPointer 
    2.6 Message  : Invalid pointer operation. 
    2.7 ID   : 5E21 
    2.8 Count   : 1 
    2.9 Status  : New 
    2.10 Note   : 

User: 
------------------------------------------------------- 
    3.1 ID  : oda 
    3.2 Name  : 
    3.3 Email  : 
    3.4 Company : 
    3.5 Privileges: SeIncreaseQuotaPrivilege  - OFF 
        SeSecurityPrivilege    - OFF 
        SeTakeOwnershipPrivilege  - OFF 
        SeLoadDriverPrivilege   - OFF 
        SeSystemProfilePrivilege  - OFF 
        SeSystemtimePrivilege   - OFF 
        SeProfileSingleProcessPrivilege - OFF 
        SeIncreaseBasePriorityPrivilege - OFF 
        SeCreatePagefilePrivilege  - OFF 
        SeBackupPrivilege    - OFF 
        SeRestorePrivilege    - OFF 
        SeShutdownPrivilege    - OFF 
        SeDebugPrivilege    - ON 
        SeSystemEnvironmentPrivilege - OFF 
        SeChangeNotifyPrivilege   - ON 
        SeRemoteShutdownPrivilege  - OFF 
        SeUndockPrivilege    - OFF 
        SeManageVolumePrivilege   - OFF 
        SeImpersonatePrivilege   - ON 
        SeCreateGlobalPrivilege   - ON 
        SeIncreaseWorkingSetPrivilege - OFF 
        SeTimeZonePrivilege    - OFF 
        SeCreateSymbolicLinkPrivilege - OFF 

Active Controls: 
------------------------------------------------------------------ 
    4.1 Form Class : TAppBuilder 
    4.2 Form Text : LogoTid - Delphi XE - uMain [Running] [Built] 
    4.3 Control Class: 
    4.4 Control Text : 

Computer: 
------------------------------------------------------------------------------------------------ 
    5.1 Name   : OLE-LAPTOP 
    5.2 Total Memory : 3891 Mb 
    5.3 Free Memory : 778 Mb 
    5.4 Total Disk : 120 Gb 
    5.5 Free Disk  : 57,93 Gb 
    5.6 System Up Time: 1 day, 23 hours, 16 minutes, 56 seconds 
    5.7 Processor  : Intel(R) Core(TM) i5 CPU  M 520 @ 2.40GHz 
    5.8 Display Mode : 1920 x 1200, 32 bit 
    5.9 Display DPI : 96 
    5.10 Video Card : Intel(R) Graphics Media Accelerator HD (driver 8.15.10.2025 - RAM 1721 MB) 
    5.11 Printer  : RICOH Aficio 2232C RPCS (driver 1.0.0) 

Operating System: 
-------------------------------------------- 
    6.1 Type : Microsoft Windows 7 (64 bit) 
    6.2 Build # : 7600 
    6.3 Update : 
    6.4 Language: Danish 
    6.5 Charset : 0 


Call Stack Information: 
------------------------------------------------------------------- 
|Address |Module  |Unit  |Class|Procedure/Method |Line | 
------------------------------------------------------------------- 
|Running Thread: ID=5632; Priority=0; Class=; [Main]    | 
|-----------------------------------------------------------------| 
|00D171A1|LogoTid.exe |LogoTid.dpr|  |     |32[5]| 
|76A73675|kernel32.dll|   |  |BaseThreadInitThunk|  | 
------------------------------------------------------------------- 



Assembler Information: 
----------------------------------------------------------------- 
; System.TObject.FreeInstance 
; ---------------------------- 
00406294 push ebx 
00406295 mov  ebx, eax 
00406297 mov  eax, ebx 
00406299 call System.TObject.CleanupInstance 
0040629E mov  eax, ebx 
004062A0 call System._FreeMem     ; <-- EXCEPTION 
004062A5 pop  ebx 
004062A6 ret 

Registers: 
----------------------------- 
EAX: 02AF8058 EDI: 00000001 
EBX: 004062A5 ESI: 004062A5 
ECX: 0041D700 ESP: 0018FE98 
EDX: 004062A5 EIP: 004062A0 

Stack:    Memory Dump: 
------------------ --------------------------------------------------------------------------- 
0018FE98: FFFFFF02 004062A0: E8 3B E7 FF FF 5B C3 90 83 C0 CC 8B 00 C3 8B C0 .;...[.......... 
0018FE9C: 00404B78 004062B0: 84 D2 74 08 83 C4 F0 E8 54 05 00 00 84 D2 74 0F ..t.....T.....t. 
0018FEA0: 02B1CEC0 004062C0: E8 A3 05 00 00 64 8F 05 00 00 00 00 83 C4 0C C3 .....d.......... 
0018FEA4: 02B1CEC0 004062D0: E8 E3 05 00 00 84 D2 7E 05 E8 82 05 00 00 C3 90 .......~........ 
0018FEA8: 00404BC2 004062E0: 85 C0 74 07 B2 01 8B 08 FF 51 FC C3 53 56 57 89 ..t......Q..SVW. 
0018FEAC: 02B1CEC0 004062F0: C3 89 D7 AB 8B 4B CC 31 C0 51 C1 E9 02 49 F3 AB .....K.1.Q...I.. 
0018FEB0: 0018FEE8 00406300: 59 83 E1 03 F3 AA 89 D0 89 E2 8B 4B AC 85 C9 74 Y..........K...t 
0018FEB4: 004062A5 00406310: 01 51 8B 5B D0 85 DB 74 04 8B 1B EB ED 39 D4 74 .Q.[...t.....9.t 
0018FEB8: 03A02F01 00406320: 1D 5B 8B 0B 83 C3 04 8B 73 10 85 F6 74 06 8B 7B .[......s...t..{ 
0018FEBC: 00406865 00406330: 14 89 34 07 83 C3 1C 49 75 ED 39 D4 75 E3 5F 5E ..4....Iu.9.u._^ 
0018FEC0: 0045B949 00406340: 5B C3 8B C0 53 56 89 C3 89 C6 8B 36 8B 56 B4 8B [...SV.....6.V.. 
0018FEC4: 03A02FA0 00406350: 76 D0 85 D2 74 07 E8 85 36 00 00 89 D8 85 F6 75 v...t...6......u 
0018FEC8: 03A02F01 00406360: E9 89 D8 E8 78 06 00 00 5E 5B C3 90 87 D1 81 F9 ....x...^[...... 
0018FECC: 004062EB 00406370: 00 00 00 FF 73 11 81 F9 00 00 00 FE 72 07 0F BF ....s.......r... 
0018FED0: 00912606 00406380: C9 03 08 FF 21 FF E1 81 E1 FF FF FF 00 01 C1 89 ....!........... 
0018FED4: 00000000 00406390: D0 8B 11 E9 A8 59 00 00 C3 8D 40 00 3B C2 0F 94 [email protected];...

---編輯

好吧，我試過程序部分的旋轉直到錯誤走了，找到了肇事者。

這是我的webservice WSDL生成的代理。如果我在不調用服務上的任何函數的情況下創建代理對象，則會引發錯誤。

我創建了一個測試項目，但不包含代理對象創建以外的任何其他代碼，它也會引發錯誤。我也試過用另一個web服務，同樣的錯誤。這兩個Web服務都是使用Delphi 2006（.net 1.1）創建的。

最後，我嘗試使用在VS2010中創建的.net 4.0 webservice。沒問題。所以無論是德爾福XE是項目不兼容.NET 1.1 Web服務或Delphi 2006 Web服務。無論哪種方式，這是一個混亂。

任何關於如何解決這個問題，或許是一種解決方法？

來源

2010-12-14 olve

這是沒有足夠的信息讓我們知道是什麼問題，請提供調用堆棧（第二個標籤在異常對話框中） – ComputerSaysNo 2010-12-14 16:41:47

使用接口？ IInterface/IUnknown的？ – 2010-12-14 19:00:33

實測值的溶液/解決方法。

如果直接在窗體中使用Webservice，則會發生此錯誤。

創建一個空的vcl表單項目，使用wsdl生成器生成web服務代理。在使用部分包含代理類。聲明代理的私有對象，然後在表單中使用代理類getXXXXXXX函數啓動您的對象。運行該項目。

當您關閉表單時，您會收到一個異常。

解決方案/解決方法是創建自己的類，並通過此類與Web服務代理進行通信。

來源

2010-12-16 14:50:19 olve

日誌在這裏沒有幫助。它看起來像一個內存損壞問題，如果你的代碼在字符串上執行索引操作（例如寫入字符串的字符位置），並且你沒有修復所有代碼將字符串轉換爲PChar或類似代碼，就會發生這種問題。

換句話說，你必須仔細分析你的代碼。開始關閉一些模塊和代碼塊，直到異常消失。然後開始逐個添加它們。

來源

2010-12-14 13:56:45

關閉代碼塊有助於查明錯誤。謝謝。 – olve 2010-12-15 13:19:42

@olve我建議你根據你的新信息創建一個新的問題：這樣可以讓更多的人看到它。 – 2010-12-15 13:40:22

我會那樣做..謝謝。 – olve 2010-12-16 10:30:32

可能與string現在是一個Unicode字符串（每個字符2個字節），而不是AnsiString（每個字符1個字節）有關。如果使用字符串的原始字節，這是一個主要問題。要解決它，只需將所有string替換爲AnsiString和全部替換爲至AnsiChar。當然，這樣做會失去Unicode支持。更好的解決辦法是重新處理你的字符串處理例程。通常，只需要在每個地方和每個地方添加一些乘法因子sizeof(char)（= 2）。

實施例（舊代碼）：

byteSize = length(str);

實施例（新碼）：

byteSize = length(str) * sizeof(char);

來源

2010-12-14 13:57:24

不需要unicode ...嘗試將項目範圍重命名爲ansistring和ansichar，但它沒有幫助。 – olve 2010-12-15 13:19:01

從Delphi 2006升級到Delphi XE後關閉應用程序時出現無效的指針異常

回答

相關問題