Indy+WriteBuffer

[johncook]

Hola:
Mi problema es el siguiente. Estoy trabajando con las Indy, y deseo enviar un registro desde el cliente al servidor utilizando writebuffer.
La estructura del registro es la siguiente:

registro=record
id:integer;
mensaje:string[50];
fuente:TFont;
end;

El problema es que utilizando dicha estructura, el servidor me lee cualquier cosa. La única solución que encontré hasta el momento, es suprimir el campo fuente y, ahí no tengo problemas. Pero a dicho campo lo necesito, asi que espero que alguien me pueda dar una mano.
Muchas gracias.

[DarKraZY]

Espero no confundirme en mi respuesta, pero TFont es una clase así que fuente es simplemente un puntero. ¿No será por esto por lo que te funciona incorrectamente?

[roman]

DarKraZY está totalmente en lo correcto. Tendrás que agregar variables específicas al record para almacenar las propiedades qe te interesen del Font:

Código Delphi [-]
registro = record
  id:integer;
  mensaje:string[50];
  nombre_fuente: TFontName;
  color_fuente: TColor;
  tamaño_fuente: Integer;
  
  etc.
end;

Cuando el servidor reciba el registro llenará un objeto Font con estos valores.

// Saludos

[johncook]

Hola:
También probé de la misma forma, y tengo el mismo problema. De todas formas opté por solucionar el problema mandando un stream, donde el texto del mensaje está formateado con las fuentes.
De todas formas, muchas gracias.
John Cook.

Pd: Román: Probé la función de Peter Below que me recomendaste y funciona de pelos. Muchas gracias

[roman]

Empezado por johncook

Pd: Román: Probé la función de Peter Below que me recomendaste y funciona de pelos. Muchas gracias

Pues sería de agradecer que publicaras en aquél hilo la forma en que la usaste. Yo la probé rápidamente y no pude concatenar los RichEdit.

// Saludos