Program obsługujący bazę Access oraz port RS232 COM

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Twoj_ComPort: TComPort;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Twoj_ComPort:=TComPort.Create(nil);
 Twoj_ComPort.Port:='Com1';
 Twoj_ComPort.BaudRate:=br9600;
 Twoj_ComPort.Parity.Bits:=prEven;
 // konfigurujesz co potrzeba a nastepnie
 Twoj_ComPort.OnRxChar:=ComPort1RxChar; // przypisujesz swoje zdarzenia
 Twoj_ComPort.Open;

end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
  // to odbierasz co dobrodziej Com zwróci ;]
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
begin
      Twoj_ComPort:=TComPort.Create(nil);
      Twoj_ComPort.Connected:=True;
      Twoj_ComPort.Port := 'COM1';
      Twoj_ComPort.Events := [evRxChar];
      Twoj_ComPort.BaudRate := br9600;
      Twoj_ComPort.Parity.Bits := prNone;
      Twoj_ComPort.StopBits := sbOneStopBit;
      Twoj_ComPort.DataBits := dbEight;
      Twoj_ComPort.OnRxChar:=ComPort1RxChar;
      Twoj_ComPort.Open; // open port
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
s: string;
begin
Twoj_ComPort.ReadStr(s,Count);      //pobieram dane do s
  if s[1]=#2 then                   //sprawdzam czy pierwszy znak to poczatek nadawania
    begin
      Delete(s, Pos(#2, s), 1);     //kasuje nie potrzebne znaki, zostaje mi tylko wartosc wagi
        while Pos(' ', s) > 0 do
          Delete(S, Pos(' ', S), 1);
          tmpstr1:=s
    end;
  if Pos(#3, s)>0 then
    tmpstr2:=tmpstr1+s[1];
    label1.Caption:=tmpstr2;        //zapisuje wartosc wagi do labela
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cport, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Twoj_Comport: TComPort;

implementation

{$R *.dfm}


procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
s: string;
begin
Twoj_ComPort.ReadStr(s,Count);
Memo1.Lines.Add(s);

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
      Twoj_ComPort:=TComPort.Create(Form1);
      Twoj_ComPort.Port := 'COM1';
      Twoj_ComPort.Events := [evRxChar];
      Twoj_ComPort.BaudRate := br9600;
      Twoj_ComPort.Parity.Bits := prNone;
      Twoj_ComPort.StopBits := sbOneStopBit;
      Twoj_ComPort.DataBits := dbEight;
      Twoj_ComPort.OnRxChar:=ComPort1RxChar;
      Twoj_ComPort.Open;
end;

end.