Access Violation at Address 00000000. Read of address 00000000.
It seems to be failing on the
GetTextInit
portion of the script.
I just upgraded to 13.2.3 in an effort to overcome the problem.
Code: Select all
// COMPILE_OPTS|\Search Weblink From ACT.exe||CONSOLE=0|INCLUDES=1|
MessageModal>1
Let>window=
IfWindowOpen>Case Tracking (Adult)
ConCat>window,Adult
EndIf
MessageModal>2
IfWindowOpen>Juvenile Case Tracking
ConCat>window,Juvenile
EndIf
MessageModal>3
If>window="",GetNothing
If>window=AdultJuvenile,GetQuestion
If>window=Adult,GetAdult
If>window=Juvenile,GetJuvenile
SRT>GetNothing
MessageModal>window
MessageModal>Please open either Adult or Juvenile Case Tracking before attempting a search.
GoSub>GetOut
End>GetNothing
SRT>GetQuestion
MessageModal>window
Dialog>dlgQuestion
object dlgQuestion: TForm
Left = 914
Top = 223
HelpContext = 5000
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Adult or Juvenile?'
ClientHeight = 95
ClientWidth = 431
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 8
Width = 265
Height = 26
Caption =
'You have both Adult and Juvenile Case Tracking open. Which would' +
' you like to use for this search?'
WordWrap = True
end
object btnJuvenile: tMSButton
Left = 152
Top = 48
Width = 75
Height = 25
Caption = 'Juvenile'
TabOrder = 0
DoBrowse = False
BrowseStyle = fbOpen
end
object btnCancel: tMSButton
Left = 248
Top = 48
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
TabOrder = 1
DoBrowse = False
BrowseStyle = fbOpen
end
object btnAdult: tMSButton
Left = 56
Top = 48
Width = 75
Height = 25
Caption = 'Adult'
TabOrder = 2
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>dlgQuestion
AddDialogHandler>dlgQuestion,btnAdult,OnClick,GetAdult
AddDialogHandler>dlgQuestion,btnJuvenile,OnClick,GetJuvenile
AddDialogHandler>dlgQuestion,btnCancel,OnClick,GetOut
Show>dlgQuestion,result
MoveWindow>dlgQuestion,10,10
End>GetQuestion
SRT>GetAdult
//GetControlText>Case Tracking (Adult),TIB_Edit,20,result
MessageModal>window
CloseDialog>dlgQuestion
MessageModal>GTI
GetTextInit
MessageModal>GWTE
GetWindowTextEx>Case Tracking (Adult),result
MessageModal>result
Gosub>DoSearch
GoSub>GetOut
End>GetAdult
SRT>GetJuvenile
//GetControlText>Juvenile Case Tracking,TIB_Edit,18,result
MessageModal>window
CloseDialog>dlgQuestion
MessageModal>GTI
GetTextInit
MessageModal>GWTE
GetWindowTextEx>Juvenile Case Tracking,result
MessageModal>result
Gosub>DoSearch
GoSub>GetOut
End>GetJuvenile
SRT>DoSearch
MessageModal>Doing Search %result%
RegEx>Case Key: \d{10},result,,Matches,NumMatches,,,
MessageModal>Matches_1
MidStr>Matches_1,11,10,strSub
MessageModal>strSub
RunProgram>%PROGRAM_FILES%\Internet Explorer\iexplore.exe "http://aWebSite/aWebPage.aspx?command={Key=%strSub%}"
END>DoSearch
SRT>GetOut
Exit>Gracefully
END>GetOut
