| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Буфер com-порта [D5, Win95/98]
Aric © (2002-03-10 14:20:00)Приветствую! Скажите, как можно обнулить буфер com-порта? Т.е. сбросить все, что там уже есть и начать писать в него заново? Заранее спасибо!
XOY (2002-03-12 20:08:00) [1]Удалено модератором
Aric (2002-03-12 15:17:00) [2]Всем спасибо! Тема закрыта, т.к. первоначально задуманный вариант был не оч. удачным.
Leo_ (2002-03-12 15:07:00) [3]Вот как читать инфу из модема(с com порта)
После предварительной настройки переменных, COM порт открывается как обычный файл. Так же пример показывает, как очищать буфер COM порта и читать из него.
Var
PortSpec : array[0..255] of char;
PortNo : Word;
success : Boolean;
error:integer;
begin
FillChar(PortSpec,Sizeof(PortSpec),#0);
StrPCopy(PortSpec,"Com1:19200,n,8,1");
PortSpec[3]:=Char(Ord(PortSpec[3])+Ord(PortNo));
if not BuildCommDCB(PortSpec,Mode) Then
Begin
//какая-то ошибка...
Exit;
End;
PortSpec[5]:=#0; { "Com1:" }
Mode.Flags:=EV_RXCHAR + EV_EVENT2; { $1001 }
Com := CreateFile(PortSpec,GENERIC_READ or GENERIC_WRITE,
0, //* comm устройство открывается с эксклюзивным доступом*/
Nil, //* нет security битов */
OPEN_EXISTING, //* comm устройства должны использовать OPEN_EXISTING*/
0, //* not overlapped I/O */
0 //* hTemplate должен быть NULL для comm устройств */
);
if Com = INVALID_HANDLE_VALUE then Error := GetLastError;
Success := GetCommState(Com,Mode);
if not Success then // Обработчик ошибки.
begin
end;
Mode.BaudRate := 19200;
Mode.ByteSize := 8;
Mode.Parity := NOPARITY;
Mode.StopBits := ONESTOPBIT;//нужен был для перезаписи в NT
Success := SetCommState(Com, Mode);
if not Success then // Обработчик ошибки.
begin
end;
end;
Переменная "com" типа dword.
Вы так же можете очистить буффер COM порта - PurgeComm(Com,PURGE_RXCLEAR or PURGE_TXCLEAR);
И прочитать из него
Function ReadCh(Var Ch:Byte):dword;
var
n : dword;
Begin
Readfile(Com,ch,1,result,nil);
End;
Coalycat (2002-03-11 10:25:00) [4]Можно наткнуться на прблему: внешнее устройство еще передает данные. По-этому перед записью можно добавить таймаут на время выполнения команды, либо читать посылку до тех пор, пока не найдешь символ начала посылки.
EsKor (2002-03-11 10:17:00) [5]Используй API-функцию (описана в справке SDK)
PurgeComm(
HANDLE hFile, // дескриптор порта
DWORD dwFlags // флаг действия
);
dwFlags
Этот параметр м.б. комбинацией следующих значений:
PURGE_TXABORT - Прерывает операцию записи в порт даже если она не завершена;
PURGE_RXABORT - То же для операции чтения;
PURGE_TXCLEAR - Очищает выходной буфер (запись), т.е. компьютер можно не перезагружать ;
PURGE_RXCLEAR - Очищает входной буфер (чтение).
Хотя действительно можно организовать цикл чтения порта до тех пор пока не будут возвращаться пустые значения - это и означает, что буфер порта пуст.
Королев (2002-03-11 06:24:00) [6]есть такая команда в апи, точно есть clear*** что-то. посмотри в группе команд для ком порта.
Aric (2002-03-10 15:05:00) [7]Читать в никуда? А как узнать, что в буфер уже пуст? а если там много? Вопросы, конечно, несколько тупские, но я в этом профан, а шеф требует(
Anatoly Podgoretsky (2002-03-10 14:59:00) [8]Я серьезно, но у тебя был вопрос про запись, а с чтением просто, прочитай все и буфер будет чист
Aric (2002-03-10 14:53:00) [9]Мне программно надо... Идея такая - идет чтение с ком-порта какой-то информации, юзер жмет на паузу - ничего не читается, но данные-то в буфере остались - их и надо сбросить... отжал паузу - читаем дальше.
Anatoly Podgoretsky (2002-03-10 14:42:00) [10]Думаю надо перезагрузить компьютер
| |
