Naučit se HTML & CSS, JS a Bootstrap Sleva na školení
Získej 500 Kč na naše školení. Více zde
Probíhá výprodej HTML & CSS, JavaScript a Bootstrap
Avatar
Pavel.H
Člen
Avatar
Pavel.H:7. května 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. května 7:42
 
Odpovědět 7. května 7:39
Avatar
Pavel.H
Člen
Avatar
Pavel.H:25. června 12:06

To je 30 denní demo.

 
Nahoru Odpovědět 25. června 12:06
Avatar
Odpovídá na Pavel.H
Patrik Pastor:25. června 17:14

Co to je za syntaxi/jazyk?

 
Nahoru Odpovědět 25. června 17:14
Avatar
Odpovídá na Patrik Pastor
Michal Haňáček:25. června 18:49

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

Nahoru Odpovědět 25. června 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
Odpovídá na Michal Haňáček
Patrik Pastor:25. června 18:50

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

 
Nahoru Odpovědět 25. června 18:50
Avatar
Martin Petrovaj
Překladatel
Avatar
Odpovídá na Patrik Pastor
Martin Petrovaj:25. června 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. června 22:31
if (this.motto == "") { throw new NotImplementedException(); }
Avatar
Martin Dráb
Redaktor
Avatar
Odpovídá na Patrik Pastor
Martin Dráb:25. června 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. června 23:41
2 + 2 = 5 for extremely large values of 2
Avatar
Martin Dráb
Redaktor
Avatar
Odpovídá na Pavel.H
Martin Dráb:25. června 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. června 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.