Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 22.03.2009, 02:59   #1
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,298
Репутация: 489

icq: 62754415
skype: stepanext
Стрелка как средствами Delphi опросить USB порты?

Задача! Если ни в одом из USB портов не будет подключённых устройств, то вывело сообщение. что нет подключённых устройств, в противном случае программа молча продолжала свою роботу :-)
Буду рад любой информации, по данному вопросу.
Нашол хороший компонент BComPort, там есть procedure EnumComPorts(Ports: TStrings);
которая формирует список последовательных портов, установленных на данном компьютере (Приложение может использовать полученный список для выбора имени порта, через который необходимо установить связь с внешним устройством.)
Думаю, я близок к тому, что мне надо, вот код, получения списка активных портов:
Код:

begin
EnumComPorts(ComboBox1.Items);
BComPort1.Port := ComboBox1.Text;
end;

Я пытался сделать так:
Код:

begin
if BComPort1.Port = '' then
showmessage('нет активных портов');
end;

код запустился, но ничего не сообщал, потом вернулся к процедуре EnumComPorts, но не пойму как реализовать, помогите пожалуйста
_________________
Вот как я обхитрил немножко:
Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Visible := false;
EnumComPorts(ComboBox1.Items);
BComPort1.Port := ComboBox1.Text;
if ComboBox1.Items.Text = '' then
showmessage('Net aktivnih portov')
else
//////////
end;
end.

Мне подходит этот вариант. Прошу прощения за беспокойство, если будут свои предложения, обезательно прочитаю

Последний раз редактировалось beegl; 22.03.2009 в 04:16. Причина: добавил текст .. и решил задачю :)
beegl вне форума   Ответить с цитированием
Старый 22.03.2009, 20:51   #2
rpy3uH
добрый няша
СуперМодератор
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Адрес: Солнечное Тбилиси
Сообщений: 4,807
Репутация: 1989
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
Задача! Если ни в одом из USB портов не будет подключённых устройств, то вывело сообщение. что нет подключённых устройств, в противном случае программа молча продолжала свою роботу :-)
в windows нет портов есть только то, что подключено к ним. Это ярко выражено в случае с USB портами. Случай с портами COM и LPT это чисто совместимость со старыми программами и подгон под стандарт.
rpy3uH вне форума   Ответить с цитированием
Старый 22.03.2009, 21:05   #3
mihali4
*
Профессионал
 
Регистрация: 22.11.2006
Адрес: Москва
Сообщений: 9,198
Репутация: 2661
По умолчанию

Почитайте статью СуперМодератора "Работа с устройствами в Windows" в блогах на сайте клуба. Там как раз речь идет о просмотре USB-устройств.
mihali4 вне форума   Ответить с цитированием
Старый 24.03.2009, 18:40   #4
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,298
Репутация: 489

icq: 62754415
skype: stepanext
По умолчанию

почитал статью "Работа с устройствами в Windows", познавательная, спасибо.
beegl вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сохранить данные в xml файл средствами delphi ??? juden Общие вопросы Delphi 1 12.08.2008 10:12
Как опросить COM-порт Д'якон Win Api 10 23.02.2008 13:15
средствами Delphi на форму вывести погоду выбранного города. Aleksandr Общие вопросы Delphi 12 26.09.2007 00:21
Разработка проекта «Биржа ценных бумаг» средствами Delphi KORT Помощь студентам 3 12.07.2007 09:19


12:09.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru