Member Avatar for Finarfin34

Olaylar= record
1024Bytes = array[0..1023] of byte;
OnRx: procedure(const RxBfr: 1024Bytes; const DataLen: word); stdcall;
OnTx: procedure(const TxBfr: 1024Bytes; const DataLen: word); stdcall;
end;

  • 2 Contributors
  • 1 Reply
  • 119 Views
  • 4 Days Discussion Span
  • Latest Post Latest Post by Wolfgan
Member Avatar for Wolfgan 
type
 TDataBytes = array[0..1023] of byte;
 TOnData = procedure(const Buff: TDataBytes; const DataLen: word);

 Olaylar = class
  private
    FOnRx: TOnData;
    FOnTx: TOnData;
    procedure SetOnRx(const Value: TOnData);
    procedure SetOnTx(const Value: TOnData);
  published
    property OnRx: TOnData read FOnRx write SetOnRx;
    property OnTx: TOnData read FOnTx write SetOnTx;
 end;

procedure Olaylar.SetOnRx(const Value: TOnData);
begin
  FOnRx := Value;
end;

procedure Olaylar.SetOnTx(const Value: TOnData);
begin
  FOnTx := Value;
end;
Edited by Wolfgan because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.