|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Découpage de bytes [ Divers / Débutant(e) ] (nitrique)
 Informations & options pour cette discussion
jeudi 31 août 2006 à 10:15:45 |
Découpage de bytes
nitrique
|
Bonjour,
Je récupère des paquets via le port COM que je dois traiter ensuite.
Notament, dans ce paquet, il y a un timestamp sur 4 bytes répartis de cette manière:
seconds (6 bits)
minutes (6 bits)
hours (5 bits)
days (5 bits)
months (4 bits)
years (6 bits)
N'ayant jamais fait ce genre de chose, je vous demande de l'aide.
(Il faut transformer en binaire et recopier la longueur voulue dans un byte en rajoutant des 0 devant, nan ?)
Merci d'avance.
http://www.gentag.fr
|
|
|
jeudi 31 août 2006 à 11:34:18 |
Re : Découpage de bytes
jlen100
|
salut,
tu peux utliser un shr(valeur,decalage) puis faire un and 000xxx pour effacer les bits non significatifs
@+
jlen
|
|
|
jeudi 31 août 2006 à 11:59:57 |
Re : Découpage de bytes
|
jeudi 31 août 2006 à 13:12:30 |
Re : Découpage de bytes
neko
|
Il n'y a pas besoin de "transformer" en binaire, une valeur entière est toujours représentée en binaire en mémoire.
tu dois te renseigner sur les opératiosn binaires en revanche
( 1 or 1 ) = 1
( 1 or 0 ) = 1
( 0 or 0 ) = 0
( 1 xor 1 ) = 0
( 1 xor 0 ) = 1
( 0 xor 0 ) = 0
( 1 and 1 ) = 1
( 1 and 0 ) = 0
( 0 and 0 ) = 0
//Attention c'est en binaire 1=1, 10=2, 11=3, 100=4, etc...
( 100 shr 0 ) = 100 ( 1 shl 0 ) = 1
( 100 shr 1 ) = 010 ( 1 shl 1 ) = 10
( 100 shr 2 ) = 001 ( 1 shl 2 ) = 100
bon, a supposer que les secondes soient dans les bits de gauche:
0000 0000 0000 0000 0000 0000 0000 0000
function COMTimeStampToString(TimeStamp: Cardinal): String;
Begin
//Years
Result:=IntToStr(TimeStamp And $0000003F) + 'Years, '; // On prend que les 6 derniers bits de la variable et on masque les autres
//Month
Result:=Result+IntToStr((TimeStamp shr 6) And $0000000F)+'Months, ' // Idem, mais avant on décale de 6 bits vers la droite pour virrer l'année
//Day
result:=result+IntToStr((TimeStamp shr 10) And $0000001F)+'Days, ' // Idem mais on décale de 10 ( 6 + 4 )
//etc.
End;
exemple
tes bits ( valeurs au pif ):
1100 1111 0000 1111 1010 1111 1111 0000
And
0000 0000 0000 0000 0011 1111 ( $0000003F en hexa )
=
0000 0000 0000 0000 0000 0000 0011 0000
autre example
1100 1111 0000 1111 1010 1111 1111 0000
shr 6 =
0100 1111 0011 1100 00111110 1011 1111
And
0000 0000 0000 0000 0000 0000 0000 1111 ( $0000001F en hexa )
=
0000 0000 0000 0000 0000 0000 0000 1111
voilà voilà
bouh
|
|
|
jeudi 31 août 2006 à 13:15:38 |
Re : Découpage de bytes
neko
|
oops, j'ai oublié des zéros à la seconde ligne du premier exemple ^^'
bouh
|
|
|
jeudi 31 août 2006 à 13:19:24 |
Re : Découpage de bytes
neko
|
autre example:
1100 1111 0000 1111 1010 1111 1111 0000
shr 6 = ( tu décale de 6 vers la droite )
0000 0011 0011 1100 0011 1110 1011 1111
And
0000 0000 0000 0000 0000 0000 0000 1111 ( $0000001F en hexa )
=
0000 0000 0000 0000 0000 0000 0000 1111
là c'est mieu déjà ( j'sais pas ce que j'avais fouttu... fatigué moi... )
bouh
|
|
|
jeudi 31 août 2006 à 13:54:31 |
Re : Découpage de bytes
Loda
|
en passant:
function EncodeDate(Year, Month, Day: Word): TDateTime;
ca risque de t'aider...
|
|
|
jeudi 31 août 2006 à 14:22:28 |
Re : Découpage de bytes
jinh68
|
Salut,
Un petit exemple:
{
seconds (6 bits)
minutes (6 bits)
hours (5 bits)
days (5 bits)
months (4 bits)
years (6 bits)
}
TCOMTimeStamp = class
private
FValues: array[0..5] of Dword;
FPacket: DWORD;
procedure Display;
procedure GetCOMTimeStampFrom(Packet: DWORD);
function GetValue(indice: integer): DWORD;
public
constructor Create(Packet: Dword);
published
property Seconds: DWord index 0 read GetValue;
property Minutes: DWord index 1 read GetValue;
property Hours: DWord index 2 read GetValue;
property Days: DWord index 3 read GetValue;
property Months: DWord index 4 read GetValue;
property Years: DWord index 5 read GetValue;
end;
constructor TCOMTimeStamp.Create(Packet: DWord);
begin
GetCOMTimeStampFrom(Packet);
end;
procedure TCOMTimeStamp.GetCOMTimeStampFrom(Packet: DWord);
const ShrValues: array[0..5] of Byte = (6,6,5,5,4,0);
const MaskValues: array[0..5] of Byte = ($3f,$3f,$1f,$1f,$0f,$ff);
var i: integer;
begin
//Sauvegarde
FPacket := Packet;
for i := Low(MaskValues) to High(MaskValues) do
begin
FValues[i] := Packet and MaskValues[i] ;
Packet := Packet shr ShrValues[i];
end;
end;
function TCOMTimeStamp.GetValue(indice: integer):DWORD;
begin
result := FValues[indice];
end;
procedure TCOMTimeStamp.Display;
begin
ShowMessage(Format('%d années : %d mois : %d jours : %d heures : %d minutes : %d secondes', [FValues[5],FValues[4],FValues[3],FValues[2],FValues[1],FValues[0]]));
end;
j!nH
|
|
|
jeudi 31 août 2006 à 14:24:36 |
Re : Découpage de bytes
jinh68
|
Oups place juste la procédure Display en public.
C'est bien sûr optimisable et tu peux enjoliver le tout avec des constantes pour les indices.
C'est uniquement conceptuel comme code...
j!nH
|
|
|
jeudi 31 août 2006 à 15:06:00 |
Re : Découpage de bytes
nitrique
|
Bonjour à tous et merci pour votre rapidité,
J'ai essayé la classe et le resultat de display n'est pas correct:
maVar,maVarTemp: LongWord;
cts: TCOMTimeStamp;
temp := '';
MaVar := 0;
for j := 0 to 3 do begin
MaVar := MaVar+LongWord(tampon[nblu-4+j]) shl (j*8);
end;
cts := TCOMTimeStamp.Create(MaVar);
cts.Display;
cts.Free;
Voyez vous le pb ?
|
|
|
Cette discussion est classé dans : bytes, bits, découpage
 Répondre à ce message
 Sujets en rapport avec ce message
Smtp + Progress Bar + Bytes Total + Bytes Sent. [ par DeZNiUS ]
J'ai un problème : quand j'envoi des gros fichiers avec mon programme que je fait avec le composant NMSMTP, mon programme affiche dans la status bar '
Couleurs 24 Bits [ par MAsterC ]
J'ai une question ....Est-ce que Delphi prend en charge dans les bouton les image (bmp) 24bits couleurs... parce que moi l'image dans mon bouton me se
extraire les composantes R, G, B d'un bitmap 16 bits [ par ericamiens ]
bonjour, j'aimerais donc extraire ces composantes mais les fonctions GetRValue, GetGValue et GetBValue attendent un RGB (32 bits) en entrée. ça foncti
Vitesse de la carte reseau [ par manu00 ]
Bonjour,Une petite question...savez vous comment faire en delphi pour connaitre la vitesse (et pkoi pas les references) d'une carte reseau en local...
Cryptage 128 bits [ par Artegon ]
Salut a tous, j' aimerais savoir comment crypteune chaine de caractere en 128 bits...J' ai bien vus l' algorithme crypter/decrypter 128/256 bits, mais
Modification de la Luminosité [ par gastou ]
Bonjour,J'ai une application qui fait modifier la luminosité. Problème, sur une carte RADEON X300 Series, elle ne fonctionne que sur le mode 256 coule
cle de 128 bits et cryptage [ par MoveX ]
une cle de 128 bits en cryptage ca correspond a quoi? je veux dire, ca n est pas une cle de 128 caracteres?
à l'aide pb de codage de pixels!! [ par czone29 ]
Salut!!j'effectue un probleme qui fait un traitement d'image.Mon problème est le suivant:comment puis je faire pour récupérer les valeurs exactes des
Mais où est passé le 32ème bit de mon LongWord ? [ par japee ]
Salut à toutes et à tous. Le LongWord est-il réellement un 32 bits non signé ? Son étendue devrait être 0..4294967295 (4 294 967 295). Or l'étendue q
Conversion real binaire [ par difficile ]
Bonjour,J'utilise Delphi 7 pour communiquer avec un automate Télémécaniqueet je rencontre un probléme pour convertir un nombre flotant (32 bits)en bin
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|