TThread.CreateAnonymousThread

14/06/2016

Ola!
N�o consigo fazer isto funcionar.
Algu�m pode me ajudar.
Obrigado.

TThread.CreateAnonymousThread(
procedure
begin
dm.Connection.connected := false;
dm.Connection.ConnectString := 'Provider Name=SQL Server;Data Source=' + TcpIp +
';Initial Catalog=Dados;User ID=sa;Password=12345;Login Prompt=False';
try
dm.Connection.connected := true;
except
showmessage('Falha na conex�o. Por favor, tente mais tarde.');
exit;
end;
end).Start;

Obs.: Se algu�m tiver um exemplo TThread conectando ao banco de dados tamb�m serve.
Preciso deste procedimento para fazer funcionar o AniIndicator.

Rog�rio Am�rico

Curtir t�pico + 0

Responder

Posts

18/02/2020

Antonio Junior

Ol�, tudo que for ter intera��o com a tela, precisa estar dentro do Synchronize.
Por exemplo:
TThread.Synchronize(TThread.CurrentThread,procedure() begin
showmessage('Falha na conex�o. Por favor, tente mais tarde.');
end);

Sua Thread ficaria assim:
TThread.CreateAnonymousThread(procedure() begin

try
ConectarBanco;
except
on E: Exception do begin
TThread.Synchronize(TThread.CurrentThread,procedure() begin
showmessage('Falha na conex�o. Por favor, tente mais tarde. '+ E.Message);
end);
end;
end;

end).Start;

Responder

Gostei + 0