| Subject | Tib_Session exception opening an app |
|---|---|
| Author | Luiz Alves |
| Post date | 2016-02-19T12:12:49Z |
Hi,
Jason,
I have a simple app with a form where I have a tib_connection, tib_session, tib_transation and tib_cursor. I am using XE8,win8.1, ibo 5.7.5 2275.
I compiled the app to win32.
When I execute the app, I am getting the next error in tib_session:
Error: ‘TimerInterval <> 0 unsupported'
When the app is executed I am not making whatever operation with the database. I have only that ibo componentes into form , but I am doing nothing.
Here is the code where the exception occur and the call stack.
Could you give me a clue to solve the problem?
Procedure with error:
////////////////////
procedure TIB_Session.SetTimerInterval( AValue: cardinal );
var
ii: integer;
begin
if FTimerInterval <> AValue then
begin
if Assigned( IB_ApplicationHandler ) then
begin
if ( not Assigned( FTimer )) then
FTimer := IB_ApplicationHandler.MakeTimer( Self );
FTimer.Interval := AValue;
FTimer.OnTimer := DoTimer;
end
else
if AValue <> 0 then
raise Exception.Create(
'TimerInterval <> 0 unsupported' ); -Ã Exception Here
///Call stack
////////////////
:76d44598 KERNELBASE.RaiseException + 0x48
IB_Components.TIB_Session.SetTimerInterval(5000)
System.TypInfo.SetOrdProp(???,???,???)
System.Classes.TReader.ReadPropValue($3CEEA60,$7D9848)
System.Classes.TReader.ReadProperty($3CEEA60)
System.Classes.TReader.ReadDataInner($3CEEA60)
System.Classes.TReader.ReadData($3CEEA60)
System.Classes.TComponent.ReadState(???)
System.Classes.TReader.ReadComponent(nil)
System.Classes.TReader.ReadDataInner(???)
System.Classes.TReader.ReadData($3B7FB30)
System.Classes.TComponent.ReadState(???)
Vcl.Controls.TControl.ReadState($3B5FAD0)
Vcl.Controls.TWinControl.ReadState($3B5FAD0)
Vcl.Forms.TCustomForm.ReadState($3B5FAD0)
System.Classes.TReader.ReadRootComponent($3B7FB30)
System.Classes.TStream.ReadComponent($3B7FB30)
System.Classes.InternalReadComponentRes(???,???,$3B7FB30)
System.Classes.InitComponent(Tfm_senhas)
System.Classes.InitInheritedComponent($3B7FB30,TForm)
Vcl.Forms.TCustomForm.Create(???)
Vcl.Forms.TApplication.CreateForm(???,(no value))
SenhaNH.SenhaNH
:771a7c04 KERNEL32.BaseThreadInitThunk + 0x24
:776dad1f ntdll.RtlInitializeExceptionChain + 0x8f
:776dacea ntdll.RtlInitializeExceptionChain + 0x5a
//dfm of the for mis:
object fm_senhas: Tfm_senhas
Left = 0
Top = 0
Caption = 'Senhas'
ClientHeight = 660
ClientWidth = 917
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnGesture = FormGesture
PixelsPerInch = 96
TextHeight = 13
object AdvP: TPanel
AlignWithMargins = True
Left = 3
Top = 431
Width = 911
Height = 58
Align = alTop
BevelOuter = bvNone
Caption = 'sdsda'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object lb_sucess: TLabel
AlignWithMargins = True
Left = 3
Top = 3
Width = 905
Height = 25
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 6
end
end
object PanTop: TPanel
AlignWithMargins = True
Left = 3
Top = 44
Width = 911
Height = 381
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object AdvSmoothLabel1: TPanel
AlignWithMargins = True
Left = 3
Top = 3
Width = 905
Height = 174
Align = alTop
Caption = 'SENHAS'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object PanFrames: TPanel
AlignWithMargins = True
Left = 3
Top = 183
Width = 905
Height = 195
Align = alClient
BevelOuter = bvNone
TabOrder = 0
inline frCPF1: TfrCPF
Left = 231
Top = 28
Width = 758
Height = 112
TabOrder = 0
Visible = False
ExplicitLeft = 231
ExplicitTop = 28
inherited Panel1: TPanel
inherited edCpf: TEdit
OnClick = frCPF1edCpfClick
ExplicitLeft = 34
end
inherited Panel2: TPanel
ExplicitLeft = 34
end
inherited Btn_Conf: TAdvSmoothButton
OnClick = frCPF1Btn_ConfClick
ExplicitLeft = 322
end
inherited Btn_Back: TAdvSmoothButton
OnClick = frCPF1Btn_BackClick
ExplicitLeft = 546
end
end
end
inline frPrefTipos1: TfrPrefTipos
Left = 42
Top = -8
Width = 872
Height = 112
TabOrder = 3
ExplicitLeft = 42
ExplicitTop = -8
inherited Panel1: TPanel
Left = 3
ExplicitLeft = 3
inherited But_Gest: TAdvSmoothButton
OnClick = frPrefTipos1Btn_IdosoClick
end
inherited Btn_Back: TAdvSmoothButton
OnClick = frPrefTipos1Btn_BackClick
end
inherited Btn_Crianca: TAdvSmoothButton
OnClick = frPrefTipos1Btn_IdosoClick
end
inherited Btn_Idoso: TAdvSmoothButton
OnClick = frPrefTipos1Btn_IdosoClick
ExplicitLeft = 10
end
end
end
inline frPref1: TfrPref
Left = -22
Top = 92
Width = 741
Height = 113
TabOrder = 2
ExplicitLeft = -22
ExplicitTop = 92
ExplicitWidth = 741
ExplicitHeight = 113
inherited Shape1: TShape
Top = 111
Width = 741
ExplicitTop = 111
ExplicitWidth = 741
end
inherited Panel1: TPanel
Left = 24
Top = 4
Width = 692
ExplicitLeft = 24
ExplicitTop = 4
ExplicitWidth = 692
inherited But_Normal: TAdvSmoothButton
Left = 5
OnClick = frPref1But_NormalClick
ExplicitLeft = 5
end
inherited But_Pref: TAdvSmoothButton
Left = 214
OnClick = frPref1But_PrefClick
ExplicitLeft = 214
end
inherited Btn_Back: TAdvSmoothButton
Left = 484
OnClick = frPref1Btn_BackClick
ExplicitLeft = 484
end
end
end
inline frOF1: TfrOF
Left = 146
Top = 38
Width = 704
Height = 102
TabOrder = 1
ExplicitLeft = 146
ExplicitTop = 38
ExplicitWidth = 704
ExplicitHeight = 102
DesignSize = (
704
102)
inherited Shape1: TShape
Top = 100
Width = 704
ExplicitLeft = 0
ExplicitTop = 109
ExplicitWidth = 704
end
inherited Panel1: TPanel
Left = 36
Top = 6
ExplicitLeft = 36
ExplicitTop = 6
inherited But_O: TAdvSmoothButton
Top = 2
OnClick = frOF1But_OClick
ExplicitTop = 2
end
inherited But_F: TAdvSmoothButton
Top = 2
OnClick = frOF1But_OClick
ExplicitTop = 2
end
end
end
end
end
object AdvPStyle: TPanel
Left = 0
Top = 0
Width = 917
Height = 41
Align = alTop
TabOrder = 2
Visible = False
ExplicitLeft = -1
object lblVclStyle: TLabel
Left = 13
Top = 11
Width = 33
Height = 16
Alignment = taRightJustify
Caption = 'Estilo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
StyleElements = [seClient, seBorder]
end
object Label1: TLabel
Left = 225
Top = 11
Width = 51
Height = 16
Alignment = taRightJustify
Caption = 'Servidor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
StyleElements = [seClient, seBorder]
end
object cbxVclStyles: TComboBox
Left = 52
Top = 8
Width = 161
Height = 21
Style = csDropDownList
TabOrder = 0
OnChange = cbxVclStylesChange
end
object EdServer: TEdit
Left = 290
Top = 8
Width = 141
Height = 21
TabOrder = 1
end
object Button1: TButton
Left = 437
Top = 6
Width = 75
Height = 25
Caption = 'Testar'
TabOrder = 2
OnClick = Button1Click
end
end
object PanBot: TPanel
Left = 0
Top = 492
Width = 917
Height = 168
Align = alClient
BevelOuter = bvNone
TabOrder = 3
OnResize = PanBotResize
DesignSize = (
917
168)
object PanKb: TPanel
Left = 79
Top = 8
Width = 753
Height = 153
Anchors = [akTop]
ShowCaption = False
TabOrder = 0
object AdvKb: TAdvSmoothTouchKeyBoard
Left = 1
Top = 1
Width = 751
Height = 151
Text = ''
AutoCompletion.Font.Charset = DEFAULT_CHARSET
AutoCompletion.Font.Color = clWhite
AutoCompletion.Font.Height = -19
AutoCompletion.Font.Name = 'Tahoma'
AutoCompletion.Font.Style = []
AutoCompletion.Color = clBlack
Fill.ColorMirror = clNone
Fill.ColorMirrorTo = clNone
Fill.GradientType = gtVertical
Fill.GradientMirrorType = gtSolid
Fill.BorderColor = clNone
Fill.Rounding = 0
Fill.ShadowOffset = 0
Fill.Glow = gmNone
KeyboardType = ktQWERTY
Keys = <