TZIBEventAlerter throwing exception when registering events
lazarus / 16-Databases

----------------------------------------------------------------------
Groffy · 2015-11-24 14:01

Linux Mint 17.2 KDE
Lazarus 1.5 trunk
FPC 3.0rc2
Zeos components 7.3 testing
Firebird SuperServer 2.5.5

I created a simple test project

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.FormCreate(Sender: TObject);begin  FbConnection.Connect();  
with FbEventAlerter do  begin   Connection:= FbConnection; 
 Events.Add('LOGGER');    Registered:= true;  end;end;   
As soon the event should be registered the component raises an
exception

The exception is raised in ZIPEventAlerter.pas when calling the
TIBEventThread base constructor. TIBEventThread is directly derived
from class TThread.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {$WARNINGS
OFF}constructor TIBEventThread.Create(Owner: TZIBEventAlerter;
 EventGrp: integer; TermEvent: TNotifyEvent);begin  inherited
Create(true);   FCancelAlerts := False;  Signal :=
TSimpleEvent.Create;  Parent := Owner;  EventGroup := EventGrp; 
OnTerminate := TermEvent;   Resume;end;{$WARNINGS ON} 
Anybody working successfully with this control? Is it maybe an FPC3.0
issue?


Best regards

----------------------------------------------------------------------
ttomas · 2015-11-24 23:33

Do you add/define UseCThreads?
Add in your project source
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Uses 
{$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads, 
{$ENDIF}{$ENDIF} IBEvents component use TThread internally.

----------------------------------------------------------------------
Groffy · 2015-11-25 07:27

@ttomas : thank you!!

http://wiki.lazarus.freepascal.org/Lazarus_Faq#When_I_run_a_program_wi
th_threads_I_get_runtime_error_232