Ошибки автоматизации в Delphi

[Чук и Гек]

Всем привет! Если кто-нибудь сталкивался с сообщениями типа " Не удается выполнить исходящий вызов, так как приложение обрабатывает входящий синхронный вызов", подскажите какова может быть её причина и как с ней справиться...очень очень нужно! (я разрабатываю MDI-приложение, которое использует технологию OLE-automation и callback-вызовы) Буду очень ждать!

[Stilet]

Ну причина может быть в том что ОЛЕ-прога, которую ты напряг, чего-то выполнять еще не закончила это выполнение, а ты уже ее другим напрягаешь заданием.
В таких случаях, насколько мне извесно, ждут пока callbackи не перестанут вызываться.

[Чук и Гек]

Спасибо. Действительно, так и есть. У меня на событие FormActivate дочерней формы повешан обработчик:

procedure TfrChild.FormActivate(Sender: TObject);
var wnd_ID: integer;
begin
if MapRun=true then //Если окно карты MapInfo загружено
 begin  
   wnd_ID:=frmmapinfo.getFW(frmmapinfo.ActiveMDIChild.Handle, MapCount);//определяем идентификатор этого преподчинённого окна Карты  в мапинфо
   frmmapinfo.KDMapInfoServer1.Exec('Set Window '+ Inttostr(wnd_ID) + ' Front',[]);//делаем это окно в MapInfo верхним
  end;  
end;

Если между Child-формами переключаться по заголовкам окон этих дочерних форм, то всё нормально и никаких подобных сообщений не возникает. А если переключиться просто кликнув в любом месте другого окна с картой, то происходит конфликт: здесь и FormActivate вызывается и колбэки (например, сообщение статусной строки в MapInfo передаётся в нашу программу) и ещё может получиться, что одновременно на карте инструментом SELECT выбирается объект. Я так понимаю, надо в начале события FormActivate выполнить проверку, типа если процесс выполняется то ждём...только как, не очень понимаю, поскольку в системном программировнии не шарю.

[Stilet]

надо в начале события FormActivate выполнить проверку, типа если процесс выполняется то ждём

В принципе да... тут бы я его в отдельный поток запихнул...
Ну или какой флажок проверял типа BOOLEAN.

[Чук и Гек]

Большое спасибо, попробую что-нибудь сделать