[Tutorial]MultiThread no Delphi

[KaiqueHunter]

Pessoal na verdade não estava com vontade de fazer um Tutorial do tipo pq há muito material na Internet mas a pedido do Acpguedes eu resolvi fazer,então vamos lá.

Primeiro Metodo:

Esse metodo é mais aconselhavel aos iniciantes por ser mais simples de entendimento,mas pode ser um pouco mais demorado na hora de Codar.

No topo da Unit provavelmente vc vera:

TForm1 = Class(TForm)
Private 
  { Private declarations }
Public
  { Public declarations }
End

;

Em cima dessa classe criaremos outra Classe TThread ficando assim :

[Code]
ThreadClass = Class(TThread)
Private
Protected
Procedure Execute; OverRide;
Public
End;
TForm1 = Class(TForm)
Private
{ Private declarations }
Public
{ Public declarations }
End


Como pode ver além de declararmos essa nova Classe ainda declaramos uma Procedure ao Protected,essa Procedure é a parte principal da nossa Thread é nela que iremos colocar os comandos que aconteceram quando nossa Thread for criado,então eu para testar o poder do Multi Threading eu coloquei um Button,e um ProgressBar no Form,se quizer testar podem fazer o mesmo,mas antes vamos declarar a procedure em baixo de "Implementation".

Procedure ThreadClass.Execute;
Begin
Repeat
Sleep(100);
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position + 10;
Until Form1.ProgressBar1.Position = 100;
End;

Como podem ver ela possue uma API chamada de Sleep,essa API já foi feita para travar/congelar uma aplicação por um certo tempo e mesmo sendo feito para isso,a aplicação não trava/congela.

Agora no Evento OnClick do Button adicionaremos:

Var
Thread: ThreadClass;
Begin
Thread:= ThreadClass.Create(True);
Thread.FreeOnTerminate:= True;
Thread.Resume;
End;

Quando o botão for Clickado o ProgressBar vai chegar a posição maximo(que no nosso caso é 100) e não se tera nenhum travamento.

Segundo Metodo:

Esse metodo é mais simples,vamos fazer do mesmo modo,colocar um ProgressBar e um Button no Form,e no Evento OnClick do Button adicionaremos:

Var
ThreadId: Cardinal;
Begin
CreateThread(Nil,0,@ThreadFunction,Nil,0,ThreadId);
End;

E agora adicionaremos a função que sera usada por nossa Thread:

Procedure ThreadFunction;
Begin
Repeat
Sleep(100);
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position + 10;
Until Form1.ProgressBar1.Position = 100;
End;

Lembre-se de se adicionar em cima do Evento OnClick do Button,por que caso ao contrario o compilador não conseguiria saber onde está a função,outra não expliquei muito,só mostrei como fazer na pratica,pq no Google tem muito material sobre o mesmo,e se quizerem saber mais é só dar um pesquizada.

Até a proxima

[acpguedes]

era exatamente isso que eu queria...
Vc consegue fazer uns tuto bem claro e simples... o forum precisa disso!!

Valeu mesmo por me ajudar, vou testar das duas formas aqui....

Enfim, parabens!

[R0Dr1g0.]

Um erro crítico no TThread é esquecer de usar a função Synchronize e colocar o que vai interagir com a outra thread (no caso do tutorial a GUI Thread)
E também não foi abordado semáforos(quando existe uso compartilhado de algum recurso)
Tem que ter cuidado com deadlocks.

[nKl]

Interessante eu estava fazendo o mesmo em um auto-updater meu , porem nao deste modo , irei testar e retornar com o resultado.

[CoderSc]

Um erro crítico no TThread é esquecer de usar a função Synchronize e colocar o que vai interagir com a outra thread (no caso do tutorial a GUI Thread)
E também não foi abordado semáforos(quando existe uso compartilhado de algum recurso)
Tem que ter cuidado com deadlocks.

Caso alguém queira saber mais no Delphi.About fala um pouco mais sobre o mesmo.

[nKl]

Procedure ThreadFunc;
var x : integer;
begin
repeat
sleep(100);
x := x + 0;
inc(x);
Form1.AdvProgress1.Position:= Form1.AdvProgress1.position + 1;
form1.Label3.Caption := IntTOsTR(x) + '%';
until Form1.AdvProgress1.Position = 100;
end;



Caso queira uma contagem interagindo com a contagem na label.

[KaiqueHunter]

Procedure ThreadFunc;
var x : integer;
begin
repeat
sleep(100);
x := x + 0;
inc(x);
Form1.AdvProgress1.Position:= Form1.AdvProgress1.position + 1;
form1.Label3.Caption := IntTOsTR(x) + '%';
until Form1.AdvProgress1.Position = 100;
end;



Caso queira uma contagem interagindo com a contagem na label.

Algumas coisas são desncessarias,seria melhor fazer assim :

Procedure ThreadFunc;
Begin
Repeat
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position +1;
Form1.Label1.Caption:= IntToStr(Form1.ProgressBar1.Position);
Until Form1.ProgressBar1.Position = 100;
End;

Codigo mais limpo e dispensa uso de algumas coisas desnecessarias,como o inteiro que vc usou.