Delphi 7 + Cport-3.10 :Kullanımı Ornek

[protech06]

Arkdaaslar Delphi ile cport-3.10 kullanımı hakkında ornek bir calısma arıyorum belirledigim comporttan  pic usarta 9600 baud da hex deger gondericem

[ugurtarlaci]

@protech06

Dostum ben kullanmıştım daha önce. Basit bir dizilim aşağıda görüldüğü gibidir.  Umarım işini görür

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Comugur: TComPort;
    ComComboBox1: TComComboBox;
    ComComboBox2: TComComboBox;
    ComComboBox3: TComComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure ComugurRxChar(Sender: TObject; Count: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Comugur.WriteStr('Feza UGUR'+#13);{com porta string at}end; 

procedure TForm2.Button2Click(Sender: TObject);
begin
  Comugur.Open;{com portu aç}
end;

procedure TForm2.Button3Click(Sender: TObject);
Var S:String;
begin
end;

procedure TForm2.ComugurRxChar(Sender: TObject; Count: Integer);
Var T,S:String;

begin

Comugur.Read(S,count);{okuma yap}  Memo1.Lines.Text:=Memo1.Lines.Text+(S);

end;

end.

[ugurtarlaci]

Dostum eğer Comport kütüphanesini kurmuşsan daha öncede yazdığım gibi portu açtıktan sonra aşağıdaki gibi bir gönderi satırı ile porta data basabilirsin. Gönderdiğin data ASCI olacak elbette ancak arada PİC var ise bu kodları HEX e çevirebilirsin yada Delphi içinde bir çevirim tablosu yapman gerekebilir.

begin 
  Comugur.WriteStr('Feza UGUR'+#13);{com porta string at}end; 

procedure TForm2.Button2Click(Sender: TObject); 
begin 
  Comugur.Open;{com portu aç}