Показать сообщение отдельно
  #1  
Старый 22.08.2009, 16:04
Andrey53 Andrey53 вне форума
Прохожий
 
Регистрация: 02.06.2009
Сообщения: 20
Репутация: 12
По умолчанию Подключение к БД через поток

Всем здравствуйте, вот короче возникла такая проблема, что при подключении к MySql программа зависает на некоторое время, а после того как подключится - отвисает и работает норм. Но вот мне надо, чтобы она не зависала, эффект чтобы был такой, как например используешь IdHTTP и IdAntiFreeze, мне подсказали сделать это дело через потоки, но в поток я не силен, вот тут с ними разбираюсь по тиху, но пока не сильно хороший результат. Так вот может есть какой-то другой вариант, если есть подскажите, если тока через потоки, то поправьте, что я уже использую.

Код:
 TNewThread = class(TThread)
 public
  procedure DoConnectMySql;
 protected
  procedure Execute; override;
 end;

procedure TNewThread.DoConnectMySql;
begin
   Form2.MyConnection1.Server:='host';
   Form2.MyConnection1.Username:='user';
   Form2.MyConnection1.Password:='pass';
   Form2.MyConnection1.Database:='BD';
   Form2.MyConnection1.Connect;
end;

procedure TNewThread.Execute;
begin
  inherited;
   Synchronize(DoConnectMySql);
end;

И вот как мне по нажатию на кнопку "Подключиться" сделать, чтобы программа не зависала.
З.Ы. Как уже писал в потоках полный ноль, так что сильно не пинать, а если можно чуток разъяснить
Ответить с цитированием