procedure TForm1.ButtonlClick(Sender: TObject);
begin {запрос}
if (hCQM=0) or (hCOM=INVALID_HANDLE_VALUE) then exit;
{если порт еще не инициализирован — выход}
PurgeComm(hCOM,PURGE_RXCLEAR); {очищаем буфер}
xb:=$А2;
WriteFile(hCOM,xb,1,xn,nil);
told:=Time;
if ReadFile(hCOM,ab,6,xn,nil) then {читаем 6 байтов в массив ab}
begin
ttime:=Time;
if SecondsBetween(told,ttime)>0
Application.MessageBox('Устройство не обнаружено','Error',MB_OK);
exit;
if xn<>6 then
Application.MessageBox('Неправильный формат данных', 1 Error',MB_OK);
exit;
StaticText1.Caption:=IntToHex(ab[1],2)
StaticText2.Caption:=IntToHex(ab[2],2)
StaticText3.Caption:=IntToHex(ab[3],2)
StaticText4.Caption:=IntToHex(ab[4],2)
StaticText5.Caption:=IntToHex(ab[5],2)
StaticText6.Caption:=IntToHex(ab[6],2)
Application.MessageBox('COM сломался','Error',MB_0K);
exit;
end;
Результат будет выглядеть примерно так, как показано на рис. 18.7.
Рис. 18.7.
Здесь процедура PurgeComm нужна для очистки приемного буфера, на случай, если там случайно задержались какие-то байты (те, кто работал с СОМ-портом в DOS, часто об этом забывают, т. к. там никаких буферов не было). Второй момент, который нужно прокомментировать, связан с возможным отсутствием нужного устройства на втором конце линии (или его неработоспособностью — включить забыли). Мы здесь, как видите, все делаем очень просто: читаем системное время до и после вызова функции ReadFile, и выясняем — если прошло более 1 с (a timeout у нас задан в 2 с), то «устройство не обнаружено». Опыт показывает, что это самый надежный метод. Если же связь каким-то образом прервется посередине посылки, то мы получим меньше байтов, чем заказывали, и программа выдаст сообщение «Неправильный формат данных». Не забудьте, что при работе с функциями времени в Delphi надо добавить ссылку на модуль DateUtils.
По той же схеме можно организовать взаимодействие с измерителем для всех наших команд, кроме команды чтения данных из flash-памяти. С ней сложности возникнут оттого, что мы точно не знаем, сколько данных нам придет, и когда пора заканчивать. В принципе можно обойтись тем же приемом с проверкой времени, т. к. данные поступают сплошным потоком, и когда поток этот прервется, то можно заканчивать. Организация процедуры тогда в некотором роде напоминает использование сторожевого таймера в МК: мы задаем в процедуре чтения максимальное количество принимаемых байтов за один прием (например, 1024 — столько придет примерно за секунду), и пока данные идут, в цикле принимаем их, «скидываем» временно в какой-нибудь массив (потом будем обрабатывать) и обнуляем разницу между told и ttime. Если она не обнулилась вовремя и превысила 1 с — прием окончен.
Это требует довольно тонкой организации процесса и вообще не универсально: а как быть, если мы не знаем точно момента прихода данных? Ну, например, пишем программу для взаимодействия с упоминавшимся GPS-навигатором, который выдает данные (и точно неизвестно, сколько именно) каждые несколько секунд?
Для этой цели можно организовать прием данных в отдельном потоке. Мы здесь не будем разбирать этот способ, потому что из-за «заумности» соответствующих функций API самое простое, что там приходится делать, — это создавать сам параллельный поток (по сути очень простое действие, которое почему-то вызывает дрожь у новичков, в значительной степени из-за неудобства этого процесса в Delphi). А вот собственно прием данных и их передача в основную программу там получается неоправданно сложной и запутанной процедурой. Потому я не буду на этом останавливаться (интересующихся подробностями отсылаю опять же к книге [11]), а сразу покажу, как можно создать подобную программу на основе дополнительного стороннего компонента, специально созданного для приема через COM-порт. Именно такой способ используется в программе СОМ2000.
Использование драйвера
