Sériové rozhraní v Delphi (1. díl) - Builder.cz - Informacni server o programovani

seriovy port

seriovy port

20. listopadu 2001, 00.00 | Tímto článkem začínáme nový seriál o využítí sériového rozhraní v Delphi. V dnešním díle si popíšeme, co to je sériové rozhraní a jak můžeme k němu v Delphi přistupovat.

1. vytvořte nový projekt, ze záložky VarianAsync32 zvolte komponentu VaComm a umistěte ji do nového Formu
2. označte ji a v Object Inspectoru v Properties přepište hodnotu 0 v položce PortNum na číslo vašeho volného portu (v COM1 bývá myš nebo modem - pozor na to), já mám myš v PS/2, takže mám oba porty volné, tak zvolím číslo 1; tímto jsme vybrali port, na který budeme přistupovat
3. změňte v položce AutoOpen False na True, po této úpravě se port otevře ihned po spuštění programu
4. nyní program spusťte, pokud je vše v pořádku program se spustí a uvidíte prázný Form. Proběhne událost OnOpen (zkuste vložit do této události Beep;), když je port obsazen program vyhodí chybu EVaCommError Can't open device COM... a zavře se

1. Stav AutoOpen změníme na původní False
2. do části v interface uses (deklarace používaných jednotek), vložíme unitu VaTypes
3. do privátních deklarací vložíme

   private { Private declarations } procedure HandleException(Sender: TObject; E: Exception);

   
   a do části pod implementation

   procedure Tform1.HandleException(Sender: TObject; E: Exception); begin if E is EVaCommError then with E as EVaCommError do ShowMessage(Message); //chyba osetrena, vypsani zpravy end;

4. vytvoříme událost OnCreate

   procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := HandleException; //pri chybe volej proceduru HandleException VaComm1.Open; //otevreni portu end;

5. po spuštění se při chybě vypíše hlášení a program pokračuje, neukončuje se

VaComm1.Close; //zavře příslušný port

VaComm1.Close; //zavře příslušný port - COM1
VaComm1.PortNum:=2; //nastavení čísla nového portu COM2
VaComm1.Open; //otevření tohoto portu (COM2).