convertir ascii a 0 y 1 y a beeps

[danielmj]

hola, sigo intentando sacar el calor decimal de un caracter ascii extendido >127, pero no lo consigo. por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;

begin
  c:= '■';
  label1.Caption:= intToStr(ord(c));
end;

Me devuelve 9632 cuando en realidad es 254 ¿alguna sugerencia?

[Casimiro Noteví]

Empezado por danielmj

hola, sigo intentando sacar el calor decimal de un caracter ascii extendido >127, pero no lo consigo. por ejemplo:Me devuelve 9632 cuando en realidad es 254 ¿alguna sugerencia?

No crees hilos nuevos para lo mismo, gracias

¿Has probado con ansistring(loquesea) ?

[danielmj]

hola casimiro, no, voy a ver y sobre el hilo oido cocina, la verdad se me fue... por que no es que sea nuevo en el foro, vamos que conozco las normas. Un saludo.
Ñuño, voy a mirar tambien lo que dices, el problema es... cuando se ejecute en otra maquina ¿lo hará correctamente o volverá a fallar?

un saludo y gracias.

[Neftali [Germán.Estévez]]

Empezado por danielmj

hola, sigo intentando sacar el calor decimal de un caracter ascii extendido >127, pero no lo consigo. por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;

begin
  c:= '■';
  label1.Caption:= intToStr(ord(c));
end;

Me devuelve 9632 cuando en realidad es 254 ¿alguna sugerencia?

A mi este código me está funcionando.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;
begin
  c:= '®';
  Label1.Caption:= intToStr(ord(c));
end;

Me devuelve un 174.

[danielmj]

Hola Neftalí, ummm 174 no se corresponde con ese simbolo ascii, mira la tabla de la captura, el 174 pertenece a "«" el simbolo "®" se corresponde con el 169. Y ese el problema, que no sé como sacar su valor correcto. La idea de este proyecto es muy amplia, y estos son solo los primeros problemas que me estoy encontrando, más adelante, solucionado esto, tendre que trabajar con alguna libreria para usar el formato mp3 y seguramente volvere a tener problemas.

En fin, de momento quisiera obtener el decimal del ascii para luego pasarlo a binario.

Un saludo y gracias.

[Neftali [Germán.Estévez]]

Creo que delphi está trabajando con una tabla que no es la que tú has puesto.
En la mía (desde el IDE de Delphi) aparece esto:

[danielmj]

hola, neftalí, pues ahora si me dejas a cuadros por que en mi teclado pulsando "alt+174" sale "«", ya me perdí aun mas.
un saludo.

[danielmj]

voy a plantearlo de otro modo, la cuestion es, si yo abro un archivo x.mkv con el bloc de notas, me salen mil simbolos que se corresponden con la tabla ascii, entonces, puedo crear un case dentro de un bucle donde se recorra caracter a caracter y en caso de ser por ejemplo ® le asigne el valor decimal? seria un case de 255 lineas pero seria una opcion?

Por cierto neftalí, tienes razón, lo que pasa es que yo pulsaba alt+169 y he caido en la cuenta de que pulsando alt+0174 se da el mismo resultado, lo que me lleva a otra duda, cuando en el bloc de notas aparezca "®" que valor le doy 169 o 0174? por que no es lo mismo y la aplicacion tendrá la operación inversa, es decir que del binario, pasará al decimal y por ultimo al simbolo ascii.