Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!
Zadejte Vaši e-mailovou adresu:
Kamarád fotí rád?
Přihlas ho k odběru fotomagazínu!
Zadejte e-mailovou adresu kamaráda:
Delphi
Sériové rozhraní v Delphi (2. díl)
seriovy port
12. prosince 2001, 00.00 | Dnes se podíváme na přenos dat přes sériové rozhraní a hardwarovou stránku problému. Na závěr si vytvoříme jednoduchý chatovací program právě přes seriový port.
Minule jsme probrali základy a dnes se podíváme na problematiku přenosu dat po sériovém portu.
Hardwarová stránka - kabel
Příprava přenosu
- Baudrate - přenosová rychlost - na kratší zdálenosti doporučuji rychlost 115 200 Baudů/s, na delší nižšší
- Databits - počet datových bitů - při přenosu znaků z ASCII tabulky ponechte implicitní nastavení (8 datových bitů)
- FlowControl - řízení toku dat - RTS/CTS a DTR/DSR je hardwarové, XOn/XOff softwarové a None žádné
- Parity - vkládání paritního (kontrolního) bitu - sudého, lichého, mezerového, značeného nebo žádného
- Stopbits - počet stopbitů - 1, 1,5 a 2
Vlastní přenos
- vytvořte nový projekt, ze záložky VarianAsync32 zvolte komponentu VaComm a umistěte ji do nového Formu
- označte ji a v Object Inspectoru Properties nastavte následovně: AutoOpen - true, Baudrate - br115200, FlowControl - fcNone a PortNum - číslo vašeho volného sériového portu
- ze záložky Standard zvolte tlačítko (Button) a umístěte ho do Formu, totéž proveďte s editačním řádkem (Edit)
- do události OnClick (Button) vložte tento kód: procedure TForm1.Button1Click(Sender: TObject); begin if VaComm1.WriteText(edit1.text) then Beep; //zapíše na sériový port obsah editboxu, po úspěšném zápisu pípne Edit1.Clear; //vymaže obsah editboxu end;
- ze záložky Standard zvolte textové pole (Memo) a umístěte jej do Formu
- do události OnRxChar (VaComm) vložte tento kód: procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer); begin Memo1.Lines.Text:=Memo1.Lines.Text+VaComm1.ReadText+#13; //čte data z portu a zapisuje je do Mema a skočí na další řádek end;
Ukázkový program je možno stáhnout zde jako projekt v Delphi.
Příště se budeme věnovat komunikaci s mobilním telefonem (připravte si datový kabel na propojení PC a mobilu).
Obsah seriálu (více o seriálu):
- Sériové rozhraní v Delphi (1. díl)
- Sériové rozhraní v Delphi (2. díl)
- Sériové rozhraní a mobil (3. díl)
- Sériové rozhraní a mobil II (4. díl)
- Seriové rozhraní: Přenos souborů (5. díl)
- Sériové rozhraní: Vstupy a výstupy (6. díl)
- Ovládejte spotřebiče přes sériový port (7. díl)
Diskuse k článku
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007