Problema do Thread
Boa Noite pessoal.
Tenho uma aplicação que usa um thread em Delphi. O problema é que no meu notebook windows 7 64 funciona perfeitamente, já em um windows server 64 nao funciona, em alguns windows 7 também não funciona. O que ocorrer é que ao clicar no botão onde chama o procedimento vinculado a thread não acontece absolutamente nada...
Conto muito com a ajuda de vocês, muito Obrigado.
Código do botao..
var th: tbkp;
begin
todos:= 'todos';
th:= Tbkp.create(false);
th.Resume;
end;
Thread
procedure tbkp.execute;
begin
frmsincronizaDados.usuarios;
inherited;
with frmsincronizaDados do
begin
if ((ccli.Checked = true) and (todos = 'todos')) or (todos = 'cliente') then
begin
Label2.Caption:= 'Sincronizando Clientes...';
cliente;
end;
if ((crec.Checked = true) and (todos = 'todos')) or (todos = 'receber') then
begin
Label2.Caption:= 'Sincronizando Contas a Receber...';
receber;
end;
if ((cpag.Checked = true) and (todos = 'todos')) or (todos = 'pagar') then
begin
Label2.Caption:= 'Sincronizando Contas a Pagar...';
pagar;
end;
if ((cprod.Checked = true) and (todos = 'todos')) or (todos = 'estoque') then
begin
Label2.Caption:= 'Sincronizando Estoque...';
produto;
end;
messagebox(handle,'Dados Sincronizados com Sucesso,','',MB_DEFBUTTON1+mb_ok+MB_ICONINFORMATION);
end;
Tenho uma aplicação que usa um thread em Delphi. O problema é que no meu notebook windows 7 64 funciona perfeitamente, já em um windows server 64 nao funciona, em alguns windows 7 também não funciona. O que ocorrer é que ao clicar no botão onde chama o procedimento vinculado a thread não acontece absolutamente nada...
Conto muito com a ajuda de vocês, muito Obrigado.
Código do botao..
var th: tbkp;
begin
todos:= 'todos';
th:= Tbkp.create(false);
th.Resume;
end;
Thread
procedure tbkp.execute;
begin
frmsincronizaDados.usuarios;
inherited;
with frmsincronizaDados do
begin
if ((ccli.Checked = true) and (todos = 'todos')) or (todos = 'cliente') then
begin
Label2.Caption:= 'Sincronizando Clientes...';
cliente;
end;
if ((crec.Checked = true) and (todos = 'todos')) or (todos = 'receber') then
begin
Label2.Caption:= 'Sincronizando Contas a Receber...';
receber;
end;
if ((cpag.Checked = true) and (todos = 'todos')) or (todos = 'pagar') then
begin
Label2.Caption:= 'Sincronizando Contas a Pagar...';
pagar;
end;
if ((cprod.Checked = true) and (todos = 'todos')) or (todos = 'estoque') then
begin
Label2.Caption:= 'Sincronizando Estoque...';
produto;
end;
messagebox(handle,'Dados Sincronizados com Sucesso,','',MB_DEFBUTTON1+mb_ok+MB_ICONINFORMATION);
end;
Antonelly Silva
Curtidas 0