VPF::Ассинхронное выполнение процедуры

Dolphinchik

Дата 7.9.2007, 04:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 24.7.2006
Где: Филлипины

Репутация: нет
Всего: нет

Здравствуйте,
на определенном этапе работы программы мне необходимо запустить по очереди несколько процедур.
К примеру:

Код


ADOConnection1.Connected:=false;
ADOConnection1.ConnectOptions:=coAsyncConnect;
ADOConnection1.CursorLocation:=clUseClient;
ADOConnection1.IsolationLevel:=ilUnspecified;
ADOConnection1.Connected:=true;
ADOConnection1.Execute('exec  proc_a  @param_a=''param_a'' ', cmdText, [eoAsyncExecute,eoAsyncFetch,eoAsyncFetchNonBlocking]);
//здесь необходимо отловить что закончилось выполнение процедуры
//так как в противном случае будет ошибка Operation cannot be performed while executing asynchronously. 
ADOConnection1.Execute('exec proc_b  @param_b=''param_b'' ', cmdText, [eoAsyncExecute,eoAsyncFetch,eoAsyncFetchNonBlocking]);
//здесь необходимо отловить что закончилось выполнение процедуры
//так как в противном случае будет ошибка Operation cannot be performed while executing asynchronously.

У ADOConnection1 есть события: OnWillExecute и OnExecuteComplete.
Первое вызывается перед началом исполнения команды, второе по завершению команды.
У OnExecuteComplete есть EventStatus: TEventStatus, может принимать значения:
  TEventStatus = (esOK, esErrorsOccured, esCantDeny, esCancel, esUnwantedEvent);
Когда TEventStatus=esOK - процедура закончила исполнение;

Как правильно здесь поступить?
Как заставить программу ожидать выполнения процедуры?
Я предполагаю несколько вариантов:
1. Средствами ADODB: где-то есть возможность все это правильно оформить;
2. Можно в OnExecuteComplete и OnWillExecute поместить булевую переменную и выполнять while до тех пор пока она не получит значение, которое присваевается ей в OnExecuteComplete. Только приложение вешается, а это именно то от чего я хочу избавиться. Сначало я пробовала CursorLocation в состоянии clUseServer, клиент подвисает напроч.
3. Можно воспользоваться winapi.

Что можете посоветовать?

Delphi 7,  MS SQL Server, MDAC 2.8

Добавлено через 3 минуты и 49 секунд
небольшая поправка -  "Когда TEventStatus=esOK - процедура закончила исполнение;" - не факт

Savek

Дата 7.9.2007, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

А дополнительные потоки использовать религия не позволяет?

Dolphinchik

Дата 8.9.2007, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 24.7.2006
Где: Филлипины

Репутация: нет
Всего: нет

видимо не позволяет :(

Savek

Дата 8.9.2007, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

получается что с одной стороны выполнение процедуры должно быть асинхронным, а сдругой программа должна ожидать завершения smile

Попробуй в цикле while крутить строку Application.ProcessMessage.

Только эта пляска с бубном кроме геморроя ничего не даст. Доп. потоки для того и созданы, чтобы выполнять длительные операции, не замораживая интерфейс пользователя (ИМХО)

Dolphinchik

Дата 10.9.2007, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 24.7.2006
Где: Филлипины

Репутация: нет
Всего: нет

одногрупнег посоветовал статью smile

http://forum.vingrad.ru/forum/topic-60076.html

Arvest

Дата 13.9.2007, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 13.6.2007

Репутация: нет
Всего: нет

По забжу возник вопрос.

Код


try
    Form1.ADOStoredProc1.ExecProc;
    ind:=True;
    While ind  do
       begin
         sleep(100);
         Application.ProcessMessages;
       end;
except
     on E: Exception do begin
     Application.ShowException(E);
     end;

Вызывается запрос из базы Access.
Если синтаксис запроса не верен, то должна выскакивать ошибка. (например в запросе присутсвует функция NZ)
При eoAsyncExecute = False так и происходит.
Но если eoAsyncExecute = True , то запрос как будто выполняется. Т.е. никаких эксепшинов не возникает, но результата запроса нет (Запрос Update).
Это фича? Как можно добиться обработки эксепшинов при асинхронном выполнения ADOStoredProc?
Заранее спасибо за ответ.

Это сообщение отредактировал(а) Arvest - 13.9.2007, 11:34

Savek

Дата 13.9.2007, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Если не ошибаюсь, ошибки можно ловить здесь:

Код


procedure TForm1.ADOConnection1ExecuteComplete(Connection: TADOConnection;
  RecordsAffected: Integer; const Error: Error;
  var EventStatus: TEventStatus; const Command: _Command;
  const Recordset: _Recordset);
begin
ShowMessage(error.Description);
end;

Arvest

Дата 13.9.2007, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 13.6.2007

Репутация: нет
Всего: нет

Savek, Огромное Спасибо!
Но если возвращаясь к вопросу, то это действительно фича?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »