[Lazarus] MSSQL howto catch a TMSSQLConnection Error without Messagebox?

[Michael Van Canneyt]

If you don't do a re-raise, I don't understand where the dialog box comes
from, since you're catching all exceptions...

Michael.

On Wed, 27 Jan 2021, Andreas Frieß via lazarus wrote:

> Hi Michael,
>
> no, i did not re-raise there.
>
> I want only a silent flag. This should done by the Result:= false in the
> calling function.
>
> regards
>
> Andreas
>
> Am 27.01.2021 um 12:46 schrieb Michael Van Canneyt:
>>
>>
>> On Wed, 27 Jan 2021, Andreas Frieß via lazarus wrote:
>>
>>> On my Raspi/Debian i got on a TMSSQLConnection a messagebox if the
>>> server is not reachable. The connection is not my problem, but i am not
>>> able to cach this exeption silent without poping up this messagebox.
>>>
>>> The problem is, the messagebox pops up and want an OK or ABORT.
>>> In my code i catch the exception, set a flag and reraise
>>>
>>> try
>>>       if IsOk then AConnection.Connected := true;
>>>  except
>>>       on E : Exception do begin
>>>         IsOk:=false;
>>>         raise;
>>>       end;
>>>  end;
>>>
>>> The calling function does this
>>> Quote
>>>   Result := false;
>>>   try
>>>     xxxxxxxx(IsOk);
>>>     Result := true;
>>>   except
>>>     on E : Exception do begin
>>>      .........
>>
>> Do you also re-raise here ?
>>
>>>
>>>     end;
>>>   end;
>>>
>>> So the exception should silent catched and i can handle if a connection
>>> is ok or not.
>>>
>>> How can i avoid the unwanted box ?
>>
>> Normally catching the exception is enough.
>>
>> Michael.
> -- 
> _______________________________________________
> lazarus mailing list
> lazarus at lists.lazarus-ide.org
> https://lists.lazarus-ide.org/listinfo/lazarus
>