Ces deux composants traduisent les sentences NMEA envoyées par un GPS pour le premier: GPS.Le second permet de voir la position des satellites et l'intensité de leur émission.
procedure TGPS.PacketRecv(Sender: TObject; const Str: String);
...
// Get the message type
TypeMsg := MidStr(Resultat[0], 4, 3);
// initialisation
with FGPSDatas do begin
Latitude := 0;
Longitude := 0;
HeightAboveSea := 0;
Speed := 0;
UTCTime := now;
Valid := True;
NbrSats := 0;
NbrSatsUsed := 0;
end;
// Test sur filtre
if (MsgFiltered and (IndexMsgGP(TypeMsg) = FMsgFilter))
or not MsgFiltered then begin
// Retrieves data based on message type
case IndexMsgGP(TypeMsg) of
msgGPGGA: begin
Je me pose une question sur l'initialisation de la variable valid (true par défaut...)
Commentaires
Petite composant sympathique (TGPS) !
Je l'ai modifié pour mes besoins, mais peut être que ça peut intéresser du monde (et puis un avis sur ces modifs peut être le bienvenu...).
La modification consiste en l'ajout d'un filtre pour ne récupérer qu'un certain type de trames.
J'ai ajouté : (je ne sais pas si les balises de code fonctionnent ici... on va bien voir)
et sur :
Je me pose une question sur l'initialisation de la variable valid (true par défaut...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.