Problème utilisation synaser

Version imprimable

Bonjour,

J'aimerais faire communiquer mon Arduino avec une application Lazarus à l'aide du composant "synaser" ou bien "lazserial", peu importe lequel puisque l'un est inspiré de l'autre et fonctionne sur le même principe d'après ce que j'ai compris. Cependant j'ai beaucoup de mal à les utiliser, j'ai beau regarder l'exemple fourni avec, je n'arrive pas à réceptionner les données sur ma carte. J'ai également regardé cette documentation http://synapse.ararat.cz/doc/help/synaser.html mais elle n'indique pas quelles fonctions utiliser.

Voici mon code actuel:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 procedure TForm1.FormCreate(Sender: TObject); begin i:=0; ser:=TBlockserial.Create; try ser.RaiseExcept:=True; ser.Connect('COM5'); ser.Config(9600,8,'N',SB1,false,false); ser.SendString(inttostr(i)); //ser.Recvstring(consigne); //writeln (ser.ATCommand('ATI8')); finally ser.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin inc(i,1); Edit1.text:=inttostr(i); ser:=TBlockserial.Create; try ser.SendString(inttostr(i)); finally ser.Free; end; end;
Avant de transmettre des commandes complexes, je me suis fixé comme objectif de transmettre simplement une variable qui s'incrémente au fur et à mesure que j'appuie sur un bouton. En cas de réussite, je devrais voir sur mon Arduino: 0 1 2 3...

Merci d'avance pour votre aide.

22/02/2015, 16h27
tourlourou

Je lis dans la documentation qu'il faut ajouter un CRLF aux chaînes (ANSI) à transmettre par SendString : ser.SendString(inttostr(i)+CRLF);Dans le code de ton bouton, tu ne reconfigures pas le TBlockserial.
Peut-être devrais-tu créer l'objet global ser au Create, le libérer seulement au Destroy de la fiche, et t'en servir directement entre.
22/02/2015, 17h27
hudgerz

Citation:

Envoyé par tourlourou

Je lis dans la documentation qu'il faut ajouter un CRLF aux chaînes (ANSI) à transmettre par SendString : ser.SendString(inttostr(i)+CRLF);Dans le code de ton bouton, tu ne reconfigures pas le TBlockserial.
Peut-être devrais-tu créer l'objet global ser au Create, le libérer seulement au Destroy de la fiche, et t'en servir directement entre.

D'accord pour le CRLF, c'est quoi une chaîne ANSI ? Bref, par contre pour le TBlockSerial je l'ai remis dans la procedure du bouton car il refuse la compilation sinon. Peux tu ajouter des précisions par rapport au destroy ? Merci.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TForm1.FormCreate(Sender: TObject); begin inherited; i:=0; ser:=TBlockserial.Create; ser.RaiseExcept:=True; ser.Connect('COM5'); ser.Config(9600,8,'N',SB1,false,false); ser.SendString( inttostr(i) + CRLF ); // CRLF est défini dans l'une des unités de synaser end; procedure TForm1.Destroy; begin ser.Free; inherited; end; procedure TForm1.Button1Click(Sender: TObject); begin inc(i,1); Edit1.text:=inttostr(i); ser.SendString( inttostr(i) + CRLF ); // CRLF est défini dans l'une des unités de synaser end;
En gros, les caractères sont codés sur 1 octet : 7 bits du code ASCII (jusqu'à 127) ou 8 bits des chaînes ANSI dont les 127 autres possibilités ne représentent pas les mêmes caractères selon le code page utilisé. En UTF-8 ou 16, codage des caractères sur 1 à 2 octets au minimum, tous les caractères étant représentables en étendant le nombre d'octets nécessaires (cad codage de longueur variable intégrant tous les codes pages, en quelque sorte).

Lazarus utilise des chaînes UTF-8 par défaut, alors que synaser attend des chaînes ANSI => il suffit de faire attention aux conversions si nécessaire.

22/02/2015, 19h36
hudgerz

Merci pour cette précision, j'ai compilé avec la modif que vous m'avez donné et la compilation fonctionne, cependant lors du 1er appui sur le bouton j'ai un message d'erreur qui apparait: "Le projet "nomduprojet" a levé une exception de class external SIGSEGV". Et il pointe l'erreur au niveau de l'instruction ser.sendstring de la procédure du bouton.
22/02/2015, 20h39
tourlourou

Cette exception sent l'appel à un objet détruit : vérifie dans le code du click si ser est toujours bien attribué : if Assigned(ser) and (ser is TBlockserial) then ser.SendString(...);Sinon, l'ajout du CRLF n'est pas systématique : je viens de relire, il ne doit être fait que si le récepteur l'attend car le composant ne l'ajoute pas.
22/02/2015, 20h46
hudgerz

L'application à l'air de fonctionner cependant rien ne s'affiche sur l'arduino, je dois donc corriger mon autre programme. Il y a une manière de vérifier que l'envoi s'effectue bien ? Merci de ton aide en tout cas.
23/02/2015, 02h34
jurassic pork

hello,
je suis le créateur du composant Tlazserial.

1 - Sur quelle plateforme es-tu côté PC ? Linux ? Windows ? Mac ?
2 - Quel est ton code du côté arduino ?

Ami calmant, J.P

Bonjour,
Je suis sous Windows 7.
Mon code arduino:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
String inputString = "";         // a string to hold incoming data
 
void setup()
{
  Serial.begin(9600);
  inputString.reserve(200);
}
void loop()
{
    if(Serial.available() > 0)
    {
    Serial.println(inputString);
    inputString = "";
    }
}
void serialEvent()
{
  while (Serial.available() > 0)
  {
    char inChar = (char)Serial.read();
    inputString += inChar;
  }
}

23/02/2015, 11h35
jurassic pork

d'après ce que je comprends du code côté arduino celui ci renvoie ce qu'il reçoit (un peu du genre mode echo). Il faudrait que du côté PC tu affiches ce que tu reçois sur la ligne série. Regarde un peu comment fonctionne mon exemple avec TLazserial : il est capable d'envoyer des données sur une ligne série et de visualiser ce qui est reçu.

Ami calmant, J.P
23/02/2015, 16h54
hudgerz

Peut tu m'envoyer l'exemple en question ?
23/02/2015, 17h10
jurassic pork

Il est inclus avec le paquetage qui se trouve ici

Il faut être enregistrer dans le forum forum.lazarus.freepascal.org pour pouvoir voir et télécharger l'archive.