MSCommLib_TLB.pas Delphi, XE 6

http://code1.okbase.net/codefile/Unit1.pas_201211268773_2.htm

http://www.ecsdn.com/search.php?keyword=MSCommLib_TLB.pas

http://support.microsoft.com/kb/194922/tr

MSComm kullanımı

unit Unit1;
//Download by http://www.codefans.net
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPanel, StdCtrls, RzCmboBx, RzButton, ComCtrls,
  RzEdit, OleCtrls, MSCommLib_TLB;

type
  TForm1 = class(TForm)
    mscm1: TMSComm;
    edt1: TRzRichEdit;
    rzbtbtn1: TRzBitBtn;
    cbb1: TRzComboBox;
    rzpnl1: TRzPanel;
    rzbtbtn2: TRzBitBtn;
    rzbtbtn3: TRzBitBtn;
    edt2: TEdit;
    procedure mscm1Comm(Sender: TObject);
    procedure rzbtbtn1Click(Sender: TObject);
    procedure rzbtbtn2Click(Sender: TObject);
    procedure rzbtbtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.mscm1Comm(Sender: TObject);
var
  n  : Integer;
  rx :Integer;
  recstr : Variant;
  t  : string;
  i  : Integer;
  tr : Integer;
  strintext :string;
begin
  recstr:= Copy(mscm1.Input,1,2);
  strintext:= recstr ;
  edt2.Text:=Trim(strintext);
// if   mscm1.CommEvent =comEventBreak then
// begin
//   edt1.Text:='PRINT';
// end;
  {
  if mscm1.CommEvent =  ComEventRxParity then
    tr:=1;
  if   mscm1.CommEvent = 2 then
  begin
    n:=mscm1.InBufferCount;
    inc(rx,n);
    recstr :=mscm1.Input;
    if mscm1.InputMode = 0 then
    begin
      t:='';
      t:= recstr;
      if t<>'' then
      begin
        for i:= 0 to n do
        begin
          if t[i]='?' then
          begin
             tr:=1
          end
          else
           if (tr=0) then
           begin
             strintext:=strintext+' ' + IntToHex(Byte(t[i]),2)
           end
           else
           begin
             strintext:= strintext+' ' + IntToHex(Byte(t[i])+126,2)   ;
             tr:=0;
           end;
        end;
      end;
    end;
  end;  }
end;

procedure TForm1.rzbtbtn1Click(Sender: TObject);
begin
 if mscm1.PortOpen then
  begin
    mscm1.PortOpen:=False;
  end;
  try
    mscm1.CommPort:=1;
    mscm1.Settings:='9600,N,8,1';
    mscm1.InputLen:=0; // default 0
    mscm1.RThreshold:=1;
    mscm1.InputMode:=comInputModeText;
    mscm1.InputLen:=0;
    mscm1.PortOpen:=True;
    except
      mscm1.PortOpen:=False;
      end;
//  end
end;

procedure TForm1.rzbtbtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.rzbtbtn3Click(Sender: TObject);
begin
 if mscm1.PortOpen = True then
 mscm1.PortOpen := False;
end;

end.