Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

case lParamLo of

CN_EVENT:

DoEvent;

CN_RECEIVE:

DoReceive;

CN_TRANSMIT:

DoTransmit;

end;

end else Result:=DefWindowProc(FWindowHandle, Msg, wParam, lParam);

 end;

end;

procedure TComm.DoEvent;

var

 CommEvent:TCommEvents;

 EventMask:Word;

begin

 if (hComm<0) or not Assigned(FOnEvent) then exit;

 EventMask:=GetCommEventMask(hComm,Integer($FFFF));

 CommEvent:=[];

 if (tceBreak in Events) and (EventMask and EV_BREAK<>0) then CommEvent:=CommEvent+[tceBreak];

 if (tceCts in Events) and (EventMask and EV_CTS<>0) then CommEvent:=CommEvent+[tceCts];

 if (tceCtss in Events) and (EventMask and EV_CTSS<>0) then CommEvent:=CommEvent+[tceCtss];

 if (tceDsr in Events) and (EventMask and EV_DSR<>0) then CommEvent:=CommEvent+[tceDsr];

 if (tceErr in Events) and (EventMask and EV_ERR<>0) then CommEvent:=CommEvent+[tceErr];

 if (tcePErr in Events) and (EventMask and EV_PERR<>0) then CommEvent:=CommEvent+[tcePErr];

 if (tceRing in Events) and (EventMask and EV_RING<>0) then CommEvent:=CommEvent+[tceRing];

 if (tceRlsd in Events) and (EventMask and EV_RLSD<>0) then CommEvent:=CommEvent+[tceRlsd];

 if (tceRlsds in Events) and (EventMask and EV_Rlsds<>0) then CommEvent:=CommEvent+[tceRlsds];

 if (tceRxChar in Events) and (EventMask and EV_RXCHAR<>0) then CommEvent:=CommEvent+[tceRxChar];

 if (tceRxFlag in Events) and (EventMask and EV_RXFLAG<>0) then CommEvent:=CommEvent+[tceRxFlag];

 if (tceTxEmpty in Events) and (EventMask and EV_TXEMPTY<>0) then CommEvent:= CommEvent+[tceTxEmpty];

 FOnEvent(Self,CommEvent);

end;

procedure TComm.DoReceive;

var Stat:TComStat;

begin

 if (hComm<0) or not Assigned(FOnReceive) then exit;

 GetCommError(hComm,Stat);

 FOnReceive(Self,Stat.cbInQue);

 GetCommError(hComm,Stat);

end;

procedure TComm.DoTransmit;

var Stat:TComStat;

begin

 if (hComm<0) or not Assigned(FOnTransmit) then exit;

 GetCommError(hComm,Stat);

 FOnTransmit(Self,Stat.cbOutQue);

end;

procedure TComm.Loaded;

begin

 inherited Loaded;

 HasBeenLoaded:=True;

 SetPort(FPort);

end;

constructor TComm.Create(AOwner:TComponent);

begin

 inherited Create(AOwner);

 FWindowHandle:=AllocateHWnd(WndProc);

 HasBeenLoaded:=False;

 Error:=False;

 FPort:=PortDefault;

 FBaudRate:=BaudRateDefault;

 FParity:=ParityDefault;

 FDataBits:=DataBitsDefault;

 FStopBits:=StopBitsDefault;

 FWriteBufferSize:=WriteBufferSizeDefault;

 FReadBufferSize:=ReadBufferSizeDefault;

 FRxFull:=RxFullDefault;

 FTxLow:=TxLowDefault;

 FEvents:=EventsDefault;

 hComm:=-1;

end;