Форум: "Система";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
Вниз
Как получить сообщение о том, что 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;
Может чем поможет
← →
Soft (2003-03-12 11:11) [4]Спасибо, уже нашел кучу док, с ссылками таки мастаки помогли.
Да и компоненты ComPortDriver и Async Proffesional
sourceforge.net неплохи.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
