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

Aktivity

Pavel.H

Člen

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

JerryM

Člen

JerryM:25.6.2019 11:35

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

Nahoru Odpovědět

25.6.2019 11:35

Pavel.H

Člen

Pavel.H:25.6.2019 12:06

To je 30 denní demo.

Nahoru Odpovědět

25.6.2019 12:06

Patrik Pastor

Člen

Patrik Pastor:25.6.2019 17:14

Co to je za syntaxi/jazyk?

Nahoru Odpovědět

25.6.2019 17:14

Michal Haňáček

Tvůrce

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.

Patrik Pastor

Člen

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

Martin Petrovaj

Tvůrce

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

25.6.2019 22:31

if (this.motto == "") { throw new NotImplementedException(); }

Martin Dráb

Tvůrce

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

Martin Dráb

Tvůrce

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

Naučíme tě pracovat na home-office.

Zjistit více...

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.