PHP DM Gate v0.9 » Научите в ODAC обрабатывать ошибки. <span class="vd">[D7]</span>

12 © (31.01.11 11:56) [0]

Как ошибку остановить всплывать/добавить свой текст к ней?
В общем, поиметь к ней доступ.

(А в общем, стоит задача юзера ставить в известность, что запись была изменена, пока он ее редактировал.)

smrtqry1: TSmartQuery; Поставил CheckMode := cmException;

orhndlr1: TOraErrorHandler;
//срабатывает, показывает message, refreshит. Как ошибку остановить всплывать?

procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception;
ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
ShowMessage( 'Обработчик: Попробуем обновить запись' );
smrtqry1.RefreshRecord;
end;

procedure TForm1.aplctnvnts1Exception(Sender: TObject; E: Exception);
//не ловит ошибку
//aplctnvnts1: TApplicationEvents;
begin
ShowMessage('aplctnvnts1Exception ' + E.Message );
end;

// --------- тестовые кнопочки
procedure TForm1.btn3Click(Sender: TObject);
begin
smrtqry1.Refresh;
end;

procedure TForm1.btn1Click(Sender: TObject); // обновить запись в другой сессии
begin
oq1.SQL.Text := 'update branch b set b.bname = ' + QuotedStr('№1 НОВОЕ НАПРАВЛЕНИЕ')+ ' where b.id_branch = 5378';
oq1.ExecSQL;
end;

procedure TForm1.btn2Click(Sender: TObject);// обновить запись в другой сессии
begin
oq1.SQL.Text := 'update branch b set b.bname = ' + QuotedStr('№2 новое направление')+ ' where b.id_branch = 5378';
oq1.ExecSQL;
end;

Ошибка рождается тут

unit DB;

procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
if Assigned(Component) and (Component.Name <> '') then
raise EDatabaseError.Create(Format('%s: %s', [Component.Name, Message])) else
raise EDatabaseError.Create(Message); //
<<----
end;

стек вызовов
DatabaseError('Record was changed by another user.',nil)
TCustomDADataSet.PerformSQL('SELECT * FROM branch'#$D#$A'WHERE'#$D#$A' ROWID = :OLD_ROWID'#$D#$A'FOR UPDATE NOWAIT',[stLock,stCheck])
TOraDataSet.PerformSQL('SELECT * FROM branch'#$D#$A'WHERE'#$D#$A' ROWID = :OLD_ROWID'#$D#$A'FOR UPDATE NOWAIT'#$D#$A,[stLock,stCheck])
TCustomSmartQuery.InternalBeforeEdit
TCustomDADataSet.InternalEdit
TCustomSmartQuery.InternalEdit
TDataSet.CheckOperation($923970,nil)
TDataSet.Edit
TDataSource.Edit
TDataLink.Edit
TCustomDBGridEh.CanEditModifyText
TCustomDBGridEh.CanEditModify
TInplaceEdit.KeyPress('5')
TDBGridInplaceEdit.KeyPress('5')
TWinControl.DoKeyPress((258, 53, 0, 4980737, 0))
TWinControl.WMChar((258, 53, 0, 4980737, 0))
TControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TDBGridInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.MainWndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
StdWndProc(2428022,258,53,4980737)
TApplication.ProcessMessage((2428022, 258, 53, 4980737, 171902656, (542, 410)))
TApplication.HandleMessage
TApplication.Run
Project1

<Цитата>
12 © (31.01.11 12:02) [1]

т.е., нажимаю кнопкку, в другой сессии значение меняется.
В гриде, показавыется еще старое. Все ок.
Редактирую в гриде - вываливается "Обработчик: Попробуем обновить запись".
Запись обновляеется. Все ок.

И тут выскакивает "Record was changed by another user." - стандартное, делфевое окно с красным кружочком.
(aplctnvnts1Exception + E.Message не выскакивает)

Родили его в unit DB;
procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
if Assigned(Component) and (Component.Name <> '') then
raise EDatabaseError.Create(Format('%s: %s', [Component.Name, Message])) else
raise EDatabaseError.Create(Message); // <<----
end;

Как его перехватить?

<Цитата>
12 © (31.01.11 12:07) [2]

причем, если пишу

procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception;
ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
ShowMessage( 'Обработчик: Попробуем обновить запись' );
Msg := 'asasas';
smrtqry1.RefreshRecord;
end;
стандартное, делфевое окно с красным кружочком будет "asasas";
а если Msg := '';
, то "Record was changed by another user."

<Цитата>
12 © (01.02.11 13:20) [3]

закрыто, разобрался :)

<Цитата>
12 © (01.02.11 13:47) [4]

т.е., не надо так вообще делать, смотреть надо в демку в каталоге ODAC

<Цитата>
Паша (06.02.11 13:25) [5]

ну, вдогонку. та есть такая себе для этого случая удобная компонента. для совсем ленивых гыгы

<Цитата>