Описание COM устройства

[Foreseen]

Сообщение от indexx

Как обращаться? На ты, на Вы? Или "эй как тебя там"?

На stdcall
Если я правильно понимаю, вы желаете получить что то вроде

procedure TForm1.Button1Click(Sender: TObject);
begin
devname:=GetName(COM1);
end;

Спешу огорчить, таких функций нет. Либо надстройки, либо stdcall/

[indexx]

Я не прошу именно встроенные функции. Я прошу какое нибудь решение. Есть идеи?
P.S. Данное решение уже реализовано в сторонней библиотеке GetNumCom.dll, следовательно решение есть.

[Человек_Борща]

А я знаю, что это такое?

А гугл у вас есть? или вы с таксофона сидите?

И толку от этой информации, если я не знаю, как её использовать?

Наглость конечно второе счастье, но это целиком ваша проблема. Вы спросили как можно ещё получить желаемое, вам дали подсказку. Копайте в сторону использования WMI в Delphi.
Та же херня с SetupAPI.

Документации валом, далеко ходить не надо, есть оф. источник MSDN.
Исходников и примеров ещё больше. Написать "Исходник WMI в Delphi" религия запрещает?

Вот к примеру получение списка видеокарт через WMI:

uses
  SysUtils,
  ActiveX,
  ComObj,
  WbemScripting_TLB,
  Variants;

procedure  GetCIM_VideoControllerInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : ISWbemLocator;
  FWMIService   : ISWbemServices;
  FWbemObjectSet: ISWbemObjectSet;
  FWbemObject   : ISWbemObject;
  FWbemPropertySet: ISWbemPropertySet; 
  TempObj         : OleVariant;  
  oEnum         : IEnumvariant;
  iValue        : Cardinal;
begin                
  FSWbemLocator := CoSWbemLocator.Create;
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword, '', '', 0, nil);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM CIM_VideoController','WQL', wbemFlagForwardOnly, nil);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, TempObj, iValue) = 0 do
  begin
    FWbemObject     := IUnknown(TempObj) as ISWBemObject;
    FWbemPropertySet:= FWbemObject.Properties_;
  
    Writeln(Format('Caption    %s',[String(FWbemPropertySet.Item('Caption', 0).Get_Value)]));
	    
    Writeln('');
    TempObj:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetCIM_VideoControllerInfo;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;

А там написано как решить мою задачу? Я не нашёл.

А вот это уже сами думайте. Вам дали средство для достижения цели, а не священный гроаль. Не хотите думать своим мозгом, есть раздел "Фриланс" там всегда есть "двое из ларца, одинаковых с лица".

P.S. Данное решение уже реализовано в сторонней библиотеке GetNumCom.dll, следовательно решение есть.

Так и используйте эту библиотеку если там уже все написано.

[indexx]

Человек_Борща Отвечу кратко на все вопросы. Не хватает знаний. А Вам не хватает кстати внимательности

Так и используйте эту библиотеку если там уже все написано.

Читаем внимательно первый пост.

Написать "Исходник WMI в Delphi" религия запрещает?

Написал. Посмотрел на кучу информации, ничего не понял. Дальше что? Если я не понимаю wmi, я не имею права просить решение? Извиняйте, не знал что тут такие правила.
P.S. перекопал кучу информации, и везде одно и тоже. Посылают изучать WMI. Складывается ощущение, что посылают те, кто сами не знают решение.

[Foreseen]

Сообщение от indexx

Складывается ощущение, что посылают те, кто сами не знают решение.

Складывается ощущение, что вы просто тролль или совсем не понимаете в программировании. Хочу то, не знаю что.

[Человек_Борща]

А смекалка ваша где? По SerialPort'у поиска в классах никак?
Думаете я все знаю о WMI? Нет, просто у меня есть гугл и мне тоже интересно как это делать.
Плохому танцору сами знаете что мешает.

Есть Win32_SerialPort из root\CIMV2, свойства Caption - название устройства, и DeviceID - порт к которому подключено(вроде бы оно).
Ещё есть эти:
MSSerial_CommInfo
MSSerial_CommProperties
MSSerial_HardwareConfiguration
MSSerial_PerformanceInformation

в root\wmi

копайте в их сторону.

[indexx]

Сообщение от Foreseen

Складывается ощущение, что вы просто тролль

Какой-то странный способ тролить.

или совсем не понимаете в программировании. Хочу то, не знаю что.

Я в топике написал что я хочу. Даже с картинками! Читать пробовал?
Человек_Борща Вот это уже ближе к телу. Ведь можете, когда хотите. Жаль что в СИ я ни чего не смыслю. Вопрос открыт.

[northener]

Сообщение от indexx

[B]Написал. Посмотрел на кучу информации, ничего не понял. Дальше что? Если я не понимаю wmi, я не имею права просить решение? Извиняйте, не знал что тут такие правила.
P.S. перекопал кучу информации, и везде одно и тоже. Посылают изучать WMI. Складывается ощущение, что посылают те, кто сами не знают решение.

Сказать что нужен готовый код для сдачи экзамена скромность не позволяет? Или религия?

P.S. Ну а насчёт того что за устройство подключено в данный момент на некий COM-порт я пока ничего говорить не буду.

[indexx]

Сообщение от northener

Сказать что нужен готовый код для сдачи экзамена скромность не позволяет? Или религия?

В 30 лет экзамены? Не кури больше эту траву.

Сообщение от northener

Ну а насчёт того что за устройство подключено в данный момент на некий COM-порт я пока ничего говорить не буду

Ну да. Сопоставить Arduino и учебное заведение... Столько травы выкурить нереально. Разработчики любители? Не не слышали.

[Человек_Борща]

Человек_Борща Вот это уже ближе к телу. Ведь можете, когда хотите. Жаль что в СИ я ни чего не смыслю. Вопрос открыт.

Это ваша проблема и только ваша. Вот средство достижения цели, вот классы для получения желаемого. Пример вызова WMI я приводил где-то там.

Включите мозг и разбирайтесь сами.

Я тоже не знаю ни C++ ни Visual Basic однако это не мешает мне читать код на этих языках. Уверен вам тоже, если вы хоть сколько то лет программируете.

На Visual Basic'e(на MSDN ссылку уже давал) кстати приведен полноценный пример получения этой информации с именами, описаниями устройств и номерами COM портов.

Задача решена, вопрос закрыт. Всего доброго.