Conocer el tamaño en memoria de un objeto

[_Io]

Empezado por navbuoy

Correcto, las clases del tipo TRemotable (usadas en Delphi para SOAP WebServices) no pueden medirse directamente en bytes como lo harías con un array o una estructura común. Esto se debe a que:

TRemotable hereda de TPersistent, y puede tener propiedades complejas, referencias, objetos anidados, etc.

No tiene una representación fija en memoria como un record, porque sus propiedades pueden estar implementadas por métodos get/set.

Algunas propiedades pueden ser dinámicas, opcionales o contener listas de objetos.

¿Qué hacer si quieres conocer el “tamaño” real de una instancia de TRemotable?
La mejor forma es serializar el objeto y medir el resultado, por ejemplo, en XML (formato que SOAP usa).

Ejemplo: medir el tamaño en bytes serializando con TSoapSerializer

Código Delphi [-]
uses Soap.InvokeRegistry, Soap.SOAPDomConv, Soap.OPToSOAPDomConv, Soap.SOAPAttachIntf;

function GetRemotableSize(RemotableObj: TRemotable): Integer;
var
  Serializer: ISoapSerializer;
  BufferStream: TMemoryStream;
  Converter: TOPToSoapDomConvert;
begin
  BufferStream := TMemoryStream.Create;
  try
    Serializer := TSoapSerializer.Create(BufferStream);
    Converter := TOPToSoapDomConvert.Create(nil);

    // Serializar el objeto como nodo XML
    Converter.ObjectToSoap(RemotableObj, nil, Serializer, '', '');

    // El tamaño resultante es el tamaño del stream
    Result := BufferStream.Size;
  finally
    BufferStream.Free;
    Converter.Free;
  end;
end;

¿Qué hace esto?
Usa TSoapSerializer y TOPToSoapDomConvert para serializar el objeto TRemotable a XML.

Escribe esa serialización a un TMemoryStream.

Devuelve el tamaño del stream como tamaño aproximado del objeto.

Cómo usarlo:

Código Delphi [-]
var
  NifEnt: VNifV2Ent;
  size: Integer;
begin
  NifEnt := Consulta_NIF;
  size := GetRemotableSize(NifEnt);
  ShowMessage('Tamaño estimado: ' + IntToStr(size) + ' bytes');

Consideraciones
El tamaño obtenido es el tamaño de la representación serializada, no de la estructura en RAM.

Este método sigue siendo válido si el objeto contiene otros TRemotable anidados.

Entendido perfectamente, muy bien explicado y muchas gracias por los ejemplos.

[navbuoy]

suelo preguntarle a ChatGPT cuando son cosas de Delphi, yo es que Pascal no lo controlo mucho, me es familiar debido a que esta ligado con C++ Builder pero como ya os dije, yo trabajo mas con C++ Builder

pero sabes?? a veces depende mucho de como le preguntas a ChatGPT para que te de mas o menos la información "fiable"

pero si te vale la informacion pues oye, eso que hemos ganado.

[Ñuño Martínez]

Dejad de preguntar información a ChatGPT: es un chat, no un buscador ni un sistema experto. Trabaja con un modelo estadístico, por lo que no sabe si lo que dice está bien o no. Además, no es más rápido que una búsqueda "normal" (usad Ecosia o Duckduckgo para evitar que Google use IA) y el gasto energético y ambiental no es proporcional (gasta muchísimo más). Todo desventajas.