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

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

Result.AddObject(ReadString('DriverDesc'),TObject(j));

CloseKey;

end;

finally

N.Free;

end;

end;

end;

 finally

R.Free;

 end;

end;

end.

Порты 

Асинхронная

связь

Delphi 1

unit Comm;

interface

uses Messages,WinTypes,WinProcs,Classes,Forms;

type

 TPort=(tptNone,tptOne,tptTwo,tptThree,tptFour,tptFive,tptSix,tptSeven,tptEight);

 TBaudRate= (tbr110, tbr300, tbr600, tbr1200, tbr2400, tbr4800, tbr9600, tbr14400, tbr19200, tbr38400, tbr56000, tbr128000, tbr256000);

 TParity=(tpNone,tpOdd,tpEven,tpMark,tpSpace);

 TDataBits=(tdbFour,tdbFive,tdbSix,tdbSeven,tdbEight);

 TStopBits=(tsbOne,tsbOnePointFive,tsbTwo);

 TCommEvent=(tceBreak, tceCts, tceCtss, tceDsr, tceErr, tcePErr, tceRing, tceRlsd, tceRlsds, tceRxChar, tceRxFlag, tceTxEmpty);

 TCommEvents=set of TCommEvent;

const

 PortDefault=tptNone;

 BaudRateDefault=tbr9600;

 ParityDefault=tpNone;

 DataBitsDefault=tdbEight;

 StopBitsDefault=tsbOne;

 ReadBufferSizeDefault=2048;

 WriteBufferSizeDefault=2048;

 RxFullDefault=1024;

 TxLowDefault=1024;

 EventsDefault=[];

type

 TNotifyEventEvent=procedure(Sender:TObject; CommEvent:TCommEvents) of object;

 TNotifyReceiveEvent=procedure(Sender:TObject; Count:Word) of object;

 TNotifyTransmitEvent=procedure(Sender:TObject; Count:Word) of object;

 TComm=class(TComponent)

 private

FPort:TPort;

FBaudRate:TBaudRate;

FParity:TParity;

FDataBits:TDataBits;

FStopBits:TStopBits;

FReadBufferSize:Word;

FWriteBufferSize:Word;

FRxFull:Word;

FTxLow:Word;

FEvents:TCommEvents;

FOnEvent:TNotifyEventEvent;

FOnReceive:TNotifyReceiveEvent;

FOnTransmit:TNotifyTransmitEvent;

FWindowHandle:hWnd;

hComm:Integer;

HasBeenLoaded:Boolean;

Error:Boolean;

procedure SetPort(Value:TPort);

procedure SetBaudRate(Value:TBaudRate);

procedure SetParity(Value:TParity);

procedure SetDataBits(Value:TDataBits);

procedure SetStopBits(Value:TStopBits);

procedure SetReadBufferSize(Value:Word);

procedure SetWriteBufferSize(Value:Word);

procedure SetRxFull(Value:Word);

procedure SetTxLow(Value:Word);

procedure SetEvents(Value:TCommEvents);

procedure WndProc(var Msg:TMessage);

procedure DoEvent;

procedure DoReceive;

procedure DoTransmit;

 protected

procedure Loaded; override;

 public

constructor Create(AOwner:TComponent); override;

destructor Destroy; override;

procedure Write(Data:PChar; Len:Word);

procedure Read(Data:PChar; Len:Word);

function IsError:Boolean;

 published

property Port:TPort read FPort write SetPort default PortDefault;

property BaudRate:TBaudRate read FBaudRate write SetBaudRate default BaudRateDefault;