Форум РадиоКот

Код: Выделить всё

__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
CommPort1->ComNumber = 1;
CommPort1->Open = true;
}

void __fastcall TForm2::Button4Click(TObject *Sender)
{
CommPort1->RTS = true;
Sleep(100);
CommPort1->RTS = false;
Sleep(100);
CommPort1->RTS = true;
Sleep(100);
CommPort1->RTS = false;
Sleep(100);
CommPort1->RTS = true;
Sleep(100);
CommPort1->RTS = false;
Sleep(100);
CommPort1->RTS = true;
Sleep(100);
CommPort1->RTS = false;
}

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
CommPort1->ComNumber = 1;
CommPort1->Open = false;
Close();
}

Код: Выделить всё

// функцыя открытия порта:

void __fastcall TCommPort::OpenPort(void)
{
  if( FOpen )  return;

  IBuffUsed = 0;
  OBuffUsed = 0;

  OBuffer = new unsigned char[OBuffSize];
  IBuffer = new unsigned char[IBuffSize];
  SetLastError(0); //remove any pending errors

  AnsiString DeviceName = AnsiString("\\\\.\\COM") + IntToStr(FComNumber);
  FComHandle = CreateFile( DeviceName.c_str(),
                           GENERIC_READ | GENERIC_WRITE,
                           0, NULL,
                           OPEN_EXISTING,
                           FILE_ATTRIBUTE_NORMAL | FILE_FLAG_OVERLAPPED, 0);
//...и т.д.

// И нашол функцию которую пытался  непосредственно использовать сам в своем коде(и которая не работает). Сдесь она выглядит так:

void __fastcall TCommPort::PowerOn(void)
{
  EscapeCommFunction( FComHandle, SETDTR );
  EscapeCommFunction( FComHandle, SETRTS );
  FRTS = true;
  FDTR = true;
}

//---------------------------------------------------------------------------
void __fastcall TCommPort::PowerOff(void)
{
  EscapeCommFunction( FComHandle, CLRDTR );
  EscapeCommFunction( FComHandle, CLRRTS );
  FRTS = false;
  FDTR = false;
}

Код: Выделить всё

EscapeCommFunction(FComHandle,SETDTR);

Код: Выделить всё

TForm2 *Form2;
HANDLE port;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
port = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE,
                0, NULL, OPEN_EXISTING, 0, NULL);
//<настройка порта>
//<чтение/запись>
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
EscapeCommFunction(port,CLRDTR);
}

void __fastcall TForm2::Button2Click(TObject *Sender)
{
EscapeCommFunction(port,SETDTR);
}

void __fastcall TForm2::Button3Click(TObject *Sender)
{
EscapeCommFunction(port,CLRRTS);
}

void __fastcall TForm2::Button4Click(TObject *Sender)
{
EscapeCommFunction(port,SETRTS);
}

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
CloseHandle(port);
Close();
}

void __fastcall TForm2::SpeedButton1Click(TObject *Sender)
{
//EscapeCommFunction(port,SETBREAK);
SetCommBreak(port);
}

void __fastcall TForm2::SpeedButton2Click(TObject *Sender)
{
//EscapeCommFunction(port,CLRRTS);
ClearCommBreak(port);
}