Adicionei hoje o ParallelJobs no code.google,
Farei dele um espelho(mirror) do svn principal que é o:
http://devpartners.ath.cx:11520/svn/DevPartners/ParallelJobs/

E ainda criarei pra cada commit da library um snapshot, assim todos poderão ter o ParallelJobs, sem depender de um único servidor.

Mas e então, o que é o ParallelJobs?
O ParallelJobs é uma biblioteca que disponibiliza uma estrutura fácil para se criar processos paralelos em seu aplicativo Delphi. A forma mais conhecida de se fazer isso é utilizando extendendo a classe TThread, o que ainda torna o aplicativo dependente do gerênciamento principal de processos que a VCL dispoe. Com o ParallelJobs você podera criar os mesmos processos com apenas 1 linha de código além de poder fazer isso em qualquer lugar que precise, jogos, aplicativos matemáticos e vários outros modelos de aplicativos que não se utilize necessariamente a VCL.

Você podera acompanhar a evolução e alguns exemplos de utilização do ParallelJobs aqui, nos artigos em inglês.

Então vamos aos links do projeto:

Fórum:
http://devpartners.projects.pro.br/forum/?board=8

SVN principal:
http://devpartners.ath.cx:11520/svn/DevPartners/ParallelJobs/

TRAC:
http://devpartners.ath.cx:11520/trac/DevPartners/ParallelJobs/

SVN mirror:
http://paralleljobs.googlecode.com/svn/trunk/

Google code area:
http://code.google.com/p/paralleljobs/

Baixe um exemplo de utilização do ParallelJobs:
Download ele aqui:

Abraços a todos

This is the first article about ParallelJobs and I’ll show you how to create a simple parallel process.

Lets create a simple drawing system that display a follower effect on a bitmap:

function TfrmMain.UpdateFollower: integer;
const
  FOLLOWERSIZE = 30;
var
  Points: array [1..FOLLOWERSIZE] of TPoint;
  i: Integer;
begin
  while not CurrentJobTerminated do
  begin
    for i := 1 to FOLLOWERSIZE - 1 do
      Points[i] := Points[i + 1];
 
    with Points[FOLLOWERSIZE], Mouse do
    begin
      X := CursorPos.X div 3;
      Y := CursorPos.Y div 3;
    end;
 
    Bmp.Canvas.Lock;
    try
      Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);
      for i := 2 to FOLLOWERSIZE do
      begin
        with Points[i - 1] do
          Bmp.Canvas.MoveTo(X, Y);
        with Points[i] do
          Bmp.Canvas.LineTo(X, Y);
      end;
    finally
      Bmp.Canvas.Unlock;
      Invalidate;
    end;
    Sleep(10);
  end;
 
  Result := 0;
end;

This code will hold the last 30 positions(X, Y) of the mouse and when we modify something on Bmp we have to lock the canvas to don’t let it be display by WM_PAINT message on the wrong time.

Since we use the TBitmap Bmp we have to create it and setup as wish. After that its time to create the parallel job with ParallelJobs library.
The code below show how I did it:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ControlStyle := [csOpaque];
  Bmp := TBitmap.Create;
  with Bmp do
  begin
    Width := Screen.Width div 3;
    Height := Screen.Height div 3;
 
    Canvas.Brush.Color := clBlack;
    Canvas.Pen.Color := RGB(255, 130, 0);
  end;
  ParallelJob(Self, @TfrmMain.UpdateFollower);
end;

ParallelJobs provide two ways to create a parallel process with any function or method you want, this code use one that you need to specify the object ( Self ) that contain the method and the method to work on a parallel process.

Now we have to create the display of the follower effect:

procedure TfrmMain.WMPaint(var Message: TWMPaint);
begin
  Inherited;
  Bmp.Canvas.Lock;
  try
    Canvas.Draw(0, 0, Bmp);
  finally
    Bmp.Canvas.Unlock;
  end;
end;

Take a look on the Canvas.Lock, that will create a basic switcher between modification and drawing processes.

Finally, to don’t raise a exception we need to terminate the parallel process before closing the form and on it destruction we have to free the Bmp to avoid memory leak.

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  Bmp.Free;
end;
 
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TerminateAllParallelJobs;
end;

Full source without ParallelJobs library, Download it here: pj_example1 (1.27 KB) - 65 hits

Very nice and easy, uhm?

Hugs for all

Ontem iniciei o ParallelJobs no DevPartners.

Mas o que é o ParallelJobs?

O ParallelJobs vai ser uma library para Delphi que consiste em disponibilizar facilitadores para criação de processos paralelos nas aplicações diversas.

A library ainda está no começo, mas já tem um aplicativo teste que vai servir para exemplificar algumas maneiras de utilização e criação de processos parallelos.

Acompanhe o fórum para maiores informações:
http://devpartners.projects.pro.br/forum/?board=8.0

Vou manter ele em inglês, mas isso não impede a comunicação em português de quem quiser contribuir.

façam bom uso e colaborem se puderem,

Abraços.