Jump to content
Milo G

ICS 8.69 and Delphi 7

Recommended Posts

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                    |    |

 

Share this post


Link to post

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

Edited by Fr0sT.Brutal

Share this post


Link to post

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

 

 

Share this post


Link to post

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 !

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×