How to start threads automatically at startup? (Lee White )

Back to article list Search Articles Add Comment Printer friendly Direct link

Par2: How to start threads automatically at startup?
2006-02-13 -- Lee White

>I want to start several procedures automatically when my app/frame is 
>loaded.
>My C55 code was quite simple:
>GloThread_A = START(Proc_A,25000)
>GloThread_B = START(Proc_B,25000)
>GloThread_C = START(Proc_C,25000)
>Doing this in C6.3 (9050) freezes my program.

I would suggest using Notify() & Notification() to work through your
stack of procedures. This is the method I've use in AFE since the
introduction of real threads and running into the same problem you
did. AFE starts 12 threads when it first loads!

MainThread          LONG
NotifyCode          UNSIGNED
NotifyThread        SIGNED
NotifyParam         LONG

  OPEN(AppFrame)
  ACCEPT
    CASE EVENT()
    OF EVENT:OpenWindow
      MainThread = THREAD()
      NOTIFY( 1, MainThread, 1 )

    OF EVENT:Notify

      IF NOTIFICATION(NotifyCode,NotifyThread,NotifyParam)
        IF NotifyCode = 1
          EXECUTE NotifyParam
            tDrawCover      = START(Draw_CoverSheet,50000)
            tDrawPages      = START(Draw_FaxPages,50000)
            tAppendTIF      = START(AppendTIF,50000)
            tRefreshSystem  = START(RefreshSystem,30000)
            tBuildQueue     = START(BuildQueue,20000)
            tScheduleFax    = START(ScheduleFax,20000)
            tCompletedFax   = START(CompletedFax,20000)
            tFailedFax      = START(FailedFax,20000)
            tFailedSchedule = START(FailedSchedule,20000)
            tPrintReport    = START(PrintReport,20000)
            tHandleXref     = START(HandleXref,20000)
            tFaxCore        = START(FaxCore,40000)
          END
        END
      END


! example of procedure...
Draw_CoverSheet PROCEDURE

  CODE
  ACCEPT
    CASE EVENT()
    OF EVENT:OpenWindow
      NOTIFY( 1, MainThread, 2 )


! example of procedure...
FaxCore PROCEDURE

  CODE
  ACCEPT
    CASE EVENT()
    OF EVENT:OpenWindow
      NOTIFY( 1, MainThread, 13 )

Today is April 28, 2024, 8:56 am
This article has been viewed 35115 times.

Back to article list Search Articles Add Comment Printer friendly

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Templates, Tools and Utilities for Clarion Developers
	Home Products Download Documentation Demos Support Articles About Buy ALL PRODUCTS Build Automator Checkbox Fixer Icetips Utilities Magic Buttons Magic Entries Magic Locks OutlookBar Power ToolBar Report Previewer SQL Templates TaskPanel Window Fixer XP Theme Xplore GOLD SUBSCRIPTION SILVER SUBSCRIPTION SOLO SUBSCRIPTION Compare Gold/Silver Products Documentation Demos Free SQL Stuff Other Free Stuff PAR2 files Tips & Tricks - NEW Icetips Blog Icetips News Icetips on Facebook Icetips on Twitter Icetips on Youtube All Articles Search articles Top Ten articles Articles by Category Video tutorials What is Clarion? Support Options Live Support Email & Mail Icetips Blog Icetips on Twitter Gold Subscription Silver Subscription Solo Subscription Recurring Subscription Compare Gold & Silver Renew Your Subscription Multiple Copy Pricing

Templates, Tools and Utilitiesfor Clarion Developers

Icetips Article

Templates, Tools and Utilities
for Clarion Developers