Discussion :

[Speed41]

Bonjour,

J'ai réalisé des programmes avec l'objet TComport qui fonctionnent bien. On m'a changé d'ordi et j'ai remit l'objet trouvé sur le web Tcomport pour reprendre un programme. C'est pour mon travail et c'est mon PC de travail (pas de changement de système d'exploitation)
Voilà maintenant j'ai une erreur dans l'objet dans l'unité CPort

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
procedure EnumComPorts(Ports: TStrings);
var
  KeyHandle: HKEY;
  ErrCode, Index: Integer;
  ValueName, Data: string;
  ValueLen, DataLen, ValueType: DWORD;
  TmpPorts: TStringList;
begin
  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

L'erreur ect sur la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
          raise EComPort.Create(CError_RegError, ErrCode);
 
    until (ErrCode <> ERROR_SUCCESS) ;
 
    TmpPorts.Sort;
    Ports.Assign(TmpPorts);
  finally
    RegCloseKey(KeyHandle);
    TmpPorts.Free;
  end;
 
end;

Voici l'erreur : ... a provoqué une classe d'exeption EReadError avec le message 'Erreur lors de la lecture de ComCombobox1.comProperty : registry error (win error code : 2)' ...


Si quelqu'un a une idée, je dois rendre le programme modifié pour la fin de semaine.

Ici c'est sous Windows XP

[Speed41]

Le fait d'être sur un portable sans port com est que cela peut expliquer l'erreur ?

[SergioMaster]

Bonjour,

une question pour répondre , qu'y a t-il dans le registre
HKEY_LOCAL_MACHINE\'HARDWARE\DEVICEMAP\SERIALCOMM
car dans le code tu supposes qu'il y a au moins une valeur (enfin ma lecture du code a été faite en diagonale)

[Speed41]

Bonjour,

Ce code n'est pas le mien c'est celui de l'objet TComPort.

J'ai utilisé un autre ordi avec des ports com et ça marche donc je vais rester avec l'idée, pour l'instant, que c'est le manque de port qui me pose problème.

Semaine prochaine, j'espère, on va m'installer 2 ports com sur mon portable et je pourrais valider cette hypothèse.

Merci

[Linkin]

C'est bien le manque de port com qui pose problème.

Je suppose que tu utilises soit un TComComboBox, soit directement la procédure EnumComPorts.

Si tu utilises des TComCombobox pour lister les ports COM, le mieux est d'utiliser une TCombobox classique et de la remplir avec EnumComports, entouré d'un try except (cette solution évite de modifier EnumComport, avec les effect de bords que cela peut impliquer).

[Speed41]

Oui tout à fait