NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Diskuze: Synapse - přijimaní dat přes ser. port.

Jak se ti líbí článek?
Před uložením hodnocení, popiš prosím autorovi, co je špatněZnaků 0 z 50-500
Jak se ti kurz líbí?
Tvé hodnocení kurzuZnaků 0 z 50-500
Aktivity
Avatar
Pavel.H
Člen
Avatar
Pavel.H:7.5.2019 7:39

Zdravím Vás.
Nepomohl - neporadíl by někdo s odesilaním dat přes ser.port?
Jsem připojený

begin
  Ser := TBlockSerial.Create;
 try
   Ser.Config(9600, 8, 'N', 0, False, False);
   Ser.Connect(ComPort);
   Ser.Purge;
   Ser.Flush;
   if Ser.LastError = 0 then
   begin
         Memo1.Lines.Add('Připojen na ' + ComPort);
   end
   else
   begin
     Memo1.Lines.Add('Nejde se připojit na ' + ComPort);
   end;
 finally
 end;

A data odesilám take.

Ser.SendString('test');

S přijimaním mi to nejak nefunguje a asi by to chtělo spiše do vlakna.

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
else
Memo1.Lines.Add('chyba');
end;
Editováno 7.5.2019 7:42
 
Odpovědět
7.5.2019 7:39
Avatar
JerryM
Člen
Avatar
Odpovídá na Pavel.H
JerryM:25.6.2019 11:35

https://www.activexperts.com/…owto/delphi/

 
Nahoru Odpovědět
25.6.2019 11:35
Avatar
Pavel.H
Člen
Avatar
Pavel.H:25.6.2019 12:06

To je 30 denní demo.

 
Nahoru Odpovědět
25.6.2019 12:06
Avatar
Patrik Pastor
Člen
Avatar
Odpovídá na Pavel.H
Patrik Pastor:25.6.2019 17:14

Co to je za syntaxi/jazyk?

 
Nahoru Odpovědět
25.6.2019 17:14
Avatar
Michal Haňáček
Tvůrce
Avatar
Odpovídá na Patrik Pastor
Michal Haňáček:25.6.2019 18:49

Prekvapive object pascal/delphi kdyz je to v sekci delphi ...

Nahoru Odpovědět
25.6.2019 18:49
Každé rozhodnutí a každý krok v životě nás někam posune. Bohužel jen některé nás posouvají dopředu.
Avatar
Patrik Pastor
Člen
Avatar
Odpovídá na Michal Haňáček
Patrik Pastor:25.6.2019 18:50

K cemu je ten jazyk? Delaji se v nem nejake projekty? V zivote jsem o nem neslysel

 
Nahoru Odpovědět
25.6.2019 18:50
Avatar
Martin Petrovaj
Tvůrce
Avatar
Odpovídá na Patrik Pastor
Martin Petrovaj:25.6.2019 22:31

Existujú desiatky používaných programovacích jazykov aj bez toho, aby sme počítali ezoterické jazyky. Nedokážem si predstaviť niekoho, kto by ich všetky aspoň vedel vymenovať, tieto ešte vo všetkých z nich tvoril :-) Netreba si preto robiť ťažkú hlavu z toho, že Pascal nepoznáš, poprípade sa ho môžeš doučiť.

V každom prípade tieto vlákna slúžia primárne na riešenie implementačných a technických problémov, nie na zisťovanie konkrétneho jazyka alebo jeho využitia či miery používania. Na to používaj prosím iné zdroje, napr. Google, Stack Overflow Developer Survey, príp. si z pracovných portálov a svojej profesnej siete sprav vlastný obraz.

Nahoru Odpovědět
+1
25.6.2019 22:31
if (this.motto == "") { throw new NotImplementedException(); }
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na Patrik Pastor
Martin Dráb:25.6.2019 23:41

K cemu je ten jazyk? Delaji se v nem nejake projekty? V zivote jsem o nem neslysel

Dříve se celkem dost používal na větší databázové aplikace, protože na to má poměrně dobré komponenty. A také se v něm celkem dobře dělají nativní GUI aplikace (žádné závislosti na :NET).

Ale vzhledem k cenové politice EMBT (stojí za vývojem jazyka a nástrojů pro něj) se nedivím, že jsi o něm neslyšel. Zdarma se dalo dostat jen k nějakým dost osekaným verzím (pokud vůbec k nějakým). Až nedávno vytvořili něco na způsob Visual Studio Community.

Nahoru Odpovědět
25.6.2019 23:41
2 + 2 = 5 for extremely large values of 2
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na Pavel.H
Martin Dráb:25.6.2019 23:43

Co konkrétně máš za problém? Jakou dostáváš chybu? Můžeš se také zkusit podívat, co na daný sériový port opravdu chodí za data prostřednictvím sériového terminálu (např. realTerm umí monitorovat dění myslím).

Také si zkontroluj, zda jsi dobře nastavil baudrate, paritu apod. Pokud tyhle věci natavíš špatně, obvykle ti to žádná chybová hláška neřekne, jen prostě budeš dostávat nesmyslná data.

Nahoru Odpovědět
25.6.2019 23:43
2 + 2 = 5 for extremely large values of 2
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 9 zpráv z 9.