| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить сообщение о том, что Com порт выдал данный [D7, WinXP]
Soft © (2003-03-11 02:26:00)Привет.
Вот собственно есть сам вопрос.
Открываем Com как TFileStream, пишем в него(без проблемм) а читать не получется нормально, неизвестно когда поступит ответ(не опрашивать же в цикле как досявые проги)
Soft (2003-03-12 11:11:00) [1]Спасибо, уже нашел кучу док, с ссылками таки мастаки помогли.
Да и компоненты ComPortDriver и Async Proffesional
sourceforge.net неплохи.
Pat (2003-03-11 19:09:00) [2]>Открываем 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;
Может чем поможет
jack128 (2003-03-11 17:29:00) [3]Вот тут тоже хотят с портом как с файлом работать.. ;))
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1047297528&n=2
а чем тебе опрос в цикл не нравится??
Можно ещё с помощью таймера опрашивать...
крот (2003-03-11 05:53:00) [4]WaitCommEvent
| |
