Synapse - seriova komunikace. – Delphi – Fórum

Synapse - seriova komunikace.

Borisek 0

Stálý člen

1. 5. 2019 #1

Zdravím.

Komunikací s arduinem jsem už několikrát řešil, ale odesilal jsem řetězec.

Ser.SendString('test');

Bych potřeboval odeslat Hex 52 0d 0a

Nahlásit jako SPAM

IP: 95.173.82.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

1. 5. 2019 #2

Při nejhorším by mělo jít asi nějak takhle poskládat ten řetězec.

Chr($52) + Chr($0d) + Chr($0a)

Asi to jde i nějak hezčeji a nejspíš ta komponenta umí odesílat i jiná data než stringy.

Nahlásit jako SPAM

IP: 213.211.51.–

MilanL +1

Grafoman

2. 5. 2019 #3

#1 Borisek
musím se do synapse podívat, 0D a 0A je CR+LF a mám dojem, že to komunikace přidává automaticky, takže by mělo stačit odeslat ten kod $52 jestli se nepletu měl by to být znak %.

Nahlásit jako SPAM

IP: 185.112.167.–

MilanL +1

Grafoman

2. 5. 2019 #4

Tak tam to CRLF synaser nepřidává je třeba to tam poslat celé, já má tu sekvenci CRLF ($0D + $0A) v constantě.

const
  CR = #$0d;
  LF = #$0a;
  CRLF = CR + LF;

jinak na binární data bych použil spíš funkci sendbuffer

function TBlockSerial.SendBuffer(buffer: pointer; length: integer): integer;

sendString to tam stejně přeposílá, vezme pointer na string a jeho délku a pošle to

SendBuffer(pointer(data), lenght(data)) ; //kde data je ten string

Nahlásit jako SPAM

IP: 91.139.9.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

2. 5. 2019 #5

#4 MilanL
Přesně na tohle jsem se snažil vzpomenout. Takže by mělo jít

#$52#$0d$#0a

Ne?

Nahlásit jako SPAM

IP: 213.211.51.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

2. 5. 2019 #6

Bez toho překlepu :)

Nahlásit jako SPAM

IP: 213.211.51.–

Borisek 0

Stálý člen

3. 5. 2019 #7

Děkují moc.

Řeším komunikací s digitální váhou pro nákladní automobily, která je u kámoše na firmě.
Jezdím tam 2X týdně, takže až tam pojedu, vyzkouším (pondělí).

Nahlásit jako SPAM

IP: 95.173.82.–

Borisek 0

Stálý člen

6. 5. 2019 #8

Tak ještě něco je špatně.
http://img24.cz/…74398586.png

To první je odeslane přes ser monitor 52 0d 0a jako hex a jde vidět že mi to vratilo váhu 0.kg

To druhe je Ser.SendString(#$52#$0d#$0a);

A nic nevratí.

Ser.Config(9600, 8, 'N', 0, False, False);
Ser.Connect('COM6');

A takto mám nastavený ser.monitor, přes který to funguje.

http://img24.cz/images/07123974130337788982.png

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

7. 5. 2019 #9

#8 Borisek
musíš to mít jako spojení znaků do řetězce tzn #$52+#$0d+#$0a

respektive tak bych to udělal já.

hm ted jsem na to koukal ono se to chová stejně.

zkusil bych to dát předem do proměnné string nebo konstanty

Nahlásit jako SPAM

IP: 91.139.9.–

MilanL +1

Grafoman

7. 5. 2019 #10

no na tom prvním obrázku je vidět že to snad odešlo a stejně jako v prvním případě, takže problém bude spíš s příjmem nebo na straně váhy, nevím jak u té váhy funguje paměť měření rezp příkazy,

Já dělal program pro vyčítání dat z refraktoru (měření Cukru v nápojích), tam když jsem vyčetl data posledního měření tak do dalšího měření byla mezipaměť prázdná a nic to nevracelo.

Nahlásit jako SPAM

IP: 91.139.9.–

Borisek 0

Stálý člen

7. 5. 2019 #11

#10 MilanL
Ne, problem je u mně.

Přes lazarus použivám komponentu LazSerial, která použivá unity od synapse.
https://github.com/zbyna/LazSerial

LazSerial1.WriteData(#$52#$0d#$0a);
A normalně to je funkční a i přichozí data přijimám.

A takto to mám nastavene
http://img24.cz/…58700582.png

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

7. 5. 2019 #12

#11 Borisek
hele zkus přehodit ty 2 řádky

nejdřív connect a pak config, nejspíš nejdřív nakonfiguruješ defaultní port a pak se připojíš na COM6, který může být jiný

Nahlásit jako SPAM

IP: 91.139.9.–

Borisek 0

Stálý člen

7. 5. 2019 #13

#12 MilanL
To jsem zkoušel.

I takto Ser.SendString('R'#13#10);
http://img24.cz/…80965915.png

Nahlásit jako SPAM

IP: 95.173.82.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

7. 5. 2019 #14

1 stop bit

Nahlásit jako SPAM

IP: 213.211.51.–

Borisek 0

Stálý člen

7. 5. 2019 #15

#14 gna
http://synapse.ararat.cz/…kSerial.html

Ser.Config(9600, 8, 'N', SB1andHalf, False, False);

Nic

Nahlásit jako SPAM

IP: 95.173.82.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

7. 5. 2019 #16

To je 1.5. A máš tam vůbec čtení?

Nahlásit jako SPAM

IP: 213.211.51.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

7. 5. 2019 #17

Aha, ona 0 znamená 1 stop bit. Byl to jen tip.

Nahlásit jako SPAM

IP: 213.211.51.–

Borisek 0

Stálý člen

7. 5. 2019 #18

Ha, nějakou chybu mam ve čtení.

Najdu někde nějake demo ohledně čtení přes ten ser.port?

procedure TForm1.Timer1Timer(Sender: TObject);
var
Rcvd : string;
begin
Rcvd := '';

if  Ser.LastError = 0 then
   begin
        if Ser.CanRead(10000) then
        begin
             Rcvd := Ser.Recvstring(10000);
        end;
 Memo1.Lines.Add(Rcvd);
 Ser.Purge;
end;

Nahlásit jako SPAM

IP: 95.173.82.–

Borisek 0

Stálý člen

7. 5. 2019 #19

Čitat to nechce.
Vrací mi to mezera 9997 mezera 9997 atd.

    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    i:integer;
    Replystring:string;
    begin
     
    if Ser.LastError = 0 then
       begin
            Ser.SendString(#$52#$0d#$0a);
            Replystring := Ser.recvstring(2000);
            Memo1.Lines.Add(Replystring);
            Memo1.Lines.Add(IntToStr(Ser.LastError));
            Ser.Purge;
        end
        else
        begin
            i:= Ser.LastError;
            Memo1.Lines.Add('chyba'+ IntToStr(Ser.LastError));
        end;
    end;

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

7. 5. 2019 #20

#17 gna
ano v synapsy je stopbit výčtový typ sbOne=0

#19 Borisek
zviditelni na chvilku e-mail pošlu ti kontakt případně mojí unitu obsluhující ten refraktor, včetně komunikace.

také zkus otestovat lasterror po té configuraci portu, zda se to povedlo nastavit podle těch parametrů.

Nahlásit jako SPAM

IP: 185.112.167.–

gna

~ Anonymní uživatel
~ 1849 příspěvků

8. 5. 2019 #21

9997 se zdá být timeout. Když nastavíš RaiseExcept na True, tak by to mělo házet vyjímky hned, jak je něco blbě.

Nahlásit jako SPAM

IP: 213.211.51.–

Borisek 0

Stálý člen

8. 5. 2019 #22

mimrod007@seznam.cz

Se omliuvám, zařizení je v prací a ja jsem poctívý zaměstnanec a dodržují pracovní dobu

Mně ještě napadlo zkusit ten lazarus.
Připijít k portu tu komponentu LazSerial, odeslat ty data,odpojít, připojit se jen přes synapse a zkusit načist data.

Pokud to tak pujde, měl bych zjistít, zda je problem v odesilaní, nebo ve čtení

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

8. 5. 2019 #23

#22 Borisek
no pomohl by druhý pc nb propojit je po tom seriáku na jednom testovat program na druhým monitorem příjímat a odesílat vzorky

Nahlásit jako SPAM

IP: 185.112.167.–

Borisek 0

Stálý člen

8. 5. 2019 #24

#23 MilanL
Ono to funguje.
Jsem si napsal programek do arduina.
Posilam mu po ser.p. data a ono podle toho co mu přijde odpovida.

Ono něco schazi při odesilaní toho hex

Jsem si zkusil nainstalovat komponentu ZylSerialPort.
Vyhazuje hlašku, že je to demo, ale jinak plně funkční.
Tato komponenta komunikuje, ale vraci se mi jen ERR04.
http://img24.cz/…98940132.png

Takže mužu být rad, že mi to alespon přes ten lazarus chodí a budu muset ten program napsat v něm.

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

8. 5. 2019 #25

#24 Borisek
no to ERR04 ti vrací arduino ne? tzn nepoznal příkaz tak vrátil chybu tak to by snad mělo fungovat.

Nahlásit jako SPAM

IP: 185.112.167.–

MilanL +1

Grafoman

8. 5. 2019 #26

#25 MilanL
btw jakej máš čas v timeru, nelezou ti do sebe jeho přerušení? vše chvilku trvá, než se to pošle, než zařízení připraví odpověď, ve funkci čtení máš timeout, tak vše dohromady chvíli trvá a jestli máš krátký cyklus timeru může to lézt do sebe.

Nahlásit jako SPAM

IP: 185.112.167.–

Borisek 0

Stálý člen

8. 5. 2019 #27

#25 MilanL

no to ERR04 ti vrací arduino ne? tzn nepoznal příkaz tak vrátil chybu tak to by snad mělo fungovat.

Ne, komunikace s arduinem je bez chyby.
ERR04 mi vraci ta vaha přes tu komponentu ZylSerialPort

Nahlásit jako SPAM

IP: 95.173.82.–

MilanL +1

Grafoman

8. 5. 2019 #28

#27 Borisek
máš tam v meilu ode mě tu mojí unitu fungující s poznámkami k fungování, a nnějaké další drobnosti, dnes už asi pomalu půjdu spát, ale zítra po 15h jsem rdy kdyby bylo něco potřeba.

Nahlásit jako SPAM

IP: 185.112.167.–

Borisek 0

Stálý člen

9. 5. 2019 #29

Jsem k tomu heblu našel i dokumentaci a je tam popsana i komunikace.

6. COMMUNICATION STRINGS
7. COMMUNICATION CONTROLS

https://www.vetek.se/Dynamics/Documents/543cef61-c61d-4fdb-b350-f7d6b7fdb100/TECH_MAN_ENG_DFW_v4.pdf

Nahlásit jako SPAM

IP: 95.173.82.–

← Zpět na seznam vláken ← Zpět do Fóra