Printed Icetips Article

>Do you have a simple example of "attempt to run"?

Ok, here it is. Note that this uses our Icetips Utilities classes to find the window etc.

In the procedure where I set up filenames, etc. I attempt to open one file. If it fails, I call this procedure:

 Open(HighLevelFile)
 If ErrorCode()
   FEC = FileErrorCode()
   ITU.ODS('Error: ' & ITU.ErrorMsg(True,True))
   Loc:Level = LEVEL:FATAL
   If FEC = 08001
     If Loc:StartServer
       Loc:Level = StartSQLServer()
     End
   Else
     Do ShowMessage
   End
 Else
   Loc:Level = LEVEL:Benign
   Close(HighLevelFile)
 End
 Return(Loc:Level)

The StartSQLServer() is what does the job. It's a standard window procedure that posts an event at the end of OpenWindow handler. When I get that event in TakeEvent I call a routine:

StartStartingAttempts           ROUTINE
 Data
DBPath  CString(256)
ServerParamFile CString(1025)
RCode  Long
CLine  CString(2049)
 Code
 Loc:Level = LEVEL:Fatal
 DBPath = GetReg(REG_LOCAL_MACHINE,|
          'SOFTWARE\ClientName\Database','Location')
 DBPath = ITU.GetFilePart(DBPath,FNS_Drive+FNS_Path)
 ServerParamFile = DBPath  & '\serverparameters.pm'
 CLine = '"dbsrv9.exe" "@' & Clip(ServerParamFile) & '"'
 SetCursor(CURSOR:Wait)
 Run(CLine)
 0{Prop:Timer} = 50
 Loc:Counter = 0

And in the timer event handler I do this:

If EVENT() = EVENT:Timer
  If ITU.FindWindow('Adaptive Server Anywhere')
    0{Prop:Timer} = 0
    0{Prop:Hide}  = True
    SetCursor()
    Message('It appears that the SQL server is now up and running.','Server
running',ICON:Exclamation)
    Loc:Level = LEVEL:Benign
    Post(EVENT:CloseWindow)
  End
  Loc:Counter += 1
  If Loc:Counter > 10
    0{Prop:Timer} = 0
    SetCursor()
    Message('It appears that the server can not be started automatically.  Please attempt
to manually ' &|
            'start it by using the start menu in windows.  If the server can not be
started manually, ' &|
            'please contact the database administrator or developer.','Server did not
start',ICON:Hand)
    Loc:Level = LEVEL:Fatal
    Post(EVENT:CloseWindow)
  End
End

Because of the Message() in there I have never hit it fast enough so that the server engine isn't completely up and running, but if you wanted to automate this completely and show no message when it starts, then you'd probably have to put in a few second delay to make sure that the engine is connected and everything's ready.

Best regards, Arnór Baldvinsson Icetips Creative, Inc. San Antonio, Texas, USA