PORT COM ENUM

Commentaire de jlen100 le 13/11/2005 15:55:41

apparement l'exe ne  reconnait pas tous les ports com --> sur mon PC équipé des ports 1 à 4 il ne reconnait que les 2 premiers (com1 et com2)
@+
jlen

Commentaire de vecchio56 le 13/11/2005 16:21:05 administrateur CS

Pas du tout, pas besoin de matériel dessus chez moi.
J'ai essayé avec des port virtuels, il les reconnait aussi

Commentaire de BruNews le 13/11/2005 16:25:14 administrateur CS

Ben oui c'est vrai que je n'ai rien sur COM1, il est seulement déclaré.
Vais faire une sieste, m'évitera de répondre nimporte quoi.

Commentaire de vecchio56 le 13/11/2005 16:29:33 administrateur CS

jlen100> Qu'est ce que tu as dans le gestionnaire de périphérique, pour le noeud Ports (COM et LPT)?
Parce que avec ton programme (que j'ai pas pu tester) je crois que j'aurai des trucs qui sont pas des ports COM pour le gestionnaire des périphériques (modem interne)

Commentaire de BruNews le 13/11/2005 16:33:36 administrateur CS

vi et si tu pouvais dire ce que tu as sous:
HKLM\HARDWARE\DEVICEMAP\SERIALCOMM

Commentaire de jlen100 le 13/11/2005 16:35:47

j'y vai

Commentaire de jlen100 le 13/11/2005 16:46:44

voilà le bout de code que comport utilise (en DELPHI) pour enumerer les ports:
  ErrCode := RegOpenKeyEx(
    HKEY_LOCAL_MACHINE,
    'HARDWARE\DEVICEMAP\SERIALCOMM',
    0,
    KEY_READ,
    KeyHandle);

  if ErrCode <> ERROR_SUCCESS then
    raise EComPort.Create(CError_RegError, ErrCode);

  TmpPorts := TStringList.Create;
  try
    Index := 0;
    repeat
      ValueLen := 256;
      DataLen := 256;
      SetLength(ValueName, ValueLen);
      SetLength(Data, DataLen);
      ErrCode := RegEnumValue(
        KeyHandle,
        Index,
        PChar(ValueName),
{$IFDEF DELPHI_4_OR_HIGHER}
        Cardinal(ValueLen),
{$ELSE}
        ValueLen,
{$ENDIF}
        nil,
        @ValueType,
        PByte(PChar(Data)),
        @DataLen);

      if ErrCode = ERROR_SUCCESS then
      begin
        SetLength(Data, DataLen);
        TmpPorts.Add(Data);
        Inc(Index);
      end
      else
        if ErrCode <> ERROR_NO_MORE_ITEMS then
          raise EComPort.Create(CError_RegError, ErrCode);

    until (ErrCode <> ERROR_SUCCESS) ;

    TmpPorts.Sort;
si ça peut-t-être utile.
@+
jlen

Commentaire de BruNews le 13/11/2005 16:51:48 administrateur CS

vi vi j'avais regardé sur delphi, c'est juste l'enum sur BDR mais si MS range ailleurs sur prochain Windows code devient obsolète. Pour cela que je préfère fonctions Setupxxx.

Commentaire de jlen100 le 13/11/2005 16:57:12

ok pour le setup mais toutes les liaisons series ne sont pas declarées en COMxxx. Cela depend du hard surtout dans le cas d'un plug and play

Commentaire de jlen100 le 13/11/2005 17:04:32

oui c'est pas grave pour l'instant je ne me remets que doucement au C++ j'ai encore le temps de trouver une solution pour ce genre de probleme pour l'instant les prog tournent pas mal en DELPHI c'est juste pour avoir une homogeneite entre les progs des cartes micro controleur et les prog windows.

Commentaire de Famidoo le 17/07/2006 09:48:10

Comment fait on pour le faire marcher sous pocket pc ?