F�rum Urgente meu insert com datasnap tem um erro de http:501 #572687

14/12/2016

Ol� amigo boa tarde a todos voc�s !
Estou precisando de uma ajudar para resolver esse pequeno problema que � o ultimo para que eu possa finalizar o meu projeto.

Estou trabalhando com Delphi xe 8 em um aplica��o Android e Datasnap webbroker, pois bem; at� onde sei uma vez conectado com o servidor datasnap a conex�o n�o deveria ser perder nunca. Nas telas de consulta funciona exatamente assim, estou tendo problemas nessa tela de informar a localiza��o.

O sistema funciona da seguinte forma: uma central de t�xi lan�a na rede radio uma corrida para um cliente no Jabaquara por exemplo, os taxistas enviam a localiza��o e quem estiver mais perto vai. At� aqui tudo bem o sistema le direitinha as coordenadas utilizando as fun��es de latitude e longitude o problema aqui � se o cara passa tipo 1 hora sem usar o sistema ele da um erro de http:501 no meu entender ele esta perdendo a conex�o para a fun��o insert nas demais tudo certo, ate mesmo as de update funcionam, j� revisei todo o codigo do form que envia dados e acredito estar la no servidor datasnap. mas vou postar o c�digo das duas telas e agrade�o demais quem me ajudar resolver isso

Aqui o codigo no aplicativo android

procedure TfrmMain.ListBoxItem1Click(Sender: TObject);
var
  qtl, login, user, lat, long: string;
  A: string;
  B: string;
  x: string;
  y: string;
  clientrest: TServerMethods1Client;
  retInsert: integer;

begin

  LocationSensor1.Active := true;

  A := LocationSensor1.Sensor.Latitude.ToString;
  B := LocationSensor1.Sensor.Longitude.ToString;
  x := StringReplace(A, ',', '.', [rfReplaceAll, rfIgnoreCase]);
  y := StringReplace(B, ',', '.', [rfReplaceAll, rfIgnoreCase]);

  qtl := x + ' ' + y;
  login := v_nr_matricula;
  user := '';
  lat := x;
  long := y;

  if clientrest = nil then
    clientrest := TServerMethods1Client.Create(ClientModule1.DSRestConnection1);
  retInsert := clientrest.insertQTL_integer(qtl, login, user, lat, long);
  if retInsert > -1 then
    ShowMessage('Localiza��o enviada !' + ''#13'' +
      'Aguarde a confirma��o via Rede R�dio' + ''#13'' + 'Cordenadas : ' + x
      + ' ' + y)
  else
    ShowMessage
      ('Erro ao enviar a localiza��o: Verifique sua conex�o com a internet... ');

end;


[code]

 

[code]

  Result := -1;
//  if not  ConexaoFiredac.Connected =true then
//      ConexaoFiredac.Connected := true ;

  with Fqry_QTL do
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert into tb_QTL (Qtl, Nm_Login,userid,Ds_latitude,Ds_Longitude) values (:Qtl, :Nm_Login,:userid,:Ds_latitude,:Ds_Longitude)');
    ParamByName('qtl').AsString := qtl;
    ParamByName('nm_login').AsString := moto;
    ParamByName('userid').AsString := Userid;
    ParamByName('ds_latitude').AsString := lat;
    ParamByName('ds_longitude').AsString := long;
    ExecSQL;
    Result := 0;
  end;

Carlos Faria

Curtir t�pico

+ 0

Responder