mirror of
https://github.com/n5ac/mmsstv.git
synced 2025-12-06 04:12:03 +01:00
296 lines
7.8 KiB
C++
296 lines
7.8 KiB
C++
|
//Copyright+LGPL
|
|||
|
|
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
// This file is part of MMSSTV.
|
|||
|
|
|
|||
|
|
// MMSSTV is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
|
|||
|
|
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
|
|||
|
|
|
|||
|
|
// MMSSTV is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|||
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
|
|||
|
|
|
|||
|
|
// You should have received a copy of the GNU Lesser General Public License along with MMTTY. If not, see
|
|||
|
|
// <http://www.gnu.org/licenses/>.
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
#include <vcl.h> //ja7ude 0521
|
|||
|
|
#pragma hdrstop
|
|||
|
|
|
|||
|
|
#include "Comm.h"
|
|||
|
|
#include "ComLib.h"
|
|||
|
|
|
|||
|
|
#define WAITSTAT 0
|
|||
|
|
|
|||
|
|
#define DEFFSOUND 3
|
|||
|
|
|
|||
|
|
COMMPARA COMM;
|
|||
|
|
void InitCOMMPara(void)
|
|||
|
|
{
|
|||
|
|
COMM.change = 1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
__fastcall CComm::CComm(void)
|
|||
|
|
{
|
|||
|
|
m_CreateON = FALSE; // <20>N<EFBFBD><4E><EFBFBD>G<EFBFBD>C<EFBFBD>g<EFBFBD>t<EFBFBD><74><EFBFBD>O
|
|||
|
|
m_Command = 0;
|
|||
|
|
m_fHnd = NULL; // <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>n<EFBFBD><6E><EFBFBD>h<EFBFBD><68>
|
|||
|
|
m_ptt = m_scan = 0;
|
|||
|
|
m_pEXT = NULL;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*#$%
|
|||
|
|
==============================================================
|
|||
|
|
<EFBFBD>ʐM<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>Y<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
==============================================================
|
|||
|
|
*/
|
|||
|
|
void __fastcall CComm::Close(void)
|
|||
|
|
{
|
|||
|
|
if( m_CreateON == TRUE ){
|
|||
|
|
if( m_pEXT != NULL ){
|
|||
|
|
delete m_pEXT;
|
|||
|
|
m_pEXT = NULL;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
::CloseHandle(m_fHnd);
|
|||
|
|
}
|
|||
|
|
m_CreateON = FALSE;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*#$%
|
|||
|
|
==============================================================
|
|||
|
|
<EFBFBD>ʐM<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>[<EFBFBD>v<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
PortName : <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̖<EFBFBD><EFBFBD>O
|
|||
|
|
pCP : COMMPARA<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^<EFBFBD>i<EFBFBD>k<EFBFBD><EFBFBD><EFBFBD>̎<EFBFBD><EFBFBD>̓f<EFBFBD>t<EFBFBD>H<EFBFBD><EFBFBD><EFBFBD>g<EFBFBD>ŏ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j
|
|||
|
|
RBufSize : <EFBFBD><EFBFBD><EFBFBD>M<EFBFBD>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<EFBFBD>̃T<EFBFBD>C<EFBFBD>Y(default=2048)
|
|||
|
|
TBufSize : <EFBFBD><EFBFBD><EFBFBD>M<EFBFBD>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<EFBFBD>̃T<EFBFBD>C<EFBFBD>Y(default=2048)
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
TRUE/FALSE
|
|||
|
|
--------------------------------------------------------------
|
|||
|
|
==============================================================
|
|||
|
|
*/
|
|||
|
|
BOOL __fastcall CComm::Open(LPCTSTR PortName)
|
|||
|
|
{
|
|||
|
|
if( m_CreateON == TRUE ) Close();
|
|||
|
|
m_fHnd = ::CreateFile( PortName, GENERIC_READ | GENERIC_WRITE,
|
|||
|
|
0, NULL,
|
|||
|
|
OPEN_EXISTING,
|
|||
|
|
FILE_ATTRIBUTE_NORMAL,
|
|||
|
|
NULL
|
|||
|
|
);
|
|||
|
|
if( m_fHnd == INVALID_HANDLE_VALUE ){
|
|||
|
|
AnsiString as = "\\\\.\\";
|
|||
|
|
as += PortName;
|
|||
|
|
m_fHnd = ::CreateFile( as.c_str(), GENERIC_READ | GENERIC_WRITE,
|
|||
|
|
0, NULL,
|
|||
|
|
OPEN_EXISTING,
|
|||
|
|
FILE_ATTRIBUTE_NORMAL,
|
|||
|
|
NULL
|
|||
|
|
);
|
|||
|
|
}
|
|||
|
|
if( m_fHnd == INVALID_HANDLE_VALUE ){
|
|||
|
|
m_pEXT = new CEXTFSK(PortName);
|
|||
|
|
if( m_pEXT->IsLib() ){
|
|||
|
|
LONG para;
|
|||
|
|
para = (45 << 16) | (5 << 2);
|
|||
|
|
m_pEXT->Open(para);
|
|||
|
|
m_CreateON = TRUE;
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
delete m_pEXT;
|
|||
|
|
m_pEXT = NULL;
|
|||
|
|
}
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
// setup device buffers
|
|||
|
|
if( ::SetupComm( m_fHnd, DWORD(1024), DWORD(2) ) == FALSE ){
|
|||
|
|
::CloseHandle(m_fHnd);
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// purge any information in the buffer
|
|||
|
|
::PurgeComm( m_fHnd, PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR | PURGE_RXCLEAR );
|
|||
|
|
|
|||
|
|
// set up for overlapped I/O
|
|||
|
|
COMMTIMEOUTS TimeOut;
|
|||
|
|
|
|||
|
|
TimeOut.ReadIntervalTimeout = 0xffffffff;
|
|||
|
|
TimeOut.ReadTotalTimeoutMultiplier = 0;
|
|||
|
|
TimeOut.ReadTotalTimeoutConstant = 0;
|
|||
|
|
TimeOut.WriteTotalTimeoutMultiplier = 0;
|
|||
|
|
TimeOut.WriteTotalTimeoutConstant = 20000;
|
|||
|
|
// TimeOut.WriteTotalTimeoutConstant = 1;
|
|||
|
|
if( !::SetCommTimeouts( m_fHnd, &TimeOut ) ){
|
|||
|
|
::CloseHandle( m_fHnd );
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
::GetCommState( m_fHnd, &m_dcb );
|
|||
|
|
m_dcb.BaudRate = 9600;
|
|||
|
|
m_dcb.fBinary = TRUE;
|
|||
|
|
m_dcb.ByteSize = 8;
|
|||
|
|
m_dcb.Parity = NOPARITY;
|
|||
|
|
m_dcb.StopBits = ONESTOPBIT;
|
|||
|
|
m_dcb.XonChar = 0x11; // XON
|
|||
|
|
m_dcb.XoffChar = 0x13; // XOFF
|
|||
|
|
m_dcb.fParity = 0;
|
|||
|
|
m_dcb.fOutxCtsFlow = FALSE;
|
|||
|
|
m_dcb.fInX = m_dcb.fOutX = FALSE;
|
|||
|
|
m_dcb.fOutxDsrFlow = FALSE;
|
|||
|
|
m_dcb.EvtChar = 0x0d;
|
|||
|
|
|
|||
|
|
m_dcb.fRtsControl = RTS_CONTROL_DISABLE; // <20><><EFBFBD>M<EFBFBD>֎~
|
|||
|
|
m_dcb.fDtrControl = DTR_CONTROL_DISABLE; // <20><><EFBFBD>M<EFBFBD>֎~
|
|||
|
|
|
|||
|
|
// m_dcb.fTXContinueOnXoff = TRUE;
|
|||
|
|
m_dcb.XonLim = USHORT(1024/4); // 1/4 of RBufSize
|
|||
|
|
m_dcb.XoffLim = USHORT(1024*3/4); // 3/4 of RBufSize
|
|||
|
|
m_dcb.DCBlength = sizeof( DCB );
|
|||
|
|
|
|||
|
|
if( !::SetCommState( m_fHnd, &m_dcb ) ){
|
|||
|
|
::CloseHandle( m_fHnd );
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// get any early notifications
|
|||
|
|
if( !::SetCommMask( m_fHnd, EV_RXFLAG ) ){
|
|||
|
|
::CloseHandle(m_fHnd);
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
m_CreateON = TRUE;
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
//-----------------------------------------------------------------
|
|||
|
|
// PTT<54><EFBFBD><D882>ւ<EFBFBD><D682>p
|
|||
|
|
int __fastcall CComm::PTTOpen(void)
|
|||
|
|
{
|
|||
|
|
if( m_CreateON == FALSE ){
|
|||
|
|
if( !strcmpi(sys.m_TxRxName.c_str(), "NONE") ) return FALSE;
|
|||
|
|
Open(sys.m_TxRxName.c_str());
|
|||
|
|
if( m_CreateON == FALSE ) return FALSE;
|
|||
|
|
}
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
//-----------------------------------------------------------------
|
|||
|
|
// PTT<54><EFBFBD><D882>ւ<EFBFBD><D682>p
|
|||
|
|
int __fastcall CComm::SetPTT(void)
|
|||
|
|
{
|
|||
|
|
int rts = m_ptt;
|
|||
|
|
if( m_pEXT != NULL ){
|
|||
|
|
if( sys.m_RTSonRX && m_scan ) rts |= 2;
|
|||
|
|
m_pEXT->SetPTT(rts);
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
if( sys.m_RTSonRX ){
|
|||
|
|
rts |= m_scan;
|
|||
|
|
::EscapeCommFunction(m_fHnd, m_scan ? SETBREAK : CLRBREAK);
|
|||
|
|
}
|
|||
|
|
::EscapeCommFunction(m_fHnd, rts ? SETRTS : CLRRTS);
|
|||
|
|
::EscapeCommFunction(m_fHnd, m_ptt ? SETDTR : CLRDTR);
|
|||
|
|
}
|
|||
|
|
return rts | m_ptt;
|
|||
|
|
}
|
|||
|
|
//-----------------------------------------------------------------
|
|||
|
|
// PTT<54><EFBFBD><D882>ւ<EFBFBD><D682>p
|
|||
|
|
void __fastcall CComm::SetPTT(int sw)
|
|||
|
|
{
|
|||
|
|
m_ptt = sw;
|
|||
|
|
|
|||
|
|
if( !PTTOpen() ) return;
|
|||
|
|
if( !SetPTT() && (!sys.m_TxRxLock) ) Close();
|
|||
|
|
}
|
|||
|
|
//-----------------------------------------------------------------
|
|||
|
|
// RX-SCAN<41>M<EFBFBD><4D>
|
|||
|
|
void __fastcall CComm::SetScan(int scan)
|
|||
|
|
{
|
|||
|
|
m_scan = scan;
|
|||
|
|
|
|||
|
|
if( !sys.m_RTSonRX ) return;
|
|||
|
|
if( !PTTOpen() ) return;
|
|||
|
|
if( !SetPTT() && (!sys.m_TxRxLock) ) Close();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*******************************************************************
|
|||
|
|
EXTFSK.DLL
|
|||
|
|
*******************************************************************/
|
|||
|
|
__fastcall CEXTFSK::CEXTFSK(LPCSTR pName)
|
|||
|
|
{
|
|||
|
|
char Name[128];
|
|||
|
|
sprintf(Name, "%s.%s", pName, strcmpi(pName, "EXTFSK") ? "fsk" : "dll");
|
|||
|
|
|
|||
|
|
fextfskOpen = NULL;
|
|||
|
|
fextfskClose = NULL;
|
|||
|
|
fextfskIsTxBusy = NULL;
|
|||
|
|
fextfskPutChar = NULL;
|
|||
|
|
fextfskSetPTT = NULL;
|
|||
|
|
|
|||
|
|
m_hLib = ::LoadLibrary(Name);
|
|||
|
|
if( m_hLib != NULL ){
|
|||
|
|
fextfskOpen = (extfskOpen)GetProc("_extfskOpen");
|
|||
|
|
fextfskClose = (extfskClose)GetProc("_extfskClose");
|
|||
|
|
fextfskIsTxBusy = (extfskIsTxBusy)GetProc("_extfskIsTxBusy");
|
|||
|
|
fextfskPutChar = (extfskPutChar)GetProc("_extfskPutChar");
|
|||
|
|
fextfskSetPTT = (extfskSetPTT)GetProc("_extfskSetPTT");
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
__fastcall CEXTFSK::~CEXTFSK()
|
|||
|
|
{
|
|||
|
|
if( m_hLib != NULL ){
|
|||
|
|
Close();
|
|||
|
|
::FreeLibrary(m_hLib);
|
|||
|
|
m_hLib = NULL;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
FARPROC CEXTFSK::GetProc(LPCSTR pName)
|
|||
|
|
{
|
|||
|
|
FARPROC fn = ::GetProcAddress(m_hLib, pName+1);
|
|||
|
|
if( fn == NULL ){
|
|||
|
|
fn = ::GetProcAddress(m_hLib, pName);
|
|||
|
|
}
|
|||
|
|
return fn;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
long __fastcall CEXTFSK::Open(long para)
|
|||
|
|
{
|
|||
|
|
if( !m_hLib || !fextfskOpen ) return FALSE;
|
|||
|
|
return fextfskOpen(para);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void __fastcall CEXTFSK::Close(void)
|
|||
|
|
{
|
|||
|
|
if( !m_hLib || !fextfskClose ) return;
|
|||
|
|
fextfskClose();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
long __fastcall CEXTFSK::IsTxBusy(void)
|
|||
|
|
{
|
|||
|
|
if( !m_hLib || !fextfskIsTxBusy ) return FALSE;
|
|||
|
|
return fextfskIsTxBusy();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void __fastcall CEXTFSK::PutChar(BYTE c)
|
|||
|
|
{
|
|||
|
|
if( !m_hLib || !fextfskPutChar ) return;
|
|||
|
|
fextfskPutChar(c);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void __fastcall CEXTFSK::SetPTT(long tx)
|
|||
|
|
{
|
|||
|
|
if( !m_hLib || !fextfskSetPTT ) return;
|
|||
|
|
fextfskSetPTT(tx);
|
|||
|
|
}
|
|||
|
|
|