Delphi - Obsługa błędu połączenia MySQL

Delphi - Obsługa błędu połączenia MySQL
MStef94
  • Rejestracja:około 13 lat
  • Ostatnio:ponad 4 lata
  • Postów:18
0

Witam!

Moja aplikacja łączy się z serwerem MySQL. Chcę jednak, aby działała również offline...

Problem w tym, że gdy serwer MySQL jest Off-Line, wyświetla mi się komunikat "Can't connect to MySQL serwer on blablabla"... Po tym kod nie wykonuje się dalej... procedura jest rozpoczynana jako pierwsza i tak arzcej być musi... Nie mogę jej na koniec przenieść niestety.

Próbowałem z try finally/except

W swoim długim kodzie mam takie coś:

Kopiuj
procedure TML.FormCreate(Sender: TObject);
  var
    zapytanie: string;
    INI2 : TIniFile;
  begin
    Start.Enabled:=false;

    SQLConnection1.Connected := True;

    Opcja.DoubleBuffered := true;
    Opcja.AutoComplete := true;
    Opcja.AddItem('---', nil);
    Opcja.AddItem('---', nil);
    Opcja.AddItem('---', nil);
    Opcja.ItemIndex := 0;

    WebBrowser1.Navigate('---');

    try
      zapytanie:='---';
      ML.SQLConnection1.Open;
      ML.SQLClientDataSet1.Open;
      d_wersja:=ML.SQLClientDataSet1.FieldValues['---'];
      d_link:=ML.SQLClientDataSet1.FieldValues['---'];
      d_obr:=ML.SQLClientDataSet1.FieldValues['---'];
      d_adres:=ML.SQLClientDataSet1.FieldValues['---'];
      P1L2b.Caption := d_wersja;

    finally
      ML.SQLConnection1.Close();
      ML.SQLClientDataSet1.Close();
    end;
    (...) Trochę kodu

    end;

    (...) Trochę kodu

  end;

"Czas na wojnę zwaną pokojem"
edytowany 3x, ostatnio: MStef94
Misiekd
  • Rejestracja:ponad 21 lat
  • Ostatnio:prawie 13 lat
  • Postów:7923
0

A gdzie to except bo chyba slepy jestem


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij
0

Próbowałem z try finally/except

No i działało tylko że debugger jest tak fajny że pluje exceptionami i tak. Poczytaj czym jest wyjątek, czym debugger i jak to się do siebie ma.

Misiekd
  • Rejestracja:ponad 21 lat
  • Ostatnio:prawie 13 lat
  • Postów:7923
0

Próbowałem z try finally/except

No i działało tylko że debugger jest tak fajny że pluje exceptionami i tak. Poczytaj czym jest wyjątek, czym debugger i jak to się do siebie ma.

jak się nie potrafi ustawić debuggera do własnych wymagań to tak jest.


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij
MStef94
  • Rejestracja:około 13 lat
  • Ostatnio:ponad 4 lata
  • Postów:18
0

Szczerze pisząc, jestem bardzo początkujący w Delphi ;)
Usunąłem linijkę z

Kopiuj
SQLConnection1.Connected := True;

i wszystko śmiga :)


"Czas na wojnę zwaną pokojem"

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.