🚀 go-pugleaf

Mentor pisze:
> Witam
>   Czy ktoś bawił się wątkami w FPC ? oraz umial by cos na ten temat 
> powiedziec czyli jak to uruchomic jak to dziala itp ?
Jeszcze jedno jak odczytac ze watek jesy wykonywany oraz jak przekazywac 
dane miedzy watkami ?

mam przykladowy program :

program Project1;

{$mode objfpc}{$H+}


uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes,sysutils  ;

type
CBrowserThread = class(TThread)
Public
procedure execute(); override;
end;

procedure CBrowserThread.execute;
begin
   writeln('Watek start');
   sleep(5000);
   writeln('watek po 5s');
end;

var
   browserthread: CBrowserThread;
begin
   writeln('Czesc');
  browserThread := CBrowserThread.create(false);
  browserThread.resume;
   //Sleep(500);

   Sleep(1000);
   writeln('Program glowny');
   Sleep(6000)
end.

Mentor wrote:
> Jeszcze jedno jak odczytac ze watek jesy wykonywany

Jeżeli nie wyszedł z Execute() to jest wykonywany ;),
pozatym jest jeszcze property Terminated w klasie
TThread.

> oraz jak
> przekazywac dane miedzy watkami ?

Normalnie, np. przez synchronizowaną listę.

> mam przykladowy program :
> <ciach>

I? ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/