ICS 8.69 and Delphi 7

[Milo G 0]

Hi all,

I know that Delphi 7 is old version, that most of you don't use anymore.

 

Based on your samples, we have implemented receving emails over POP3 ( MS OAuth2 ) using your TSslPop3Cli, TSslContext and TIcsRestEmail components.  It works fine in runtime, user authenticates and we recive emails.

 

But it seems that component somehow brakes debugger ( Windows 10 ).  We have used your components in the past and previous version was 8.58 - I have renamed old folder so it souldn't interfere.

If I remove new form (unit) that uses 8.69 components debugger works.

Our program consists of dlls that get loaded from main exe program, dlls contain datamodule and forms. 

 

Do you have any idea how to solve it ? Or what to look for ...

 

We get "External exception C0000029" in ntdll.dll and Delphi must be restarted, below is call stack if it helps ...

 

Regards Milo
 

Call Stack Information:
-------------------------------------------------------------------------------------------
|Address |Module       |Unit        |Class                   |Procedure/Method       |Line|
-------------------------------------------------------------------------------------------
| Running Thread: ID=9496; Priority=0; Class=; [Main]                                     |
|-----------------------------------------------------------------------------------------|
|40006E20|rtl70.bpl    |System.pas  |                        |_LStrClr               |    |
|77798BC0|ntdll.dll    |            |                        |RtlRaiseException      |    |
|40003410|rtl70.bpl    |System.pas  |                        |_GetMem                |    |
|769D05C0|KERNEL32.DLL |            |                        |RtlUnwind              |    |
|02B86B44|dcc70.dll    |            |                        |LookupProc             |    |
|768EFC40|ucrtbase.dll |            |                        |memcpy                 |    |
|02B880B8|dcc70.dll    |            |                        |GetNearestSymName      |    |
|769CE7E0|KERNEL32.DLL |            |                        |InterlockedIncrement   |    |
|7774E760|ntdll.dll    |            |                        |RtlLeaveCriticalSection|    |
|769CE860|KERNEL32.DLL |            |                        |InterlockedDecrement   |    |
|40006E44|rtl70.bpl    |System.pas  |                        |_LStrArrayClr          |    |
|02757EF8|vclide70.bpl |Discomp.pas |TDisassemblerView       |DisassembleAt          |    |
|400095F0|rtl70.bpl    |System.pas  |                        |_IntfClear             |    |
|0236F328|coreide70.bpl|Comdebug.pas|                        |FindSourceLine         |    |
|0275D570|vclide70.bpl |Discomp.pas |                        |MakeCPUSourcePos       |    |
|027588A0|vclide70.bpl |Discomp.pas |TDisassemblerView       |DrawLine               |    |
|025F5E84|vcl70.bpl    |Graphics.pas|TFont                   |SetColor               |    |
|025F59E0|vcl70.bpl    |Graphics.pas|TGraphicsObject         |Unlock                 |    |
|02758398|vclide70.bpl |Discomp.pas |TDisassemblerView       |IterateAddrs           |    |
|02674DE0|vcl70.bpl    |Controls.pas|TWinControl             |PaintHandler           |    |
|0267531C|vcl70.bpl    |Controls.pas|TWinControl             |WMPaint                |    |
|02671910|vcl70.bpl    |Controls.pas|TControl                |WndProc                |    |
|026C06A0|vcl70.bpl    |Appevnts.pas|TCustomApplicationEvents|DoMessage              |    |
|02695608|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessage         |    |
|026956A0|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessages        |    |
|026C059C|vcl70.bpl    |Appevnts.pas|TCustomApplicationEvents|DoActivate             |    |
|02695608|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessage         |    |
|026956A0|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessages        |    |
|026C059C|vcl70.bpl    |Appevnts.pas|TCustomApplicationEvents|DoActivate             |    |
|02695608|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessage         |    |
|026956A0|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessages        |    |
|026C059C|vcl70.bpl    |Appevnts.pas|TCustomApplicationEvents|DoActivate             |    |
|4002F620|rtl70.bpl    |Classes.pas |TList                   |Get                    |    |
|40046B68|rtl70.bpl    |Contnrs.pas |TComponentList          |GetItems               |    |
|026C06A0|vcl70.bpl    |Appevnts.pas|TCustomApplicationEvents|DoMessage              |    |
|760C7DB0|USER32.dll   |            |                        |DispatchMessageA       |    |
|02695608|vcl70.bpl    |Forms.pas   |TApplication            |ProcessMessage         |    |
|026956B8|vcl70.bpl    |Forms.pas   |TApplication            |HandleMessage          |    |
|0269585C|vcl70.bpl    |Forms.pas   |TApplication            |Run                    |    |

 

[Fr0sT.Brutal 900]

Try some built-in demo. If it won't raise exception, the problem is at your side.

Edited September 21, 2022 by Fr0sT.Brutal

[Angus Robertson 574]

I build the packages on Delphi 7 periodically to ensure we've not used new language features, and until very recently all my main applications and servers were using Delphi 2007 which is only two releases later. 

 

The call stack you show does not appear to show any ICS components making calls. 

 

Angus

 

 

[Milo G 0]

Yes problem was at mine side, it works now and I can debugg again.

 

I had to re-install component:  remove package, add it back and refresh runtime packages.

 

Strange thing is that I could debug exe but not dll (exception on module load).

 

Anyhow it's solved now.

Thank you !