Hola amigos, tengo un pequeño problema, hice una aplicacion en Delphi que se conecta con un servidor de DB MySQL el cual se encuentra en un Hosting, quiero poner una excepción al código en caso de que la conexión a internet falle pero no me toma estas excepciones
aqui les dejo el codigo espero puedan ayudarme. Desde ya gracias...
Código:
begin
//obtengo el ultimo ID da la tabla externa
idlocal := '0';
QidExterno.Active := False;
QidExterno.SQL.Clear;
QidExterno.SQL.Text := 'select * from cliente order by id desc';
try
QidExterno.Active := True;
idlocal := QidExterno.Fields[0].AsString;
finally
//obtengo los registros pendientes de subir de la Tabla Local
if StrToInt (idlocal) <> 0 then
begin
QPrincipal.Active := False;
QPrincipal.SQL.Clear;
QPrincipal.SQL.Text := 'select * from cliente where id > '''+idlocal+'''';
QPrincipal.Active := True;
while (not QPrincipal.Eof) do
begin
idlocal := QPrincipal.Fields[0].AsString;
nom := QPrincipal.Fields[1].AsString;
loc := QPrincipal.Fields[2].AsString;
try
QInsercion.SQL.Clear;
QInsercion.SQL.Text := 'INSERT INTO cliente (Id,nombre,localidad) VALUES ('''+idlocal+''','''+nom+''','''+loc+''')';
QInsercion.ExecSQL;
finally
QPrincipal.Next;
LTiempo.Caption := ' '+DateToStr (Date)+' '+TimeToStr (Time)+'';
end;
end;
end
else
LTiempo.Caption := 'No se subieron datos!!';
end;
end;
Puntualmente no me funcionan las estruturas
Código:
try
//instrucciones
except
//instrucciones
end;
como tampoco la estructura
Código:
try
//instrucciones
finally
//instrucciones
end;