Trabajar con operadores binarios

[JordiP]

Buenas, Estoy traspasando un programa de Java a Delphi y me encuentro en un punto que no entiendo lo que hace. Alguien podría explicarmelo por favor ?

Las lineas en Java son las siguientes:

packet[i++] = (byte) (lenField >>> 7 & 0x7f | 0x80);
packet[i++] = (byte) (lenField & 0x7f);
packet[i++] = (byte) (dataLen >>> 7 & 0x7f | 0x80);

packet[i++] = (

byte) (partPos >>> 8 & 0xff);
packet[i++] = (byte) (partPos & 0xff);

el problema esta, evidentemente, en lo que hacen los operadores >>>, & y |

Espero vuestras noticias y gracias

[[coso]]

Hola,

packet[i++] = (byte) (lenField >>> 7 & 0x7f | 0x80);

el operador ++ es de incremento,
el operador >>> es bitwise, o sea, desplazamiento del numero en bits hacia la izquierda, lo que es equivalente a dividir por dos al ser binario. El & es AND y el | es OR.

[mcs]

Más o menos sería esto:

packet[i]=((lenField shr 7) And $7f) Or $80;
Inc(i);
packet[i]=lenfield And $7f;
Inc(i);
packet[i]=((dataLen shr 7) And $7f) Or $80;
Inc(i);

packet[i]=(partPos shr 8) And $ff;
Inc(i);
packet[i]=partPos And $ff;
Inc(i);

Por tanto:
<< equivale a shl, pero conservando el bit de signo
>> equivale a shr, pero conservando el bit de signo
>>> es un shr, pero para datos sin signo
& es un And
| es un Or

[JordiP]

Buenas de nuevo, hoy estoy de dudas. Resulta que estoy convirtiendo un codigo de JAVA a Delphi y me encuentro con una duda, no se cual es el equivalente en delphi de:

Código PHP:

packet[i++] = (byte) (lenField >>> 7 & 0x7f | 0x80);
packet[i++] = (byte) (lenField & 0x7f);
packet[i++] = (byte) (dataLen >>> 7 & 0x7f | 0x80);
packet[i++] = (byte) (dataLen & 0x7f);
packet[i++] = (byte) (partPos >>> 8 & 0xff);
packet[i++] = (byte) (partPos & 0xff); 


Resulta que es un ARRAY de Bytes, eso no es lo complicado, pero si los operedores

Código PHP:

>>> & | 


no a que equivalen en Delphi.

No se si alguien podrá ayudarme con esto.

Gracias de todas maneras

[JordiP]

Gracias por la respuesta, esto ya habia podido leerlo en Internet, pero mi problema es que no se como convertirlo a Delphi, es decir, cual sería el codigo equivalente en Delphi de esto:

Código PHP:

lenField >>> 7 & 0x7f | 0x80
lenField & 0x7f
dataLen >>> 7 & 0x7f | 0x80
partPos >>> 8 & 0xff
partPos & 0xff 


Teniendo en cuenta que lenField, dataLen y partPos son variables del tipo INTEGER

Gracias de nuevo

[mcs]

Ya te hemos respondido en el apartado Java, por lo tanto no dupliques los posts. Y no estaría mal que pusieras un título claro en el post...

[JordiP]

MCS, ya se que me habeis respondido, pero a una pregunta diferente. En este caso es como convertir ese codigo a Delphi y por eso lo he puesto aqui y no en el apartado de JAVA

Gracias

[mcs]

Empezado por JordiP

MCS, ya se que me habeis respondido, pero a una pregunta diferente. En este caso es como convertir ese codigo a Delphi y por eso lo he puesto aqui y no en el apartado de JAVA

Gracias

A una pregunta diferente?! Espero que no te refieras a esta: http://www.clubdelphi.com/foros/showthread.php?t=68481. Porqué entonces no veo donde está la diferencia.

De todas formas, podrías leerte un poco más detalladamente el hilo anterior (son 3 respuestas en total), y quizá así podrás ver que este bloque de código lo tienes convertido de Java a Delphi...

[JordiP]

MCS, perdona, ya veo que me dabas una respuesta del equivalente en Delphi, perdona pero no llevo un buen día.

Ya estoy trabajando con la ayuda que me has dado.

Gracias.

[mcs]

Empezado por JordiP

MCS, perdona, ya veo que me dabas una respuesta del equivalente en Delphi, perdona pero no llevo un buen día.

Ya estoy trabajando con la ayuda que me has dado.

Gracias.

No pasa nada... A todos nos pasa a veces que nos saltamos "alguna línea" mientras leemos...

Saludos,

Marc

[JordiP]

MCS gracias y perdona por la confusion, si que era una respuesta, ya esta solucionado gracias a esa ayuda.

Un saludo

[Casimiro Notevi]

Por favor, JordiP, no repitas preguntas en distintos subforos, y titula correctamente, porque "como hacer esto" y "traducción please" no sirve para nadie que luego esté buscando algo sobre el tema, debes poner un título algo más descriptivo.
Por favor, lee nuestra guía de estilo.
Voy a unir ambos hilos en uno solo.
Muchas gracias por tu colaboración.

[JordiP]

OK lo hare, perdonad