Как получить сообщение о том, что Com порт выдал данный

← →
Soft © (2003-03-11 02:26) [0]

Привет.

Вот собственно есть сам вопрос.

Открываем Com как TFileStream, пишем в него(без проблемм) а читать не получется нормально, неизвестно когда поступит ответ(не опрашивать же в цикле как досявые проги)

← →
крот © (2003-03-11 05:53) [1]

WaitCommEvent

← →
jack128 © (2003-03-11 17:29) [2]

Вот тут тоже хотят с портом как с файлом работать.. ;))
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1047297528&n=2

а чем тебе опрос в цикл не нравится??
Можно ещё с помощью таймера опрашивать...

← →
Pat © (2003-03-11 19:09) [3]

>Открываем Com как TFileStream
Бедный Com-порт...как его только не открывали... :-)
Можно и по таймеру читать...
//Установка размеров буферов чтения и передачи данных if not SetupComm(hPort,2048,2048) then showmessage("Can""t set size of I/O buffers :"+ syserrormessage(getlasterror)); procedure TMainForm.ReadTimerTimer(Sender: TObject); var COM_Stat:TCOMSTAT; actual_bytes:dword; d:array[0..127] of Char; Errors:dword; begin if not connected then ReadTimer.Enabled:=false; FillChar(d, 128, #0); ClearCommError(hPort,Errors,@COM_Stat); //Чтение данных из буфера чтения порта if COM_Stat.cbInQue=0 then exit; if not ReadFile(hPort, d, COM_Stat.cbInQue, actual_bytes, nil) then ShowMessage("Can""t read from port: " + SysErrorMessage(GetLastError)); txtRecive.Text:=txtRecive.Text+d end;
Может чем поможет

Спасибо, уже нашел кучу док, с ссылками таки мастаки помогли.

Да и компоненты ComPortDriver и Async Proffesional
sourceforge.net неплохи.

Как получить сообщение о том, что Com порт выдал данный Найти похожие ветки