Topic: обработчик ошибок весия 6.
перепроверил несколько раз в 6-й версии MVD диалог обработчика ошибок MSQL просто закрывается и не дает сделать выбор..
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
var
ini : TInifile;
begin
ini :=TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
// если не подключен, для MySQL
if Pos('Code: 10061', Msg)>0 then
begin
result := True; // для предотвращения системного сообщения
// сообщение
if IDRETRY = MessageBox(langIniG.ReadString('message','00x1', 'Произошла ошибка либо Вы отменили соединение с MySQL.'), langIniG.ReadString('message','00x1x1', 'Ошибка либо отмена соединения!'), MB_RETRYCANCEL+MB_ICONINFORMATION)then begin
frmLogin.Close;
OpenFile('start.bat')
end else
ini.WriteString('Options', 'DBMS', 'sqlite');
frmLogin.Close;
OpenFile('start.bat')
end;
if Pos('Connection is not connected', Msg) then
begin
result := True; // для предотвращения системного сообщения
// сообщение
if IDRETRY = MessageBox(langIniG.ReadString('message','00x1', 'Произошла ошибка либо Вы отменили соединение с MySQL.'), langIniG.ReadString('message','00x1x1', 'Ошибка либо отмена соединения!'), MB_RETRYCANCEL+MB_ICONINFORMATION)then begin
frmLogin.Close;
OpenFile('start.bat')
end else
ini.WriteString('Options', 'DBMS', 'sqlite');
frmLogin.Close;
OpenFile('start.bat')
end;
end;