Обмен данными между приложениями , Возможно ли организовать через систему событий?

[rdx0]

Грубо говоря, клиент и сервер терзают через ODBC Acsess·овскую БД. Может ли компонент, скажем, TDatabase из одного приложения каким-нибудь Event·ом понять, что в базу внесены изменения?

[Relaxander]

Может. См. CreateEvent()

[Bas]

Цитата Relaxander @ 25.11.14, 12:23

Может. См. CreateEvent()

А подробней можно?

[Relaxander]

так а что нужно-то? чтобы одно приложение узнало, что другое что-то изменило в БД?
тут есть варианты.
1. Читатель периодически опрашивает нужное место бд на предмет изменений
2. Писатель извещает читателя путем посылки сообщения (именованный канал, сокеты, MMF, ...)
3. Читатель запускает поток, в котором ждет созданный в обоих приложениях Mutex или Event - WaitForSingleObject (вернее, созданный в одном и открытый в другом).
Писатель после изменения меняет статус объекта синхронизации, в результате чего читатель снимается с ручника и узнает об изменениях.
... придумайте сами

А вообще зависит от глобальной постановки задачи - чего в итоге нужно добиться. Возможно, есть более простой и красивый способ

[Filka]

http://www.cromis.net/blog/downloads/cromis-ipc/
?

[rdx0]

Может. См. CreateEvent()
То есть штатных событий не предусмотрено?

так а что нужно-то? чтобы одно приложение узнало, что другое что-то изменило в БД?
Ну да. Я вот периодически и опрашиваю, но имхо это и не просто и не красиво к п.3 Нужно каким-то образом оформить поток? А то у меня его читатель все равно не видит...

Добавлено 25.11.14, 17:26
Профиль · PM
Рейтинг (т): [ 131 ] http://www.cromis.net/blog/downloads/cromis-ipc/
Не хотел бы пользоваться сторонними пакетами

[Relaxander]

Цитата rdx0 @ 25.11.14, 17:22

Нужно каким-то образом оформить поток?

Писатель

hEvent := CreateEvent(nil, TRUE, FALSE, 'Global\DBChangeEvent');
 
MakeChangesInDB();
PulseEvent(hEvent);

Читатель

hThread := CreateThread(...,@DBChangeMonitorProc,...);
 
function DBChangeMonitorProc(lpParameter: Pointer): DWORD; stdcall;
{
  HANDLE hEvent := OpenEvent(SYNCHRONIZE, FALSE, 'Global\DBChangeEvent');
  while (not Terminated) do begin
    if (WaitForSingleObject(hEvent, INFINITE) = WAIT_OBJECT_0) then begin
      // что-то изменили в БД...
    end;
  end;
end;

Сообщение отредактировано: Relaxander - 25.11.14, 17:41

[rdx0]

Пока не все понял, но благодарю за поддержку - с утра попробую. Немного настораживает while.. Я не считаю себя специалистом, но предполагал, что если событие произошло - обработал и забыл. Я не прав?

[Relaxander]

Цитата rdx0 @ 26.11.14, 19:56

если событие произошло - обработал и забыл

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

[rdx0]

WaitForSingleObject - это WinApi?

[Relaxander]

Цитата rdx0 @ 28.11.14, 14:46

WaitForSingleObject - это WinApi?

да, но можно и дельфийский класс юзать
http://www.sql.ru/forum/1070223/sinhroniza...moshhu-event-ov

[rdx0]

Благодарю, снова понял процентов 40 )) Выходные пройдут в сосредоточенном курении мануалов

Добавлено 28.11.14, 16:56
while уже не настораживает - выходные начинаются с удачи (если снова дубликат - снова прошу прощения, очень кривой коннект с мегафон-модема)