BorlandTalk.com

Ram · Guest

Hi, below is the function that i'm using to init my communication
for COM1, when i run it on my PC (Windows-2000) it's runs very
fast, but when i run the same application on another PC with
Windows-98 it's takes MUCH more time, for the test i wrote a loop
that runs this function 5,000 times over and over again, on my PC
the loop took about 10 seconds, this was the time that it took
it to run ONLY 50 loops on the Windows-98 computer.... (100 times
slower than my PC)

Why does it happen? and how can i fix in my function to make it
run faster on the Win-98 computer? it's important becouse in the
communication protocol that i'm using i should init the com for
each message (i send some bytes with parity and the rest of the
message without parity, so for each message i have to call the
init function 2 times) and it's takes lot of time in the Win-98
computer.

Thanks, here is the function:

int InitCommunication( void )
{
COMMTIMEOUTS read_timeout; // timeout structure
char ComName[30];
HANDLE ComHndl = NULL;
DCB PortDCB; // device control block structure

if ( SystemInfo.ErrorInfo.Status != NO_ERRORS ) // If Error -> Exit
return 0;

if ( SystemInfo.ComInfo.ComHandle ) // If Port already open
{
CloseHandle( SystemInfo.ComInfo.ComHandle ); // Close Port
SystemInfo.ComInfo.ComHandle = NULL; // Reset Port Handle
}

strcpy( ComName, SystemInfo.ComInfo.ComPort ); // Set ComName

ComHndl = CreateFile( ComName, GENERIC_WRITE + GENERIC_READ, 0, NULL, // Open the asked Com Port
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );

if ( ComHndl == INVALID_HANDLE_VALUE ) // Check COM Handle
return FAIL;

PortDCB.DCBlength= sizeof( PortDCB ); // Sizeof( DCB )

GetCommState( ComHndl, &PortDCB );
PortDCB.BaudRate = SystemInfo.ComInfo.BaudRate; // Current baud rate
PortDCB.fBinary = true; // Binary mode, no EOF check
PortDCB.fParity = 0; // 0 = Disable Parity Checking
PortDCB.fOutxCtsFlow = 0; // CTS output flow control
PortDCB.fOutxDsrFlow = 0; // DSR output flow control
PortDCB.fDtrControl = DTR_CONTROL_ENABLE; // DTR flow control type
PortDCB.fDsrSensitivity = 0; // DSR sensitivity
PortDCB.fTXContinueOnXoff = 1; // 0; // XOFF continues Tx
PortDCB.fOutX = 0; // XON/XOFF out flow control
PortDCB.fInX = 0; // XON/XOFF in flow control
PortDCB.fErrorChar = 0; // Enable error replacement
PortDCB.fNull = false; // Enable null stripping
PortDCB.fRtsControl = RTS_CONTROL_ENABLE; // RTS flow control
PortDCB.fAbortOnError = 0; // Abort reads/writes on error
PortDCB.ByteSize = 8; // Number of bits/byte, 4-8
PortDCB.Parity = (char)SystemInfo.ComInfo.Parity; // 0-4 = No, Odd, Even, Mark, Space
PortDCB.StopBits = ONESTOPBIT; // 0, 1, 2 = 1, 1.5, 2

PortDCB.XonLim = 50; // Transmit XON threshold
PortDCB.XoffLim = 50; // Transmit XOFF threshold
PortDCB.XonChar = 0; // Tx and Rx XON character
PortDCB.XoffChar = 0; // Tx and Rx XOFF character
PortDCB.ErrorChar = 0; // Error replacement character
PortDCB.EofChar = 0; // End of input character
PortDCB.EvtChar = 0; // Received event character
read_timeout.ReadIntervalTimeout = 0; // Read Interval Timeout
read_timeout.ReadTotalTimeoutMultiplier = 0; // Read Total Timeout Multiplier
read_timeout.ReadTotalTimeoutConstant = SystemInfo.ComInfo.RxTimeout; // Read Total Timeout Constant
read_timeout.WriteTotalTimeoutMultiplier = 0; // Write Total Timeout Multiplier
read_timeout.WriteTotalTimeoutConstant = SystemInfo.ComInfo.TxTimeout; // Write Total Timeout Constant

if ( !SetCommState( ComHndl, &PortDCB ) ) // Configures Com Port
return FAIL; // Return If Fail

if ( !SetCommTimeouts( ComHndl, &read_timeout ) ) // Set Tx & Rx Timeouts
return FAIL;

SystemInfo.ComInfo.ComHandle = ComHndl; // Set Communication Handle
hndl = SystemInfo.ComInfo.ComHandle;

return PASS; // COM Init was successful
}

Remy Lebeau (TeamB) · Guest

"Ram" <Ram (AT) NoSpam (DOT) com> wrote

Ram · Guest

I can't, becouse there is not Builder C++ Compiler installed on
that Win-98 computer, i can only run the Exe file on it....

Ram.

Ram · Guest

On a second thought, mybe I can measure time for each part in
that function, and show the result on the form itself.

"Ram" <Ram (AT) NoSpam (DOT) com> wrote:

Remy Lebeau (TeamB) · Guest

"Ram" <Ram (AT) NoSpam (DOT) com> wrote

Stefan Kvist · Guest

"Ram" <Ram (AT) NoSpam (DOT) com> skrev i meddelandet
news:43c24b5a$1 (AT) newsgroups (DOT) borland.com...

Ram · Guest

Thanks, based on the function that i showed in my first message,
can you please show me how should i write that?

For transmiting the bytes to the port i'm using something like:

TxBuff[0] = 0xAA;
TxBuff[2] = 0xBB;
TxBuff[3] = 0xCC;
Result = WriteFile( hndl, TxBuff, 3, &written, NULL )

What should i write if i want to transmite the 0xAA with
Parity, and the 0xBB amd the 0xCC without parity?

Thanks.

Ram · Guest

Thanks, as I said in my message above this is exactly what I
wanted to try, and as I said I'll just show the timming results
on the Form itself. But first I want to try the sollution that
I got from dot, i'll be happy to see your comments for that
idea also.

Thanks,
Ram.

Ram · Guest

Sorry it should be:

TxBuff[0] = 0xAA;
TxBuff[1] = 0xBB;
TxBuff[2] = 0xCC;

Result = WriteFile( hndl, TxBuff, 3, &written, NULL )

Stefan Kvist · Guest

"Ram" <Ram (AT) NoSpam (DOT) com> skrev i meddelandet
news:43c619d9$1 (AT) newsgroups (DOT) borland.com...

Ram · Guest

Hmmmm.... I'm using 8 Bits of data.

So do you say that I must init the port for each message?

(I still have to do the time measuring.....)

Ram.

Stefan Kvist · Guest

"Ram" <Ram (AT) NoSpam (DOT) com> skrev i meddelandet
news:43c9f760$1 (AT) newsgroups (DOT) borland.com...

Ram · Guest

Thanks, i'll try to see if i can run only part of the Port Init
function for changing the 'Parity', if i'll have luck it will be
the quick part of the function and not the slow one which i
want to rid of it.