दृश्य घटक मॉनिटर COM पोर्ट

आज हम COM-port (सही इंटरफ़ेस नाम RS232) के माध्यम से जुड़े विभिन्न पाठकों के साथ काम करने के लिए एक दृश्य घटक बनाने की कोशिश करेंगे। हमारा लक्ष्य बाइट्स का एक अनुक्रम प्राप्त करना है जो डिवाइस पढ़ते समय भेजता है।

आइए डेल्फी कंपोनेंट जैसे एक नए प्रोजेक्ट की शुरुआत करें:

अगली विंडो में, मूल घटक के रूप में TEdit चुनें।

अंत में, हम अपने भविष्य के घटक - TRS232Edit को एक पुत्र का नाम देते हैं और इसे घटक पैलेट (RS 232 - मानक का नाम) के MyCompords सेट में रखते हैं।

समाप्त पर क्लिक करने के बाद, हम घटक के मॉड्यूल का नाम देंगे uRS232Edit.pas और इसे सहेजें। विकास का माहौल स्वतः ही ऐसा खाका तैयार कर देगा:

unit uRS232EANEdit;
interface
uses
SysUtils, Classes, Controls, StdCtrls;

type
TRS232Edit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('MyComponents', [TRS232Edit]);
end;

end.


हम बंदरगाह से 20 बाइट्स के भंडारण के लिए एक संरचना घोषित करेंगे (अधिक और कोई आवश्यकता नहीं :))

type
TBuffer = array[0..20] of byte;


हम कार्यक्षमता को रखना शुरू करते हैं। सबसे पहले, TRS232Edit वर्ग के निजी अनुभाग में, उन वेरिएबल्स की घोषणा करें जिनमें हम पोर्ट के लिए कनेक्शन मापदंडों को संग्रहीत करेंगे।

cComPort : integer; //
cBaud : integer; // ()
cParity : integer; //
cCountBit : integer; //
cStopBit : integer; //


हमें भी आवश्यकता होगी

CommHandle : integer; // COM-
DCB : TDCB; //
Ovr : TOverlapped; //
Stat : TComStat; //
CommThread : THandle; // ,
function DigitHex(aValue: Integer): Char;
function GetAsHexagonal(aValue: Integer): String; // 16-
function DecodeBarCode(buf : TBuffer; bufsize : integer) : string;
procedure PortInit;
procedure SetZero;


और सार्वजनिक अनुभाग में

BarCode : string; // Text
constructor Create(AOwner:Tcomponent);override;
destructor Free;
procedure Init(comport, baud, parity, countbit, stopbit : integer);


Init पद्धति को कॉल करके पोर्ट से कनेक्शन को प्रारंभ करें। यह आंतरिक चर को पैरामीटर प्रदान करता है, प्रारंभिक मान सेट करता है, और सीधे कनेक्शन को विधि कहता है।

procedure TRS232EANEdit.Init(comport, baud, parity, countbit, stopbit : integer);
begin
cComPort := comport;
cBaud := baud;
cParity := parity;
cCountBit := countbit;
cStopBit := stopbit;
SetZero;
PortInit;
end;

यहां सबसे बड़ी रुचि पोर्टइनिट विधि है - हम इसका विस्तार से विश्लेषण करेंगे

procedure TRS232EANEdit.PortInit;
var
ThreadID: dword ;
begin
//
CommHandle:= CreateFile(cComPort,GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);
// - " "
SetCommMask(CommHandle,EV_RXFLAG);
// DCB
GetCommState(CommHandle, DCB);
//
DCB.BaudRate:=cBaud;
DCB.Parity:=cParity;
DCB.ByteSize:=cCountBit;
DCB.StopBits:=cStopBit;
DCB.EvtChar:=chr(13); // 0x0D

//
SetCommState(CommHandle,DCB);
/* , . - . BeginThread - CreateThread. @ReadComm - */

CommThread := BeginThread(nil,0,@ReadComm,Self,0,ThreadID);
end;


डेटा ReadComm प्रक्रिया में प्राप्त होता है

procedure ReadComm(s : Pointer);
var
Resive : TBuffer;
a : TRS232EANEdit;
begin
a := s; // s -
while true do
begin
a.TransMask:=0;
WaitCommEvent(a.CommHandle,a.TransMask,@a.Ovr);
if (a.TransMask and EV_RXFLAG)=EV_RXFLAG then //
begin
ClearCommError(a.CommHandle,a.Errs,@a.Stat);
ReadFile(a.CommHandle, Resive, a.Stat.cbInQue, a.Stat.cbInQue, @a.Ovr);//
a.Text := a.DecodeBarCode(Resive, 20); // -
Application.ProcessMessages;
end;
end;
end;


वह सब है। संकलित, स्थापित करें। रीडिंग शुरू करने के लिए, परीक्षण एप्लिकेशन में यह कुछ विशेषता के लिए पर्याप्त है

RS232Edit1.Init(1, 9600, 0, 8, 1)