Delphi modulo Android

11/08/2016

Boa noite a todos e desde de j� agrade�o pelo ajuda.

N�o sei se � assim que se faz , mas creio que o c�digo abaixo pelo menos explica a inten��o.
Preciso fazer de um jeito onde se o aplicativo esta a um tempo em segundo plano antes de inserir verifique a conexao e se ela estiver aberta que abra de um insert e feche , mas como se faz isso ?

Estou trabalhando com DataSnap WebBroker e tenho um fonte tambem em datasnapRest

procedure TfrmMain.Button2Click(Sender: TObject);
var
 x: TServerMethods1Client;
begin

 if SQLConnection.Connected = false then  // esse sqlconnection est� do lado servidor 
    begin

      //se a conexao esta fechada abra a conexao
      SQLConnection.Connected := True;
    end;

     //x � TServerMethods1Client;
    if x = nil then
      X := TServerMethods1Client.Create(SQLConnection.DBXConnection);

    Retorno_Integer := x.gravaDemo(edtNome.Text, edtSobrenome.Text);

    if Retorno_Integer > -1 then
      ShowMessage('Fun�ao Executada com sucesso')
    else
      ShowMessage('Erro ao executar a fun��o');




end;

Carlos Faria

Curtir t�pico + 0

Responder