LL))  
 {
 // MessageBoxA (0, "Com read error: ReadFile 1 "," Simple_COM ", MB_OK); 
  return -3; 
 } 
 } 
  else 
  {
  if (! ReadFile (com_hndl, receiver, 0x1000, & Readed_bytes, NULL)) 
  {
 // MessageBoxA (0, "Com read error: ReadFile 2 "," Simple_COM ", MB_OK); 
  return -4; 
 } 
 } 
 } 
  else 
  {
 // MessageBoxA (0, "0шібка сканування пристрою COM", "Simple_COM", MB_OK); 
 } 
 } 
  return (int) readed_bytes; 
 } 
 // ---------------------------------------------  ----------------- int __fastcall TCom :: write (char * chs, int size) 
				
				
				
				
			  {
  unsigned long sended; 
 // 
  sended = 0; 
  if (! WriteFile (com_hndl, chs, (unsigned long) size, & sended, NULL)) 
  {//помилка 
 // MessageBoxA (0, "Помилка передачі даних", "Simple_COM", MB_OK); 
  return -1; 
 } 
  return (int) sended; 
 } 
 // ---------------------------------------------  ----------------- 
  void __ fastcall TCom :: set_comname (AnsiString comname) {} 
  void __ fastcall TCom :: set_baudrate (int baudrate) {} 
  AnsiString __ fastcall TCom :: get_comname () 
  {//
  return comname; 
 } 
 // ---------------------------------------------  ----------------- int __fastcall TCom :: get_baudrate () 
  {//
  return baudrate; 
 }