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

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ś:

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;
0

A gdzie to except bo chyba slepy jestem

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.

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.

0

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

SQLConnection1.Connected := True;

i wszystko śmiga :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1