1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Convertir une adresse MAC decimal en une adresse MAC HEXA

Signaler
Messages postés
11
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
10 mai 2007
 -
Messages postés
1
Date d'inscription
vendredi 13 février 2004
Statut
Membre
Dernière intervention
9 avril 2009
 -
Bonjour,

voila mon probleme: j'ai mon adresse MAC sous le format INT64 et je desire la remettre au format HEXA

cad jai mon int de la forme 9154794631168 et je veux l'avoir sous le format e7:f3:b6:25:11:00
Ne voyez aucune corelations entre les 2 valeurs.

Voila si quelqu'un a une solution je vous en remercie d'avance.

Vive le monde du libre }:)
Afficher la suite

11 réponses

Réponse 1 / 11
Messages postés
323
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
24 septembre 2008
 1
Salut wismerhill40,

voici une fonction qui te permettra d'optenir ce que tu veux :

function IntToHex(const iValue : int64; const cSeparator : char): string;
var
  sValue  : string;
  iNoChar : integer;
begin
  sValue := SysUtils.IntToHex(iValue, 2);



  if (Length(sValue) mod 2) > 0 then
    sValue := '0' + sValue;



  Result := '';



  for iNoChar := 1 to Length(sValue) do
  begin
    Result := Result + sValue[iNoChar];



    if (iNoChar mod 2 = 0) and (iNoChar <> Length(sValue)) then
      Result := Result + cSeparator;
  end;
end;



Bonne Prog,  Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.
Réponse 2 / 11
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
 30
houlala, >9500ms/1MCall ... c'est enorme.

version plus rapide (125ms/1MCall) :

function MacStr(const AMac : int64) : string;
var
  pR : PChar;
  pB : ^byte;
  N  : integer;
const
  BTC : array[$0..$F] of char = '0123456789ABCDEF';
begin
  pB := @AMac;
  inc(pB,5);
  SetLength(Result, 17);
  pR := PChar(Result);
  for N := 0 to 5 do
  begin
    pR[0] := BTC[ pB^ shr 4 ];
    pR[1] := BTC[ pB^ and $F ];
    dec(pB);
    inc(pR, 2);
    if N < 5 then
    begin
      pR[0] := '-';
      inc(pR,1);
    end;
  end;
end;

Réponse 3 / 11
Messages postés
323
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
24 septembre 2008
 1
salut foxi,

pourrais-tu m'expliquer ce que tu veux dire par : houlala, >9500ms/1MCall ... c'est enorme. ?

Bonne Prog,  Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.
Réponse 4 / 11
Messages postés
3815
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
4 août 2020
 35
Salut,

c'est pourtant simple : C'est le temps (en
Millisecondes)que le processeur met à exécuter ta fonction  1 Millier
ou 1 Million de fois

On peut donc dire que celle de F0xi est 76 fois plus rapide que la tienne 


Evidement sur un appel ça ne se voit pas et c'est pour cela que l'on fait des testes sur des Milliers d'appels

mais le plus intéressant c'est de voir par quelle méthode il est passé pour obtenir le même résultat que toi.
 
@+
Cirec

Réponse 5 / 11
Messages postés
11
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
10 mai 2007
Bonjour

Merci de vos reponses ! je vais essayer en esperant que ca marche je croise les doigts !!

Merci encore

Vive le monde du libre }:)
Réponse 6 / 11
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
 30
je vois pas ce que je peu ajouter de plus a l'explication de Cirec... si ce n'est que,

quand tu fait une fonction de convertion de ce genre, chiffre vers lettres, lettres vers chiffre, process d'image etc. il faut que ce sois trés rapide.
par contre on considere que les methodes de compression, cryptage, ou lourd traitement video ou 2d/3d peuvent etre lente (cela depend des cas) et donc afficher un etat de progression.

bien sur, une methode qui donne le meme resultat mais plus rapidement sera toujours bienvenue.

moi, je considere que des methodes legere doivent tourner en dessous de 1000ms pour 1MCall, surtout les methodes succeptibles d'etres appélée 10 ou 20 fois ou plus dans une boucle ou une methode.
et encore la on as 125ms sur une config recente qui est prevue pour de la DAO 2d/3d, de la MAO et faire tourner des jeux recents.
alors je te laisse imaginer l'importance de l'optimisation sur des config plus modestes... une methode qui mets presque 10 secondes pour 1 millions d'appels pour ce genre de truc c'est trop :)
meme si ça parrait un peu deroutant de tester 1 millions d'appels, c'est ce qu'on appel un test de charge, ça permet egalement de tester la stabilitée de la methode pour detecter d'eventuel probleme de pointeur ou de fuite memoire ou de debordement.
un peu comme quand on test la charge d'un serveur pour voir si tout vas bien et pour regler les limites.

pour tester c'est simple, voici un petit shema que j'utilise souvent :

procedure TForm1.Button1Click(sender : TObject);
var GT1,GT2, N : cardinal;
begin
  GT1 := GetTickCount;
  for N := 1 to 1000000 do Methode1; { supposée la plus lente }
  GT1 := GetTickCount-GT1;

  GT2 := GetTickCount;
  for N := 1 to 1000000 do Methode2; { supposée la plus rapide }
  GT2 := GetTickCount-GT2;

  Label1.caption := format('%d ms VS %d ms [%.2f%%]',
                           [GT1, GT2, Abs( (100/GT1)*(GT1-GT2) )]);
end;

certe GetTickCount n'est pas le meilleur de la precision, mais quand on as un ecart de 9500 a 125 ... on se rend vite compte
de qui est la plus rapide...

Réponse 7 / 11
Messages postés
323
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
24 septembre 2008
 1
Bonjour Foxi,


Merci pour ces  informations très intéressante. Effectivement je n'ai jamais testé mes fonctions sur 1 Millions d'appels, mais on se rend bien compte de l'utilité de le faire.

Bonne Prog,  Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.
Réponse 8 / 11
Messages postés
81
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
12 octobre 2007
salut,

Foxi tu peux m'expliquer ce ratio Abs( (100/GT1)*(GT1-GT2) ); ?????

++
Réponse 9 / 11
Messages postés
11
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
10 mai 2007
Bonjour a tous !!

Merci pour tout vos conseils et vos reponses super rapides.

jai essayer vos reponses et celles de Foxi marche super. A part que le resultat est inverse a celui d'une adresse MAC. Donc jai modifie le source de Foxi (Desole) je vous la mettrai Lundi si ca vous interresse. mais je dois dire que je me suis fais aider car je ne suis pas a l'aise avec le travail sur les bites. Mais j'ai la meme chose a faire avec l'Adresse IP mais je vais essayer d'y arriver tout seul avec tes sources Foxi !!

Merci a tous !

Vive le monde du libre }:)
Réponse 10 / 11
Messages postés
11
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
10 mai 2007
Bonjour tout le monde ...

Voila comme promis la fonction dans le bon sens ... Rien de bien nouveau par rapport a celle de Foxi bien entendu !!

function MacStr(const AMac : int64) : string;
var
  pR : PChar;
  pB : ^byte;
  N  : integer;
const
  BTC : array[$0..$F] of char = '0123456789ABCDEF';
begin
  pB := @AMac;    {pointe l'@ mac}
  inc(pB,5);
  SetLength(Result, 17);  {chaine de 17 caractères en sortie 6 octets de 2 caractères + 5 sépararteus}
  pR := PChar(Result);
  inc(pr,15);       {pointe le résultat}
  for N := 0 to 5 do
  begin
    if N >0 then
    begin
      pR[0] := '-';
      dec(pR,2);
    end;

    pR[0] := BTC[ pB^ shr 4 ];       {décale la valeur binaire de @Mac de 4 vers la droite = division par 2^4 soit 16}
    pR[1] := BTC[ pB^ and $F ];
    dec(pB);
    dec(pR, 1);

  end;
end;

Voili voilou !! merci encore a tout le monde

Vive le monde du libre }:)
Réponse 11 / 11
Messages postés
1
Date d'inscription
vendredi 13 février 2004
Statut
Membre
Dernière intervention
9 avril 2009
Moyennant quelques aménagements, je gagne entre 40 et 45%, suivant les options de compilations et les processeurs, avec :

const
  BTC : array[$0..$F] of char = '0123456789ABCDEF';

type
  oct = packed record a,b,c,d,e,f,g,h: byteend;
  poct = ^oct;

function MacStr(const AMac : int64) : str17;
 var pR: ; pB: ^byte integer;
begin
  pB : = pointer(longword(@oct(AMac).f));
  result[0] := char(17);
  pR := PChar(@Result[15]);
  for N : = 0 to 5 do begin
    pR[1] := BTC[ pB^ shr 4 ];
    pR[2] : = BTC[ pB^ and $F ];
    if N < 5 then begin
      pR[0] := '-';
      dec(pR, 3);
      dec(pB);
    end;
  end;
end;
Répondre Posez votre question