vcomres.pas

来自「VSPM 虚拟串口软件可以将TCP/IP、UDP广播映射成本机的虚拟COM 口」· PAS 代码 · 共 47 行

unit VComRes;

interface
uses
  SysUtils,
  SyncObjs,
  Dialogs,
  
  Classes;

type
  TVComResClass=class(TObject)
 public
  GHalfduplexLock:TCriticalSection;
  //应答消息
  GResponEvent:TEvent;
  //完成帧计数
  FrameCount:integer;
  
  constructor Create(VComName:string);
  destructor Destroy;override;
 end;

implementation

{ TVComResClass }

constructor TVComResClass.Create(VComName:string);
begin
//  inherited Create;
   GHalfduplexLock:=TCriticalSection.Create;

   self.GResponEvent:=TEvent.Create(nil,false,false,'ResponEvent'+VComName);
   FrameCount:=0;

end;

destructor TVComResClass.Destroy;
begin

 FreeAndNil(GHalfduplexLock);
 FreeAndNil(self.GResponEvent);
  inherited;
end;

end.