Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.12.2011, 23:55
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию Com port

Всем привет!
Необходимо написать программу, которая откроет порт DTR, т.е. подаст на него питание.
Спасибо!
Ответить с цитированием
  #2  
Старый 14.12.2011, 02:36
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

поиск рулит.
некоторое время назад здесь поднималась тема работы с COM-портами.

И гугл тоже никто не отменял.
Не ленитесь сначала поискать, и только потом спрашивать.
Ответить с цитированием
  #3  
Старый 14.12.2011, 07:36
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
поиск рулит.
некоторое время назад здесь поднималась тема работы с COM-портами.

И гугл тоже никто не отменял.
Не ленитесь сначала поискать, и только потом спрашивать.
Простите на форуме ничего не нашел.
Мне необходимо открыть выход DTR
Ответить с цитированием
  #4  
Старый 14.12.2011, 07:54
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от pavelok
Простите на форуме ничего не нашел.
Мне необходимо открыть выход DTR

Первая же ссылка при поиске по форуму:
http://www.delphisources.ru/forum/sh...m-%EF%EE%F0%F2

Ну дальше читай и ищи сам.
Ответить с цитированием
  #5  
Старый 14.12.2011, 16:05
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

Юзал тему, результата не дало.
Мерю вольтметром SG(как правило минус) и DTR, как правило должно быть плюсом при открытии порта.
В итоге:
Вольтметр показывает постоянно, что напряжение SG и DTR примерно 10 вольт, причем SG - плюс, DTR - минус. Почему так?

Кто нибудь скиньте пожалуйста правильный код, просто нужно открывать и закрывать один из выходов ком порта, чтоб на нем появлялось напряжение или закрывать, чтоб оно исчезало.
Ответить с цитированием
  #6  
Старый 14.12.2011, 19:24
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

никто помочь не может? срочно нужно
Ответить с цитированием
  #7  
Старый 14.12.2011, 19:28
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Нагуглил меньше чем за минуту. Даже на русском языке.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.

Последний раз редактировалось Aristarh Dark, 14.12.2011 в 19:33.
Ответить с цитированием
  #8  
Старый 14.12.2011, 20:28
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

Спасибо
вот код:
Код:
BOOL EscapeCommFunction(
  HANDLE hFile,
  DWORD dwFunc
);

по статье, dwFunc заменяю на CLRDTR, но что делать с hFile, я не понял объясните пожалуйста
Ответить с цитированием
  #9  
Старый 14.12.2011, 21:06
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

если нужно есть пример работы с com-портом, где-то на кладовке когда-то скачал - там зажигаются 4 лампочки. Работоспособность не проверял
Ответить с цитированием
  #10  
Старый 14.12.2011, 21:35
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

как я понял, эта вот этот исходник
но вот выдает ошибку
Цитата:
Pas de Port disponible sur cette machine
,
гугл переводчик перевел
Цитата:
Порт не доступны на этом компьютере
Может мне где-нибудь в системе активировать ком порт?
Ответить с цитированием
  #11  
Старый 14.12.2011, 21:58
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Нет, у меня без длл, используется только стандартный модуль Sockets,
там того исходника уже нет(на кладовке), могу на мыло скинуть если хочешь.
У меня порт открывается.
Ответить с цитированием
  #12  
Старый 15.12.2011, 16:48
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

нашел в интернете программу
пруф
все прекрасно работает, светодиод подключаю, тоже моргает.
Может кто нибудь помочь или скинуть исходник подобной программы?
Ответить с цитированием
  #13  
Старый 15.12.2011, 17:00
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Проблема в том, что там уже есть исходники, и они на С, но если хочь на паскале - нужно переработать (очень долго...)
Ответить с цитированием
  #14  
Старый 15.12.2011, 17:08
pavelok pavelok вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Сообщение от YVitaliy
Проблема в том, что там уже есть исходники, и они на С, но если хочь на паскале - нужно переработать (очень долго...)
печально
Можете скинуть ссылку на C исходники, раньше изучал немного, может и удастся что-нибудь сделать

хотя бы найти работающий исходник открытия/закрытия ком порта, азбуку морзе я допилю сам.

Последний раз редактировалось pavelok, 15.12.2011 в 17:17.
Ответить с цитированием
  #15  
Старый 15.12.2011, 18:17
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

вот еще 1 пример, спец. для DRT есть 2 кнопки, если уж не работает, тогда не знаю...
Вложения
Тип файла: rar compt.rar (166.3 Кбайт, 13 просмотров)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:01.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter