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;