Moniajo

säikeet

Miten säikeitä käytetään Pascal:ssa. Mitä asioita pitää ottaa huomioon.

1

247

    Vastaukset 1

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kukame

      // esitellään jossain meidän oma säieluokka
      Type
      TMyThread = class(TThread)
      public
      data: String;
      procedure Execute: Override;
      end;

      procedure TMyThread.Execute;
      var
      idx: Integer;
      begin
      // tämä funktio ajetaan omassa säikeessä. Täältä ei saa päivittää
      // lomakkeen VCL komponentteja suoraan koska saattaa tulla
      // konflikti MainUI säikeen kanssa.
      for idx:=0 to to 10 do begin
      sleep(1000); // esimerkissä nukutaan jonkin aikaa
      end;
      end;

      - - - - -
      // käytetään säiettä vaikka päälomakkeella

      procedure TFrmMain.ThreadTerminated(Sender: TObject);
      var
      data: String;
      begin
      // säie lopettanut elämänsä, luetaan siitä lopputulos tai
      // mitä ohjelma haluaakin tehdä. Tätä kutsutaan MainUI
      // säikeessä joten on turvallista päivittää vaikka
      // formien VCL komponenttien tilatietoja.
      data := (Sender as TMyThread).data;
      end;

      procedure TFrmMain.btnStartThread(Sender: TObject);
      var
      thr1: TMyThread;
      begin
      // luo instanssi mutta älä käynnistä(suspended=true) automaattisesti.
      // instanssin konstruktoria (free) kutsutaan automaattisesti kun
      // säikeen elinkaari päättyy. Ennen destruktoria kutsutaan ThreadTerminated
      // funktiota jossa voidaan tehdä lopputemput.
      thr1 := TMyThread.Create(true);
      thr1.freeOnTerminate := true;
      thr1.onTerminate := ThreadTerminated;
      thr1.Resume; // käynnistää säikeen
      // eli meidän ei tarvitse eikä saa kutsua täällä thr1.Free funktiota koska
      // järjestelmä poistaa sen automaattisesti. Jätetään se pyörimään taustalle.
      end;

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mulla on ikävä sua

      Pakko se on myöntää, mulla on ikävä sua 🥺💔.. En kyllä haluaisi sitä myöntää kun tämä tilanne on niin hankala. Oon yri
      Ikävä
      35
      1008
    2. Väleistä

      Minkälaiset välit sinulla on kaivattusi kanssa?
      Ikävä
      71
      838
    3. Nainen, olet ihanin maan päällä

      Ei ole toista. Olet ihanteellinen, kaikkien mittapuitteni täyttymys. Sisäinen kauneutesi sinetöi ulkoisen ja juuri se sa
      Ikävä
      40
      680
    4. Koska tulet minulle näkyväksi

      Koska astut piilostasi esiin? Miksi pysyttelet niin kaukana? Etkö voisi tulla päättämään tämän ikävöinnin? Saisin vihdoi
      Ikävä
      40
      666
    5. Poliis. Poliisi osoitti aseella Tampereella kun mies avasi oven

      Poliisi Poliisi osoitti aseella Tampereella, kun mies avasi siviili­poliisiauton oven Mies kuvasi keski­viikkoiltana bus
      Maailman menoa
      178
      512
    6. Sano rakkaallesi

      Suorat sanat! Mikä mieltä kaihertaa!
      Ikävä
      43
      479
    7. jumala ei auta hittojakaan..

      kuka tahansa voi kirjottaa lapulle mitä vaan ja väittää että jumala olisi sen kirjoittanut... onko yksikään raamatun kir
      Sinkut
      204
      463
    8. Romanttisinta

      Mitä hän on tehnyt sinulle?
      Ikävä
      45
      440
    9. " Hae roolisi miljardien Pyhäjärveltä"?

      Perjantain 14.8. viesti TV:ssä oli hätkähdyttävän todellista kuultavaa. Tähän on tultu. Pyhäjärvi- selvitykseen, tied
      Pyhäjärvi
      56
      429
    10. Onneksi en ole riippuvainen Kuhmo Oy:stä

      Lähinnä naurattaa, kun ylipainoiset, punakat kuljetus ja muutkin yrittäjät yrittävät lohdutella itseään uuden omistajan
      Kuhmo
      6
      417
    Aihe