Discussion :

[afriad]

bonjour

j'essaye d'envoyer en bluetooth low energy une trame mais je reçois toujours des erreurs lors de l'envoi.

NB: la trame qui est affichée sur Delphi est bonne par contre sur le terminal c'est pas bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TForm6.Button1Click(Sender: TObject);
var
framet : string;
 address : byte;
 fct    : byte;
 startadress : word;
 registers : longword;
 I :Byte;
 chaine : string;
begin
  if FBLEDevice <> nil then
    begin
      address :=  $04;
      fct := $01;
      startadress := $0A;
      registers := $0D;
      frameT := Readcoils( address, fct, startadress, registers);
      for I := 1 to length(framet) do
        Chaine:=Chaine+  ' ' +  inttohex(ord(frameT[I]),2);
        Memo1.Lines.Add( ' WRITE: ' + chaine );
 
        FBLEGattChar.SetValueAsString(chaine);  // recupere le text sous format string
        FBLEDevice.WriteCharacteristic(FBLEGattChar); //  envoie du text
    end;
end;

[Bernard B]

Bonjour,
Je n'ai jamais utilisé le bluetooth, mais cela ressemble à un soucis que j'ai déjà rencontré sur une liaison série.
Il me semble que dans la suite de caractères envoyés, la suite 00 0A 00 0D correspond à une fin de ligne et retour chariot et comme SetValueAsString attend une chaine de caractère est-ce que cette suite n'est pas interprétée comme la fin de ligne et la suite ignorée ?

[afriad]

en fait je sais pas du tout par contre si je change la trame je reçois le bon résultat

[Paul TOTH]

tu utilises un String Unicode, c'est pas là le problème ?

passe à RawByteString ou TBytes

[afriad]

j'ai essayé de changé ma fonction, par contre lorsque je veux envoyer la trame je sais pas comment faire car elle pas sous format chaîne ou ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
 
procedure TForm6.Button1Click(Sender: TObject);
var
  s : string;
  k : string;
  i : integer;
  n : integer;
  TxBuf : array [0..255] of Byte;
 
  TxBufLen : integer;
  crc : word;
  RxBuf : array [0..255] of Byte;
  res : string;
  b : tbytes;
 
begin
      Edit1.Text := '';
      s := '01';
      s := s + '03';
      s := s + '000A';
      s := s + '0A0B';
 
      TxBufLen := s.Length div 2;
      for i := 1 to TxBufLen do
        TxBuf[i-1] := StrToInt('$' + s[i * 2 - 1] + s[i * 2]);
      crc := CRC16(TxBuf, TxBufLen);
      Edit1.Text := s;
      s :=inttohex(crc, 4);
      Edit1.Text := Edit1.Text + s;
      TxBuf[TxBufLen ]    := strtoint('$'+Copy(s, 1, 2));
      TxBuf[TxBufLen + 1] := strtoint('$'+Copy(s, 3, 2));
      TxBufLen := TxBufLen + 2;
 
      FBLEGattChar.setvalue(TxBuf, txbuflen);
      FBLEDevice.WriteCharacteristic(FBLEGattChar);

[ShaiLeTroll]

Quel est le problème ?
Il y a une variante SetValue en UTF8String ou UTF16String, utilise celle que sait gérer ton appareil

Lit la DOC
Tu ne confonds pas Characteristic et l'envoie de données par un TBluetoothSocket ?

Et si c'est vraiment un Low Energy : A Lire cela semble se comporte effectivement comme des Registres ces Characteristic
Il faut que tu fasses des essais et ne pas entendre une réponse du forum qui n'arrivera surement jamais.
Faudrait que le hasard fasse qu'un autre membre du forum possède un périphérique BLE GATT, faut pas trop espérer et plutôt utiliser ton énergie à tester, chercher, fouiller qu'à poster des sujets en double sur le forum