Recherche automatique d'un port serie

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 485 fois - Téléchargée 34 fois

Contenu du snippet

cette petite fonction retourne le numero du port serie en connaisant le nom. C'est l'extrapolation de la fonction EnumPorts du composant Tcomport.

Source / Exemple :


function NumeroPort(nomport:string):string;
var
  KeyHandle: HKEY;
  ErrCode, Index: Integer;
  ValueName, Data: string;
  ValueLen, DataLen, ValueType: DWORD;
begin
  ErrCode := RegOpenKeyEx(
    HKEY_LOCAL_MACHINE,
    'HARDWARE\DEVICEMAP\SERIALCOMM',
    0,
    KEY_READ,
    KeyHandle);

  if ErrCode <> ERROR_SUCCESS then
    raise Exception.Create('erreur d''ouverture');

    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);
      if pos(nomport,valuename)<>0 then result:=data;
        Inc(Index);
      end
      else
    until (ErrCode <> ERROR_SUCCESS) ;
    RegCloseKey(KeyHandle);
end;

Conclusion :


cette source fait suite à une question posée sur le forum
pour obetnir la liste des descriptions des ports:
sur une forme mettre une listbox
en ligne 40 rajouter:
form1.ListBox1.Items.Add(valuename);// donne la liste des descriptions
et
procedure TForm1.FormCreate(Sender: TObject);
begin
NumeroPort('');
end;
lancer le programme et la listbox vous donne la totalité des ports serie installés

A voir également

Ajouter un commentaire

Commentaires

jlen100
Messages postés
1649
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
7 -
salut
le Max232 ou ses équivalents servent à adapter les niveaux de tension entre le micro contrôleur et le PC.
en effet le micro contrôleur délivre une tension de 5V alors que la liaison série du PC attend un niveau de +/-12V (Niveau standard de la RS232)
Pour ta seconde question je ne travaille pas en assembleur sur PIC je ne peux donc pas te répondre à ce sujet.
cs_ramzi83
Messages postés
7
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
7 mai 2009
-
salut
je suis Ramzi de Tunisie, j'ai projet de fin d'étude, qui consiste à réaliser une carte à base de PIC 16f77 pour commander une table de montage ( commander 32 diodes ) cette carte communique avec le PC par le RS232 . je dois réaliser le programme par l'assembleur.
alors je si vous pouvez m'aider en m'indiquant les commandes que je dois les utiliser par l'assembleur pour envoyer les donner par le RS232 vers la carte, voici mon email en plus
ramzi.bk@hotmail.com
merci .....
cs_ramzi83
Messages postés
7
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
7 mai 2009
-
salut...
j'ai une question qui n est pas dans le sujet de forum mais qu'a un liaison avec le RS232:
pourquoi on doit toujours utiliser le max232 avec le RS232 dans les cartes à base de PIC.
s'il vous plais répondez moi sur mon e-mail directement
ramzi.bk@hotmail.com
merci.........
jlen100
Messages postés
1649
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
7 -
ce programme n'a pas besoin de Tcomport
paradoxham
Messages postés
39
Date d'inscription
vendredi 14 octobre 2005
Statut
Membre
Dernière intervention
27 novembre 2009
-
slt
mais est ce qu on peux ajouter la composnate Tcomport a delphi7 pour que ce programme fonctionne si oui comment

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.