View Full Version : How to programmatically turn EurekaLog off?
Steven Brenner
13-Feb-2007, 07:34 PM
I am using Delphi7 / Delphi2006 and EurekaLog 5.1.11
How do I programmatically turn EurekaLog off?
I've looked in the help file but not found the answer.
I have an applicaiton that was written in Delphi7 and just ported to
Delphi2006.
With Delphi7 when I killed the app via Appplication.Terminate - it died
quitely.
With Delphi2006 I now get non-ending stream of exceptions caught by
EurekaLog after the last line of code in the *.dpr file. I haven't done
enough testing to know if this is a Dephi, EurekaLog or 3rd party component
error - but for right now if I could just turn off EurekaLog before issuing
the applicaiton.terminate call it would resolve my problem.
Thanks
....Steven
Steven Brenner
14-Feb-2007, 03:05 AM
Nevermind found answer in searching this newsgroup:
==================
Example (How disable EurekaLog at run-time):
program Project1;
uses
ExceptionLog,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
HERE --> SetEurekaLogState(False); // Disable EurekaLog at run-time!
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Fixed the other issue as well,
Apparently with D2006, Delphi is not happy if you kill an app in
FormCreate() if that form has a FormActivate() and you do something like
this:
program Project1;
uses
ExceptionLog,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); //application.terminate called
in Formcreate()
if application.terminated then //<<== Make Delphi2006
very unhappy
exit;
Application.Run;
end.
~~~~~
//if instead of exiting before Application Run as shown above you do the
following Delphi2006 is happy. Delphi7 didn't care...
TFrom1.FormActivate()
begin
if application.terminated then
exit;
// other code..
// more other code.
end;
"Steven Brenner" <steven@infoprod.com> wrote in message
news:eqt7b1$v68$1@plesk.eurekalog.com...
>I am using Delphi7 / Delphi2006 and EurekaLog 5.1.11
>
> How do I programmatically turn EurekaLog off?
> I've looked in the help file but not found the answer.
>
> I have an applicaiton that was written in Delphi7 and just ported to
> Delphi2006.
> With Delphi7 when I killed the app via Appplication.Terminate - it died
> quitely.
> With Delphi2006 I now get non-ending stream of exceptions caught by
> EurekaLog after the last line of code in the *.dpr file. I haven't done
> enough testing to know if this is a Dephi, EurekaLog or 3rd party
> component error - but for right now if I could just turn off EurekaLog
> before issuing the applicaiton.terminate call it would resolve my problem.
>
> Thanks
>
> ...Steven
>
Fabio Dell'Aria
14-Feb-2007, 05:23 PM
Steven Brenner wrote:
> Nevermind found answer in searching this newsgroup:
> [...]
>>
>> Thanks
>>
>> ...Steven
OK! :)
--
Best regards...
Fabio Dell'Aria.
----------------
http://www.eurekalog.com
Catch every BUG, every time!
vBulletin® v3.8.2, Copyright ©2000-2012, Jelsoft Enterprises Ltd.