Реклама на сайте English version  DatasheetsDatasheets

KAZUS.RU - Электронный портал. Принципиальные схемы, Datasheets, Форум по электронике

Новости электроники Новости Литература, электронные книги Литература Документация, даташиты Документация Поиск даташитов (datasheets)Поиск PDF
  От производителей
Новости поставщиков
В мире электроники

  Сборник статей
Электронные книги
FAQ по электронике

  Datasheets
Поиск SMD
Он-лайн справочник

Принципиальные схемы Схемы Каталоги программ, сайтов Каталоги Общение, форум Общение Ваш аккаунтАккаунт
  Каталог схем
Избранные схемы
FAQ по электронике
  Программы
Каталог сайтов
Производители электроники
  Форумы по электронике
Помощь проекту

Микроконтроллеры, АЦП, память и т.д Темы касающиеся микроконтроллеров разных производителей, памяти, АЦП/ЦАП, периферийных модулей...

 
Опции темы
Непрочитано 09.12.2005, 13:24  
URY
Гость
 
Сообщений: n/a
По умолчанию COMпорт+Delphi

Подскажите,пожалуйста,почему с помощью

EscapeCommFunction(comh,SETRTS) - выводится '1' , а

EscapeCommFunction(comh,SETDTR) - не выводится?
Вроде оба вывода выходные.
Реклама:
 
Непрочитано 09.12.2005, 15:11  
Гость
 
Сообщений: n/a
По умолчанию

Уточняю процедуру:


var comh: hFile;
begin
comh:=CreateFile('\\.\com1',GENERIC_READ or GENERIC_WRITE, 0,
nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
EscapeCommFunction(comh,SETDTR);
CloseHandle(comh);
end;

Сигнал RTS в порт выводится, а DTR -нет, почему?
 
Непрочитано 09.12.2005, 16:03  
nml
Супер-модератор
 
Аватар для nml
 
Регистрация: 13.03.2004
Адрес: Minsk
Сообщений: 2,378
Сказал спасибо: 1,955
Сказали Спасибо 1,328 раз(а) в 578 сообщении(ях)
nml на пути к лучшему
По умолчанию Re: COMпорт+Delphi

Сообщение от URY
Подскажите,пожалуйста,почему с помощью

EscapeCommFunction(comh,SETRTS) - выводится '1' , а
EscapeCommFunction(comh,SETDTR) - не выводится?
Вроде оба вывода выходные.
Должно выводиться. На каких пинах порта и какие уровни видите? Кстати, лог. 1 на RS232 это -12в а лог.0 это +12в

А что будет после закрытия handle - я не знаю.
nml вне форума  
Непрочитано 09.12.2005, 16:46  
Гость
 
Сообщений: n/a
По умолчанию

При SETRTS +12v на 7-ом пине порта,
при CLRRTS -12v там-же, относительно пятого.

При SETDTR -12v на 4-ом пине,
при CLRDTR -12v .

Объясните,пожалуйста, что означают константы при
открытии порта?
comh:=CreatFile( ?????)
 
Непрочитано 09.12.2005, 17:30  
nml
Супер-модератор
 
Аватар для nml
 
Регистрация: 13.03.2004
Адрес: Minsk
Сообщений: 2,378
Сказал спасибо: 1,955
Сказали Спасибо 1,328 раз(а) в 578 сообщении(ях)
nml на пути к лучшему
По умолчанию

Сообщение от Anonymous
При SETRTS +12v на 7-ом пине порта,
при CLRRTS -12v там-же, относительно пятого.

При SETDTR -12v на 4-ом пине,
при CLRDTR -12v .
должно быть -12 при лог.1 ил +12 при лог. 0
Еще раз - после установки закрываете handle?
Цитата:
Объясните,пожалуйста, что означают константы при
открытии порта?
comh:=CreatFile( ?????)
А Ctrl-F1 в дельфях нажать лениво?
nml вне форума  
Непрочитано 10.12.2005, 11:20  
Гость
 
Сообщений: n/a
По умолчанию

Спасибо за помощь.

Логический уровень RTS изменяется без проблем,
а DTR молчит.???

procedure TForm1.Button1Click(Sender: TObject);

var comh: hFile;
begin
comh:=CreateFile('\\?\com1',GENERIC_READ or GENERIC_WRITE, 0,
nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
EscapeCommFunction(comh,SETDTR);
EscapeCommFunction(comh,SETRTS);
CloseHandle(comh);
end;


procedure TForm1.Button2Click(Sender: TObject);
var comh: hFile;
begin
comh:=CreateFile('\\.\com1',GENERIC_READ or GENERIC_WRITE, 0,
nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
EscapeCommFunction(comh,CLRRTS);
EscapeCommFunction(comh,CLRDTR);
CloseHandle(comh);
end;
 
Непрочитано 10.12.2005, 20:51  
nml
Супер-модератор
 
Аватар для nml
 
Регистрация: 13.03.2004
Адрес: Minsk
Сообщений: 2,378
Сказал спасибо: 1,955
Сказали Спасибо 1,328 раз(а) в 578 сообщении(ях)
nml на пути к лучшему
По умолчанию

Сообщение от Anonymous
Логический уровень RTS изменяется без проблем,а DTR молчит.???
Не возникала мысль открытие COM порта сделать при старте, а закрытие - при выходе из программы? Что будет на пинах после закрытия - одному богу известно. Вы же его закрыли, то есть вам он более не нужен.
nml вне форума  
Непрочитано 12.12.2005, 08:38  
Гость
 
Сообщений: n/a
По умолчанию

Вы правы,БОЛЬШОЕ СПАСИБО!
Сигнал DTR стал менять состояние.
 
 

Закладки
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В Delphi принять байт по COM Muzicant Микроконтроллеры, АЦП, память и т.д 16 24.04.2008 14:12
Немогу разобратся с RS-232 и Delphi Kanava Микроконтроллеры, АЦП, память и т.д 3 24.12.2007 00:51
RS-232 and AVR and Delphi Kanava Микроконтроллеры, АЦП, память и т.д 0 23.12.2007 22:58
Переходник USB – COMпорт rodgr Делимся опытом 9 10.05.2007 18:04
delphi sport7 Микроконтроллеры, АЦП, память и т.д 6 27.12.2005 00:14


Часовой пояс GMT +4, время: 21:49.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot