Documentation component by D.Glodt (c)2003 Appendix A: QProcess

QProcess Component

QProcess is a no visible component, it function is to execute process background via a user routine.


QProcess Properties
Priority LONG R/W 0
Process priority with following values:
ProcessLow=-2
ProcessBelowNormal=-1
ProcessNormal=0
ProcessHight=2
ProcessAboveNormal=1
ProcessTimeCritical=15
ProcessIdle=-15

QProcess Methods
Method Type Description Params
Open SUB execute process 0
Close SUB Stop process 0

QProcess Events
Event Type Occurs when... Params
OnProcess Process execution 0

QProgress Example
  

$TYPECHECK ON
$INCLUDE "RAPIDQ.INC"
$include "Object\QProcess.inc"
'Subs internal 
declare sub rout1
DECLARE SUB OpenClick
DECLARE SUB SendClick
DECLARE SUB fin
'Variables globales 
dim num as long
dim process as QProcess
process.OnProcess=rout1 'process routine
CREATE Form ASQFORM
  Caption = "Test process"
  Width=200
  Height=200
  Center
  CREATE OpenButton ASQBUTTON
    Caption="&Open"
    Left=20
    Top=50
    height=20
    OnClick=OpenClick
  END CREATE
  CREATE butexit ASQBUTTON
    Caption="Close"
    Left=20
    Top=75
    height=20
    Enabled=0
    OnClick=fin
  END CREATE
  CREATE ED ASQEDIT
    left=10
    top=10
    width=100
  END CREATE
END CREATE
Form.ShowModal

SUB fin
  process.close
  OpenButton.enabled=1
end sub

SUB OpenClick
  OpenButton.enabled=0
  butexit.enabled=1
  process.priority=ProcessNormal
  process.open
END SUB

sub rout1 ' process routine
  while true
    sleep 0.1
    num++
    ed.text="Count"+str$(num)
  wend
end sub