Работа с потоками

[Konstantin_ua]

Всем привет
есть программа которая работает с 2 базами(mysql & access).
Нужно постоянно проверять наличия новой информации в базах, когда была одна база постоянно делал запросы с помощю таймера, но теперь базы две и я думаю что было бы логично вынести мониторинг в отдельные два потока, с потоками еще не работал, можете посоветовать как реализовать структуру(что, где и когда описывать, вызывать?).Или как лучше сделать?

[Человек_Борща]

Описать класс на основе опишите поток TDbInfoGet, который будет иметь строку DBId, пишите там в execute всякие выборки из баз. На основе сравнения с DBId в execute работает соотв. код.

Затем поток возвращает событие сданными OnInfoGet(Thread:DbInfoGet; Id:string; Info:TCustomData).

Потоки можно хранить TThreadList с включенной FreeObTrminate = true.

[Stilet]

Или как лучше сделать?

Я бы подумал об оповещени клиентов. Через UDP Broadcast или другими доступными седствами. Под "другими" можно понять что угодно, но ...НО!!!! Йа пяный!!!.. Ну да ладно... Две базы? Мне не привидилось? Ужос. Все в одну базу. Однозночно я бы об этом подумал прежде всего. Даж есиии пяный...

[Konstantin_ua]

сделал так как смог, может что то подправите.

//Создаем свой класс TMyThread:
  TMyThread = class(TThread)
    private
   { Private declarations  }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation
{$R *.dfm}

//функция которая будет крутиться в потоке и делать запрос к бд
function Findrecord(fqry:TZQuery):Boolean;
begin
    Result:=False; 
try
    fqry.SQL.Clear;
    fqry.SQL.Add('SELECT * FROM users');
    fqry.Active:=True;
    except
      on E:Exception do
      ShowMessage('Îøèáêà ÁÄ:'+E.message);
  end;
  if (fqry.RecordCount>0) then
   Result:=True;
end;

//реализация Execute
procedure TMyThread.Execute;
begin
   while not Findrecord(Form1.qry) do
   begin
    Sleep(2000);
   end;
    ShowMessage('Íîâàÿ çàÿâêà');
    MyThread.Free;
end;

Работает вроде бы нормально, но я так понял могут быть проблемы с Showmessage, как их предотвратить или как лучше использовать showmessage с потоков?

[ДралсяСошибками]

showmessage вроде нельзя использовать в потоке

[Аватар]

Считаю, что сервер должен быть сервером и не фиг ему клиентам оповещения слать. Хотя некоторые СУБД и могут это, но не мускул и access. Т.е. опрос со стороны клиента, но умный. Не опрашивать актуальные таблицы, возможно здоровенные, на предмет изменения данных, а некую служебную таблицу(цы), в которую триггера актуальных таблиц записывают информацию о своем обновлении на уровне идентификаторов записей и вида обновления. При опросе предусмотреть и обновление этой таблицы, дабы клиенту повторно не послать одно и то же. Как то так

[Slym]

и это не поток... это "ждалка"
поток вечно крутится, не надо при любом шухере делать потоку Free.
а оповещать через синхнониз или постмессадж

[northener]

Сообщение от Аватар

Считаю, что сервер должен быть сервером и не фиг ему клиентам оповещения слать.

В трёхзвенке почему бы и не па?
Всё зависит от задачи. Но сервер в трехзвенке имеет возможность оповещать клиентов об изменениях в БД.

[Аватар]

Может, но он сам выступает клиентом по отношению к серверу баз данных и опять 25

[IliaIT]

а может в ассес базе подключить таблицы мускула и вернутся к решённой задаче (профит ).Они нормально подключаются через соответствующие драйвера. не катит через драйвера винды.? или у вас постоянно меняется структура таблиц и их количество? и работать только с ассесом.