Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-04-2008
vejerf vejerf is offline
Miembro
 
Registrado: ene 2007
Posts: 206
Poder: 18
vejerf Va por buen camino
Leer Word, Integer... de un Buffer de bytes

Hola amig@s,
Me ha surgido la siguiente duda al implementar un protocolo. En este protocolo me llega una ristra de bytes en formato hexadecimal por el puerto serie. Yo los voy almacenando hasta tener una trama completa y cuando me dispongo a desempaquetarlo tengo q leer en un caso un byte, en otro un Word, o caracteres, etc...
Mi pregunta y mi duda es si hay algún método sencillo para leer de mi buffer un tipo de dato en concreto o voy a tener q hacer transformaciones del tipo:

Word := Buffer[1]*2^8+Buffer[2];

Gracias a todos...
Responder Con Cita
  #2  
Antiguo 18-04-2008
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
En el Help de Delphi 6
Overview of Pointers

Código Delphi [-]
var
  X, Y: Integer;   // X and Y are Integer variables
  P: ^Integer;     // P points to an Integer
begin
  X := 17;         // assign a value to X
  P := @X;         // assign the address of X to P
  Y := P^;         // dereference P; assign the result to Y
end;

Código Delphi [-]
type
  PInteger = ^Integer;
var
  R: Single;
  I: Integer;
  P: Pointer;
  PI: PInteger;
begin
  ...
  P := @R;
  PI := PInteger(P);
  I := PI^;
end;

En tu caso:

Código Delphi [-]
var
  i : integer;
  PB: ^Byte;
  PI: ^Integer;
  PW: ^Word;
  vByte : Byte;
  vInteger : Integer;
  vWord : Word;
begin 
   while not fin_de_buffer
   begin 
      inc(i);
      if (viene_un_word) then
      begin
         PW := @Buffer[i];
         vWord := PW^;
         i := i + 2;
      end;
      if (viene_un_integer) then
      begin
         PI := @Buffer[i];
         vInteger := PI^;
         i := i + 2;
      end;
      if (viene_un_byte) then
      begin
         PB := @Buffer[i];
         vByte := PB^;
         i := i + 1;
      end;
      ...

Última edición por duilioisola fecha: 18-04-2008 a las 11:43:40.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Separar los bytes de una variable integer modulay Varios 4 14-09-2007 16:43:53
como leer un word de solo lectura fdocortesl OOP 2 30-05-2007 16:44:20
¿Cómo convertir de word a integer? bluegene Varios 16 19-03-2007 22:31:18
Leer buffer de teclado dieleo Varios 0 12-02-2007 19:23:19
Leer celdas desde el Word Javier_A OOP 2 30-12-2005 22:35:42


La franja horaria es GMT +2. Ahora son las 02:13:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi