Buscar por:

Comunicar-se com porta COM1 para bina roldsoft

Código

{

1º - CRIE UM PROJETO COM 1 memo e 1 button

2º - Para que funcione o script abaixo instale o componente CPORT (http://www.ee.pucrs.br/~jclima/downloads/Serial.zip)

}

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, CPort, AppEvnts;

type

  TForm1 = class(TForm)

    Button1: TButton;

    ComPort: TComPort;

    Memo1: TMemo;

    ApplicationEvents1: TApplicationEvents;

    procedure Button1Click(Sender: TObject);

    procedure ComPortRxChar(Sender: TObject; Count: Integer);

    procedure ComPortAfterClose(Sender: TObject);

    procedure ComPortAfterOpen(Sender: TObject);

    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  if ComPort.Connected then

    begin

      Button1.Caption := 'Fechar Conexão';

      ComPort.Close;

    end

  else

    begin

      Button1.Caption := 'Abrir Conexão';

      ComPort.Open;

    end;

end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);

var

  Str: String;

begin

  ComPort.ReadStr(Str, Count);

  Memo1.Text := Memo1.Text + Str;

end;

procedure TForm1.ComPortAfterClose(Sender: TObject);

begin

  if Button1 <> nil then

    Button1.Caption := 'Abrir Conexão';

end;

procedure TForm1.ComPortAfterOpen(Sender: TObject);

begin

  Button1.Caption := 'Fechar Conexão';

end;

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;

  E: Exception);

begin

  if Pos('Unable to open com port (win error code: 2)',E.Message)>0 then

    ShowMessage('Porta COM1 da bina está desativado.');

end;

end.