convertir ascii a 0 y 1 y a beeps

[TiammatMX]

Empezado por danielmj

...le asigne un valor en binario. Este valor en binario luego se convertiría en beeps, siendo el 1 un tono mas alto que el 0...

¿Y no te sirve el alfabeto Morse? Digo, cayó en desuso desde que el telégrafo dejó de usarse, pero sigue siendo un standard universal.

[danielmj]

Buenos días, lo primero perdón por tardar en contestar, lo segundo, gracias por vuestras respuestas, el trabajo no me da tiempo para vivir je, de echo escribo desde el curro con el móvil ya estoy por salir después e un turno de 17h... En fin, voy a probar lo del mod, a ver que tal. La idea es más amplia pero poco a poco.

Un saludo.

[danielmj]

hola de nuevo, he empezado a trastear un poco la app, a esbozar si lo preferis, en fin el caso es que si pulso sobre un edit las teclas Alt+155, aparece el simbolo ascii "ø" que es lo correcto, el problema es que en el label no me guarda su valor numerico es decir "155", sino 248 y su semejante binario, adjunto captura. http://subefotos.com/ver/?cca3e3c60fa720f17f770603948a6a37o.png

El codigo que tengo es este:

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

  s: string;
  i,x: integer;

begin
  for i:= length(edit1.Text) downto 1 do
    begin
      label1.Caption:=  IntToStr(Ord(edit1.Text[i]));
      x:= StrToInt(label1.Caption);
      label2.Caption:= IntToBin(x,8);
    end;
end;

¿por qué no aparece el valor real? otro ejemplo, el valor numerico de ' ' es 255, pero en vez de eso me devuelve 160.

Gracias por vuestra ayuda.

[danielmj]

hola, otro simbolo que no funciona bien es si tecleo Alt+254 que debería salir esto "■" pero la aplicacion si le pongo ese cuadrado negro no devuelve 254, sino que devuelve 9632 y no sé por que...

un saludo.

[Ñuño Martínez]

Tiene pinta de que está usando una tabla de códigos diferente a la que esperas. La verdad es que es un lío, con tanto UNICODE, ANSI, ISO y ASCII, y no veo solución sencilla.

Comprueba si la aplicación está usando la misma tabla que tu sistema operativo. El como ya no estoy seguro, aunque creo que en las propiedades del Equipo y en la configuración del compilador vendrá algo.