CID 단말기는 컴퓨터의 시리얼포트에 연결됩니다.
전화가 걸려오면 시리얼포트로 전화번호와 시간을 전달합니다.
프로그램에서는 시리얼포트로 신호가 들어오면 해당 신호에서
전화번호만을 뽑아서 고객데이타베이스를 검색하여 동일한 전화번호에
해당되는 고객자료를 보여주면 됩니다.
시리얼포트로 신호가 들어오는지 확인하려면 직접 코딩을 하던가 시중에
공개된 공개용 라이브러리를 사용하던가 편리한 방법을 모색해야 합니다.
공개용 라이브러리중에 델파이에서 편리하게 사용하게끔 만들어진
컴포넌트입니다.
---------------------------------------------
시리얼통신 환경을 다음과 같이 설정합니다.
사용하는 시리얼통신모듈에서 지원되지않는 항목은 무시하여도
됩니다.
BaudRate 4800
DataBits 8
DiscardNull True
EventsChar #0
Events All True
FlowsControls ControlDTR Enable
ControlRTS Disable
DSRSensitivity False
FlowControl None
OutCTSFlow False
OutDSRFlow False
TxContinueOnXoff False
XoffChar #19
XonChar #17
XonXoffIn False
XonXoffOut False
StopBits 1
SyncMethos ThreadSync
----------------------------------------------------
시리얼포트에 데이타가 전송되면 OnRxChar 이벤트가 발생합니다.
이는 첨부된 컴포넌트에서 사용되는 이벤트이지만 시리얼통신에서는
일반적인 이벤트입니다.
데이타는 한번에 들어오는게 아니고 여러번 나뉘어져 들어옵니다.
1.ComPortCID.Open; // 응용프로그램 시작시에 시리얼포트 열기
2.신호가 들어오면 이벤트발생
3.ComPortCID.Close; // 응용프로그램 종료시에 시리얼포트 닫기
procedure TFormSLCaller.ComPortCIDRxChar(Sender: TObject; Count: Integer);
var Str : string;
inc : integer;
nChar : integer;
aChar : char;
begin
ComPortCID.ReadStr(Str, Count);
for inc := 1 to Count do begin
aChar := Str[inc];
nChar := Ord(aChar);
case nChar of
79: begin
// 전화번호 시그날시작
// 전화가 왔습니다.
LineData := '';
end;
48: begin
// 전화번호 시그날끝
// 검색로직실행 전화번호는 LineData에 저장되어있음
MYCALL(LineData);
LineData := '';
end;
else
begin
LineData := LineData + chr(nChar-16);
end;
end; //case
end; //for do
end;
|
