Obsługa portów COM z poziomu Delphi (wszystkie windowsy)

Witam...
Po co nam obsługa portów COM?
Otóż wielu zapewne się nie przyda,ale jeżeli ktoś chciałby podłączyć jakieś diody pod COM i sterować nimi z poziomu Delphi..lub podłączyć swoją komórkę i wysłać SMSa z Delphi (przez komórkę), to artykuł jest właśnie dla niego..
Juz prościej się nie da.. :-)
A więc zaczniemy od zdobycia komponentu do obsługi portów COM.
Ja używam CPorta ponieważ jest bardzo prosty w obsłudze...

Ciężko go znależć w internecie..ale ja go dołączę do Demo programu..

A więc wrzucamy na formę następujące komponenty:
3 Buttony, 1 Edit, 1 Memo,1 CheckBox, komponent CPort.
Kwestia rozmieszczenia to już wasza sprawa...

Teraz oprogramowanie zdarzeń tych komponentów:

Pierwszy button będzie otwierał nam wybrany COM.

//Obsluga Przycisku do otwarcia portu
procedure TMainfrm.BtnOtworzClick(Sender: TObject);
begin
  if ComPort.Connected then//jezeli CPort jest polaczony to..
  begin
    ComPort.Close;//zamknij
    BtnOtworz.Caption:='Otwórz';
  end else begin//jezeli nie jest to..
    ComPort.Open; //otworz..
    BtnOtworz.Caption:='Zamknij';
  end;
end;

Ale zanim spróbujemy ów port otworzyć, warto zajrzeć do ustawień by się przekonać czy nasze urządzenie jest podpięte do portu, do którego chcemy mieć dostep..
Do tego służyć nam będzie króciótki kod (naprawdę) służacy do ustawień:

procedure TMainfrm.BtnSettingsClick(Sender: TObject);
begin
 ComPort.ShowSetupDialog;
 //pokazuje nam okno do ustawien
//jest to juz gotowy dialog zrobiony przez
//autora komponentu
end;

Teraz kolej na rzecz najważniejszą...czyli wysyłanie komend na port COM.
Najważniejsza..nie znaczy najtrudniejsza... :-)

procedure TMainfrm.BtnWyslijClick(Sender: TObject);
var
S: String;
begin
  S:= EdtMsg.Text;//Pobieramy text z Edita do zmiennej
  if CBNewLine.Checked then//jezeli checkbox jest zaznaczony
    S:= S+ #13#10;//to wysylamy to na COM w nowej linii
  ComPort.WriteStr(S);//Wyslanie
end;

I pozostaje nam już tylko odczyt znaków przychodzących z COMa :-)
W zdarzeniu OnRXChar komponentu CPort dodajemy:

procedure TMainfrm.ComPortRxChar(Sender: TObject; Count: Integer);
var
RevS: String;
begin
  ComPort.ReadStr(RevS, Count);//odczytujemy String z Portu
  ComMemo.Text :=ComMemo.Text +Revs;//Wyswietlamy go w Memo
end;

I to by było na tyle z prostego przykładu operacji na portach..pacjent żyje i ma sie dobrze.. :) :)

a oto cały kod programu:

(***********************************************************   
CPort Demo by lofix
     mailto: [email protected]
      Pozdrowienia dla ekipy 4programmers
       Kod mozesz w dowolny sposob modyfikowac,rob z nim co chcesz
***********************************************************)

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, CPort;//Z tego korzystamy

type
  TMainfrm = class(TForm)
    ComPort: TComPort;
    BtnOtworz: TButton;
    BtnSettings: TButton;
    EdtMsg: TEdit;
    BtnWyslij: TButton;
    CbNewLine: TCheckBox;
    ComMemo: TMemo;
    StatusBar1: TStatusBar;
    BtnClear: TButton;
    BtnKoniec: TButton;
    procedure BtnOtworzClick(Sender: TObject);
    procedure BtnSettingsClick(Sender: TObject);
    procedure BtnWyslijClick(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure BtnClearClick(Sender: TObject);
    procedure BtnKoniecClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainfrm: TMainfrm;

implementation

{$R *.DFM}


//Obsluga Przycisku do otwarcia portu
procedure TMainfrm.BtnOtworzClick(Sender: TObject);
begin
  if ComPort.Connected then//jezeli CPort jest polaczony to..
  begin
    ComPort.Close;//zamknij
    BtnOtworz.Caption:='Otwórz';
  end else begin//jezeli nie jest to..
    ComPort.Open; //otworz..
    BtnOtworz.Caption:='Zamknij';
  end;
end;

procedure TMainfrm.BtnSettingsClick(Sender: TObject);
begin
 ComPort.ShowSetupDialog;
 //pokazuje nam okno do ustawien
//jest to juz gotowy dialog zrobiony przez
//autora komponentu
end;

procedure TMainfrm.BtnWyslijClick(Sender: TObject);
var
S: String;
begin
  S:= EdtMsg.Text;//Pobieramy text z Edita do zmiennej
  if CBNewLine.Checked then//jezeli checkbox jest zaznaczony
    S:= S+ #13#10;//to wysylamy to na COM w nowej linii
  ComPort.WriteStr(S);//tu wysylamy
end;

procedure TMainfrm.ComPortRxChar(Sender: TObject; Count: Integer);
var
RevS: String;
begin
  ComPort.ReadStr(RevS, Count);//odczytujemy String z Portu
  ComMemo.Text :=ComMemo.Text +Revs;//Wyswietlamy go w Memo
end;


//ponizej 2 procedurki (czyszczaca Memo i Zamykajaca program
procedure TMainfrm.BtnClearClick(Sender: TObject);
begin
ComMemo.Clear;//Czyscimy Memo
end;

procedure TMainfrm.BtnKoniecClick(Sender: TObject);
begin
Application.Terminate;//Koniec programu
end;

end.

Jeżeli ktoś jest zainteresowany komunikacją po kablu z komórką to polecam poczytanie o komendach AT..za ich pomoca można z Delphi zrobić duużo (chocby LogoManagera :-) )

Stąd możesz pobrać komponent wraz z DEMO (Strona projektu na SF.net)