|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста
Мне надо чтобы я вводил байт информации для микроконтроллера, который подключен через СОМ порт, в поле едит, и в поле статик текст мне приходил байт информации с микроконтроллера. Другими словами, чтобы осуществлялся прием и передача. Вот код для кнопки по нажатию на которую должно это происходить, но задумка слегка не работает. Я в принципе догадываюсь где ошибка, помогите пожалуйста устранить
Код:
procedure TForm1.Button1Click(Sender: TObject); var A1:string; begin if (hCOM=0) or (hCOM=INVALID_HANDLE_VALUE) then exit; PurgeComm(hCOM,PURGE_RXCLEAR); A1:=(Edit1.Text); xb:=$A1; WriteFile(hCOM,xb,1,xn,nil); told:=Time; if ReadFile (hCOM,ab,1,xn,nil) then begin ttime:=Time; if SecondsBetween(told,ttime)>0 then begin Application.MessageBox('Устройство не обнаружено','Error',MB_OK); exit; end; StaticTExt1.Caption:=hexb(ab[1]); end else begin Application.MessageBox('СОМ сломался','Error',MB_OK); exit; end; end; Что - то не так где -то вот в этой части, мне кажется Код:
A1:=(Edit1.Text); xb:=$A1; Так как мне, чтобы я не отправил на микроконтроллер, все время приходит в поле статик текст А1 |
#2
|
|||
|
|||
Полагаю не срабатывает одно из условий в вашей паутинке)
|