Как установить подключение к серверу MySQL

[rainbow]

Ситуация следующая:
В локальной сети есть сервер MySQL и нужно сделать программу которая посылает запрос Show Full Processlist через заданный промежуток времени, и записывает список коннектов к серверу куда нибудь, например в Memo. Через какие компоненты это можно сделать, а то я все компоненты перерыл на вкладках Data Access, Data Controls, DBExpress, DataSnap, BDE, смог только к конкретной базе подключиться.

[Квэнди]

подключайтесь к любой базе и выполняйте Show Full Processlist

[rainbow]

Ну слава богу подключение сделал через ADOQuery, DataSource и ADOConnection и вместо Memo поместил на форму комонент DBGrid, все настроил, все работает, только нужно сделать чтобы происходило обновление таблицы, через определенный промежуток времени, заданный в Edit.

[Квэнди]

ну так добавьте timer и в нем обновляйте

[rainbow]

Сообщение от Квэнди

ну так добавьте timer и в нем обновляйте

А как через timer это сделать? Нигде в учебниках нету информации по обновлению соеденения.

[Квэнди]

У компонента Timer есть свойство Interval , обозначающее интервал срабатывания таймера, свойство enabled включает таймер. Событие OnTimer срабатывает каждые interval милисекунд при включенном свойстве enabled
Вот в собтии ontimer и запишите код, который надо регулярно выполнять

[Квэнди]

Что значит обновление соединения ? просто в ontimer выполняйте Show Full Processlist и он будет актуальным

[rainbow]

Уже разобрался, как обновлять соеденение.
Кинул на форму кнопку, которая запускает обновление.
И написал при нажатии её запуск обновления, при этом интервал береться из Edit2:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
Timer1.Interval:=StrToInt(Edit2.Text);
Timer1.Enabled:=true;
except
Application.MessageBox(Pchar('Введен неправильно параметр частоты обновления'),'Внимание!',MB_OK);
end;
end;

А на таймер загнал следующее:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;

То есть отрубается Query, и включается по новой, и в DBGrid происходит обновление.
Ну и конечно про останов обновления не забыл.

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;