Python týden Geek tričko zdarma
Tričko zdarma! Stačí před dobitím bodů použít kód TRIKO15. Více informací zde
Pouze tento sleva až 80% na kurzy Python

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

Aktivity (1)
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
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 1 zpráv z 1.