10 replies to this topic

[look]

Hola amigos, estoy tratando de hacer una app que recibe los datos de un gps, este manda los datos a una ip por un puerto con udp.

el problema que tengo recibo transmision , pero por algun motivo solo me da un espacion en blanco:

delphi

procedure TForm3.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
  msg := BytesToStringRaw(AData);
  Memo1.Lines.Add('data: '+msg);
end;

Cada vez que entra una transmision lo que veo es :

delphi

data:
data:
data:
data:

para probar que realmente estoy recibiendo datos del gps  , tengo otra app que no hice yo, esta app escucha el puerto tal cual yo lo hago y recibe informacion sin problemas...

 

alguien tiene experiencia en GPS o tiene alguna idea de que puede ser?

[Gaston]

 

o tiene alguna idea de que puede ser?

 

Me pasó hace poco que TMemo no se lleva bien con el tipo StringRaw, puede ser eso.

 

Saludos.

[seoane]

Hola,
 
Adjunto te dejo una pequeña utilidad que hice hace tiempo, que permite escuchar en un puerto udp y muestra por pantalla la que recibe.
 
El codigo fuente no se si te sera de mucha ayuda porque esta hecho directamente usando la API de windows y no Indy, pero como son solo unas pocas lineas es bastante facil de entender y puede que saques alguna idea.
 
Lo que seria interesante es que lo pongas a escuchar en el puerto del GPS y ver lo que recibes (el programa lo muestra en texto y hexadecimal) para ver si esta colando algun cero y por eso aparece la cadena vacia.
 
Para usarlo:

bash

udp 123

Donde 123 es el puerto por el que se reciben los datos del GPS
 
Veras algo como esto

bash

Pulsa Ctrl+C para salir ...
 
Puerto: 1978 IP: 127.0.0.1
 
00000000:  4D 65 6E 73 61 6A 65 20  64 65 6C 20 47 50 53 0A  |Mensaje.del.GPS.|

Asi sabremos que es lo que manda el gps y podremos ayudarte mejor
 
Saludos

Attached Files

•  udp.zip   30.82KB   2 downloads

[look]

Hola gracias amigo:

haciendo un pequeño cambio logre obtener esto:

delphi

memo1.Lines.Add('gps: '+ToHex( AData) );

Resultado en el memo:

delphi

gps: 00040200202020202020202020322020202020202020202020202020202020203530303020244750524D432C3232353934342E30302C412C313533312E3736323933392C4E2C30383830322E3530373831332C572C302E302C302E302C3132303431382C312E362C572C412A33430D0A202020202032303430383800

Hola,
 
Adjunto te dejo una pequeña utilidad que hice hace tiempo, que permite escuchar en un puerto udp y muestra por pantalla la que recibe.
 
El codigo fuente no se si te sera de mucha ayuda porque esta hecho directamente usando la API de windows y no Indy, pero como son solo unas pocas lineas es bastante facil de entender y puede que saques alguna idea.
 
Lo que seria interesante es que lo pongas a escuchar en el puerto del GPS y ver lo que recibes (el programa lo muestra en texto y hexadecimal) para ver si esta colando algun cero y por eso aparece la cadena vacia.
 
Para usarlo:

bash

udp 123

Donde 123 es el puerto por el que se reciben los datos del GPS
 
Veras algo como esto

bash

Pulsa Ctrl+C para salir ...
 
Puerto: 1978 IP: 127.0.0.1
 
00000000:  4D 65 6E 73 61 6A 65 20  64 65 6C 20 47 50 53 0A  |Mensaje.del.GPS.|

Asi sabremos que es lo que manda el gps y podremos ayudarte mejor
 
Saludos

 

 

con el udp que me pasaste:

esto es lo que me da:

delphi

Puerto: 3333 IP: 127.0.0.1
 
00000000:  00 04 02 00 20 20 20 20  20 20 20 20 20 32 20 20  |.............2..|
00000010:  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |................|
00000020:  35 30 30 30 20 24 47 50  52 4D 43 2C 32 32 35 33  |5000..GPRMC.2253|
00000030:  30 34 2E 30 30 2C 41 2C  31 35 33 31 2E 37 36 32  |04.00.A.1531.762|
00000040:  39 33 39 2C 4E 2C 30 38  38 30 32 2E 35 30 37 38  |939.N.08802.5078|
00000050:  31 33 2C 57 2C 30 2E 30  2C 30 2E 30 2C 31 32 30  |13.W.0.0.0.0.120|
00000060:  34 31 38 2C 31 2E 36 2C  57 2C 41 2A 33 32 0D 0A  |418.1.6.W.A.32..|
00000070:  20 20 20 20 20 32 30 34  30 38 38 00              |.....204088.|
 
 
Puerto: 3333 IP: 127.0.0.1
 
00000000:  00 04 03 00                                       |....|

logre encontrar el manual del fabricante que habla acerca de esto aqui

[seoane]

Parece que todo encaja con la documentación. Una cabecera de 4 bytes que indica que es un mensaje de tipo "ASCII Event Data" y a continuación el mensaje que parece que es un texto en ASCII

 

En concreto es interesante esta parte:

php

$GPRMC,225944.00,A,1531.762939,N,08802.507813,W,0.0,0.0,120418,1.6,W,A*3C

Este mensaje sigue el estandar GPMRC: http://gonzalo.aro.c...standard-gprmc/ así que no será difícil descifrarlo.

 

Simplemente descarta los cuatro primeros bytes de la cabecera y en el resto del mensaje busca una cadena de texto que empieza por $GPRMC y termina por #13#10 (salto de linea)

 

Para hacer pruebas puedes usar cualquier decodificador online, por ejmplo este: https://rl.se/gprmcque me dice que estas en Honduras

 

Saludos

 

 

Nota: Edite el mensaje para añadir enlace a la documentacion de GPRMC y dejarlo mas ordenado

[seoane]

Acabo de recordar que hace tiempo habia hecho algo parecido en php, y usaba el mismo tipo de mensaje gps

 

http://delphiaccess....-gps-del-movil/

 

Y ahi aparecia un enlace muy bueno describiendo el estandar GPMRC: http://gonzalo.aro.c...standard-gprmc/

 

Saludos

[look]

Parece que todo encaja con la documentación. Una cabecera de 4 bytes que indica que es un mensaje de tipo "ASCII Event Data" y a continuación el mensaje que parece que es un texto en ASCII

 

En concreto es interesante esta parte:

php

$GPRMC,225944.00,A,1531.762939,N,08802.507813,W,0.0,0.0,120418,1.6,W,A*3C

Este mensaje sigue el estandar GPMRC: http://gonzalo.aro.c...standard-gprmc/ así que no será difícil descifrarlo.

 

Simplemente descarta los cuatro primeros bytes de la cabecera y en el resto del mensaje busca una cadena de texto que empieza por $GPRMC y termina por #13#10 (salto de linea)

 

Para hacer pruebas puedes usar cualquier decodificador online, por ejmplo este: https://rl.se/gprmcque me dice que estas en Honduras

 

Saludos

 

 

Nota: Edite el mensaje para añadir enlace a la documentacion de GPRMC y dejarlo mas ordenado

 

Gracias amigo.!

Caramba. no tenia idea de fuera asi, interesante.,  o sea que despues de obtener el texto del GPS tengo que hacer una funcion en delphi para decodificar los datos no?

Justo ahora tengo problemas al convertir el AData a una cadena, ¿Podrias darme un tip de como convertirlo?, seria algo asi como ASCII to text?

delphi

procedure TForm3.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
     var msg :string;
     begin
      msg := BytesToString(AData,IndyTextEncoding_ASCII);
      Memo1.Lines.Add('data: '+msg);
    end;

[seoane]

He hecho un ejemplo con Indy:

delphi

function calcChecksum(Str: AnsiString): Byte;
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(Str) do
    Result:= Result xor Byte(Str[i]);
end;
 
procedure TfrmMain.udpServerUDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  i, j: Integer;
  texto, gprmc, campos, checksum: String;
begin
  // Comprobamos la cabecera (recuerda que los bytes estan invertidos en los integer)
  if (Length(AData) > 4) and (PInteger(@AData[0])^ = $00020400) then
  begin
    texto:= Copy(PAnsiChar(@AData[4]), 1, Length(AData) - 4);
    i:= Pos('$GPRMC', texto);
    if (i > 0) then
    begin
      j:= Pos(#13#10, texto, i);
      if (j > 0) then
      begin
        // Tenemos la cadena que nos interesa
        gprmc:= Copy(texto, i, j - i);
 
        i:= Pos('*', gprmc);
        if i > 0 then
        begin
          // Separamos la suma de comprobacion del resto de la cadena
          campos:= Copy(gprmc, 2, i-2);
          checksum:= Copy(gprmc, i+1, 2);
 
          // Comprobamos la suma de comprobacion
          if calcChecksum(campos) = StrToInt('$'+checksum) then
          begin
            // Separamos los campos
            with TStringList.Create do
            try
              StrictDelimiter:= TRUE;
              Delimiter:= ',';
              DelimitedText:= campos;
 
              // Por ejemplo la latitud seria
              ShowMessage(Strings[3]);
 
            finally
              Free;
            end;
          end;
        end;
      end;
    end;
  end;
end;

Si tienes alguna duda dimelo

 

Saludos

[egostar]

Vaya no sabía ese dato que los bytes deben estar invertidos. Tantas veces que lo he visto y no había reparado en ese detalle, como asumimos las cosas sin analizarlas detalladamente. 

 

Gracias por la nota.

Saludos

[look]

He hecho un ejemplo con Indy:

delphi

function calcChecksum(Str: AnsiString): Byte;
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(Str) do
    Result:= Result xor Byte(Str[i]);
end;
 
procedure TfrmMain.udpServerUDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  i, j: Integer;
  texto, gprmc, campos, checksum: String;
begin
  // Comprobamos la cabecera (recuerda que los bytes estan invertidos en los integer)
  if (Length(AData) > 4) and (PInteger(@AData[0])^ = $00020400) then
  begin
    texto:= Copy(PAnsiChar(@AData[4]), 1, Length(AData) - 4);
    i:= Pos('$GPRMC', texto);
    if (i > 0) then
    begin
      j:= Pos(#13#10, texto, i);
      if (j > 0) then
      begin
        // Tenemos la cadena que nos interesa
        gprmc:= Copy(texto, i, j - i);
 
        i:= Pos('*', gprmc);
        if i > 0 then
        begin
          // Separamos la suma de comprobacion del resto de la cadena
          campos:= Copy(gprmc, 2, i-2);
          checksum:= Copy(gprmc, i+1, 2);
 
          // Comprobamos la suma de comprobacion
          if calcChecksum(campos) = StrToInt('$'+checksum) then
          begin
            // Separamos los campos
            with TStringList.Create do
            try
              StrictDelimiter:= TRUE;
              Delimiter:= ',';
              DelimitedText:= campos;
 
              // Por ejemplo la latitud seria
              ShowMessage(Strings[3]);
 
            finally
              Free;
            end;
          end;
        end;
      end;
    end;
  end;
end;

Si tienes alguna duda dimelo

 

Saludos

 

Gracias amigo, ha ido como la seda!, funciona a la perfeccion..., estudiare el codigo..

[look]

Hola amigos , estube haciendo mas pruebas y estaba tratando de hacer lo siguiente:

delphi

procedure TForm3.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  i, j: Integer;
  texto, gprmc, campos, checksum: String;
  atComm:string;
begin
 
    atComm := 'AT&V'; 
 
    ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, ToBytes(  atComm  ));
 
...
end;

 esto es para enviarle un comando at, pero no veo ningun comportamiento...

 

que podra ser?

 

update:

 

en realidad hay comportamiendo, pero no puedo ver nada porque me da espacios en blanco

 

imagino que aqui esta el asunto:

delphi

texto:= Copy(PAnsiChar(@AData[4]), 1, Length(AData) - 4);

que puedo hacer para modificar esto de manera que me transforme a texto todo el contenido que entre por aqui?